Soal Pemrograman pemakaian listrik
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
End Sub
Private Sub No_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles No.TextChanged
Dim x As String
No.Text = "1"
& Microsoft.VisualBasic.Right(kode.Text, 2)
x =
Microsoft.VisualBasic.Mid(kode.Text, 4, 3)
If x = "MED" Then
Daerah.Text = "MEDAN"
pjk.Text = 0.015
ElseIf
x = "BEL" Then
Daerah.Text = "BELAWAN"
pjk.Text = 0.015
ElseIf
x = "TEM" Then
Daerah.Text = "AKSARA"
pjk.Text = 0.015
ElseIf
x = "MAR" Then
Daerah.Text = "MARENDAL"
pjk.Text = 0.015
ElseIf
x = "BIN" Then
Daerah.Text = "BINJAI"
pjk.Text = 0.015
ElseIf
x = "PAK" Then
Daerah.Text = "LUBUK PAKAM"
pjk.Text = 0.015
End If
x =
Microsoft.VisualBasic.Mid(kode.Text, 1, 3)
If 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"
ElseIf
x = "PAB" Then
Tipe.Text = "PABRIK"
biaya.Text = "1000000"
harga.Text = "10000"
End If
End Sub
Sub
buattabel()
Lv.Columns.Add("TANGGAL
BAYAR", 80, HorizontalAlignment.Left)
Lv.Columns.Add("NO.
URUT", 80, HorizontalAlignment.Center)
Lv.Columns.Add("KODE
PELANGGAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("DAERAH",
80, HorizontalAlignment.Left)
Lv.Columns.Add("TIPE
PELANGGAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("BEBAN",
80, HorizontalAlignment.Left)
Lv.Columns.Add("METERAN
BULAN LALU", 80, HorizontalAlignment.Left)
Lv.Columns.Add("METERAN
BULAN SEKARANG", 80, HorizontalAlignment.Left)
Lv.Columns.Add("HARGA
PER KWH", 80, HorizontalAlignment.Left)
Lv.Columns.Add("BESAR
PEMAKAIAN", 80, HorizontalAlignment.Left)
Lv.Columns.Add("PAJAK",
80, HorizontalAlignment.Left)
Lv.Columns.Add("TAGIHAN",
80, HorizontalAlignment.Left)
Lv.Columns.Add("TOTAL
BAYAR", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = tgl.Text
lst.SubItems.Add(No.Text)
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(Daerah.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(meterlalu.Text)
lst.SubItems.Add(metersekarang.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(besar.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(tagihan.Text)
lst.SubItems.Add(total.Text)
Lv.Items.Add(lst)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
isitabel()
kode.Text = ""
Daerah.Text = ""
biaya.Text = ""
Tipe.Text = ""
meterlalu.Text = ""
harga.Text = ""
total.Text = ""
metersekarang.Text = ""
No.Text = ""
tagihan.Text = ""
besar.Text = ""
pjk.Text = ""
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
kode.Text = ""
Daerah.Text = ""
biaya.Text = ""
Tipe.Text = ""
meterlalu.Text = ""
harga.Text = ""
total.Text = ""
metersekarang.Text = ""
No.Text = ""
tagihan.Text = ""
besar.Text = ""
pjk.Text = ""
End Sub
Private Sub No_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
No.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Proses_Click(sender, e)
End If
End Sub
Private Sub Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Proses.Click
besar.Text = metersekarang.Text -
meterlalu.Text
tagihan.Text = biaya.Text + (harga.Text
* besar.Text)
total.Text = tagihan.Text * 0.015
End Sub
End Class
Demikilahlah postingan saya Nama : (YENNY ROSA DAMAYANTI) NPM : (13110146)
Selamat Belajar Pemrograman VB NET
Selamat Belajar Pemrograman VB NET
Tidak ada komentar:
Posting Komentar