» » » » Percabangan pada Visual Basic 2010 Select - Case

Percabangan pada Visual Basic 2010 Select - Case

, ,
Materi ini adalah lanjutan dari materi sebelumnya untuk disini


  1. Struktur If - Then
  2. Struktur If - Then - Else 
  3. Nested If
  4. Struktuf IIf
  5. Struktur Select - Case  (yang akan di bahas di post ini)
  • Select - Case
Struktur Select Case digunakan untuk menjalankan satu blok perintah yang jumlahnya banyak atau bertingkat-tingkat. Pada statement ini ada sedikit perbedaan dengan if…then…else, yaitu isi dari variable akan dikeluarkan terlebih dahulu pada tahap awal dan baru nantinya variabel tersebut akan dibandingkan dengan konstan-konstan yang ada sampai program menemukan hasil true, Jika true maka kondisi yang berada dibawah statement case akan dijalankan.

Select Case tes_ekspresi
Case ekspresi 1
… blok perintah 1 …
Case ekspresi 2
… blok perintah 2 …
Case Else
… blok perintah 3 …
End Select

• tes_ekspresi : bisa bernilai numerik maupun string.
• ekspresi 1 : Nilai pertama proses seleksi dari tes_ekspresi.
• ekspresi 2 : Nilai pertama proses seleksi dari tes_ekspresi. Penulisan nilai paa ekspresi 1 maupun ekspresi 2 bisa langsung berbentuk konstanta atau melalui operator pembanding
• blok perintah 1 : Suatu rangkaian perintah yang dikerjakan bila kondisi ekspresi 1 terpenuhi.
• blok perintah 2 : Suatu rangkaian perintah yang dikerjakan bila kondisi ekspresi 2 terpenuhi.
• blok perintah 3 : Suatu rangkaian perintah yang dikerjakan bila kondisi ekspresi 3 terpenuhi. 

  • Latihan 4
Buatlah form seperti dibawah ini
Source Code :
Public Class Pertemuan_2_Latihan_4_Praktikum

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        Dim bil As Integer = tbnilaiakhir.Text
        Select Case bil
            Case 80 To 100
                tbgrade.Text = "A"
            Case 65 To 79
                tbgrade.Text = "B"
            Case 47 To 64
                tbgrade.Text = "C"
            Case 26 To 46
                tbgrade.Text = "D"
            Case Else
                tbgrade.Text = "E"
        End Select
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Latihan_4_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Pertemuan_2_Latihan_4_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
    End Sub
End Class

Berikut hasil programnya



  • Kasus 8
Buatlah form seperti dibawah ini

• Kode Obat,nama obat dan Satuan diinput.
• Combox satuan dipilih, harga satuan akan  muncul dari penyeleksian kondisi.
• Gunakan Event Keypress utk input dengan Keyboard.
• Gunakan Validasi utk huruf dan angka.
• Ketika di enter di textbox jumlah beli, sub  total, diskon dan total tagihan akan muncul.
• Subtotal=harga buku x jumlah beli
• Diskon = jika jumlah beli >= 100, diskon 10 % dari subtotal, jika jumlah beli >= 50, diskon 7 % dari subtotal, jika jumlah beli >= 20, diskon 4 % dari subtota. Jika jumlah beli >=8, diskon 1 % dari subtotal. selain itu tidak dapat diskon.
• Total tagihan =subtotal-diskon
• Uang bayar diinput, klik enter maka uang kembali akan muncul.
• Button Clear utk membersihkan textbox dan combobox.
• Button keluar utk keluar aplikasi.

