berikut untuk desainya ya ........

dan kodingnya sebagai beriikuttttttttttttt ;
Public Class Form1
Sub
buattabel()
lv.Columns.Add("Kode
Pelanggan", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama
Pelanggan", 180, HorizontalAlignment.Left)
lv.Columns.Add("Tipe",
80, HorizontalAlignment.Left)
lv.Columns.Add("Daerah",
80, HorizontalAlignment.Left)
lv.Columns.Add("Harga
Kwh", 100, HorizontalAlignment.Left)
lv.Columns.Add("Biaya
Beban", 100, HorizontalAlignment.Left)
lv.Columns.Add("Pemakaian
Listrik", 180, HorizontalAlignment.Left)
lv.Columns.Add("Total
Tagihan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Pajak",
180, HorizontalAlignment.Left)
lv.Columns.Add("Pembayaran",
180, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = kp.Text
lst.SubItems.Add(np.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(pemakaian.Text)
lst.SubItems.Add(total.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(pembayaran.Text)
lv.Items.Add(lst)
End Sub
Private Sub TextBox1_TxtChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pajak.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)
If x = "100" Then
np.Text = "Tison
November Simanjuntak"
ElseIf
x = "101" Then
np.Text = "Jonni
Pardede"
ElseIf
x = "102" Then
np.Text = "Dunnia
Simanjuntak"
ElseIf
x = "103" Then
np.Text = "Juliman
Lase"
End If
x =
Microsoft.VisualBasic.Right(kp.Text, 3)
If x = "PAB" Then
tipe.Text = ("Pabrik")
Harga.Text = "10000"
biaya.Text = "1000000"
ElseIf
x = "Tok" Then
tipe.Text = ("Toko")
Harga.Text = "500"
biaya.Text = "150000"
ElseIf
x = "Rum" Then
tipe.Text = ("Rumah")
Harga.Text = "200"
biaya.Text = "50000"
ElseIf
x = "Swa" Then
tipe.Text = ("Swalayan")
Harga.Text = 1500
biaya.Text = 400000
End If
x = Microsoft.VisualBasic.Mid(kp.Text,
5, 3)
If x = "Med" Then
daerah.Text = "Medan"
ElseIf
x = "Bel" Then
daerah.Text = "Belawan"
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
pemakaian.KeyPress
If
Asc(e.KeyChar) = 13 Then
total.Text = Harga.Text *
pemakaian.Text + Val(biaya.Text)
pajak.Text = 0.015 * total.Text
pembayaran.Text = Val(total.Text) +
Val(pajak.Text)
End If
End Sub
Private Sub pemakaian_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pemakaian.TextChanged
End Sub
Private Sub btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
isitabel()
kp.Text = ""
np.Text = ""
tipe.Text = ""
daerah.Text = ""
Harga.Text = ""
biaya.Text = ""
pemakaian.Text = ""
total.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub