Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Buatlah program untuk menampilkan hasil ke listview untuk Kasus Pemrograman Pemakaian Listrik

Berikut Jawaban Programnya terlihat seperti dibawah ini :

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buatTabel()
tipe.Items.Add("TOK-MED-001")
tipe.Items.Add("TOK-MED-002")
tipe.Items.Add("TOK-MED-003")
tipe.Items.Add("TOK-BEL-001")
tipe.Items.Add("TOK-BEL-002")
tipe.Items.Add("TOK-BEL-003")
tipe.Items.Add("TOK-TEM-001")
tipe.Items.Add("TOK-TEM-002")
tipe.Items.Add("TOK-TEM-003")
tipe.Items.Add("TOK-MAR-001")
tipe.Items.Add("TOK-MAR-002")
tipe.Items.Add("TOK-MAR-003")
tipe.Items.Add("TOK-BIN-001")
tipe.Items.Add("TOK-BIN-002")
tipe.Items.Add("TOK-BIN-003")
tipe.Items.Add("TOK-PAK-001")
tipe.Items.Add("TOK-PAK-002")
tipe.Items.Add("TOK-PAK-003")
tipe.Items.Add("RUM-MED-001")
tipe.Items.Add("RUM-MED-002")
tipe.Items.Add("RUM-MED-003")
tipe.Items.Add("RUM-BEL-001")
tipe.Items.Add("RUM-BEL-002")
tipe.Items.Add("RUM-BEL-003")
tipe.Items.Add("RUM-TEM-001")
tipe.Items.Add("RUM-TEM-002")
tipe.Items.Add("RUM-TEM-003")
tipe.Items.Add("RUM-MAR-001")
tipe.Items.Add("RUM-MAR-002")
tipe.Items.Add("RUM-MAR-003")
tipe.Items.Add("RUM-BIN-001")
tipe.Items.Add("RUM-BIN-002")
tipe.Items.Add("RUM-BIN-003")
tipe.Items.Add("RUM-PAK-001")
tipe.Items.Add("RUM-PAK-002")
tipe.Items.Add("RUM-PAK-003")
tipe.Items.Add("SWA-MED-001")
tipe.Items.Add("SWA-MED-002")
tipe.Items.Add("SWA-MED-003")
tipe.Items.Add("SWA-BEL-001")
tipe.Items.Add("SWA-BEL-002")
tipe.Items.Add("SWA-BEL-003")
tipe.Items.Add("SWA-TEM-001")
tipe.Items.Add("SWA-TEM-002")
tipe.Items.Add("SWA-TEM-003")
tipe.Items.Add("SWA-MAR-001")
tipe.Items.Add("SWA-MAR-002")
tipe.Items.Add("SWA-MAR-003")
tipe.Items.Add("SWA-BIN-001")
tipe.Items.Add("SWA-BIN-002")
tipe.Items.Add("SWA-BIN-003")
tipe.Items.Add("SWA-PAK-001")
tipe.Items.Add("SWA-PAK-002")
tipe.Items.Add("SWA-PAK-003")
tipe.Items.Add("PAB-MED-001")
tipe.Items.Add("PAB-MED-002")
tipe.Items.Add("PAB-MED-003")
tipe.Items.Add("PAB-BEL-001")
tipe.Items.Add("PAB-BEL-002")
tipe.Items.Add("PAB-BEL-003")
tipe.Items.Add("PAB-TEM-001")
tipe.Items.Add("PAB-TEM-002")
tipe.Items.Add("PAB-TEM-003")
tipe.Items.Add("PAB-MAR-001")
tipe.Items.Add("PAB-MAR-002")
tipe.Items.Add("PAB-MAR-003")
tipe.Items.Add("PAB-BIN-001")
tipe.Items.Add("PAB-BIN-002")
tipe.Items.Add("PAB-BIN-003")
tipe.Items.Add("PAB-PAK-001")
tipe.Items.Add("PAB-PAK-002")
tipe.Items.Add("PAB-PAK-003")

End Sub


Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(tipe.Text, 3)
Select Case x
Case "TOK" : Bibe.Text = "150000"
Case "RUM" : Bibe.Text = "50000"
Case "SWA" : Bibe.Text = "400000"
Case "PAB" : Bibe.Text = "1000000"
End Select
Select Case x
Case "TOK" : kwh.Text = "500"
Case "RUM" : kwh.Text = "200"
Case "SWA" : kwh.Text = "1500"
Case "PAB" : kwh.Text = "10000"
End Select
End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Besar.Text = ini.Text - lalu.Text
Total.Text = Val(Bibe.Text) + Val(kwh.Text * Besar.Text)
pjk.Text = Total.Text * 0.15
Pembayaran.Text = Val(Total.Text) + Val(pjk.Text)
End Sub

Sub buatTabel()
LV.Columns.Add("kode", 80, HorizontalAlignment.Center)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
LV.Columns.Add("Harga/kwh", 100, HorizontalAlignment.Left)
LV.Columns.Add("Meter Bulan ini", 100, HorizontalAlignment.Left)
LV.Columns.Add("Meter Bulan lalu", 100, HorizontalAlignment.Left)
LV.Columns.Add("Besar Pemakaian", 100, HorizontalAlignment.Left)
LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = tipe.Text
Lst.SubItems.Add(Bibe.Text)
Lst.SubItems.Add(kwh.Text)
Lst.SubItems.Add(ini.Text)
Lst.SubItems.Add(lalu.Text)
Lst.SubItems.Add(Besar.Text)
Lst.SubItems.Add(Total.Text)
Lst.SubItems.Add(pjk.Text)
Lst.SubItems.Add(Pembayaran.Text)
LV.Items.Add(Lst)
End Sub

Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
tipe.Text = ""
Bibe.Text = ""
kwh.Text = ""
ini.Text = ""
lalu.Text = ""
Besar.Text = ""
Total.Text = ""
pjk.Text = ""
Pembayaran.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
tipe.Text = ""
Bibe.Text = ""
kwh.Text = ""
ini.Text = ""
lalu.Text = ""
Besar.Text = ""
Total.Text = ""
pjk.Text = ""
Pembayaran.Text = ""

End Sub

Private Sub semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semua.Click
LV.Items.Clear()
End Sub
End Class




Hasil Program

Demikilahlah postingan saya Nama : AFRIZAL  NPM : 1111864
Selamat belajar Pemrograman VB NET