Pemrograman Visual:Percabangan

Pencabangan adalah merupakan perintah yang dapat memberikan pilihan suatu kondisi, program akan menjalankan perintah apabila suatu kondisi memenuhi syarat tertentu. Pencabangan dapat dibedakan menjadi:

IF … THEN

If … then merupakan pencabangan yang mempunyai satu pencabangan atau satu blok perintah. Format penulisannya:

If kondisi then
[perintah]
End if

IF … THEN … ELSE

Suatu perintah pencabangan bersarang (Nested If) yang merupakan perkembangan dari perintah pencabangan IF.. THEN, yang dapat menjalankan satu blok perintah, yang memiliki dua nilai atau syarat bahkan lebih yang akan diuji untuk menjalankan sautu kondisi tertentu.

Bila kondisi pertama benar maka jalankan perintah blok pertama, jika kondisi pertama salah maka jalankan perintah blok kedua dan selanjutnya. Format Penulisannya:

IF (kondisi) then
[perintah]
ELSE
[perintah]
End if

Dan

If (kondisi2) then
[perintah]
ELSEIF (kondisi2) Then
[perintah]
…
ELSE
[perintah]
End If

Select … Case …

Select Case adalah control pencabangan yang mempunyai fungsi hampir sama dengan pencabangan if … then… else. Select mempunyai penulisan dan pembacaan yang lebih mudah, efektif dan efesien. Namun mempunyai kelemahan yaitu tida dapat menguji lebih dari satu ekspresi atau unkapan. Format penulisannya adalah sebagai berikut :

Select Case kondisi
Case | Case is = ekspresi1
[perintah1]
Case | Case is = ekspresi2
[perintah2]
Case | Case is = ekspresi3
[perintah3]
…
Case Else
[perintah]
End Select

Praktikum

Pencabangan IF.. , IF.. ELSE, CASE..

• Buat form baru.
• Desain Tampilan form seperti gambar berikut ini:

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

Object	Properties	Nilai
Form1	Name	Form1
	Text	Pencabangan IF
Button1	Name	Btn_if
	Text	IF.. ENDIF
Button2	Name	Btn_if_else
	Text	IF.. ELSE.. ENDIF
Button3	Name	Btn_case
	Text	CASE.. ENDCASE

• Klik ganda pada Btn_if, kemudian ketikkan kode program berikut ini:

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
    usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
    nilai = Val(usia)
    If nilai >= 55 Then
        thn = nilai - 55
        MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End Sub

• Klik ganda pada Btn_if_else, kemudian ketikkan kode program berikut ini:

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
    usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
    nilai = Val(usia)
    If nilai >= 55 Then
        thn = nilai - 55
        MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        MessageBox.Show("Keterangan : Pegawai harus pensiun " & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
        thn = 55 - nilai
        MessageBox.Show("usia pegawai : " & usia & " Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        MessageBox.Show("Keterangan : Pegawai akan pensiun " & thn & " lagi", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End Sub

• Klik ganda pada Btn_case, kemudian ketikkan kode program berikut ini :

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
    isian = InputBox("Usia anda saat ini?", "Status Anda")
    usia = Val(isian)
    MessageBox.Show("Usia Anda saat ini : " & usia & " tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Select Case usia
        Case 1 To 4
            MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Case 5 To 16
            MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Case 17 To 24
            MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Case 25 To 55
            MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Case Is >= 56
            MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Case Else
            MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Select
End Sub

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

Pencabangan Bersarang (NESTED IF)

• Buat project baru, dengan nama Prak4.
• Desain Tampilan form seperti gambar berikut ini:

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

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

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

    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

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

end

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