Pemograman : program pembayaran pemakaian listrik
codding :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode_Pelanggan.Items.Add("PAB-PAK-100")
Kode_Pelanggan.Items.Add("PAB-BEL-100")
Kode_Pelanggan.Items.Add("RUM-BEL-101")
Kode_Pelanggan.Items.Add("SWA-MED-100")
Kode_Pelanggan.Items.Add("SWA-BIN-102")
Kode_Pelanggan.Items.Add("PAB-TEM-103")
Call Isi_Table()
Call Rancang_Table()
End Sub
Private Sub Kode_Pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Pelanggan.SelectedIndexChanged
If Kode_Pelanggan.Text = "PAB-PAK-100" Then
Nama.Text = "Samuel"
ElseIf Kode_Pelanggan.Text = "PAB-BEL-100" Then
Nama.Text = "Sulaiman"
ElseIf Kode_Pelanggan.Text = "RUM-BEL-101" Then
Nama.Text = "Nugraha"
ElseIf Kode_Pelanggan.Text = "SWA-MED-100" Then
Nama.Text = "Jan"
ElseIf Kode_Pelanggan.Text = "SWA-BIN-102" Then
Nama.Text = "DANI"
ElseIf Kode_Pelanggan.Text = "PAB-TEM-103" Then
Nama.Text = "SUPRI"
Else
Nama.Text = ""
End If
Dim x As String
x = Mid(Kode_Pelanggan.Text, 1, 3)
Select Case x
Case "TOK"
Tipe.Text = "TOKO"
Biaya_Beban.Text = 150000
Harga_kwh.Text = 500
Case "RUM"
Tipe.Text = "RUMAH"
Biaya_Beban.Text = 50000
Harga_kwh.Text = 500
Case "SWA"
Tipe.Text = "SWALAYAN"
Biaya_Beban.Text = 400000
Harga_kwh.Text = 1500
Case "PAB"
Tipe.Text = "PABRIK"
Biaya_Beban.Text = 10000000
Harga_kwh.Text = 10000
End Select
x = Mid(Kode_Pelanggan.Text, 5, 3)
Select Case x
Case "MED"
Daerah.Text = "MEDAN"
Case "BEL"
Daerah.Text = "BELAWAN"
Case "PAK"
Daerah.Text = "PATUMBAK"
Case "MAR"
Daerah.Text = "MARENDAL"
Case "BIN"
Daerah.Text = "BINJAI"
Case "TEM"
Daerah.Text = "AKSARA"
End Select
End Sub
Sub Rancang_Table()
lv.Columns.Add("Kode Pelanggan", 140, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 60, HorizontalAlignment.Center)
lv.Columns.Add("Type", 80, HorizontalAlignment.Center)
lv.Columns.Add("Biaya Beban", 50, HorizontalAlignment.Center)
lv.Columns.Add("Harga kwh", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Total Bayaran", 100, HorizontalAlignment.Center)
lv.Columns.Add("Type", 80, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
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_Tagihan.Text = Val(Harga_kwh.Text + Biaya_Beban.Text) * Val(Pemakaian.Text)
End If
If Asc(e.KeyChar) = 13 Then
Pajak.Text = 0.15 + Total_Tagihan.Text
End If
End Sub
Sub Isi_Table()
Dim i As New ListViewItem
i.Text = (Kode_Pelanggan.Text)
i.SubItems.Add(Nama.Text)
i.SubItems.Add(Tipe.Text)
i.SubItems.Add(Harga_kwh.Text)
i.SubItems.Add(Pemakaian.Text)
i.SubItems.Add(Total_Tagihan.Text)
i.SubItems.Add(Pajak.Text)
i.SubItems.Add(Pembayaran.Text)
i.SubItems.Add(Total_Tagihan.Text * Pemakaian.Text)
lv.Items.Add(i)
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Pembayaran.Text = Val(Total_Tagihan.Text) + Val(Pajak.Text)
Call Isi_Table()
End Sub
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
Me.Close()
End Sub
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
Kode_Pelanggan.Text = ""
Daerah.Text = ""
Nama.Text = "'"
Tipe.Text = ""
Biaya_Beban.Text = "'"
Harga_kwh.Text = ""
Pemakaian.Text = ""
Total_Tagihan.Text = ""
Pajak.Text = ""
Pembayaran.Text = ""
lv.Items.Clear()
End Sub
Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged
End Sub
End Class
Demikilahlah postingan saya Nama : ERWIN NPM : 13110362
