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
