Jumat, 03 Agustus 2012

Cara membuat pengukur berat ideal dengan VB.Net


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 :)

1 komentar: