Sub buattable()
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
LV.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 120, HorizontalAlignment.Center)
LV.Columns.Add("Tipe", 150, HorizontalAlignment.Center)
LV.Columns.Add("Harga M3", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
LV.Columns.Add("Total Tagihan", 120, HorizontalAlignment.Center)
LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)
LV.Columns.Add("Daerah", 120, HorizontalAlignment.Center)
LV.Columns.Add("Biaya Beban", 120, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 120, HorizontalAlignment.Center)
End Sub
Sub isitable()
Dim lst As New ListViewItem
lst.Text = NM.Text
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(HM.Text)
lst.SubItems.Add(HM.Text)
lst.SubItems.Add(JP.Text)
lst.SubItems.Add(TT.Text)
lst.SubItems.Add(Pembayaran.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(BB.Text)
lst.SubItems.Add(Pajak.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buattable()
KP.Items.Add("PAB-MED-100")
KP.Items.Add("TOK-BEL-101")
KP.Items.Add("SWA-MED-102")
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
TT.Text = Val(BB.Text) + (HM.Text * JP.Text)
Pajak.Text = 0.01 * TT.Text
Pembayaran.Text = Val(TT.Text) + Val(Pajak.Text)
End If
End Sub
Private Sub JP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JP.TextChanged
End Sub
Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Right(KP.Text, 3)
Select Case x
Case "100" : NM.Text = "Bagas sahril"
Case "101" : NM.Text = "Annisa"
Case "102" : NM.Text = "Sengkono"
End Select
x = Microsoft.VisualBasic.Left(KP.Text, 3)
Select Case x
Case "Tok"
HM.Text = 250
BB.Text = 15000
Tipe.Text = "toko"
Case "RUM"
HM.Text = 150
BB.Text = 10000
Tipe.Text = "rumah"
Case "PAB"
HM.Text = 25000
BB.Text = 25000
Tipe.Text = "pabrik"
Case "SWA"
HM.Text = 20000
BB.Text = 60000
Tipe.Text = "swalayan"
End Select
x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
Select Case x
Case "MED" : Daerah.Text = "Medan"
Case "BEL" : Daerah.Text = "Belawan"
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
KP.Text = ""
NM.Text = ""
Tipe.Text = ""
HM.Text = ""
JP.Text = ""
TT.Text = ""
Pembayaran.Text = ""
Daerah.Text = ""
BB.Text = ""
Pajak.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Close()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
Call isitable()
End Sub
End Class
Pembaca Yang Baik Selalu Meninggalkan Komentar