Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net
" tugas quis"
Public Class Form1
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
If kode.Text = ("PAB-MED-100") Then
nama.Text = "HENDRA"
ElseIf kode.Text = ("PAB-BEL-100") Then
nama.Text = "SYAHPUTRA"
ElseIf kode.Text = ("RUM-TEM-100") Then
nama.Text = "PILLY"
ElseIf kode.Text = ("SWA-MAR-100") Then
nama.Text = "HERU"
ElseIf kode.Text = ("TOK-BIN-100") Then
nama.Text = "ICHA"
ElseIf kode.Text = ("SWA-PAK-100") Then
nama.Text = "INDAH"
End If
Dim x As String
x = Mid(kode.Text, 1, 3)
Select Case x
Case "TOK"
tipe.Text = "Toko"
biaya_beban.Text = 150000
harga.Text = 500
Case "RUM"
tipe.Text = "Rumah"
biaya_beban.Text = 50000
harga.Text = 200
Case "SWA"
tipe.Text = "swalayan"
biaya_beban.Text = 400000
harga.Text = 1500
Case "PAB"
tipe.Text = "Pabrik"
biaya_beban.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 nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged
If kode.Text = ("PAB-MED-100") Then
nama.Text = "HENDRA"
ElseIf kode.Text = ("PAB-BEL-100") Then
nama.Text = "SYAHPUTRA"
ElseIf kode.Text = ("RUM-TEM-100") Then
nama.Text = "PILLY"
ElseIf kode.Text = ("SWA-MAR-100") Then
nama.Text = "HERU"
ElseIf kode.Text = ("TOK-BIN-100") Then
nama.Text = "ICHA"
ElseIf kode.Text = ("SWA-PAK-100") Then
nama.Text = "INDAH"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("PAB-MED-100")
kode.Items.Add("PAB-BEL-100")
kode.Items.Add("RUM-TEM-100")
kode.Items.Add("SWA-MAR-100")
kode.Items.Add("TOK-BIN-100")
kode.Items.Add("SWA-PAK-100")
End Sub
Sub buattabel()
LV.Columns.Add("Kode ", 90, HorizontalAlignment.Center)
LV.Columns.Add("NAMA", 90, HorizontalAlignment.Center)
LV.Columns.Add("TIPE", 90, HorizontalAlignment.Center)
LV.Columns.Add("DAERAH", 90, HorizontalAlignment.Center)
LV.Columns.Add("BIAYA", 90, HorizontalAlignment.Center)
LV.Columns.Add("HARGA", 90, HorizontalAlignment.Center)
LV.Columns.Add("PEMAKAIAN", 90, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL", 90, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 90, HorizontalAlignment.Center)
LV.Columns.Add("PEMBAYARAN", 90, 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(nama.Text)
lst.SubItems.Add(tipe.Text)
lst.SubItems.Add(daerah.Text)
lst.SubItems.Add(biaya_beban.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(pemakaian.Text)
lst.SubItems.Add(total.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(pembayaran.Text)
LV.Items.Add(lst)
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(harga.Text) * Val(pemakaian.Text) + Val(biaya_beban.Text)
pajak.Text = 0.01 * total.Text
pembayaran.Text = Val(total.Text) + Val(pajak.Text)
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Btnisilist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnisilist.Click
Call isitabel()
kode.Text = ""
nama.Text = ""
tipe.Text = ""
daerah.Text = ""
harga.Text = ""
pemakaian.Text = ""
total.Text = ""
pajak.Text = ""
pembayaran.Text = ""
End Sub
Private Sub Btnhapuslist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuslist.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
