Contoh Percabangan: Program Konversi Nilai Sederhana Dengan VB.net

Assalamu’alaikum Wr Wb

Selamat datang di web sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan contoh program yang menggunakan percabangan. Untuk penjelasan mengenai percabangan bisa dilihat disini.

Seperti yang kita tau, percabangan ada 2 macam yaitu IF..Then dan Select Case. Untuk contoh yang akan saya sampaikan pada kesempatan kali ini adalah kita mencoba membuat program konversi nilai. Jadi untuk soalnya adalah :

Jika Nilai 90 - 100 à Nilai A

Jika Nilai 80 - 89 à Nilai B

Jika Nilai 60 - 79 à Nilai C

Jika Nilai 50 – 59 à Nilai D

Jika Nilai >50 à Nilai E

Dari soal diatas, kita akan coba membuat program konversi nilai dengan menggunakan Fungsi IF dan Case

Silahkan Buat project baru lalu buat form seperti di bawah ini:

Untuk Propertisnya seperti di bawah ini:

Tool Control	Propertis	Value
Form1	Name	Frmkonversinilai
	Text	Program Konversi Nilai
Label1	Name	Label1
	Text	Nilai
Label2	Name	Label2
	Text	Hasil
Textbox1	Name	Txtangka
	Text
Textbox2	Name	Txthasil
	Text
Botton1	Name	Btcek
	Text	Cek

Setelah membuat formnya, kita masukkan source codenya dengan masuk ke Btcek dengan event Click. Caranya kita klik Btcek lalu bagian Event Propertis kita pilih Click atau Btcek kita klik 2 x sehingga masuk ke halaman View Code seperti dibawah ini:

Untuk Sorce codenya, Teman-teman bisa memilih untuk memakai fungsi IF atau Fungsi Case

Jika teman-teman pakai fungsi IF, source Code yang digunakan sebagai berikut:

        Dim nilai As Integer
        nilai = txtnilai.Text
        If (nilai >= 90) And (nilai <= 100) Then
            txthasil.Text = "Nilai anda A"
        ElseIf (nilai >= 80) And (nilai <= 89) Then
            txthasil.Text = "Nilai anda B"
        ElseIf (nilai >= 60) And (nilai <= 79) Then
            txthasil.Text = "Nilai anda C"
        ElseIf (nilai >= 50) And (nilai <= 59) Then
            txthasil.Text = "Nilai anda D"
        ElseIf (nilai >= 0) And (nilai <= 49) Then
            txthasil.Text = "Nilai anda E"
        Else
            txthasil.Text = "Nilai Tidak Valid"
        End If

Setelah dimasukkan hasilnya seperti ini:

Jika dirun hasilnya seperti dibawah ini :

Untuk menjalankannya, kita masukkan nilai yang diinginkan. Setelah itu kita klik tombol cek. Jika program anda benar, akan tampil keterangan di hasil sesuai di soal.

Jika menggunakan fungsi Select Case, Source codenya seperti berikut:

        Dim nilai As Integer
        nilai = txtnilai.Text
        Select Case nilai
            Case 90 To 100
                txthasil.Text = "Nlai Anda A"
            Case 80 To 89
                txthasil.Text = "Nilai Anda B"
            Case 60 To 79
                txthasil.Text = "Nilai Anda C"
            Case 50 To 59
                txthasil.Text = "Nilai Anda D"
            Case 0 To 49
                txthasil.Text = "Nilai Anda D"
            Case Else
                txthasil.Text = "Error"
        End Select

Setelah dimasukkan hasilnya seperti dibawah ini

Setelah dijalankan, hasilnya seperti Berikut:

Jadi hasilnya sama dengan yang Fungsi If tadi. Dengan begitu jika teman-teman ingin membuat program konversi nilai bisa menggunakan fungsi IF dan Fungsi Case

Jika kita lihat memang menggunakan fungsi case lebih mudah dari segi penulisan source codenya. Dan ini menjadi salah satu kelebihan dari Fungsi Case. tetapi jika program anda lebih kompleks dan banyak cabang, saya sarankan pakai Fungsi IF saja.

Demikian dari saya untuk materi kali ini, semoga bermanfaat. Silahkan dicoba lagi dengan konversi yang lainya agar lebih paham. Jika ada yang kurang jelas bisa ditanyakan lewat kolom komentar . Tetap kunjungi web sibukngoding.com untuk mendapatkan materi tentang Tutorial pemrograman lainnya. Sesibuk-sibuknya anda ngoding, jangan lupa ibadahnya.

Terimakasih atas kunjungannya, Selamat belajar, Tetap Semangat dan jangan mudah menyerah.

Wassalamu’alaikum Wr Wb