kuis

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kdpelanggan.Items.Add("PAB-MED-100")
        kdpelanggan.Items.Add("TOK-BEL-101")
        kdpelanggan.Items.Add("SWA-AKS-102")
        kdpelanggan.Items.Add("RUM-MAR-103")
        kdpelanggan.Items.Add("SWA-BIN-104")
        kdpelanggan.Items.Add("PAB-PAK-105")

    End Sub

    Private Sub jmlpemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jmlpemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Total.Text = Val(Biaya.Text) + (Harga.Text * jmlpemakaian.Text)
            Pajak.Text = 0.01 * Total.Text
            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)
        End If

    End Sub

    Private Sub jmlpemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlpemakaian.TextChanged

    End Sub

    Private Sub kdpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdpelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kdpelanggan.Text, 3)
        Select Case x
            Case "100" : Nama.Text = "Ucok"
            Case "101" : Nama.Text = "Jhan F"
            Case "102" : Nama.Text = "Erin"
            Case "103" : Nama.Text = "Angga"
        End Select
        x = Microsoft.VisualBasic.Left(kdpelanggan.Text, 3)
        Select Case x
            Case "TOK"
                Harga.Text = 250
                Biaya.Text = 15000
                Tipe.Text = "TOKO"
            Case "RUM"
                Harga.Text = 150
                Biaya.Text = 10000
                Tipe.Text = "RUMAH"
            Case "PAB"
                Harga.Text = 25000
                Biaya.Text = 250000
                Tipe.Text = "PABRIK"
            Case "SWA"
                Harga.Text = 20000
                Biaya.Text = 60000
                Tipe.Text = "SWALAYAN"

        End Select
        x = Microsoft.VisualBasic.Mid(kdpelanggan.Text, 5, 3)
        Select Case x
            Case "MED" : Daerah.Text = "Medan"
            Case "BEL" : Daerah.Text = "BELAWAN"
            Case "TEM" : Daerah.Text = "AKSARA"
            Case "MAR" : Daerah.Text = "MARINDAL"
            Case "BIN" : Daerah.Text = "BINJAI"
            Case "PAK" : Daerah.Text = "LUBUK PAKAM"
            Case Else : Daerah.Text = " "
        End Select

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kdpelanggan.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        Harga.Text = ""
        Daerah.Text = ""
        jmlpemakaian.Text = ""
        Biaya.Text = ""
        Total.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
    Sub BuatTabel()
        lv.Columns.Add("kdpelanggan", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 180, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
        lv.Columns.Add("jmlpemakaian", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub BuatTabel()
        Dim lst As New ListViewItem
        lst.Text = kdpelanggan.Text
        lst.SubItems.Add(kdpelanggan.Text)
        lv.Items.Add(lst)

    End Sub
    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

    End Sub
End Class