Pemrograman 2 VB (Part 3)

IF THEN ELSE

Kali ini kita akan membuat program menggunakan fungsi If Then Else dengan membuat program kecil
langkah 1 desain dulu program berikut :

• untuk source code di form 1. pada tombol proses klik 2 kali dan masukkan source codenya :

Private Sub Command1_Click()

a = Val(Text1.Text)

If a = 0 Then

    Text2.Text = ""

Else

    b = a - 110

    Text2.Text = b

End If

End Sub

• untuk source code di form 1. pada tombol keterangan klik 2 kali dan masukkan source codenya:

Form2.Show

• untuk source code di form 1. pada tombol hapus klik 2 kali dan masukkan source codenya:

Text1.Text = Clear

Text2.Text = Clear

 atau

Text1.Text = ""

Text2.Text = ""

nah pada source kali ini dibutuhkan form2, maka kita harus menambah form. kemudian kita desain seperti dibawah ini :

• untuk source code di form 2. pada tombol proses klik 2 kali dan masukkan source codenya:

Private Sub Command1_Click()

Dim TB, BB, B1 As Long

TB = Val(Text1.Text)

BB = Val(Text2.Text)

B1 = (TB - 110) * 1.1

If (BB > (1.1 * B1)) Then

Text3.Text = " Anda Gemuk Juga Yah"

Else

If (BB < (0.9 * B1)) Then

Text3.Text =  " Anda Kurus Banget!!! Kurang Makan Tuh"

Else

Text3.Text =  "Anda Sudah Ideal"

End If

End If

End Sub