Kali ini kita akan belajar membuat sebuah aplikasi sederhana yang bisa kita gunakkan untuk mengetahui apakah berat badan kita normal atau atau tidak.
- Buat Projek Baru
- Desain tampilan seperti ini:
 |
| Desain Tampilan |
- Pada tomblol hitung tuliskan kode berikut:
Dim hitung As Double = Val(TextBox1.Text) / (Val(TextBox2.Text / 100) * Val(TextBox2.Text / 100))
Dim hasil As Double
hasil = FormatNumber(hitung, 2)
TextBox3.Text = (hasil)
If RadioButton2.Checked = True Then
If hasil < 17 Then
Label4.Text = "Kurus"
ElseIf hasil >= 17 And hasil <= 23 Then
Label4.Text = "Normal"
ElseIf hasil > 23 And hasil <= 27 Then
Label4.Text = "Kegemukan"
ElseIf hasil > 27 Then
Label4.Text = "Obesitas"
End If
ElseIf RadioButton1.Checked = True Then
If hasil < 18 Then
Label4.Text = "Kurus"
ElseIf hasil >= 18 And hasil <= 25 Then
Label4.Text = "Normal"
ElseIf hasil > 25 And hasil <= 27 Then
Label4.Text = "Kegemukan"
ElseIf hasil > 27 Then
Label4.Text = "Obesitas"
End If
End If
- Coba jalankan dan isi berat badan dan tinggi badan anda, apa hasilnya.
Mungkin hasil ini bisa saja berbeda bila kita menggunakkan cara lain, karena standar BMI itu juga berbeda-beda.
 |
| Menghitung Berat Badan Pada Pria |
 |
| Menghitung Berat Badan PadaWanita |