Program
PLN
Public
Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
kdpe.Items.Add("PAB-MED-100")
kdpe.Items.Add("SWALAYAN-BEL-101")
kdpe.Items.Add("TOK-TEM-102")
kdpe.Items.Add("RUM-MAR-103")
kdpe.Items.Add("SWALAYAN-BIN-104")
kdpe.Items.Add("TOK-PAK-105")
End Sub
Private Sub kdpe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kdpe.SelectedIndexChanged
Dim X As String
X =
Microsoft.VisualBasic.Right(kdpe.Text, 3)
Select Case X
Case
"100" : nmpe.Text = "AGUNG PRIMA"
Case
"101" : nmpe.Text = "Andry
saputra"
Case
"102" : nmpe.Text = "BAYU SAHRIZAL
Case
"103" : nmpe.Text = "INDRA SAHPUTRA"
Case
"104" : nmpe.Text = "TAUFIQ PRADANA"
Case
"105" : nmpe.Text = "LINDA SARI"
End Select
X =
Microsoft.VisualBasic.Left(kdpe.Text, 3)
Select Case X
Case
"TOK"
tipe.Text = "TOKO"
harga.Text = 500
biaya.Text = 150000
Case
"RUM"
tipe.Text = "RUMAH"
harga.Text = 200
biaya.Text = 50000
Case
"SWA"
tipe.Text = "SWALAYAN"
harga.Text = 10000
biaya.Text = 400000
Case
"PAB"
tipe.Text = "PABRIK"
harga.Text = 10000
biaya.Text = 1000000
End Select
X =
Microsoft.VisualBasic.Mid(kdpe.Text, 5, 3)
If X = "MED" Then
daerah.Text = "MEDAN"
daerah.Text = "BELAWAN"
daerah.Text = "AKSARA"
daerah.Text = "MARENDAL"
daerah.Text = "BINJAI"
Else :
daerah.Text = "LUBUK PAKAM"
End If
End Sub
Private Sub jumpe_keypress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumpe.KeyPress
If
Asc(e.KeyChar) = 13 Then
totga.Text = Val(biaya.Text) +
harga.Text * jumpe.Text
pajak.Text = 0.015 * totga.Text
bayar.Text = Val(pajak.Text) +
Val(jumpe.Text)
End If
End Sub
Sub
buattabel()
lv.Columns.Add("kdpe",
80, HorizontalAlignment.Left)
lv.Columns.Add("nmpe",
80, HorizontalAlignment.Left)
lv.Columns.Add("tipe",
80, HorizontalAlignment.Left)
lv.Columns.Add("biaya",
80, HorizontalAlignment.Left)
lv.Columns.Add("jumpe",
80, HorizontalAlignment.Left)
lv.Columns.Add("totga",
80, HorizontalAlignment.Left)
lv.Columns.Add("bayar",
80, HorizontalAlignment.Left)
lv.Columns.Add("daerah",
80, HorizontalAlignment.Left)
lv.Columns.Add("harga",
80, HorizontalAlignment.Left)
lv.Columns.Add("pajak",
80, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = (kdpe.Text)
lst.SubItems.Add(nmpe.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(jumpe.Text)
lst.SubItems.Add(totga.Text)
lst.SubItems.Add(bayar.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(pajak.Text)
lv.Items.Add(lst)
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan.Click
isitabel()
End Sub
Private Sub hasem_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hasem.Click
lv.Items.Clear()
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
kdpe.Text = ""
nmpe.Text = ""
tipe.Text = ""
biaya.Text = ""
jumpe.Text = ""
totga.Text = ""
bayar.Text = ""
daerah.Text = ""
harga.Text = ""
pajak.Text = ""
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles keluar.Click
End
End Sub
End Class
1) Pionter : bukan kontrol melainkan penunjuk kontrol sehingga kita bisa memindahkan letak atau mengubah ukuran kontrol yang terpasang pada form.