Minggu, 29 Januari 2012
Jawaban SOAL 3 (Diky Suhendri)
Listing Code
Login page “Form 1?
Public Class Form1
Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
If nama.Text = “diky” And password.Text = “suhendri” Then
MenuUtama.show()
Me.Hide()
Else
MsgBox(“Data Username/Password Salah?”)
nama.Text = “”
password.Text = “”
End If
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Menu Page “Form 2?
Public Class MenuUtama
Private Sub TagihanAirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanAirToolStripMenuItem.Click
TagihanAir.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
Hasil Page “Form 3?
Public Class TagihanAir
Private Sub kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged
Dim x As String
Microsoft.VisualBasic.Left(kode.Text, 3)
x = Microsoft.VisualBasic.Left(kode.Text, 3)
If x = “TOK” Then
tipe.Text = “Toko”
biaya.Text = “25000?
harga.Text = “300?
ElseIf x = “RUM” Then
tipe.Text = “Rumah”
biaya.Text = “15000?
harga.Text = “100?
ElseIf x = “SWA” Then
tipe.Text = “Swalayan”
biaya.Text = “10000?
harga.Text = “200?
ElseIf x = “PAB” Then
tipe.Text = “Pabrik”
biaya.Text = “25000?
harga.Text = “500?
End If
x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
If x = “MED” Then
daerah.Text = “Medan”
ElseIf x = “BEL” Then
daerah.Text = “Belawan”
ElseIf x = “TEM” Then
daerah.Text = “Aksara”
ElseIf x = “MAR” Then
daerah.Text = “Marendal”
ElseIf x = “BIN” Then
daerah.Text = “Binjai”
ElseIf x = “PAK” Then
daerah.Text = “Lubuk Pakam”
End If
x = Microsoft.VisualBasic.Right(kode.Text, 3)
NoUrut.Text = x
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
kode.Text = “”
tipe.Text = “”
daerah.Text = “”
NoUrut.Text = “”
harga.Text = “”
biaya.Text = “”
pemakaian.Text = “”
pajak.Text = “”
tagihan.Text = “”
End Sub
Sub BuatTable()
ListView1.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Daerah Pelanggan”, 120, HorizontalAlignment.Center)
ListView1.Columns.Add(“No Urut”, 80, HorizontalAlignment.Center)
ListView1.Columns.Add(“Harga”, 80, HorizontalAlignment.Center)
ListView1.Columns.Add(“Biaya Beban”, 80, HorizontalAlignment.Center)
ListView1.Columns.Add(“Pemakaian Air”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Pajak”, 80, HorizontalAlignment.Center)
ListView1.Columns.Add(“Total Tagihan”, 80, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub IsiTable()
Dim LST As New ListViewItem
LST.Text = kode.Text
LST.SubItems.Add(tipe.Text)
LST.SubItems.Add(daerah.Text)
LST.SubItems.Add(NoUrut.Text)
LST.SubItems.Add(harga.Text)
LST.SubItems.Add(biaya.Text)
LST.SubItems.Add(pemakaian.Text)
LST.SubItems.Add(pajak.Text)
LST.SubItems.Add(tagihan.Text)
ListView1.Items.Add(LST)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
ListView1.Items.Clear()
End Sub
Private Sub btnPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
IsiTable()
kode.Text = “”
tipe.Text = “”
daerah.Text = “”
NoUrut.Text = “”
harga.Text = “”
biaya.Text = “”
pemakaian.Text = “”
pajak.Text = “”
tagihan.Text = “”
End Sub
Private Sub TagihanAir_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTable()
End Sub
Private Sub pemakaian_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles pemakaian.KeyDown
If e.KeyCode = Keys.Enter Then
tagihan.Text = Val(biaya.Text) + Val(harga.Text) * pemakaian.Text
pajak.Text = tagihan.Text * 1 / 100
End If
End Sub
Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
Jawaban SOAL 2 (Diky Suhendri)
Listing Program
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add(“TS001?)
kode.Items.Add(“TS002?)
kode.Items.Add(“VG001?)
kode.Items.Add(“VG002?)
Call diky()
End Sub
Sub suhendri()
ListView1.Columns.Add(“Pembelian”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Kode Barang”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Merk”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Harga”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jumlah Beli”, 100, HorizontalAlignment.Center)
ListView1.Columns.Add(“Total Harga”, 100, HorizontalAlignment.Center)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub suhendri()
Dim isi As New ListViewItem
isi.Text = pembelian.Text
isi.SubItems.Add(kode.Text)
isi.SubItems.Add(nama.Text)
isi.SubItems.Add(merk.Text)
isi.SubItems.Add(harga.Text)
isi.SubItems.Add(beli.Text)
isi.SubItems.Add(Tharga.Text)
ListView1.Items.Add(isi)
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim X As String
X = Microsoft.VisualBasic.Left(kode.Text, 2)
If X = “TS” Then
merk.Text = “Toshiba”
ElseIf X = “VG” Then
merk.Text = “V-Gen”
End If
X = Microsoft.VisualBasic.Right(kode.Text, 3)
If X = “001? Then
nama.Text = “FlashDisk 4GB”
ElseIf X = “002? Then
nama.Text = “FlashDisk 2GB”
End If
If kode.Text = “TS001? Then
harga.Text = “105000?
ElseIf kode.Text = “TS002? Then
harga.Text = “75000?
ElseIf kode.Text = “VG001? Then
harga.Text = “90000?
ElseIf kode.Text = “VG002? Then
harga.Text = “60000?
End If
End Sub
Private Sub beli_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles beli.KeyDown
If e.KeyCode = Keys.Enter Then
Tharga.Text = harga.Text * beli.Text
End If
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Call alfaris()
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Clear()
End Sub
Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
pembelian.Text = “”
kode.Text = “”
nama.Text = “”
merk.Text = “”
harga.Text = “”
beli.Text = “”
Tharga.Text = “”
End Sub
Private Sub hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuspilih.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
Langganan:
Postingan (Atom)