Source Code :
Public Class Pertemuan_2_Kasus_8_Praktikum
    Dim harga, jumlahbeli, subtotal, diskon, total, uangbayar, uangkembali As Double

    Private Sub Pertemuan_2_Kasus_8_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        cbsatuan.Items.Add("Dus")
        cbsatuan.Items.Add("Box")
        cbsatuan.Items.Add("Botol")
        cbsatuan.Items.Add("Kaplet")
    End Sub

    Private Sub cbsatuan_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbsatuan.DropDownClosed
        tbjumlahbeli.Focus()
    End Sub
    Private Sub cbsatuan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbsatuan.SelectedIndexChanged
        Dim csatuan As String = cbsatuan.Text
        Select Case csatuan
            Case "Dus"
                tbhargasatuan.Text = 100000
            Case "Box"
                tbhargasatuan.Text = 30000
            Case "Botol"
                tbhargasatuan.Text = 15000
            Case "Kaplet"
                tbhargasatuan.Text = 5000
        End Select
    End Sub

    Private Sub tbjumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbjumlahbeli.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
        If (e.KeyChar = Chr(13)) Then
            harga = tbhargasatuan.Text
            jumlahbeli = tbjumlahbeli.Text
            subtotal = harga * jumlahbeli
            tbsubtotal.Text = subtotal
            Dim jumlahdiskon As Integer = tbjumlahbeli.Text
            Select Case jumlahdiskon
                Case 61 To 100
                    tbdiskon.Text = subtotal * 0.1
                Case 31 To 60
                    tbdiskon.Text = subtotal * 0.07
                Case 9 To 30
                    tbdiskon.Text = subtotal * 0.04
                Case 1 To 8
                    tbdiskon.Text = subtotal * 0.01
            End Select
            total = Val(tbtotaltagihan.Text)
            diskon = Val(tbdiskon.Text)
            total = subtotal - diskon
            tbtotaltagihan.Text = total
            Me.tbuangbayar.Focus()
        End If
    End Sub

    Private Sub tbuangbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuangbayar.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
        If (e.KeyChar = Chr(13)) Then
            uangbayar = tbuangbayar.Text
            uangkembali = uangbayar - total
            tbuangkembali.Text = uangkembali
        End If
    End Sub

    Private Sub tbkodeobat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbkodeobat.KeyPress
        If e.KeyChar = Chr(13) Then
            tbnamaobat.Focus()
        End If
    End Sub

    Private Sub tbnamaobat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnamaobat.KeyPress
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "
        If Not (Asc(e.KeyChar) = 8) Then
            If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
                e.KeyChar = ChrW(0)
                e.Handled = True
                cbsatuan.DroppedDown = True
            End If
        End If
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbdiskon.Clear()
        tbhargasatuan.Clear()
        tbjumlahbeli.Clear()
        tbkodeobat.Clear()
        tbnamaobat.Clear()
        tbsubtotal.Clear()
        tbtotaltagihan.Clear()
        tbuangbayar.Clear()
        tbuangkembali.Clear()
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub
    Private Sub Pertemuan_2_Kasus_8_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub
End Class

Berikut hasil program running nya 



  • Kasus 9
Buatlah form seperti di bawah ini

• Nim diinput, jenis kelamin dan jabatan dipilih .
• Gunakan Validasi untuk huruf dan angka.
• Ketika dipilih jabatan, maka gapok dan tunjangan akan muncul sesuai seleksi.
• Jumlah anak di input, maka tunjangan anak, total gaji, PPN dan gaji bersih muncul.


