MEMBUAT PROGRAM DARI VISUAL BASIC TENTANG SELECT CASE

Pertama, kita buka dulu program Visual Basic di jendela desktop seperti di bawah ini.
Klik program ini

Kemudian akan tampil tampilan seperti di bawah ini.

Kemudian buka file, new project. Seperti gambar di bawah ini.
Klik file, new project

Kemudian akan muncul tampilan di bawah ini.
Pada windows forms application kita ganti namanya menjadi

Lalu akan muncul tampilan di bawah ini

Kemudian tambahkan toolbox-toolbox  seperti gambar di bawah ini.
Pada label ini, di ubah di properties,  autosize di ubah jadi false.

Kemudian toolbox-toolbox  tadi kita ubah nama-namanya di properties, text.
 Seperti gambar di bawah ini.
Nama pada label ini di hapus. Jadi terlihat kosong.

Kemudian kita masukin codding sebagai berikut.
Public Class Form1
    Public Sub Bersih()
        TextBox1.Clear()
        Label6.Text = "@ Rp."
        Label7.Text = ""
        TextBox1.Focus()
        ComboBox1.Text = ""
        ComboBox2.Text = ""

    End Sub

    Private Sub Combobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Label6.Text = "@ Rp." & GetPrice()
    End Sub
    Function GetPrice() As Double
        Select Case ComboBox1.Text
            Case "Kemeja"
                Return 50000
            Case "Batik"
                Return 40000
            Case "Kaos"
                Return 20000
            Case Else
                Return 0
        End Select

    End Function


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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If MsgBox("Apakah Kamu Ingin Membeli Pakaian nya?", MsgBoxStyle.YesNo, "Confirm") = MsgBoxResult.No Then
            Exit Sub
        End If
        Call ShowResult()

    End Sub
    Sub ShowResult()
        Dim strResult As String = ""
        strResult &= "Jenis Pakaian: " & ComboBox1.Text
        strResult &= "Total: Rp. " & FormatNumber(GetPrice(), 2)
        Label7.Text = strResult

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Clear()
        Label6.Text = "@ Rp."
        Label7.Text = ""
        TextBox1.Focus()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub
End Class

Lalu kita coba debug, dan isi seperti gambar  di bawah ini.
Setelah itu kita kita klik “proses”, maka akan muncul kotak pesan seperti di bawah ini.
Pilih kemeja, maka harga pun muncul

Ketika kotak pesan kita klik “yes”, maka akan tampil tampilan seperti di bawah ini.
Akan tertera harga yang di bayar setelah kita klik “yes” pada kotak pesan.

Lalu kita coba pada pilihan lain seperti pada tampilan di bawah ini.
Pilih Batik, maka harga pun muncul

Ketika kotak pesan kita klik “yes”, maka akan tampil tampilan seperti di bawah ini.
Akan tertera harga yang di bayar setelah kita klik “yes” pada kotak pesan.

Lalu kita coba pada pilihan lainnya lagi. seperti pada tampilan di bawah ini.
Pilih Kaos, maka harga pun muncul








Ketika kotak pesan kita klik “yes”, maka akan tampil tampilan seperti di bawah ini.
Akan tertera harga yang di bayar setelah kita klik “yes” pada kotak pesan.

Demikian lah proses pembuatan program Visual Basic tentang “Select Case”.
Semoga bermanfaat bagi kita semua. Terima kasih.