Programa para calacular cantidad de calorias y libras perdidas

El numero de calorias quemadas o perdidas por una persona que corre bicicleta es de 200 calorias por hora y de correr o trotar es de 475 calorias por hora y de nadar es de 275 calorias por hora.

El siguiente programa le permite al usuario entrar el numero de horas gastadas en cada actividad fisica y calcular el total de calorias y de libras que perdio en las actividades.

3500 calorias = 1 libra

Ingredientes:
5 labels
5 text box
1 boton

Codigo:

Public Class Form1
    Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click 
        Dim caloriasBici, caloriasCorrer, caloriasNadar,
        totalCalorias, totalLibras As Double

        caloriasBici = 200 * CDbl(txtbicicleta.Text)
        caloriasCorrer = 475 * CDbl(txtCorriendo.Text)
        caloriasNadar = 275 * CDbl(txtNadando.Text)

        totalCalorias = caloriasBici + caloriasCorrer + caloriasNadar 
        txtTotalCalorias.Text = CStr(totalCalorias) & " calorias fueron quemadas." 

        totalLibras = totalCalorias / 3500 
        txtTotalLibras.Text = CStr(totalLibras)
    End Sub
End Class

Programa:

Comentarios

Publicar un comentario

Entradas populares de este blog

Sub procedimientos en VB.NET

Imagen
VB.NET tiene un dispositivo llamado Sub procedures (Sub procedimientos) los cuales son usados para romper un problemas en problemas mas pequenos para ser resolvidos uno a la vez. Los Sub procedures tambien eliminan el codigo repetitivo y se pueden reusar en otros programas. Los Sub procedures son parte de un programa y son escritos como parte separada del programa, tambien tiene su propio nombre, la sintaxis para un Sub procedures se escribe asi: Sub NombreProcedimiento()      declaraciones() End Sub En el siguiente ejemplo de un programa que suma 2 numeros vea como la informacion que se necesita para poder sumar los numeros esta en el Private Sub que se crea automaticamente cuando se da doble click en el boton. Tambien vea como la parte que calcula la suma esta en un Sub procedimiento aparte. (Sub sumarNumeros() ). Codigo: Public Class Form1     Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ...
Leer más

The Internet of Things

Imagen
The Internet of Things Comprueba si tienes cerrados estos puertos en tu router para evitar WannaCry desde Internet Por Mauricio Anguiano El ransomware WannaCry ha tenido un impacto sin precedentes en los equipos de todo el mundo. En un primer momento se comentó que empezó a propagarse...
Leer más