http://www.mesran.blogspot.com/2013/05/kasus-pemrograman-pemakaian-listrik.html
jawabanya :
Public Class Form1
Sub buattable()
LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
LV.Columns.Add("Tipe", 80, HorizontalAlignment.Center)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
LV.Columns.Add("Harga per KWH", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah", 180, HorizontalAlignment.Center)
LV.Columns.Add("Total Tagihan", 180, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode Pelanggan", 180, HorizontalAlignment.Center)
LV.Columns.Add("Pembayaran", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitable()
Dim Lst As New ListViewItem
Lst.Text = Daerah.Text
Lst.SubItems.Add(Tipe.Text)
Lst.SubItems.Add(biaya.Text)
Lst.SubItems.Add(Harga.Text)
Lst.SubItems.Add(jumlah.Text)
Lst.SubItems.Add(Total.Text)
Lst.SubItems.Add(Pajak.Text)
Lst.SubItems.Add(kode.Text)
Lst.SubItems.Add(pembayaran.Text)
LV.Items.Add(Lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add("MED")
daerah.Items.Add("BEL")
daerah.Items.Add("TEM")
daerah.Items.Add("MAR")
daerah.Items.Add("BIN")
daerah.Items.Add("PAK")
Tipe.Items.Add("TOK")
Tipe.Items.Add("RUM")
Tipe.Items.Add("SWA")
Tipe.Items.Add("PAB")
kode.Items.Add("PAB")
kode.Items.Add("PAK")
kode.Items.Add("100")
Call buattable()
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.Right(Tipe.Text, 3)
Select Case x
Case "TOK" : biaya.Text = "150000"
Case "RUM" : biaya.Text = "50000"
Case "SWA" : biaya.Text = "400000"
Case "PAB" : biaya.Text = "1000000"
End Select
Select Case x
Case "TOK" : harga.Text = "500"
Case "RUM" : harga.Text = "200"
Case "SWA" : harga.Text = "1500"
Case "PAB" : harga.Text = "10000"
End Select
End Sub
Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
If Asc(e.KeyChar) = 13 Then
Total.Text = Val(biaya.Text) + Val(harga.Text)
End If
End Sub
Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress
If Asc(e.KeyChar) = 13 Then
pajak.Text = "0.15"
End If
End Sub
Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
pembayaran.Text = Val(Total.Text) + Val(pajak.Text)
End Sub
Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
Call isitable()
End Sub
Private Sub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Call berish(Me)
End Sub
Sub berish(ByVal F As Form)
Dim X As Object
For Each X In F.Controls
If TypeOf X Is TextBox Then X.Text = ""
If TypeOf X Is ComboBox Then X.Text = ""
Next
End Sub
Private Sub Btnhapusdatayangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdatayangdipilih.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
Private Sub Bthhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthhapus.Click
Lv.Items.Clear()
End Sub
Private Sub Btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnexit.Click
End
End Sub
End Class
hasilnya :
Jawaban soal no 2
Public Class Form1
Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged
Dim X As String
X = Microsoft.VisualBasic.Left(Gol.Text, 4)
Select X
Case "IIIA"
Gaji.Text = "1500000"
Pinjaman.Text = "300000"
Case "IIIB"
Gaji.Text = "2500000"
Pinjaman.Text = "150000"
Case "IIIC"
Gaji.Text = "3500000"
Pinjaman.Text = "200000"
End Select
Pajak.Text = 0.015 * Gaji.Text
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
Gajibersih.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Pajak.Text)
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 Hasilnya :
