LISTING
PROGRAM NO.1
Public
Class Form2
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
T_pelanggan.Items.Add("Toko")
T_pelanggan.Items.Add("Rumah")
T_pelanggan.Items.Add("swalayan")
T_pelanggan.Items.Add("Pabrik")
k_d.Items.Add("Med")
k_d.Items.Add("Bel")
k_d.Items.Add("Tem")
k_d.Items.Add("Mar")
k_d.Items.Add("Bin")
k_d.Items.Add("Pak")
buattabel()
End Sub
Sub
buattabel()
lv.Columns.Add("
Kode Daerah", 80, HorizontalAlignment.Left)
lv.Columns.Add("
Nama Daerah", 100, HorizontalAlignment.Left)
lv.Columns.Add("
Tipe pelanggan", 90, HorizontalAlignment.Left)
lv.Columns.Add("
Biaya Beban", 90, HorizontalAlignment.Left)
lv.Columns.Add("
Harga/KWH", 80, HorizontalAlignment.Left)
lv.Columns.Add("
Meter bulan ini", 80, HorizontalAlignment.Left)
lv.Columns.Add("
Meter Bulan Lalu", 98, HorizontalAlignment.Left)
lv.Columns.Add("
Jumlah Pemakain", 90, HorizontalAlignment.Left)
lv.Columns.Add("
Besar pemakaian", 95, HorizontalAlignment.Left)
lv.Columns.Add("
Total tagihan", 90, HorizontalAlignment.Left)
lv.Columns.Add("
Pajak", 70, HorizontalAlignment.Left)
lv.Columns.Add("
Pembayaran", 50, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = N_daerah.Text
lst.SubItems.Add(T_pelanggan.Text)
lst.SubItems.Add(B_beban.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(bulanini.Text)
lst.SubItems.Add(bulanlalu.Text)
lst.SubItems.Add(J_pemakaian.Text)
lst.SubItems.Add(B_pemakaian.Text)
lst.SubItems.Add(T_tagihan.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(Pembayaran.Text)
lv.Items.Add(lst)
End Sub
Private Sub T_pelanggan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
T_pelanggan.SelectedIndexChanged
Dim y As String
y =
Microsoft.VisualBasic.Left(T_pelanggan.Text, 3)
Select Case y
Case
"Tok" : B_beban.Text = "150000"
Case
"Rum" : B_beban.Text = "50000"
Case
"swa" : B_beban.Text = "400000"
Case
"Pab" : B_beban.Text = "1000000"
End Select
Dim z As String
z =
Microsoft.VisualBasic.Left(T_pelanggan.Text, 1)
Select Case z
Case
"T" : Harga.Text = "500"
Case
"R" : Harga.Text = "200"
Case
"s" : Harga.Text = "1500"
Case
"P" : Harga.Text = "10000"
End Select
Dim w As String
w = Microsoft.VisualBasic.Mid(k_d.Text,
1)
Select
w
Case
"Med" : N_daerah.Text = "Medan"
Case
"Bel" : N_daerah.Text = "Belawan"
Case
"Tem" : N_daerah.Text = "Aksara"
Case
"Mar" : N_daerah.Text = "Marendal"
Case
"Bin" : N_daerah.Text = "Binjai"
Case
"Pak" : N_daerah.Text = "Lubuk pakam"
End Select
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
T_tagihan.Text = Val(B_beban.Text) +
Val(Harga.Text) * Val(B_pemakaian.Text)
J_pemakaian.Text = Val(bulanini.Text) +
Val(bulanlalu.Text)
Pajak.Text = 0.015 * T_tagihan.Text
Pembayaran.Text = Val(T_tagihan.Text) +
Val(Pajak.Text)
B_pemakaian.Text = Val(bulanlalu.Text)
- Val(bulanini.Text)
End Sub
Private Sub Btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnsimpan.Click
isitabel()
N_daerah.Text = ""
T_pelanggan.Text = ""
B_beban.Text = ""
Harga.Text = ""
bulanini.Text = ""
bulanlalu.Text = ""
J_pemakaian.Text = ""
B_pemakaian.Text = ""
T_tagihan.Text = ""
Pajak.Text = ""
Pembayaran.Text = ""
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 Btnhapusdata_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles btnkeluar.Click
End
End Sub
End
Class
Tidak ada komentar:
Posting Komentar