Contoh Program Menggunakan IF (VB6)

If .. Then ..Else digunakan untuk menjalankan suatu blok perintah tergantung dari nilai yang di masukan. Penulisannya dalam VB6 digunakan sebagai berikut:

IF <kondisi> Then
      {satu atau lebih pernyataan program}
Elseif <kondisi> Then
      {satu atau lebih pernyataan program}
Else
      {satu atau lebih pernyataan program}
End if

<kondisi> adalah suatu ekpresi logika. Perintah IF yang pertama akan menguji <kondisi> disebelah kanannya Jika <kondisi> benar, maka blok perintah yang terletak dibawahnya akan dikerjakan sampai memenuhi perintah Elseif atau Else lalu langsung melompat ke pernyataan End IF. Perhatikan bahwa perintah ElseIf dan atau False boleh tidak digunakan. Jika <kondisi> pertama salah dan ada perintah ElseIf, maka <kondisi> disebelah perintah dibawahnya akan dilaksanakan. Jika salah, maka program akan mengerjakan blok perintah yang terletak di bawah perintah Else atau ke End If.

Untuk contoh programnya sebagai berikut:

=================================================

Ketentuan:

Total= Harga * Jumlah pembelian

Jika Total >= 100000 maka Diskon 30% dari total

Jika Total >= 75000 maka Diskon 20% dari total

Jika Total >= 50000 maka Diskon 10% dari total

Jika Total <50000 maka tidak ada diskon

Jumlah Bayar = Total-Diskon

Program Menggunakan IF..Then..Else

=================================================

Listing Program:

Private Sub Command1_Click()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text6.Text = ""
Me.Text7.Text = ""
Me.Text5.Locked = True
Me.Text6.Locked = True
Me.Text7.Locked = True

Me.Text1.SetFocus
End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub Text4_Change()
Dim total, bayar, diskon As Single
total = Val(Me.Text3.Text) * Val(Me.Text4.Text)
If total >= 100000 Then
    diskon = 0.3 * total
ElseIf total >= 75000 Then
    diskon = 0.2 * total
ElseIf total >= 50000 Then
    diskon = 0.1 * total
ElseIf total < 50000 Then
    diskon = 0
End If
bayar = total - diskon
Me.Text5.Text = Format(total, "###,###,###")
Me.Text6.Text = Format(diskon, "###,###,###")
Me.Text7.Text = Format(bayar, "###,###,###")
   
End Sub

Setelah itu jalankan, klik mulai untuk membersihkan semua textbox. Selamat mencoba semoga bermanfaat.