Percabangan Visual Basic

1.       Pertama-tama kita buat susunan Control pada Form 1

 

2.       Setelah kita membuat susunan pada Form 1, lalu kita beri codingan pada Buttonnya “Go” seperti dibawah ini:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim umur As Integer

        umur = TextBox1.Text

        If umur > 5 Then

            TextBox2.Text = "Remaja"

            ElseIf umur < 5 then7

        End If

    End Sub

End Class

Dengan Output seperti ini :

 

1.  Pertama kita buat susunan Control pada Form1

2.  Disini berfungsi untuk mengetahui Nilai Akhir UTS dan UAS. Setelah itu kita beri Codingan pada Tombol Button “Go”, seperti dibawah ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim UAS, UTS, nilai As Integer

        UTS = TextBox1.Text

        UAS = TextBox2.Text

        nilai = UTS * 0.7 + UAS * 0.3

        If nilai > 80 Then

            MsgBox("A NILAI AKHIR = " & nilai)

        ElseIf nilai > 70 Then

            MsgBox("B NILAI AKHIR = " & nilai)

        ElseIf nilai > 60 Then

            MsgBox("C NILAI AKHIR = " & nilai)

        ElseIf nilai > 50 Then

            MsgBox("D NILAI AKHIR = " & nilai)

        ElseIf nilai > 40 Then

            MsgBox("E NILAI AKHIR = " & nilai)

        End If

    End Sub

End Class

Dengan Output seperti ini:

 

1.  Kemudian kita membuat Form baru dengan Codingan yang berbeda tetapi dengan Susunan Control Form yang sama seperti pada sebelumnya.

2.   Disini pada Message Box nya tidak menampilkan Nilai, tetapi hanya menampilkan kata Memuaskan, Lulus, dn Belum Lulus.

Dengan Codingan dibawah ini :

                                                                                                                   

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim UAS, UTS, nilai As Integer

        UTS = TextBox1.Text

        If UTS > 90 Then

            MsgBox("Memuaskan")

        ElseIf UTS > 70 Then

            MsgBox("Lulus")

        Else

            MsgBox("Belum Lulus")

        End If

    End Sub

End Class

Dengan Output seperti dibawah ini:

 

 

1.       Buatlah Susunan Control seperti dibawah ini :

2.  Setelah kita membuat Form1 sepeti diatas, disini berfungsi untuk agar kita mengetahui berapa harga Disket / Leptop. Lalu beri codingan pada Button seperti dibawah ini :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim jenis As String

        jenis = TextBox1.Text

        ListBox1.Items.Clear()

        jenis = TextBox1.Text

        Select Case jenis

            Case "Disket"

                ListBox1.Items.Add("Harga 20000")

            Case "Leptop"

                ListBox1.Items.Add("Harga 30000")

        End Select

    End Sub

Dengan Output seperti dibawah ini :

 

Penjelasan :

1.      Perintah Dim digunakan untuk mendeklarasikan sebuah variable yang nantinya akan digunakan

2.      If UTS > 90 Then adalah kondisi yang akan diterima dan akan melakukan sebuah perintah jika kondisi terpenuhi

3.      ElseIf UTS > 70 adalah kondisi berikutnya setelah kondisi yang sebelumnya tidak terpenuhi, dan akan melakukan perintah yang ada di dalam blok ElseIF tersebut, dan jika kondisi tidak terpenuhi maka akan melanjutkan ke ElseIF yang ada di bawahnya jika ada\

4.      MsgBox(“Nilai Akhir “ & nilai) merupakan perintah untuk menampilkan sebuah pesan dengan tulisan Nilai Akhir dan value dari variable nilai

Select Case sama seperti blok ELSEIF yang melakukan sebuah perintah di dalam blok jika kondisinya terpenuhi, hanya saja Select Case hanya menerima sebuah kondisi Logika