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