Struktur Kontrol Percabangan dan Studi Kasusnya di Visual Basic .Net (VB.NET)

Selain harus menguasai rumus aritmatika seorang programmer juga di tuntut harus menguasai struktur kontrol percabangan seperti if then else, select case dan sejenisnya karena ini menyangkut sebuah pengambilan keputusan yang memainkan logika.

Struktur Kontrol Percabangan di vb.net

Nama umum dari Struktur Kontrol Percabangan sering dinamakan :

• Struktur Kontrol (Control Structure)
• Percabangan (Branching / Decision Making)
• Conditional Statements

Bagi seorang programer tidak selalu berjalan lurus atas ke bawah kadang kita di hadapkan dengan beberapa pilihan dan kondisi, disinilah peran programmer untuk mengambil keputusan. Untuk keperluan inilah struktur kontrol percabangan berfungsi.

Pengertian Struktur Kontrol Percabangan

Struktur kontrol percabangan adalah bagian dari struktur kontrol program yang berfungsi untuk menentukan jalur eksekusi program berdasarkan kondisi tertentu.

Struktur ini memungkinkan program:

• Membandingkan suatu kondisi
• Mengambil keputusan
• Menjalankan perintah yang berbeda sesuai hasil kondisi

Berikut dibawah ini adalah beberapa dari struktur kontrol percabangan dan sintaksnya :

1. If.. Then.. Else

If.. Then.. Else ini digunakan untuk mengecek suatu kondisi logika (True atau False), jika kondisi bernilai True maka blok kode tertenti dijalankan, jika False maka blok yang lain dijalankan.

Contoh untuk menentukan kelulusan :

Dim nilai As Integer 

If nilai >= 60 Then

    Label1.Text="Lulus"

Else

     Label1.Text="Tidak Lulus"

End If

Keterangan:

Jika nilai diatas atau sama dengan 60 (>=), maka "LULUS"

Jika dibawah 60 (<60), maka "TIDAK LULUS"

2. Select Case

Select Case digunakan untuk percabangan dengan banyak pilihan nilai.

Struktur ini lebih rapi dan mudah dibaca dibandingkan If…ElseIf yang terlalu panjang.

Contoh untuk menentukan tingkat kepuasan:

Dim nilai As Integer

        Dim Kategori As String

        nilai = Val(TextBox1.Text)

Select Case nilai

            Case 0 To 50

                Kategori = "Mengecewakan"

            Case 51 To 60

                Kategori = "Tidak Memuaskan"

            Case 61 To 70

                Kategori = "Memuaskan"

            Case Is <= 100

                Kategori = "Sangat Memuaskan"

            Case Else

                Kategori = "Nilai melampaui batas!"

        End Select

        Label1.Text = Kategori

Keterangan :

Jika nilai melampaui batas lebih dari 100, maka ada pesan validasi "Nilai melampaui batas!!"

Berikut dibawah ini adalah perbedaan If..Then.. Else dengan Select Case :

        If…Then…Else                                                Select Case

Cocok untuk kondisi logika                        Cocok untuk banyak pilihan nilai

Fleksibel (bisa pakai operator logika)     Lebih rapi untuk banyak case

Bisa menjadi panjang                                 Lebih mudah dibaca

Dari pembahasan kode diatas sekarang kita peraktekan dalam bentuk pembuatan form, berikut caranya :

1. Seperti biasa buka Form Visual Studio Anda

2. Tanamkan beberapa kontrol dalam form :

• 6 Label ( Label5 dan Label 6 BorderStyle:Fixed3D, BackColor: white)
• 1 TextBox 
• 3 Button
• Button1 >> Text:If Then Else
• Button2 >> Text:Select Case
• 1 GroupBox >>Text:Kondisi pengambilan Keputusan (opsional)

3. Desain Form seperti gambar dibawah ini:

Desain Form Struktur Kontrol

4. Setelah mendesain form seperti diatas, langkah selanjutnya adalah membuat pengkodean. Buka jendela kode bersihkan kode yang ada dengan CTRL+A dan tekan Del, lalu Copy dan Paste kode dibawah ini :

Public Class Form1

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

'=========MEGGUNAKAN IF.. THEN... ELSE====================

        If TextBox1.Text.Trim() = "" Then

            MessageBox.Show("Nilai tidak boleh kosong!", "Peringatan")

            TextBox1.Focus()

            Exit Sub

        End If

        If TextBox1.Text <= 50 Then

            Label5.Text = "Bodoh"

        ElseIf TextBox1.Text <= 60 Then

            Label5.Text = "Sedang"

        ElseIf TextBox1.Text <= 70 Then

            Label5.Text = "Pintar"

        ElseIf TextBox1.Text <= 100 Then

            Label5.Text = "Sangat Pintar"

        Else

            Label5.Text = "Nilai melampaui batas!!"

        End If

    End Sub

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

'=========MEGGUNAKAN SELECT CASE====================

        Dim nilai As Integer

        Dim Kategori As String

        nilai = Val(TextBox1.Text)

        If TextBox1.Text.Trim() = "" Then

            MessageBox.Show("Nilai tidak boleh kosong!", "Peringatan")

            TextBox1.Focus()

            Exit Sub

        End If

        Select Case nilai

            Case 0 To 50

                Kategori = "Mengecewakan"

            Case 51 To 60

                Kategori = "Tidak Memuaskan"

            Case 61 To 70

                Kategori = "Memuaskan"

            Case Is <= 100

                Kategori = "Sangat Memuaskan"

            Case Else

                Kategori = "Nilai melampaui batas!"

        End Select

        Label6.Text = Kategori

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        Label5.Text = ""

        Label6.Text = ""

        TextBox1.Focus()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        Label5.Text = ""

        Label6.Text = ""

    End Sub

End Class

Jalankan Project Anda, silahkan masukan angka pada TextBox kosong dan tekan Button1 dan Button2

Demikianlah artikel kali ini membahas tentang Struktur Kontrol Percabangan dan Studi Kasusnya di Visual Basic .Net (VB.NET), semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.