Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call buattabel()
kode.Items.Add("TOK-MED-001")
kode.Items.Add("TOK-BEL-010")
kode.Items.Add("TOK-TEM-011")
kode.Items.Add("TOK-MAR-100")
kode.Items.Add("TOK-BIN-101")
kode.Items.Add("TOK-PAK-110")
kode.Items.Add("RUM-MED-001")
kode.Items.Add("RUM-BEL-010")
kode.Items.Add("RUM-TEM-011")
kode.Items.Add("RUM-MAR-100")
kode.Items.Add("RUM-BIN-101")
kode.Items.Add("RUM-PAK-110")
kode.Items.Add("SWA-MED-001")
kode.Items.Add("SWA-BEL-010")
kode.Items.Add("SWA-TEM-011")
kode.Items.Add("SWA-MAR-100")
kode.Items.Add("SWA-BIN-101")
kode.Items.Add("SWA-PAK-110")
kode.Items.Add("PAB-MED-001")
kode.Items.Add("PAB-BEL-010")
kode.Items.Add("PAB-TEM-011")
kode.Items.Add("PAB-MAR-100")
kode.Items.Add("PAB-BIN-101")
kode.Items.Add("PAB-PAK-110")
End Sub
Private Sub kode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles kode.SelectedIndexChanged
Dim X As String
X = Mid(kode.Text, 1, 3)
Select Case X
Case "TOK"
tipe.Text = "TOKO"
biaya.Text = 150000
harga.Text = 500
Case "RUM"
tipe.Text = "RUMAH"
biaya.Text = 50000
harga.Text = 200
Case "SWA"
tipe.Text = "SWALAYAN"
biaya.Text = 400000
harga.Text = 1500
Case "PAB"
tipe.Text = "PABRIK"
biaya.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
If kode.Text = ("TOK-MED-001") Then
nama.Text = "angga"
ElseIf kode.Text = ("TOK-BEL-010") Then
nama.Text = "oscar"
ElseIf kode.Text = ("TOK-TEM-011") Then
nama.Text = "bobby"
ElseIf kode.Text = ("TOK-MAR-100") Then
nama.Text = "hendry"
ElseIf kode.Text = ("TOK-BIN-101") Then
nama.Text = "kurniawan"
ElseIf kode.Text = ("TOK-PAK-1101") Then
nama.Text = "susanto"
ElseIf kode.Text = ("RUM-MED-001") Then
nama.Text = "zulfa"
ElseIf kode.Text = ("RUM-BEL-010") Then
nama.Text = "junior"
ElseIf kode.Text = ("RUM-TEM-011") Then
nama.Text = "halim"
ElseIf kode.Text = ("RUM-MAR-100") Then
nama.Text = "fai"
ElseIf kode.Text = ("RUM-BIN-101") Then
nama.Text = "riki"
ElseIf kode.Text = ("RUM-PAK-1101") Then
nama.Text = "piana"
ElseIf kode.Text = ("RUM-MED-001") Then
nama.Text = "zulfa"
ElseIf kode.Text = ("RUM-BEL-010") Then
nama.Text = "junior"
ElseIf kode.Text = ("RUM-TEM-011") Then
nama.Text = "halim"
ElseIf kode.Text = ("RUM-MAR-100") Then
nama.Text = "fai"
ElseIf kode.Text = ("RUM-BIN-101") Then
nama.Text = "riki"
ElseIf kode.Text = ("RUM-PAK-1101") Then
nama.Text = "piana"
ElseIf kode.Text = ("SWA-MED-001") Then
nama.Text = "kiki"
ElseIf kode.Text = ("SWA-BEL-010") Then
nama.Text = "dinda"
ElseIf kode.Text = ("SWA-TEM-011") Then
nama.Text = "afgan"
ElseIf kode.Text = ("SWA-MAR-100") Then
nama.Text = "dimas"
ElseIf kode.Text = ("SWA-BIN-101") Then
nama.Text = "eko"
ElseIf kode.Text = ("SWA-PAK-1101") Then
nama.Text = "idah"
ElseIf kode.Text = ("PAB-MED-001") Then
nama.Text = "lily"
ElseIf kode.Text = ("PAB-BEL-010") Then
nama.Text = "liza"
ElseIf kode.Text = ("PAB-TEM-011") Then
nama.Text = "gadis"
ElseIf kode.Text = ("PAB-MAR-100") Then
nama.Text = "jumadi"
ElseIf kode.Text = ("PAB-BIN-101") Then
nama.Text = "tisa"
ElseIf kode.Text = ("PAB-PAK-1101") Then
nama.Text = "midah"
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pemakaian, tagihan, pajak, Pembayaran As Integer
pemakaian = Val(MbulanIni.Text) - Val(mBulanlalu.Text)
tagihan = (Val(biaya.Text) + Val(harga.Text)) * pemakaian
pajak = (1.5 / 100) * tagihan
Pembayaran = tagihan - pajak
LblPajak.Text = pajak
LblTotaltagihan.Text = tagihan
LblPembayaran.Text = Pembayaran
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles hapus.Click
kode.Text = " "
nama.Text = " "
daerah.Text = " "
tipe.Text = " "
biaya.Text = " "
harga.Text = " "
kode.Text = " "
mBulanlalu.Text = " "
MbulanIni.Text = " "
LblTotaltagihan.Text = " "
LblPajak.Text = " "
LblPembayaran.Text = " "
End Sub
Sub buattabel()
lv.Columns.Add("kode pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe pelanggan", 100, HorizontalAlignment.Center)
lv.Columns.Add("biaya beban", 80, HorizontalAlignment.Center)
lv.Columns.Add("harga per KWH", 100, HorizontalAlignment.Center)
lv.Columns.Add("Meteran bulan lalu", 120, HorizontalAlignment.Center)
lv.Columns.Add("meteran bulan ini", 120, HorizontalAlignment.Center)
lv.Columns.Add("pajak", 80, HorizontalAlignment.Center)
lv.Columns.Add("pembayaran", 80, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = kode.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(biaya.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(mBulanlalu.Text)
lst.SubItems.Add(MbulanIni.Text)
lst.SubItems.Add(LblPajak.Text)
lst.SubItems.Add(LblPembayaran.Text)
lv.items.add(lst)
End Sub
Private Sub btnisi_Click(sender As Object, e As EventArgs) Handles btnisi.Click
Call isitabel()
kode.Text = " "
nama.Text = " "
daerah.Text = " "
tipe.Text = " "
biaya.Text = " "
harga.Text = " "
kode.Text = " "
mBulanlalu.Text = " "
MbulanIni.Text = " "
LblTotaltagihan.Text = " "
LblPajak.Text = " "
LblPembayaran.Text = " "
End Sub
Private Sub kosongkan_Click(sender As Object, e As EventArgs) Handles kosongkan.Click
lv.Items.Clear()
End Sub
Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End
End Sub
End Class
0 Response to "Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net "
Posting Komentar