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) ...
Comentarios
Publicar un comentario