Programador Novato

En este tutorial vamos a calcular el volumen de un vaso en Visual Basic.NET para saber con cuantos vasos de cerveza terminamos en estado inconveniente.

Problema:
Si yo me emborracho con 2 Litros de cerveza y un vaso mide 6 cm de diámetro y 14 cm de altura. ¿Cuánto vasos debo tomar para emborracharme? Sabiendo que la fórmula del volumen de un cilindro es V=πr2h. Donde el radio es igual a r=d/2.

Codigo para calcular el volumen de un vaso en Visual Basic.NET: https://github.com/programadornovato/VisualBasic/commit/935545ae3f3ef6afdd8fbfe07742163a3225d40a

Imports System

'Autor: Programador Novato
'Fecha: 01/01/2021
'Este modulo sirve para ense�ar como funciona Visual Basic.NET
Module Program
    'Este codigo escribe un texto en amarillo con fondo azul
    Public Sub Main(args As String())
        Try
            Console.WriteLine("�Humano con cuantos litros de cerveza te emborrachas?")
            Dim litros = Integer.Parse(Console.ReadLine())
            Dim mililitros = litros * 1000
            Console.WriteLine("�Humano cual es el diametro de tu vaso?")
            Dim D = Integer.Parse(Console.ReadLine())
            Console.WriteLine("�Humano cual es la altura de tu vaso?")
            Dim A = Integer.Parse(Console.ReadLine())
            Dim R = D / 2
            Dim V = Math.PI * R * 2 * A
            Dim vasosLimite = mililitros / V

            'Console.WriteLine("V=" & V & "  vasosLimite=" & vasosLimite)
            Console.WriteLine("�Humano cunatos vasos de cerveza has tomado?")
            Dim vasosTomados = Integer.Parse(Console.ReadLine())
            If vasosTomados <= vasosLimite Then
                Console.WriteLine("Humano te hacen falta " & vasosLimite - vasosTomados & " vasos para estar borracho")
            Else
                Console.WriteLine("Humano ya te exediste con " & vasosTomados - vasosLimite & " vasos YA ESTAS BORRACHO")
            End If
        Catch ex As Exception
            Console.WriteLine("���HUMANO YA ESTAS TAN BORRACHO QUE NI PUEDES ESCRIBIR UN NUMERO!!!")
        End Try

        Console.Read()
    End Sub
End Module

Curso de VB.NET⛓️: https://www.youtube.com/watch?v=aiquJHzxNWw&list=PLCTD_CpMeEKSFwAFjvrfpvSwxmbs2maMo&ab_channel=programadornovato
[CURSO] C##️⃣: https://www.youtube.com/watch?v=NKPMGY6NCko&list=PLCTD_CpMeEKQSOU8Vf9VHXrZa2rc8X0X5&index=1&t=3s&ab_channel=programadornovatoprogramadornovato
[CURSO] C# CON FORMULARIOS#️⃣: https://www.youtube.com/watch?v=l0_U4oyOuns&list=PLCTD_CpMeEKTBih1VgeunCjc83ZQ6UBMI&index=1&ab_channel=programadornovatoprogramadornovato
[Curso] C# MYSQL#️⃣: https://www.youtube.com/watch?v=-5CXNXHIzWk&list=PLCTD_CpMeEKR_4q0-7BxGHXqH0bgpqw5q&ab_channel=programadornovato
[CURSO] C++ DE 0 A HEROE 🦸: https://www.youtube.com/watch?v=APN8aCyPvww&list=PLCTD_CpMeEKTofxs7iottRxJ5YPM7BOcc&ab_channel=programadornovato
[Curso] Java Netbeans GUI Completo☕: https://www.youtube.com/watch?v=18UA7X2ss8g&list=PLCTD_CpMeEKThfXo8D-RXOGu5FarO7_qv&ab_channel=programadornovato

🔗 Canal de ProgramadorNovato: https://www.youtube.com/c/programadornovato
🔗 Facebook: https://facebook.com/ProgramadorNovatoOficial
🔗 Twitter: https://twitter.com/programadornova
🔗 Linkedin: https://www.linkedin.com/in/programadornovato/
🔗 Instagram: https://www.instagram.com/programadornovato/
🔗 Pagina oficial: https://www.programadornovato.com
🔗 Gracias por apoyar este canal: https://www.patreon.com/programadornovato

Anterior tutorial Siguiente tutorial