Mengenal Percabangan/Decision Pada Visual Basic Net

Decision/Pencabangan merupakan perintah yang dapat memberikan pilihan suatu kondisi, yang dimaksut adalah program akan menjalankan perintah ketika kondisi terpenuhi. Dan sebaliknya jika kondisi tidak terpenuhi aka program tidak akan menjalankan perintah.
Pada kesempatan kali ini kita akan membahas mengenai Decision. Decision terbagi menjadi dua, yaitu :

Pencabangan IF.....THEN terbagi menjadi dua

Yang pertama adalah If.....Then, If.....Then  merupakan pencabangan yang hanya terdiri dari satu blok perintah. Format penulisannya adalah sebagai berikut.

If  Kodisi  Then
    [Perintah]
Endif

Yang kedua adalah IF....THEN....ELSE, IF....THEN....Else perintah pencabangan bersarang (Nested If) dan merupakan perkembangan dari IF....THEN yang dapat menjalankan 2 blok perintah atau bahkan lebih untuk menjalankan kondisi tertentu. Bila kondisi pertama memenuhi maka program akan menjalankan perintah pertama, jika kondisi pertama salah, maka akan dilanjutkan pada kondisi kedua demikian seterusnya. Adapun format penulisannya adalahs sebagai berikut.

If Kondisi Then
    [Perintah]
Else
    [Perintah]
endif

  Sebagai contoh pertama rancang sebuah form berikut :

Jika Nilai >=70 maka keterangan =”Lulus”
Jika Nilai <70 maka keterangan=”Gagal”

Kemudian ketikkan kode program berikut ini :

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If nilai.Text >= 70 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
    End Sub
End Class

Untuk contoh yang kedua silahkan rancang kembali tampilan berikut ini :

Jika Golongan	Gaji Pokok
A	2000000
B	2500000
C	3000000
D	3500000

lalu ketikkan kode program berikut ini :

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If gol.Text = "A" Then
            gapok.Text = 2000000
        ElseIf gol.Text = "B" Then
            gapok.Text = 2500000
        ElseIf gol.Text = "C" Then
            gapok.Text = 3000000
        ElseIf gol.Text = "D" Then
            gapok.Text = 3500000
        End If
    End Sub
End Class

SELECT.....CASE...

Select....case adalah control pencabangan yang mempunyai fungsi yang hampir sama dengan pencabangan if.....then...else.  Select mempunyai penulisan dan pembacaan yang lebih mudah, efektif dan efisien. Namun mempunyai kelemahan yaitu tidak dapat menguji leih dari satu ekspresi. Format penulisannya adalah sebagai berikut :

Select Case Kondisi
    Case / Case is = Ekspresi1
        [Perintah 1]
    Case / Case is =Ekspresi2
        [Perintah2]
    Case / Case is =Ekspresi3
        [Perintah3]
    Case else
        [Perintah]
End Select

Sebagai contoh silahkan rancang tampilan form berikut ini :

Jika Kode Program Studi	Nama Program Studi
MI	Manajemen Informatika
KA	Komputerisasi Akuntasi
TK	Teknik Informatika

Kemudian Ketikkan kode program berikut :

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case kode.Text
            Case "MI"
                nama.Text = "Manajemen Informatika"
            Case "KA"
                nama.Text = "Komputerisasi Akuntansi"
            Case Else
                nama.Text = "Teknik Informatika"
        End Select
    End Sub
End Class

Contoh kedua silahkan rancang lagi form berikut ini :

Jika Nilai Uas	Nilai Huruf	Keterangan
>=85	A	Memuaskan
>=70	B	Baik
>=60	C	Cukup
>=50	D	Kurang
>50	E	Buruk

Kemudian ketikkan kode program berikut ini :

Public Class Form1
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case uas.Text
            Case Is >= 85
                huruf.Text = "A"
                keterangan.Text = "Memuaskan"
            Case Is >= 70
                huruf.Text = "B"
                keterangan.Text = "Baik"
            Case Is >= 60
                huruf.Text = "C"
                keterangan.Text = "Cukup"
            Case Is >= 50
                huruf.Text = "D"
                keterangan.Text = "Kurang"
            Case Is < 50
                huruf.Text = "E"
                keterangan.Text = "Buruk"
        End Select
    End Sub
End Class 

Itu dulu pembahasan kita mengenai decision/pencabangan, semoga bermanfaat.