maxresdefault 31

Ejercicio 03.- Calcular el volumen de un vaso en Visual Basic.NET [23]

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

Ads Blocker Image Powered by Code Help Pro

Ads Blocker Detected!!!

En Programador Novato vivimos de los anuncios, hemos detectado que está utilizando extensiones para bloquear anuncios. Ayudanos deshabilitando tu bloqueador de anuncios. :)