Listing Program
Public Class Form1
Sub
buattabel()
Lv.Columns.Add("Pelanggan",
100, HorizontalAlignment.Center)
Lv.Columns.Add("daerah",
100, HorizontalAlignment.Left)
Lv.Columns.Add("tipe",
100, HorizontalAlignment.Left)
Lv.Columns.Add("Biaya",
100, HorizontalAlignment.Left)
Lv.Columns.Add("KWH",
100, HorizontalAlignment.Left)
Lv.Columns.Add("JP",
100, HorizontalAlignment.Center)
Lv.Columns.Add("total",
80, HorizontalAlignment.Center)
Lv.Columns.Add("pajak",
80, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = Pelanggan.Text
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(Biaya.Text)
lst.SubItems.Add(KWH.Text)
lst.SubItems.Add(Jp.Text)
lst.SubItems.Add(Total.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
Pelanggan.Items.Add("Med")
Pelanggan.Items.Add("Bel")
Pelanggan.Items.Add("Tem")
Pelanggan.Items.Add("Mar")
Pelanggan.Items.Add("Bin")
Pelanggan.Items.Add("Pak")
tipe.Items.Add("Toko")
tipe.Items.Add("Rumah")
tipe.Items.Add("Swalayan")
tipe.Items.Add("Pabrik")
For i =
1 To 100
Jp.Items.Add(i)
Next i
Call
buattabel()
End Sub
Private Sub Pelanggan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Pelanggan.SelectedIndexChanged
Select Case Pelanggan.Text
Case
"Med" : daerah.Text = "Medan"
Case
"Bel" : daerah.Text = "Belawan"
Case
"Tem" : daerah.Text = "Aksara"
Case
"Mar" : daerah.Text = "Marelan"
Case
"Bin" : daerah.Text = "Binjai"
Case
"Pak" : daerah.Text = "L.Pakam"
End Select
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
tipe.SelectedIndexChanged
Select Case tipe.Text
Case
"Toko" : Biaya.Text = "150000"
Case
"Rumah" : Biaya.Text = "50000"
Case
"Swalayan" : Biaya.Text = "400000"
Case
"Pabrik" : Biaya.Text = "1000000"
End Select
Select Case tipe.Text
Case
"Toko" : KWH.Text = "500"
Case "Rumah" : KWH.Text = "200"
Case
"Swalayan" : KWH.Text = "1500"
Case
"Pabrik" : KWH.Text = "10000"
End Select
pajak.Text = 0.015 * Biaya.Text
End Sub
Private Sub Btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnproses.Click
If
tipe.Text = "Toko" Then
total.Text = 500
ElseIf
tipe.Text = "Rumah" Then
total.Text = 200
ElseIf
tipe.Text = "Swalayan" Then
total.Text = 1500
ElseIf
tipe.Text = "Pabrik" Then
total.Text = 10000
Else
total.Text = 0
End If
total.Text = Val(total.Text * Jp.Text)
+ Val(Biaya.Text) + Val(KWH.Text) - Val(pajak.Text)
End Sub
Private Sub Btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btnsimpan.Click
isitabel()
Pelanggan.Text = ""
daerah.Text = ""
tipe.Text = ""
Biaya.Text = ""
KWH.Text = ""
Jp.Text = ""
total.Text = ""
pajak.Text = ""
End Sub
End Class
Tidak ada komentar:
Posting Komentar