Cara Membuat Program Sederhana dengan Kondisi If-Then-Else pada Visual Basic 6

Assalammu'alaikum😊 Kali ini saya akan sharing ke teman-teman semua bagaimana cara membuat program sederhana dengan kondisi If-Then-Else pada Visual Basic 6.

----------------------------------------------------------------

Langkah-Langkah Membuat Program Sederhana dengan Kondisi If-Then-Else

1. Bukalah aplikasi Visual Basic 6. Lalu buat new project, standar exe.

2. Desain form dengan menambahkan 3 label, 2 text dan 1 command button.

3. Atur property label, textbox dan command button seperti dibawah ini:

Object	Property	Value
Label 1	Caption	DATA DIRI
Label 2	Caption	Nama
Label 3	Caption	Alamat
Text 1	Text	-
Text 2	Text	-
Command 1	Caption	Simpan

4. Double click command button. Lalu, masukkan kode program seperti di bawah ini.

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" Then

MsgBox "Nama dan Alamat Anda masih kosong"

Else

If Text1.Text = "" Then

MsgBox "Nama Anda masih kosong"

Else

If Text2.Text = "" Then

MsgBox "Alamat Anda masih kosong"

Else

MsgBox "Data anda sudah tersimpan. Terimakasih :)"

End If

End If

End If

End Sub

5. Jalankan programnya atau dengan klik F5 pada keyboard.

Berikut bila kondisi salah. Maka akan muncul kotak dialog berupa, “Nama dan Alamat Anda masih kosong.”, “Nama Anda masih kosong.”, dan “Alamat anda masih kosong."

Sedangkan jika kondisi benar maka akan muncul kotak dialog, “Data Anda sudah benar. Terimakasih :)"

Penjelasan kode program:

1) Kondisi percabangan : If Text1.Text = "" And Text2.Text = "" Then

2) Pernyataan jika kondisi salah:

If Text1.Text = "" And Text2.Text = "" Then

MsgBox "Nama dan Alamat Anda masih kosong"

Else

If Text1.Text = "" Then

MsgBox "Nama Anda masih kosong"

Else

If Text2.Text = "" Then

MsgBox "Alamat Anda masih kosong"

3) Pernyataan jika kondisi benar:

Else

MsgBox "Data anda sudah tersimpan. Terimakasih :)"

Sekian untuk pembahasan kali ini. Semoga informasi ini bermanfaat buat teman-teman. Jika ada pertanyaan, bisa silahkan bertanya di kolom komentar. Terimakasih :)