berikut jawaban pemograman:
berikut koding program:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("PAB-PAK-100")
kode.Items.Add("TOK-MED-025")
kode.Items.Add("RUM-BEL-026")
kode.Items.Add("SWA-TEM-027")
kode.Items.Add("PAB-BIN-028")
kode.Items.Add("RUM-MAR-029")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("Kode", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Daerah", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tipe", 100, HorizontalAlignment.Center)
lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
lv.Columns.Add("Harga Per KWH", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian Bulan ini", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian Bulan Lalu", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
End Sub
Sub isitabel()
Dim x As New ListViewItem
x.Text = kode.Text
x.SubItems.Add(nama.Text)
x.SubItems.Add(daerah.Text)
x.SubItems.Add(tipe.Text)
x.SubItems.Add(biayabeban.Text)
x.SubItems.Add(harga.Text)
x.SubItems.Add(meterbulanini.Text)
x.SubItems.Add(meterbulanlalu.Text)
x.SubItems.Add(jumlahpemakaian.Text)
x.SubItems.Add(totaltagihan.Text)
x.SubItems.Add(pajak.Text)
x.SubItems.Add(pembayaran.Text)
lv.Items.Add(x)
kode.Text = ""
nama.Text = ""
daerah.Text = ""
tipe.Text = ""
biayabeban.Text = ""
harga.Text = ""
meterbulanini.Text = ""
meterbulanlalu.Text = ""
jumlahpemakaian.Text = ""
totaltagihan.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = "PAB-PAK-100" Then
nama.Text = "NISA NURJANNAH"
ElseIf kode.Text = "TOK-MED-025" Then
nama.Text = "TUTI HANDAYANI"
ElseIf kode.Text = "RUM-BEL-026" Then
nama.Text = "IMRON"
ElseIf kode.Text = "SWA-TEM-027" Then
nama.Text = "SYAHRINI"
ElseIf kode.Text = "PAB-BIN-028" Then
nama.Text = "PRAWOTO"
ElseIf kode.Text = "RUM-MAR-029" Then
nama.Text = "SYAMSUDIN"
End If
Dim X As String
X = Mid(kode.Text, 1, 3)
Select Case X
Case "TOK"
tipe.Text = "TOKO"
biayabeban.Text = 150000
harga.Text = 500
Case "RUM"
tipe.Text = "RUMAH"
biayabeban.Text = 50000
harga.Text = 200
Case "SWA"
tipe.Text = "SWALAYAN"
biayabeban.Text = 400000
harga.Text = 1500
Case "PAB"
tipe.Text = "PABRIK"
biayabeban.Text = 1000000
harga.Text = 10000
End Select
X = Mid(kode.Text, 5, 3)
Select Case X
Case "MED"
daerah.Text = "MEDAN"
Case "BEL"
daerah.Text = "BELAWAN"
Case "TEM"
daerah.Text = "AKSARA"
Case "MAR"
daerah.Text = "MARENDAL"
Case "BIN"
daerah.Text = "BINJAI"
Case "PAK"
daerah.Text = "LUBUK PAKAM"
End Select
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
jumlahpemakaian.Text = meterbulanini.Text - meterbulanlalu.Text
totaltagihan.Text = (Val(biayabeban.Text) + Val(harga.Text)) * jumlahpemakaian.Text
pajak.Text = 0.015 * totaltagihan.Text
pembayaran.Text = Val(totaltagihan.Text) + Val(pajak.Text)
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitabel()
End Sub
Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
kode.Text = ""
nama.Text = ""
daerah.Text = ""
tipe.Text = ""
biayabeban.Text = ""
harga.Text = ""
meterbulanini.Text = ""
meterbulanlalu.Text = ""
jumlahpemakaian.Text = ""
totaltagihan.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
lv.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
berikut hasil ny ketika program di jalankan:
demekian postingan saya
nama:sri muliani
npm :13110474
kelas:ti_p1311
selamat belajarpemograman VB NET
