Public Class Form1
Sub buattabel()
lv.Columns.Add("Kode Rekening", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nomor Rumah", 90, HorizontalAlignment.Center)
lv.Columns.Add("Wilayah", 90, HorizontalAlignment.Center)
lv.Columns.Add("Alamat", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian Listrik", 98, HorizontalAlignment.Center)
lv.Columns.Add("Tagihan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 85, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(nomor.Text)
lst.SubItems.Add(wilayah.Text)
lst.SubItems.Add(alamat.Text)
lst.SubItems.Add(listrik.Text)
lst.SubItems.Add(tagihan.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total.Text)
lv.Items.Add(lst)
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Select Case kode.Text
Case "123"
nomor.Text = "6 B"
alamat.Text = "Jln.sisimangaraja"
wilayah.Text = "Medan maimun"
listrik.Text = "400 watt"
tagihan.Text = "50000"
Case "456"
nomor.Text = "7 A"
alamat.Text = "Jln.A.H.nasution"
wilayah.Text = "Medan johor"
listrik.Text = "550 Watt"
tagihan.Text = "100000"
Case "789"
nomor.Text = "9 A"
alamat.Text = "Jln.tritura"
wilayah.Text = "Medan johor"
listrik.Text = "600 Watt"
tagihan.Text = "160000"
End Select
pajak.Text = 0.1 * tagihan.Text
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(tagihan.Text) + Val(listrik.Text) + Val(pajak.Text)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
buattabel()
isitabel()
kode.Text = ""
nomor.Text = ""
wilayah.Text = ""
alamat.Text = ""
listrik.Text = ""
tagihan.Text = ""
pajak.Text = ""
total.Text = ""
End Sub
Private Sub Btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus1.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("123")
kode.Items.Add("456")
kode.Items.Add("789")
End Sub
No comments:
Post a Comment