Come calcolare il BMI utilizzando Visual Basic

L'Indice di Massa Corporea ( BMI) fornisce a privati ​​e medici con una guida per l'obesità . Il calcolo BMI determina se una persona ha un alto rapporto di grasso contro altezza e peso . Un BMI elevato indica una persona che si sta avvicinando l'obesità , che può portare a condizioni di salute più gravi come il diabete , malattie cardiache e problemi respiratori . Un programmatore può calcolare il BMI usando Visual Basic ( VB ) . Il calcolo viene eseguito utilizzando l'algoritmo di indice di massa corporea e la sintassi VB . Istruzioni
1

Creare le variabili di Visual Basic . Queste variabili contengono l'altezza iniziale e calcoli di peso. Una terza variabile è creata per contenere il valore BMI . Il codice seguente crea variabili VB per i calcoli : Dim altezza peso DecimalDim Come DecimalDim BMI As Integer
2

Convertire il peso da libbre a chilogrammi. Chilogrammi è un'unità standard per calcoli scientifici . Il peso in libbre è convertito moltiplicandolo con 703 . In questo esempio , una persona che è di 150 libbre e 5 piedi e 6 pollici viene valutato. Il seguente converte il peso e lo salva nella variabile altezza: peso = 150 * 703
3

calcolare l'altezza . L'altezza è prima convertito in pollici. Dopo che è convertito in totale pollici , il peso viene diviso per l'altezza due volte. Il seguente è come calcolare l'altezza per il calcolo finale BMI ( l'apostrofo denota commenti del codice ) : altezza = 5 * 12 + 6 ' ( moltiplicare 12 volte i piedi e aggiungere i restanti pollici) altezza = peso /( 5 * 12 + 6) altezza = altezza ( 5 * 12 + 6 ) economici 4

Assegnare il valore di BMI alla variabile , e inviare un messaggio per l'utente del software . Il valore di altezza è il valore decimale del BMI . Altezza viene convertito in un numero intero , e assegnato alla variabile BMI . Il seguente punto il calcolo : IMC = Convert.ToInteger ( altezza ) MsgBox " Il BMI è " & BMI

• Come utilizzare il controllo PictureBox in Visual Basic 
• Come ottenere il nome dello script in VBS