Membuat Aplikasi Sederhana untuk mencari hasil Berat Badan Relatif

Assalamualaikum Wr. Wb.

Saya akan membuat suatu program sederhana pada Visual Studio 2008 untuk mencari hasil Berat Badan Relatif. Program ini digunakan untuk mencari Berat Badan Relatif seseorang dengan menghitung  dari Tinggi dan Berat Badan orang tersebut.

1. Siapkan 2 Blank Form.

2. Form yang pertama diisi dengan 2 Label, 2TextBox, dan 1Button, seperti ini:

3. Ubah "(Name)" dan "Text" pada masing-masing Label, TextBox dan Button tersebut menjadi seperti ini:

4. Pada Form kedua diisi dengan 4Label, 2ComboBox, 2TextBox, dan 1Button. Lalu ubah masing-masing "(Name)" dan "Text"nya menjadi seperti ini:

5. Agar ComboBox Tinggi Badan dan Berat Badan terisi angkanya. Kita menggunakan Fungsi Looping. Codingnya seperti ini:


Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim y, x As Integer
        y = 130
        Do While y <= 200
            ComboBoxTB.Items.Add(y)

            y = y + 1
        Loop
        x = 40
        Do While x <= 150
            ComboBoxBB.Items.Add(x)
            x = x + 1
        Loop
    End Sub



6. Fungsikan Button Hasil dengan men-double click Button "Hasil" pada Form Design. Untuk mengisi TextBox Persentase dan TextBox Berat Badan Relatif codingnya seperti ini:


Private Sub ButtonHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHasil.Click
        TextBoxPersen.Text = (ComboBoxBB.Text / (ComboBoxTB.Text - 100)) * 100%

        If TextBoxPersen.Text <= 90 Then
            TextBoxBBR.Text = "Kurus"
        ElseIf TextBoxPersen.Text > 90 And TextBoxPersen.Text <= 110 Then
            TextBoxBBR.Text = "Normal (Ideal)"
        ElseIf TextBoxPersen.Text > 110 Then
            TextBoxBBR.Text = "Gemuk (Overweight)"
        ElseIf TextBoxPersen.Text > 120 Then
            TextBoxBBR.Text = "Obesitas"
        End If
    End Sub


6. Setelah itu kembali lagi pada Form1. Untuk menunjukkan benar atau salahnya Password yang di masukkan, kita fungsikan Button Log In dengan membuat codingnya seperti ini:


Private Sub ButtonLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click
        Dim n As Integer
        If TextBoxPass.Text = "071211" Then
            Me.Hide()
            Form2.Show()
        Else
            n = MsgBox("Password yang Anda Masukkan Salah", MsgBoxStyle.OkOnly + MsgBoxStyle.Question, "Konfirmasi")
        End If
    End Sub




Dan double click pada Form Design Button Cancel untuk membatalkan pengisian password. Codingnya seperti ini:


Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
        Me.Close()
    End Sub


7. Setelah itu tekan tombol F5 pada keyboard untuk men-Debug. Lalu akan keluar tampilan seperti ini:

Masukkan Password dan Username:

Jika Password salah maka tampilan akan seperti ini:

Jika Password benar makan tampilan akan seperti ini:

Lalu pilih Tinggi dan Berat Badan:

Klik Button "Hasil" dan anda akan mendapatkan hasil Berat Badan Relatif anda:

Sekian penjelasan dari saya, apabila ada kesalahan dan kekurangan silahkan mengisi comment. Terima kasih :)