Kasus Pemrograman Pemakaian Listrik
Berikut jawaban program :
Public Class formListrik
Dim pj, jp, tt, tb, bb, hrg, krg, tkrg As Double
Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
Dim t, d, nu As String
t = Microsoft.VisualBasic.Left(kode.Text, 3)
d = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
nu = Microsoft.VisualBasic.Right(kode.Text, 3)
If Asc(e.KeyChar) = 13 Then
If t = "TOK" Then
tipe.Text = "TOKO"
bb = 150000
hrg = 500
ElseIf t = "RUM" Then
tipe.Text = "RUMAH"
bb = 50000
hrg = 200
ElseIf t = "SWA" Then
tipe.Text = "SWALAYAN"
bb = 400000
hrg = 1500
ElseIf t = "PAB" Then
tipe.Text = "PABRIK"
bb = 1000000
hrg = 10000
End If
If d = "MED" Then
daerah.Text = "MEDAN"
ElseIf d = "BEL" Then
daerah.Text = "BELAWAN"
ElseIf d = "TEM" Then
daerah.Text = "AKSARA"
ElseIf d = "MAR" Then
daerah.Text = "MARENDAL"
ElseIf d = "BIN" Then
daerah.Text = "BINJAI"
ElseIf d = "PAK" Then
daerah.Text = "LUBUK PAKAM"
End If
nourut.Text = nu
End If
End Sub
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
krg = sakhir.Text - sawal.Text
tkrg = hrg * krg
totaltagihan.Text = Val(bb) + Val(tkrg)
pajak.Text = totaltagihan.Text * 0.015
totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)
End Sub
Private Sub formListrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tampilLV.Columns.Add("Kode", 30)
tampilLV.Columns.Add("Tipe", 30)
tampilLV.Columns.Add("Daerah", 30)
tampilLV.Columns.Add("No Urut", 30)
tampilLV.Columns.Add("Stand Bulan Pemakaian", 120, HorizontalAlignment.Right)
tampilLV.Columns.Add("Stand Bulan Pemakaian", 120, HorizontalAlignment.Right)
tampilLV.Columns.Add("Total Tagihan", 60, HorizontalAlignment.Right)
tampilLV.Columns.Add("Pajak", 60, HorizontalAlignment.Right)
tampilLV.Columns.Add("Total Bayar", 60, HorizontalAlignment.Right)
tampilLV.View = View.Details
tampilLV.GridLines = True
tampilLV.FullRowSelect = True
End Sub
Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click
Dim dt As New ListViewItem
dt.Text = kode.Text
dt.SubItems.Add(tipe.Text)
dt.SubItems.Add(daerah.Text)
dt.SubItems.Add(nourut.Text)
dt.SubItems.Add(bawal.Text & " " & sawal.Text)
dt.SubItems.Add(bakhir.Text & " " & sakhir.Text)
dt.SubItems.Add(totaltagihan.Text)
dt.SubItems.Add(pajak.Text)
dt.SubItems.Add(totalbayar.Text)
tampilLV.Items.Add(dt)
End Sub
Private Sub bthHps1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthHps1.Click
tampilLV.Items.Remove(tampilLV.SelectedItems(0))
End Sub
Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
tampilLV.Items.Clear()
End Sub
Sub clearFrm(ByVal frm As System.Windows.Forms.Form)
For Each x As Control In frm.Controls
If TypeOf x Is TextBox Then x.Text = ""
Next
End Sub
Private Sub clearForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearForm.Click
clearFrm(Me)
End Sub
End Class
Tampilan Hasil :
Demikilahlah postingan saya Nama : (SUCI HILDAYANI) NPM : (13110950)
Selamat Belajar Pemrograman VB NET
