Pemrograman Visual:Percabangan: Difference between revisions
| Line 194: | Line 194: | ||
|Cancel | |Cancel | ||
|} | |} | ||
*Klik ganda pada BtnLogin, kemudian ketikkan kode program berikut ini: | |||
<syntaxhighlight lang="bash"> | |||
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 = "STIKOM" 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 | |||
</syntaxhighlight> | |||
*Klik ganda pada BtnCancel, kemudian ketikkan kode program berikut ini: | |||
<syntaxhighlight lang="bash"> | |||
end | |||
</syntaxhighlight> | |||
*Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start | |||
*Debugging di toolbar, atau melalui menu Debug > Start Debuging. | |||
*Simpan aplikasi Anda. | |||