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

Hasil: