CONTOH PENCABANGAN BERSARANG PADA VB.NET 2008

1. Buat project baru.
2. Desain form seperti pada gambar di bawah ini :

3.  Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Pencabangan IF
Label1	Text	User Name
Label2	Text	Password
TextBox1	Name	TxtUserName
TextBox2	Name PasswordChar	TxtPassword *
Button1	Name Text	BtnLogin Login
Button2	Name Text	BtnCancel Cancel

4.   Klik ganda pada BtnLogin, kemudian ketikkan kode program berikut ini :

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

        If TxtPassword.Text = "" And TxtUserName.Text = "" Then

            MessageBox.Show("User name dan Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtUserName.Focus()

        ElseIf TxtPassword.Text = "" Then

            MessageBox.Show("Password harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtPassword.Focus()

        ElseIf TxtUserName.Text = "" Then

            MessageBox.Show("User name harus diisi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtUserName.Focus()

        ElseIf TxtUserName.Text = "STMIK" And TxtPassword.Text = "1234" Then

            MessageBox.Show("Password dan User Name Benar", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

        Else

            MessageBox.Show("Password dan User Name Anda Salah, ulangi lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Question)

            TxtUserName.Text = ""

            TxtUserName.Text = ""

            TxtUserName.Focus()

        End If

End Sub

5.    Klik ganda pada BtnCancel, kemudian ketikkan kode program berikut ini :

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click

End

End Sub

6.  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start
     Debugging di toolbar, atau melalui menu Debug > Start Debuging.
7. Simpan aplikasi anda.

hasilnya dapat dilihat pada gambar di bawah ini :

Untuk mendownload projectnya klik disini