KODE PROGRAMNYA
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kp.Items.Add("TOK-MED-001")
kp.Items.Add("RUM-BEL-002")
kp.Items.Add("SWA-TEM-003")
kp.Items.Add("PAB-MAR-004")
kp.Items.Add("TOK-BIN-005")
kp.Items.Add("PAB-PAK-006")
End Sub
Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
Select Case kp.Text
Case "TOK-MED-001"
nama.Text = "SUKIRMAN"
Case "RUM-BEL-002"
nama.Text = "LEO GUDAFON"
Case "SWA-TEM-003"
nama.Text = "SINTA DIANA"
Case "PAB-MAR-004"
nama.Text = "GUNAWAN"
Case "TOK-BIN-005"
nama.Text = "GITA SURYANI"
Case "PAB-PAK-006"
nama.Text = "BONITA DANI"
End Select
Dim x, y As String
x = Microsoft.VisualBasic.Left(kp.Text, 3)
Select Case x
Case "TOK"
tipe.Text = "TOKO"
beban.Text = 150000
harga.Text = 500
Case "RUM"
tipe.Text = "RUMAH"
beban.Text = 50000
harga.Text = 200
Case "SWA"
tipe.Text = "SWALAYAN"
beban.Text = 400000
harga.Text = 1500
Case "PAB"
tipe.Text = "PABRIK"
beban.Text = 1000000
harga.Text = 10000
End Select
y = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
Select Case y
Case "MED"
daerah.Text = "MEDAN"
Case "BEL"
daerah.Text = "BELAWAN"
Case "TEM"
daerah.Text = "TEMBUNG"
Case "MAR"
daerah.Text = "MARINDAL"
Case "BIN"
daerah.Text = "BINJAI"
Case "PAK"
daerah.Text = "LUBUK PAKAM"
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
ttagihan.Text = Val(beban.Text) + Val(harga.Text * jumlah.Text)
End If
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
End Sub
Private Sub ttagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttagihan.TextChanged
pajak.Text = 0.15 * ttagihan.Text
End Sub
Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
Pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
kp.Text = ""
nama.Text = ""
daerah.Text = ""
tipe.Text = ""
beban.Text = ""
harga.Text = ""
jumlah.Text = ""
ttagihan.Text = ""
pajak.Text = ""
Pembayaran.Text = ""
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kp.Items.Add("TOK-MED-001")
kp.Items.Add("RUM-BEL-002")
kp.Items.Add("SWA-TEM-003")
kp.Items.Add("PAB-MAR-004")
kp.Items.Add("TOK-BIN-005")
kp.Items.Add("PAB-PAK-006")
End Sub
Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
Select Case kp.Text
Case "TOK-MED-001"
nama.Text = "SUKIRMAN"
Case "RUM-BEL-002"
nama.Text = "LEO GUDAFON"
Case "SWA-TEM-003"
nama.Text = "SINTA DIANA"
Case "PAB-MAR-004"
nama.Text = "GUNAWAN"
Case "TOK-BIN-005"
nama.Text = "GITA SURYANI"
Case "PAB-PAK-006"
nama.Text = "BONITA DANI"
End Select
Dim x, y As String
x = Microsoft.VisualBasic.Left(kp.Text, 3)
Select Case x
Case "TOK"
tipe.Text = "TOKO"
beban.Text = 150000
harga.Text = 500
Case "RUM"
tipe.Text = "RUMAH"
beban.Text = 50000
harga.Text = 200
Case "SWA"
tipe.Text = "SWALAYAN"
beban.Text = 400000
harga.Text = 1500
Case "PAB"
tipe.Text = "PABRIK"
beban.Text = 1000000
harga.Text = 10000
End Select
y = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
Select Case y
Case "MED"
daerah.Text = "MEDAN"
Case "BEL"
daerah.Text = "BELAWAN"
Case "TEM"
daerah.Text = "TEMBUNG"
Case "MAR"
daerah.Text = "MARINDAL"
Case "BIN"
daerah.Text = "BINJAI"
Case "PAK"
daerah.Text = "LUBUK PAKAM"
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
ttagihan.Text = Val(beban.Text) + Val(harga.Text * jumlah.Text)
End If
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
End Sub
Private Sub ttagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ttagihan.TextChanged
pajak.Text = 0.15 * ttagihan.Text
End Sub
Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
Pembayaran.Text = Val(ttagihan.Text) + Val(pajak.Text)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
kp.Text = ""
nama.Text = ""
daerah.Text = ""
tipe.Text = ""
beban.Text = ""
harga.Text = ""
jumlah.Text = ""
ttagihan.Text = ""
pajak.Text = ""
Pembayaran.Text = ""
End Sub
End Class













Ketika Anda belajar bagaimana untuk meningkatkan daya ingat dan konsentrasi Anda, pastikan Anda melakukan sesuatu yang Anda senangi. Langkah pertama Anda harus melihat ke dalam teknik yang akan menarik minat Anda secara pribadi. Bahkan latihan ini akan melatih Anda untuk berkonsentrasi dan fokus pada tugas mental yang akan meningkatkan daya ingat Anda. Memori Anda adalah salah satu hadiah paling berharga yang Anda miliki. Anda sendiri bertanggung jawab untuk menjaga dan meningkatkan memori Anda. Semakin banyak yang Anda lakukan untuk meningkatkan daya ingat Anda, semakin lama akan melayani Anda. Ada banyak hal yang dapat Anda lakukan untuk meningkatkan daya ingat Anda. Berikut adalah beberapa cara untuk Meningkatkan Daya Ingat dan Konsentrasi Anda:


















