SELECT CASE DENGAN VB NET DAN CONTOH PROGRAMNYA

SELECT CASE DAN CONTOH PROGRAMNYA

SELECT CASE adalah salah satu bentuk perintah kondisi  dalam Qbasic selain IF THEN. Dengan konsep memberikan kemungkinan nilai variabel yang ingin dicari.Bentuk decision yang kedua setelah if adalah case dipergunakan untuk menyeleksi kondisi dan mengujinya sama dengan fungsi IF, perbedaannya IF dapat menguji lebih dari satu variabel sedangkan Case di rekomendasikan untuk nilai dari satu variabel.

program Select Case pada VB net

1.Buat project baru, desain sesuai yang anda inginkan

2. disini saya menggunakan listbox1,textbox,label

3. klik 2x pada form dan masukkan listing program dibawah ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListBox1.Items.Add("Disket")

        ListBox1.Items.Add("Buku")

        ListBox1.Items.Add("Kertas")

        ListBox1.Items.Add("Pulpen")

    End Sub

4. klik 2x pada button1 dan masukkan listing program dibawah ini:

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

        Dim harga As Integer, total As Integer

        Dim jumlah As Integer

        Dim diskon As Single

        Dim satuan As String

        If ListBox1.Text = "" Then

            MsgBox("Anda Belum Memilih barang")

            ListBox1.Items.Add(0)

        End If

        If TextBox1.Text = "" Then

            MsgBox("Anda Tidak memasukkan jumlah barang")

            TextBox1.Focus()

        End If

        Select Case ListBox1.Text

            Case "Disket"

                harga = 3500

                satuan = "Box"

            Case "Buku"

                harga = 20000

                satuan = "Lusin"

            Case "Kertas"

                harga = 25000

                satuan = "Rim"

            Case "Pulpen"

                harga = 10000

                satuan = "Pak"

        End Select

        Label3.Text = "Barang : " & ListBox1.Text

        Label4.Text = "Harga : " & Format(harga, "Currency") & "/" & satuan

        Label5.Text = "Jumlah : " & TextBox1.Text & "" & satuan

        jumlah = TextBox1.Text

        Select Case jumlah

            Case Is < 10

                diskon = 0

            Case 10 To 20

                diskon = 0.15

            Case Else

                diskon = 0.2

        End Select

        total = jumlah * (harga * (1 - diskon))

        Label6.Text = "Diskon : " & Format(diskon, "0%")

        Label7.Text = "Total Bayar : " & Format(total, "Currency")

    End Sub

End Class

Sekian programnya jadi jika kita eksekusi akan tampil seperti berikut

Hasil: