Fungsi Percabangan IF...Then...Else di VB.6.0

IF...Then...Else

---

Assalamu'alaikum ....
Nah di sini saya akan berbagi ilmu tentang Fungsi IF...Then...Else

If berfungsi untuk menjalankan pernyataan secara kondisional,  Saya akan berikan contoh kode penulisan IF


If (Kondisi) then
    (Pernyataan 1) ' Pernyataan yang di kerjakan apabila kondisi terpenuhi
elseif
   (Pernyataan 2) 'Pernyataan yang di kerjakan apabila kondisi terpenuhi
else
   (Pernyataan 3) 'Pernyataan yang di kerjakan apabila kondisi tidak terpenuhi
end if


Sebagai contoh saya akan membuat sebuah program sederhana,
Buat design form seperti di bawah ini

Design form nya seperti di atas....

jika sudah selesai men design form, sekarang kita tulis listing programnya

• klik 2 kali pada command button 1

mengapa?? karena even akan terjadi saat command button 1 di klik

tulis listing programnya di bawah ini

Private Sub Command1_Click()

If Text1.Text > 200000 Then

Text2.Text = Text1 * 0.15

Text3.Text = "Gelas Cantik"

Else

    MsgBox "Tidak Ada Bonus dan Hadiah", vbInformation, "Peringatan"

End If

End Sub

• Nah sekarang akan saya jelaskan apa tujuan dari listing program tersebut...

jika kita berbelanja sampai dengan 200000 maka kita akan mendapat kan hadiah 15% dari uang kita dan mendapat satu "gelas cantik", seperti gambar di bawah ini

Nah, dari gambar di atas sudah terlihat jelas, jika kita berbelanja lebih dari 200000 maka akan mendapat hadiah dan bonus uang...

jika kita berbelanja kurang dari 200000 maka, akan terlihat seperti gambar di bawah ini

ini adalah fungsi dari msgbox....jika kita berbelanja dengan pengeluaran kurang dari 200000 makan akan muncul kotak pesan / pemberitahuan bahwa "Tidak ada Bonus dan Hadiah"...

Di sini ada satu tombol yang ketinggalan, yaitu tombol command button 2 "Baru"...

tombol ini saya fungsikan untuk membersihkan text1, text2, dan text3, ketika ada input berupa huruf atau angka...

ini kode nya

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Sekian dari saya, apabila ada kurangnya saya mohon maaf yang sebesar - besarnya...

Semoga ilmu yang saya bagikan bisa bermanfaat bagi kita semua

Wassalamu'alaikum