Fungsi Percabangan Pada VB.net

Assalamu’alaikum Wr Wb

Selamat datang di web sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan tentang fungsi percabangan pada bahasa pemrograman VB.net. Fungsi percabangan di VB.net pada dasarnya sama dengan bahasa pemrograman yang lain, Cuma berbeda pada struktur penulisannya. Fungsi percabangan ini sering digunakan dalam pembuatan program atau aplikasi. Contoh jika kita ingin login admin, maka untuk mengecek password dan username bener atau tidak, kita menggunakan fungsi percabangan.

Pada pemrograman VB.net, ada dua fungsi percabangan. Yaitu fungsi IF.. Then dan Fungsi Select..Case. Mari kita pelajari satu per satu

Fungsi IF...Then... Else

Fungsi ini dapat diartikan “Apa yang akan terjadi jika suatu kondisi bernilai benar atau terpenenuhi” dan “Apa yang akan terjadi jika suatu kondisi bernilai salah atau Belum terpenuhi”. Jadi intinya program akan dijalankan jika kondisi terpenuhi.

Bentuk umumnya sbb:

If kondisi 1 then
    Tindakan 1
Elseif kondisi 2 then
    Tindakan 2
Else
    Tindakan 3
EndIf

Bentuk umum diatas artinya suatu program jika dijalankan lalu jika kondisi 1 terpenuhi, maka program akan menjalankan tindakan 1, dan tindakan 2 dan tindakan 3 tidak dijalankan

Lalu jika kondisi 2 terpenuhi, maka tindakan 2 yang akan dijalankan semetara tindakan 1 dan tindakan 3 tidak dijalan. Begitu seterusnya.. Gimana, Pusing kan.. namanya juga logika. Hehehe

Lalu jika semua kondisi tidak terpenuhi, maka program akan menjalankan tindakan setelah fungsi else. Jadi fungsi else digunakan untuk menjalankan tindakan terakhir jika semua kondisi belum terpenuhi.

Sebagai contoh jika kita ingin membuat program untuk menentukan kelulusan siswa dengan nilai yang dimasukkan. Jadi jika nilai siswa lebih besar dari 60 maka dinyatakan lulus, dan jika tidak maka dinyatakan tidak lulus. Maka contoh programnya seperti berikut:

Private Sub btcek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcek.Click
        Dim nilai As Integer
        nilai = (.....)
        If (nilai >= 60) Then
            txthasil.Text = "Selamat anda lulus"
        Else
            txthasil.Text = "Anda Gagal"
        End If
    End Sub

Dari Program diatas, kita bisa melihat, jika kondisi (nilai>=60) Terpenuhi. Maka program akan menjalankan tindakan “txthasil.Text = "Selamat anda lulus"”

Jika tidak terpenuhi, maka akan menjalankan tindakan di bagian else

Jadi seumpama nilai yang diinputkan adalah 70 maka kita lihat, nilai 70 itu terpenuhi gak di kondisi(nilai>=60). Dan ternyata terpenuhi karena 70 lebih besar atau sama dengan 60. Maka nanti Perintah akan menjalankan “ txthasil.Text = "Selamat anda lulus"”

Lalu jika nilai yang diinputkan adalah 50, maka kita lihat dulu dibagian kondisi apakah 50 itu lebih besar atau sama dengan 60 atau tidak. Dan ternyata tidak, karena 50 lebih kecil dari 60. jadi kondisi belum terpenuhi, maka perintah yang dijalankan adalah dai bagian else

“ txthasil.Text = "Anda Gagal"”

Untuk operator pada fungsi ini bisa dilihat di tabel berikut:

Simbol Fungsi	Keterangan	Contoh
<	Kurang Dari	If (Nilai< 10) then
>	Lebih besar dari	If (Nilai>10) then
<=	Kurang Dari atau sama dengan	If (Nilai<=10) then
>=	Lebih besar atau sama dengan	If (Nilai>=10) then
=	Sama dengan	If (Nilai =10) then
<>	Tidak sama dengan	If (Nilai<>10) then
Like	Membandingkan suatu string dengan pola tertentu

Fungsi Select ...Case

Fungsi Select..Case merupakan metode lain dari sebuah percabangan pada VB.net. Fungsinya sama dengan fungsi if yaitu melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus terpenuhi.  Secara fungsi, Select Case dan if then tidak ada perbedaan, tetapi untuk penulisan fungsi case lebih mudah diterapkan untuk pilihan atau kondisi lebih dari satu.

Bentuk umum fungsi Select Case:

Select Case (Variable)
    Case kondisi 1
 Tindakan 1
    Case kondisi 2
 Tindakan 2
    Case Else
 Tindakan 3
End Select

Untuk logika programnya sama dengan fungsi if, jadi gak perlu saya jelaskan lagi. Lanjut ke programnya. Kita bisa langsung membuat pilihan disini, Jika kita ingin membuat program yang jika nilai 60-100 nanti hasilnya lulus. Lalu jika nilai 0-59 nanti hasilnya gagal sementara nilai yang lain di nyatakan error. Maka kita bisa menuliskan program tersebut seperti dibawah ini:

Private Sub btcek_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcek.Click
        Dim nilai As Integer
        nilai = (....)
        Select Case nilai
            Case 60 To 100
                txthasil.Text = "Selamat anda Lulus"
            Case 0 To 59
                txthasil.Text = "Anda gagal"
            Case Else
                txthasil.Text = "Error"
        End Select
    End Sub

Jadi kita bisa menggunakan fungsi to seperti pada kondisi diatas yaitu 60 to 100. Dengan begitu kita bisa membatasi untuk nilai yang dinyatakan lulus sampai pada nilai 100. jika selain itu maka tidakan yang  yang akan dijalankan adalah dibagian Case else yaitu “txthasil.Text = "Anda gagal"”

Mungkin itu dulu yang bisa saya sampaikan. Untuk selanjutnya akan saya berikan contoh program yang lebih kompleks untuk menjelaskan tentang fungsi If then dan fungsi select switch. Jika kurang paham dengan materi tersebut, silahkan ditanyakan lewat kolom komentar. Jangan lupa tetap kunjungi web sibukngoding.com untuk mendapatkan tutorial pemrograman lainnya. Sesibuk-sibuknya anda ngoding, jangan lupa ibadah dan belajarnya.

Terimakasih atas kunjunganya. Selamat Belajar, Tetap semangat dan jangan mudah menyerah.

Wassalamu’alaikum Wr Wb