Minggu, 08 Desember 2013
Soal 1 : Tagihan Listrik
Listing Program :
Public Class Form1
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = Kopel.Text
lst.SubItems.Add(NP.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(ND.Text)
lst.SubItems.Add(KWH.Text)
lst.SubItems.Add(BB.Text)
lst.SubItems.Add(MBL.Text)
lst.SubItems.Add(MBI.Text)
lst.SubItems.Add(JP.Text)
lst.SubItems.Add(TT.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(TB.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TP.Items.Add("TOK")
TP.Items.Add("RUM")
TP.Items.Add("SWA")
TP.Items.Add("PAB")
KD.Items.Add("MED")
KD.Items.Add("BEL")
KD.Items.Add("TEM")
KD.Items.Add("MAR")
KD.Items.Add("BIN")
KD.Items.Add("PAK")
LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA PELANGGAN", 180, HorizontalAlignment.Left)
LV.Columns.Add("TIPE PELANGGAN", 260, HorizontalAlignment.Left)
LV.Columns.Add("DAERAH", 340, HorizontalAlignment.Left)
LV.Columns.Add("HARGA PER KWH", 420, HorizontalAlignment.Left)
LV.Columns.Add("BIAYA BEBAN", 470, HorizontalAlignment.Left)
LV.Columns.Add("METER BULAN LALU", 520, HorizontalAlignment.Left)
LV.Columns.Add("METER BULAN INI", 570, HorizontalAlignment.Left)
LV.Columns.Add("JUMLAH PEMAKAIAN", 620, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL TAGIHAN", 670, HorizontalAlignment.Left)
LV.Columns.Add("PAJAK", 720, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL BAYAR", 770, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Private Sub TP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TP.SelectedIndexChanged
If TP.Text = "TOK" Then
BB.Text = 150000
KWH.Text = 500
Tipe.Text = "TOKO"
ElseIf TP.Text = "RUM" Then
BB.Text = 50000
KWH.Text = 200
Tipe.Text = "RUMAH"
ElseIf TP.Text = "SWA" Then
BB.Text = 400000
KWH.Text = 15000
Tipe.Text = "SWALAYAN"
ElseIf TP.Text = "PAB" Then
BB.Text = 1000000
KWH.Text = 10000
Tipe.Text = "PABRIK"
End If
End Sub
Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
If KD.Text = "MED" Then
ND.Text = "MEDAN"
ElseIf KD.Text = "BEL" Then
ND.Text = "BELAWAN"
ElseIf KD.Text = "TEM" Then
ND.Text = "AKSARA"
ElseIf KD.Text = "MAR" Then
ND.Text = "MARENDAL"
ElseIf KD.Text = "BIN" Then
ND.Text = "BINJAI"
ElseIf KD.Text = "PAK" Then
ND.Text = "LUBUK PAKAM"
End If
Kopel.Text = TP.Text & "-" & KD.Text & "-" & Nomor.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
JP.Text = MBI.Text - MBL.Text
TT.Text = KWH.Text * JP.Text + BB.Text
Pajak.Text = 0.15 * TT.Text
TB.Text = TT.Text - Pajak.Text
End Sub
Private Sub TB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
isitabel()
Nomor.Text = ""
NP.Text = ""
Tipe.Text = ""
BB.Text = ""
ND.Text = ""
Kopel.Text = ""
KWH.Text = ""
MBL.Text = ""
MBI.Text = ""
JP.Text = ""
TT.Text = ""
Pajak.Text = ""
TB.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
LV.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
End
End Sub
End Class
Time in Medan 