Source Code :
Public Class Pertemuan_2_Kasus_9_Praktikum
    Public gajipokok, tunjanganjabatan, tunjangankeluarga, totalgaji, ppn, gajibersih As Double
    'disini validasi huruf hanya untuk nama saja yang lainnya saya read-only dan dropdownstyle
    Private Sub Pertemuan_2_Kasus_9_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        cbjeniskelamin.Items.Add("Laki - Laki")
        cbjeniskelamin.Items.Add("Perempuan")
        cbjabatan.Items.Add("Manager")
        cbjabatan.Items.Add("Supervisor")
        cbjabatan.Items.Add("Operasional")
        cbjumlahanak.Items.Add("0")
        cbjumlahanak.Items.Add("1")
        cbjumlahanak.Items.Add("2")
    End Sub

    Private Sub cbjabatan_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbjabatan.DropDownClosed
        cbjumlahanak.DroppedDown = True
    End Sub

    Private Sub cbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjabatan.SelectedIndexChanged
        Dim cjabatan As String = cbjabatan.Text
        Select Case cjabatan
            Case "Manager"
                tbgajipokok.Text = 3000000
                tbtunjanganjabatan.Text = 2000000
            Case "Supervisor"
                tbgajipokok.Text = 1500000
                'Ahmad Salman Farisi
                tbtunjanganjabatan.Text = 1000000
            Case "Operasional"
                tbgajipokok.Text = 1000000
                tbtunjanganjabatan.Text = 500000
        End Select
    End Sub

    Private Sub cbjumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjumlahanak.SelectedIndexChanged
        gajipokok = tbgajipokok.Text
        tunjanganjabatan = tbtunjanganjabatan.Text
        tunjangankeluarga = tbtunjangankeluarga.Text
        totalgaji = gajipokok + tunjanganjabatan + tunjangankeluarga
        tbtotalgaji.Text = totalgaji
        ppn = totalgaji * 0.1 ' MENGGUNAKAN 10% PPN
        tbppn.Text = ppn
        gajibersih = totalgaji - ppn
        tbgajibersih.Text = "Rp. " + gajibersih.ToString

    End Sub

    Private Sub tbnamapegawai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnamapegawai.KeyPress
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz -_"
        If Not (Asc(e.KeyChar) = 8) Then
            If e.KeyChar = Chr(13) Then
                cbjeniskelamin.DroppedDown = True
            End If
            If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
                e.KeyChar = ChrW(0)
                e.Handled = True
            End If
        End If
        
    End Sub

    Private Sub cbjeniskelamin_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbjeniskelamin.DropDownClosed
        cbjabatan.DroppedDown = True
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbgajibersih.Clear()
        tbgajipokok.Clear()
        tbnamapegawai.Clear()
        tbppn.Clear()
        tbtotalgaji.Clear()
        tbtunjanganjabatan.Clear()
        tbtunjangankeluarga.Clear()
        cbjabatan.SelectedIndex = -1
        cbjeniskelamin.SelectedIndex = -1
        cbjumlahanak.SelectedIndex = -1
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Kasus_9_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech42.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub

    Private Sub cbjumlahanak_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbjumlahanak.SelectedValueChanged
        Dim cjumlahanak As String = cbjumlahanak.Text
        Select Case cjumlahanak
            Case "0"
                tbtunjangankeluarga.Text = 100000
            Case "1"
                tbtunjangankeluarga.Text = 300000
            Case "2"
                tbtunjangankeluarga.Text = 500000
        End Select
    End Sub
End Class

Berikut Hasil Program runningnya :



























  • Kasus 10
Buatlah form seperti di bawah ini

• Kelas dan Jurusan dipilih, biaya/sks akan muncul sesuai penyeleksian kondisi.
• Gunakan Event Keypress utk input dan Validasi utk huruf dan angka.
• Ketika di enter di textboxt jumlah sks, total tagihan akan muncul.
• Total tagihan = biaya/sks * jumlah sks
• Uang Bayar diinput, ketika di enter uang kembali akan muncul.
Source Codenya gan 
Public Class Pertemuan_2_Kasus_10_Praktikum
    Public totaltagihan, biayasks, jumlahsks, uangbayar, uangkembali As Double

    Private Sub Pertemuan_2_Kasus_10_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        cbkelas.Items.Add("Reguler")
        cbkelas.Items.Add("Karyawan")
        cbjurusan.Items.Add("Akuntansi")
        cbjurusan.Items.Add("Manajemen")
        cbjurusan.Items.Add("Teknik Informatika")
        cbjurusan.Items.Add("Sistem Informasi")
    End Sub

    Private Sub cbjurusan_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbjurusan.DropDownClosed
        tbjumlahsks.Focus()
    End Sub

    Private Sub cbjurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjurusan.SelectedIndexChanged
        Dim ckelas As String = cbkelas.Text
        Select Case ckelas
            Case "Reguler"
                If cbjurusan.Text = "Akuntansi" Then
                    tbbiayasks.Text = 450000
                ElseIf cbjurusan.Text = "Manajemen" Then
                    tbbiayasks.Text = 400000
                    'Ahmad Salman Farisi
                ElseIf cbjurusan.Text = "Teknik Informatika" Then
                    tbbiayasks.Text = 350000
                    '2017230184
                ElseIf cbjurusan.Text = "Sistem Informasi" Then
                    tbbiayasks.Text = 330000
                End If
            Case "Karyawan"
                If cbjurusan.Text = "Akuntansi" Then
                    tbbiayasks.Text = 500000
                ElseIf cbjurusan.Text = "Manajemen" Then
                    tbbiayasks.Text = 450000
                ElseIf cbjurusan.Text = "Teknik Informatika" Then
                    tbbiayasks.Text = 400000
                ElseIf cbjurusan.Text = "Sistem Informasi" Then
                    tbbiayasks.Text = 380000
                End If
        End Select
    End Sub

    Private Sub tbjumlahsks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbjumlahsks.KeyPress
        If e.KeyChar = Chr(13) Then
            biayasks = tbbiayasks.Text
            jumlahsks = tbjumlahsks.Text
            totaltagihan = biayasks * jumlahsks
            tbtotaltagihan.Text = totaltagihan
            tbuangbayar.Focus()
        End If
    End Sub

    Private Sub tbuangbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuangbayar.KeyPress
        If e.KeyChar = Chr(13) Then
            uangbayar = tbuangbayar.Text
            totaltagihan = tbtotaltagihan.Text
            uangkembali = uangbayar - totaltagihan
            tbuangkembali.Text = "Rp. " + uangkembali.ToString
        End If
    End Sub

    Private Sub tbnoinduk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnoinduk.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
        If e.KeyChar = Chr(13) Then
            tbnamamhs.Focus()
        End If
    End Sub

    Private Sub tbnamamhs_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbnamamhs.KeyPress
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "
        If Not (Asc(e.KeyChar) = 8) Then
            If e.KeyChar = Chr(13) Then
                cbkelas.DroppedDown = True
            End If
            If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
                e.KeyChar = ChrW(0)
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub cbkelas_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbkelas.DropDownClosed
        cbjurusan.DroppedDown = True
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbbiayasks.Clear()
        tbjumlahsks.Clear()
        tbnamamhs.Clear()
        tbnoinduk.Clear()
        tbtotaltagihan.Clear()
        tbuangbayar.Clear()
        tbuangkembali.Clear()
        cbjurusan.SelectedIndex = -1
        cbkelas.SelectedIndex = -1
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Kasus_10_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub
End Class

Berikut Hasil Program Jalan nya



  • Kasus 11
Buatlah form seperti di bawah ini

• Merk dan Ukuran Baju, harga akan muncul sesuai penyeleksian kondisi.
• Gunakan Event Keypress utk input dan Validasi utk huruf dan angka.
• Ketika di enter di jumlah beli, subtotal, diskon dan total tagihan akan muncul.
• Diskon diperoleh dari penyeleksian kondisi
• Uang Bayar diinput, ketika di enter uang kembali akan muncul.


Berikut Source Code nya
Public Class Pertemuan_2_Kasus_11_Praktikum
    Public jumlahbeli, hargakaos, subtotal, diskon, totaltagihan, uangbayar, uangkembali As Double
    Private Sub Pertemuan_2_Kasus_11_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech12.blogspot.com"
        cbmerk.Items.Add("IMP")
        cbmerk.Items.Add("Prada")
        cbmerk.Items.Add("Gucci")
        cbmerk.Items.Add("Loius")
        cbmerk.Items.Add("Denim")
        cbukuran.Items.Add("XL")
        cbukuran.Items.Add("L")
        cbukuran.Items.Add("M")
    End Sub

    Private Sub cbukuran_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbukuran.DropDownClosed
        tbjumlahbeli.Focus()
    End Sub

    Private Sub cbukuran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbukuran.SelectedIndexChanged
        Dim cmerk As String = cbmerk.Text
        Select Case cmerk
            Case "IMP"
                If cbukuran.Text = "XL" Then
                    tbharga.Text = 250000
                ElseIf cbukuran.Text = "L" Then
                    tbharga.Text = 240000
                ElseIf cbukuran.Text = "M" Then
                    tbharga.Text = 230000
                End If
            Case "Prada"
                If cbukuran.Text = "XL" Then
                    tbharga.Text = 170000
                ElseIf cbukuran.Text = "L" Then
                    tbharga.Text = 160000
                ElseIf cbukuran.Text = "M" Then
                    tbharga.Text = 150000
                End If
            Case "Gucci"
                If cbukuran.Text = "XL" Then
                    tbharga.Text = 280000
                ElseIf cbukuran.Text = "L" Then
                    tbharga.Text = 270000
                ElseIf cbukuran.Text = "M" Then
                    tbharga.Text = 260000
                End If
            Case "Loius"
                If cbukuran.Text = "XL" Then
                    tbharga.Text = 360000
                ElseIf cbukuran.Text = "L" Then
                    tbharga.Text = 350000
                ElseIf cbukuran.Text = "M" Then
                    tbharga.Text = 340000
                End If
            Case "Denim"
                If cbukuran.Text = "XL" Then
                    tbharga.Text = 130000
                ElseIf cbukuran.Text = "L" Then
                    tbharga.Text = 120000
                ElseIf cbukuran.Text = "M" Then
                    tbharga.Text = 110000
                End If
        End Select
    End Sub

    Private Sub tbjumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbjumlahbeli.KeyPress
       If e.KeyChar = Chr(13) Then
            jumlahbeli = tbjumlahbeli.Text
            hargakaos = tbharga.Text
            subtotal = hargakaos * jumlahbeli
            tbsubtotal.Text = subtotal
            tbdiskon.Text = "Tidak dapat diskon"
            tbtotaltagihan.Text = subtotal
            tbuangbayar.Focus()
            If subtotal >= 300000 Then
                diskon = subtotal * 0.1
                tbdiskon.Text = diskon
                tbsubtotal.Text = subtotal
                totaltagihan = subtotal - diskon
                tbtotaltagihan.Text = totaltagihan
                tbuangbayar.Focus()
            ElseIf subtotal >= 250000 Then
                diskon = subtotal * 0.07
                tbdiskon.Text = diskon
                tbsubtotal.Text = subtotal
                totaltagihan = subtotal - diskon
                tbtotaltagihan.Text = totaltagihan
                tbuangbayar.Focus()
            ElseIf subtotal >= 200000 Then
                diskon = subtotal * 0.04
                tbdiskon.Text = diskon
                tbsubtotal.Text = subtotal
                totaltagihan = subtotal - diskon
                tbtotaltagihan.Text = totaltagihan
                tbuangbayar.Focus()
            End If
        End If
    End Sub

    Private Sub tbpembeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbpembeli.KeyPress
        Dim allowedChars As String = "abcdefghijklmnopqrstuvwxyz "
        If Not (Asc(e.KeyChar) = 8) Then
            If e.KeyChar = Chr(13) Then
                cbmerk.DroppedDown = True
            End If
            If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then
                e.KeyChar = ChrW(0)
                e.Handled = True
            End If
        End If
    End Sub

    Private Sub cbmerk_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbmerk.DropDownClosed
        cbukuran.DroppedDown = True
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbdiskon.Clear()
        tbharga.Clear()
        tbjumlahbeli.Clear()
        tbpembeli.Clear()
        tbsubtotal.Clear()
        tbtotaltagihan.Clear()
        tbuangbayar.Clear()
        tbuangkembali.Clear()
        cbmerk.SelectedIndex = -1
        cbukuran.SelectedIndex = -1
    End Sub

    Private Sub tbuangbayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbuangbayar.KeyPress
        If e.KeyChar = Chr(13) Then
            uangbayar = tbuangbayar.Text
            totaltagihan = tbtotaltagihan.Text
            uangkembali = uangbayar - totaltagihan
            tbuangkembali.Text = "Rp." + uangkembali.ToString
        End If
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Kasus_5_Teori_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub
End Class

