Aplikasi Penghitung Indeks Massa Tubuh

Aplikasi yang dibuat dengan vb6 ini adalah aplikasi penghitung berat badan ideal, imt dari tutorial http://jagocoding.com/dashboard/tutorial/preview/1030/Membuat_Aplikasi_Penghitung_IMT_Sederhana, dan berat yang dibutuhkan. Password: jagocoding.com

Private Sub Command1_Click()
Dim bb As Integer
Dim tb As Double
Dim imt As Single
Dim check As Double

Text1.Enabled = True
Text2.Enabled = True
        bb = Val(Text1.Text)
        tb = Val(Text2.Text)
        check = (tb / 100)

        imt = bb / (check * check)
        If imt < 17 Then
            MsgBox ("Anda termasuk status gizi buruk (Sangat Kurus) IMT(INDEKS MASA TUBUH) = " & imt)

        ElseIf imt >= 17 And imt <= 18.6 Then
            MsgBox "Anda termasuk status gizi kurang (kurus) IMT(INDEKS MASA TUBUH) = " & imt
        ElseIf imt >= 18.6 And imt <= 25 Then
            MsgBox "Selamat Anda termasuk status gizi baik (normal) IMT(INDEKS MASA TUBUH) = " & imt
        ElseIf imt >= 25.1 And imt <= 27 Then
            MsgBox "Anda termasuk status gizi kurang (gemuk) IMT(INDEKS MASA TUBUH) = " & imt


        Else
            MsgBox "Anda termasuk status obsitas (sangat gemuk) IMT(INDEKS MASA TUBUH) = " & imt
            Text1.Text = ""
            Text1.Text = ""
        End If
End Sub

Private Sub Command2_Click()
Dim bb As Integer
Dim tb As Double
Dim bbn As Single
Dim selisih As Double

DOWNLOAD TO CONTINUE READ THE CODE... HEHE :D
#

About Author

Yudhistira Bayu W

Seorang pelajar tampan dan rupawan yang mencoba belajar coding.

Comment & Discussions

    Please LOGIN before if you want to give the comment.