PROGRAM SEDERHANA MENGGUNAKAN KONDISI PERCABANGAN IF - THEN - ELSE

Bagaimana cara membuat program dengan menggunakan kondisi percabangan If - Then - Else?

Caranya adalah seperti berikut :

• Pertama, install aplikasi Microsoft Visual Basic 6.0, setelah itu buka aplikasi Microsoft Visual Basic 6.0, lalu setelah dibuka akan muncul tampilan seperti ini :

• Setelah muncul tampilan diatas, klik Standard EXE lalu klik open. Maka akan muncul seperti ini:

• Setelah muncul tampilan diatas, di maximize untuk mempermudah pembuatan program. Lalu tambahkan toolbox apa saja yang ingin dibutuhkan, saya menggunakan 4 label, 3 textbox, dan 2 commandbutton, setelah itu dirapikan menggunakan properties (di bagian paling kanan).

• Saya menggunakan 4 label yaitu untuk judul ( data diri ), nama, tanggal lahir, dan umur. Lalu saya menggunakan 3 textbox yang nantinya untuk diisi sesuai dengan data diri. Dan saya menggunakan 2 commandButton yaitu simpan dan keluar. Lalu beri warna agar terlihat lebih cantik. Ini adalah hasilnya:

• Lalu double klik dibagian commandbutton 1 atau "SIMPAN" lalu ketik codingannya atau perintah, lakukan hal yang sama dibagian commandbutton 2 atau "KELUAR" dan dibagian form load. Maka hasilnya adalah ini:

• Setelah jadi progamnya lalu klik run, jika kita tidak mengisi apa apa. Lalu langsung klik SIMPAN, maka akan ada tulisan seperti dibagian kanan bawah yaitu "Nama harus diisi !". Seperti gambar dibawah ini:

• Ketika nama sudah diisi, namun tanggal lahir dan umur belum diisi. Seperti gambar dibawah ini:

• Lalu ketika di klik "SIMPAN", maka akan muncul tulisan " Tanggal lahir harus diisi !". Seperti dibawah ini:

• Ketika nama dan tanggal lahir telah terisi seperti gambar dibawah ini:

• Lalu ketika di klik SIMPAN tetapi umur belum diisi, maka akan muncul tulisan seperti ini "Umur harus diisi !".

• Ketika semua sudah lengkap atau sudah terisi semua, maka tampilannya seperti ini:

• Maka ketika di klik "SIMPAN" akan muncul tulisan " Data tersimpan!:) "

• Setelah ingin mengakhirinya klik command button "KELUAR". Jangan lupa untuk di save projectnya.

• Ini adalah codingannya atau perintah untuk program tersebut.

Private Sub Command1_Click()

If Text1.Text = "" Then

    MsgBox "Nama harus diisi !"

ElseIf Text2.Text = "" Then

    MsgBox "Tanggal lahir harus diisi!"

ElseIf Text3.Text = "" Then

    MsgBox "Umur harus diisi !"

    Else

    MsgBox "Data tersimpan!:)"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub