1. Buatlah tampilan seperti gambar dibawah ini
tampilan ini terdiri dari :
- 1 label (untuk judul)
- 1 groupbox
- 8 label (di dalam groupbox)
- 5 textbox (di dalam groupbox), dan
- 3 button
2. copy koding dibawah ini pada button proses
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If txtid.Text = "" Then
MsgBox("ID tidak boleh kosong")
Else
Dim z = Val(((txttinggi.Text) - 100) * (90 / 100))
Dim a = Val((txtberat.Text) / ((txttinggi.Text / 100) * (txttinggi.Text / 100)))
If a <= 18.5 Then
MsgBox("Berat Badan Kurang")
ElseIf a > 18.5 And a <= 24 Then
MsgBox("Normal")
ElseIf a > 24 And a <= 30 Then
MsgBox("Kelebihan Berat Badan")
Else
MsgBox("Obesitas")
End If
End If
End Sub
3. copy koding dibawah ini pada button solusi
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsolusi.Click
Dim z = Val(((txttinggi.Text) - 100) * (90 / 100))
MsgBox("Berat Ideal Anda " & z & " kg")
End Sub
4. dan copy koding dibawah ini pada button hapus
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
txtid.Text = ""
txttinggi.Text = ""
txtumur.Text = ""
txtberat.Text = ""
txtnama.Text = ""
txtid.Focus()
End Sub
5. kalau semua sudah dilakukan, tinggal debug aplikasi nya dan sempurna :)
Semoga berhasil :)
ide-nya creative,,,, saya suka !!
BalasHapus