Stuktur Keputusan Case

designlah Form berikut ini.....

Listing Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KC.Items.Add("MT-MJ-010")
        KC.Items.Add("MK-MB-011")
        KC.Items.Add("JK-MJ-012")
    End Sub

    Private Sub KC_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KC.SelectedIndexChanged
        Dim F As String
        F = Strings.Right(KC.Text, 3)
        Select Case F
            Case "010"
                Nama.Text = "Yunita"
                Alamat.Text = "Jl.Kongsi Ujung No.100"
            Case "011"
                Nama.Text = "Isra"
                Alamat.Text = "Jl.Letsu gg.bali"
            Case "012"
                Nama.Text = "Malaris"
                Alamat.Text = "Jl.SM.Raja"
        End Select
        Dim i As String
        i = Strings.Left(KC.Text, 2)
        Select Case i
            Case "MT"
                Beban.Text = 10000
                BM3.Text = 700
                Type.Text = "Rumah"
            Case "MK"
                Beban.Text = 35000
                BM3.Text = 2000
                Type.Text = "Toko"
            Case "JK"
                Beban.Text = 25000
                BM3.Text = 500
                Type.Text = "Pabrik"
        End Select
        Dim y As String
        y = Strings.Mid(KC.Text, 4, 2)
        Select Case y
            Case "MJ"
                Daerah.Text = "Medan-Johor"
            Case "MB"
                Daerah.Text = "Medan-Binjai"
        End Select
    End Sub

    Private Sub JP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JP.KeyPress
        If Asc(e.KeyChar) = 13 Then
            BT.Text = BM3.Text * JP.Text * Beban.Text
            Pajak.Text = 0.05 * BT.Text
            Pembayaran.Text = Val(BT.Text) - Val(Pajak.Text)
        End If
    End Sub
    Sub RancangTabel()
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True
        LV.Columns.Add("KC", 100)
        LV.Columns.Add("Nama", 140)
        LV.Columns.Add("Alamat", 160)
        LV.Columns.Add("Type", 110)
        LV.Columns.Add("Beban", 100)
        LV.Columns.Add("BM3", 100)
        LV.Columns.Add("JP", 100)
        LV.Columns.Add("BT", 120)
        LV.Columns.Add("Pajak", 100)
        LV.Columns.Add("Pembayaran", 120)
    End Sub
    Sub IsiTabel()
        LV.Items.Clear()
        Dim r As New ListViewItem
        r.Text = KC.Text
        r.SubItems.Add(Nama.Text)
        r.SubItems.Add(Alamat.Text)
        r.SubItems.Add(Type.Text)
        r.SubItems.Add(Beban.Text)
        r.SubItems.Add(BM3.Text)
        r.SubItems.Add(JP.Text)
        r.SubItems.Add(BT.Text)
        r.SubItems.Add(Pajak.Text)
        r.SubItems.Add(Pembayaran.Text)
        LV.Items.Add(r)
    End Sub

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

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        KC.Text = ""
        Nama.Text = ""
        Alamat.Text = ""
        Daerah.Text = ""
        Pembayaran.Text = ""
        Pajak.Text = ""
        BM3.Text = ""
        BT.Text = ""
        JP.Text = ""
        Type.Text = ""
        Beban.Text = ""
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        Call RancangTabel()
        Call IsiTabel()
    End Sub
End Class

Hasil penginputan data

Hasil setelah di simpan....

 

Hasil setelah di Hapus

Selesaiiiii..............(^_^)

                                                                                                                             Yunita Afrida