Wiki

Pemrograman Visual:Percabangan: Difference between revisions

← Older edit
Kangtain (talk | contribs)
Bureaucrats, Interface administrators, Suppressors, Administrators
9,246 edits
VisualWikitext
 
(5 intermediate revisions by the same user not shown)
Line 58: Line 58:
*Buat form baru.
*Buat form baru.
*Desain Tampilan form seperti gambar berikut ini:
*Desain Tampilan form seperti gambar berikut ini:
[[File:Pemrograman visual perulangan 2638892.png|center|thumb]]
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:


Line 82: Line 83:
|}
|}


* Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini:
* Klik ganda pada <code>Btn_if</code>, kemudian ketikkan kode program berikut ini:


<syntaxhighlight lang="bash">
<syntaxhighlight lang="vbscript" line="1">
Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
     Dim usia As String, nilai As Single, thn As Integer
     Dim usia As String, nilai As Single, thn As Integer
Line 97: Line 98:
</syntaxhighlight>
</syntaxhighlight>


*Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini:
*Klik ganda pada <code>Btn_if_else</code>, kemudian ketikkan kode program berikut ini:


<syntaxhighlight lang="bash">
<syntaxhighlight lang="vbscript" line="1">
Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click
Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click
     Dim usia As String, nilai As Single, thn As Integer
     Dim usia As String, nilai As Single, thn As Integer
Line 116: Line 117:
</syntaxhighlight>
</syntaxhighlight>


*Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini :
*Klik ganda pada <code>Btn_case</code>, kemudian ketikkan kode program berikut ini :


<syntaxhighlight lang="bash">
<syntaxhighlight lang="vbscript" line="1">
Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click
Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click
     Dim isian As String, usia As Integer
     Dim isian As String, usia As Integer
Line 141: Line 142:
</syntaxhighlight>
</syntaxhighlight>


*Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di toolbar, atau melalui menu Debug > Start Debuging.
*Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.
*Simpan aplikasi Anda.
*Simpan aplikasi Anda.


===Pencabangan Bersarang (NESTED IF)===
===Pencabangan Bersarang (NESTED IF)===
*Buat project baru, dengan nama Prak4.
*Buat project baru, dengan nama <code>Prak4</code>.
*Desain Tampilan form seperti gambar berikut ini:
*Desain Tampilan form seperti gambar berikut ini:
[[File:Pemrograman visual perulangan 367483723.png|center|thumb]]
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
*Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:
{| class="wikitable"
|+
!Object
!Properties
!Nilai
|-
| rowspan="2" |Form1
|Name
|Form1
|-
|Text
|Pencabangan IF
|-
|Label1
|Text
|User Name
|-
|Label2
|Text
|Password
|-
|TextBox1
|Name
|TxtUserName
|-
| rowspan="2" |TextBox2
|Name
|TxtPassword
|-
|PasswordChar
|*
|-
| rowspan="2" |Button1
|Name
|BtnLogin
|-
|Text
|Login
|-
| rowspan="2" |Button2
|Name
|BtnCancel
|-
|Text
|Cancel
|}
*Klik ganda pada <code>BtnLogin</code>, kemudian ketikkan kode program berikut ini:
<syntaxhighlight lang="vbscript" line="1">
    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 <code>BtnCancel</code>, kemudian ketikkan kode program berikut ini:
<syntaxhighlight lang="vbscript" line="1">
end
</syntaxhighlight>
*Jalankan aplikasi dengan menekan tombol <code>F5</code> (di keyboard), atau melalui ikon <code>Start Debugging</code> di toolbar, atau melalui menu <code>Debug</code> > <code>Start Debuging</code>.
*Simpan aplikasi Anda.
[[Category:Materi]]
[[Category:Matkul]]
[[Category:Pemrograman Visual]]
Retrieved from "https://kangtain.com/wiki/index.php/Pemrograman_Visual:Percabangan"