Berikut Program nya running :


  • Kasus 12
Buatlah form seperti di bawah ini
dengan kondisi

Source Code nya gan 

Public Class Pertemuan_2_Kasus_12_Praktikum
    Public gajipokok, pajak, tunjangankel, tunjangananak, totalgaji As Integer

    Private Sub Pertemuan_2_Kasus_12_Praktikum_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "salmantech42.blogspot.com"
        cbnik.Items.Add("PM001")
        cbnik.Items.Add("PS001")
        cbnik.Items.Add("KU001")
        cbnik.Items.Add("GD001")
        cbjabatan.Items.Add("Manager")
        cbjabatan.Items.Add("Kepala Bagian")
        cbjabatan.Items.Add("Staff")
        cbstatus.Items.Add("Menikah")
        cbstatus.Items.Add("Tidak Menikah")
        cbjumlahanak.Items.Add("1")
        cbjumlahanak.Items.Add("2")
    End Sub

    Private Sub cbnik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbnik.SelectedIndexChanged
        Dim cnik As String = cbnik.SelectedItem
        Select Case cnik
            Case "PM001"
                tbnama.Text = "Andika"
                tbbagian.Text = "Pemasaran"
            Case "PS001"
                tbnama.Text = "Satria"
                tbbagian.Text = "Personalia"
            Case "KU001"
                tbnama.Text = "Ria"
                tbbagian.Text = "Keuangan"
            Case "GD001"
                tbnama.Text = "Fitri"
                tbbagian.Text = "Gudang"
        End Select
        cbjabatan.DroppedDown = True
    End Sub

    Private Sub cbjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjabatan.SelectedIndexChanged
        Dim cjabatan As String = cbjabatan.SelectedItem
        Select Case cjabatan
            Case "Manager"
                tbgajipokok.Text = 8000000
                If tbgajipokok.Text = 8000000 Then
                    gajipokok = tbgajipokok.Text
                    pajak = gajipokok * 0.025
                    tbpajak.Text = pajak
                End If
            Case "Kepala Bagian"
                tbgajipokok.Text = 5000000
                If tbgajipokok.Text = 5000000 Then
                    gajipokok = tbgajipokok.Text
                    pajak = gajipokok * 0.025
                    tbpajak.Text = pajak
                End If
            Case "Staff"
                tbgajipokok.Text = 3000000
                If tbgajipokok.Text = 3000000 Then
                    gajipokok = tbgajipokok.Text
                    pajak = gajipokok * 0.025
                    tbpajak.Text = pajak
                End If
        End Select
    End Sub

    Private Sub cbstatus_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbstatus.SelectedIndexChanged
        Dim cstatus As String = cbstatus.SelectedItem
        Select Case cstatus
            Case "Menikah"
                tbgajipokok.Text = gajipokok
                If tbgajipokok.Text Then
                    gajipokok = tbgajipokok.Text
                    tunjangankel = gajipokok * 0.15
                    tbtunjangankeluarga.Text = tunjangankel
                End If
            Case "Tidak Menikah"
                tbgajipokok.Text = gajipokok
                If tbgajipokok.Text Then
                    gajipokok = tbgajipokok.Text
                    tunjangankel = gajipokok * 0
                    tbtunjangankeluarga.Text = tunjangankel
                End If
        End Select
    End Sub

    Private Sub cbjumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbjumlahanak.SelectedIndexChanged
        Dim cjumlahanak As Integer = cbjumlahanak.SelectedItem
        Select Case cjumlahanak
            Case 1
                tbgajipokok.Text = gajipokok
                If tbgajipokok.Text Then
                    gajipokok = tbgajipokok.Text
                    tunjangananak = gajipokok * 0.08
                    tbtunjangananak.Text = tunjangananak
                End If
            Case 2
                tbgajipokok.Text = gajipokok
                If tbgajipokok.Text Then
                    gajipokok = tbgajipokok.Text
                    tunjangananak = gajipokok * 0.04
                    tbtunjangananak.Text = tunjangananak
                End If
        End Select
        tbgajipokok.Text = gajipokok
        tbpajak.Text = pajak
        tbtunjangankeluarga.Text = tunjangankel
        tbtunjangananak.Text = tunjangananak
        totalgaji = gajipokok - pajak + tunjangankel + tunjangananak
        tbtotalgaji.Text = "Rp. " + totalgaji.ToString
    End Sub

    Private Sub btclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btclear.Click
        tbbagian.Clear()
        tbgajipokok.Clear()
        tbnama.Clear()
        tbpajak.Clear()
        tbtotalgaji.Clear()
        tbtunjangananak.Clear()
        tbtunjangankeluarga.Clear()
        cbjabatan.SelectedIndex = -1
        cbjumlahanak.SelectedIndex = -1
        cbnik.SelectedIndex = -1
        cbstatus.SelectedIndex = -1
    End Sub

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Pertemuan_2_Kasus_12_Praktikum_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim pesan As String
        pesan = MsgBox("Are you sure want to exit ?", vbYesNo, "salmantech12.blogspot.com")
        If pesan = vbNo Then
            e.Cancel = True
        End If
    End Sub
End Class

Berikut hasil program running nya 

Sekian dari postingan kali ini mohon maaf kalau ada kukurangan dan postingannya jadi panjang :v
Sering berkunjung ke website ini karena akan ada update postingan menarik lainnya 
Feel free to share this post to your social media ^_^
どうもありがとうございました…!

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

Subscribe to receive free email updates:

0 Response to "Percabangan pada Visual Basic 2010 Select - Case"

Post a Comment

Subscribe to: Post Comments (Atom)