Klik disini untuk melihat Soal/Kasus
Listing Program :
1. Login
Public Class Form1
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "tito" And password.Text = "123456" Then
Menuutama.Show()
Me.Hide()
Else
MsgBox("Username dan Password tidak cocok!!")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
username.Text = ""
password.Text = ""
password.PasswordChar = "*"
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
2. Form Pembayaran Tagihan
Public Class Tagihan_PDAM
Sub Pelanggan()
For a = 1 To 2
Kode.Items.Add("TOK" & "_" & "MED" & "_" & a & "00")
Kode.Items.Add("TOK" & "_" & "BEL" & "_" & a & "00")
Kode.Items.Add("TOK" & "_" & "TEM" & "_" & a & "00")
Kode.Items.Add("TOK" & "_" & "MAR" & "_" & a & "00")
Kode.Items.Add("TOK" & "_" & "BIN" & "_" & a & "00")
Kode.Items.Add("TOK" & "_" & "PAK" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "MED" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "BEL" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "TEM" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "MAR" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "BIN" & "_" & a & "00")
Kode.Items.Add("RUM" & "_" & "PAK" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "MED" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "BEL" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "TEM" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "MAR" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "BIN" & "_" & a & "00")
Kode.Items.Add("SWA" & "_" & "PAK" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "MED" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "BEL" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "TEM" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "MAR" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "BIN" & "_" & a & "00")
Kode.Items.Add("PAB" & "_" & "PAK" & "_" & a & "00")
Next
End Sub
Sub buattabel()
LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)
LV.Columns.Add("Urut", 80, HorizontalAlignment.Center)
LV.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
LV.Columns.Add("Type Pelanggan", 120, HorizontalAlignment.Center)
LV.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)
LV.Columns.Add("Harga per M3", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Pemakaian", 120, HorizontalAlignment.Center)
LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Bayar Tagihan", 120, 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(Ur.Text)
lst.SubItems.Add(Dae.Text)
lst.SubItems.Add(Typ.Text)
lst.SubItems.Add(Bia.Text)
lst.SubItems.Add(Har.Text)
lst.SubItems.Add(Jumpe.Text)
lst.SubItems.Add(Totba.Text)
lst.SubItems.Add(Totha.Text)
LV.Items.Add(lst)
End Sub
Sub hapus()
Kode.Text = ""
Ur.Text = ""
Dae.Text = ""
Typ.Text = ""
Bia.Text = ""
Har.Text = ""
Jumpe.Text = ""
Totba.Text = ""
Totha.Text = ""
End Sub
Sub simpan()
Isitabel()
End Sub
Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
Pelanggan()
End Sub
Private Sub Btnsim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsim.Click
Isitabel()
hapus()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
Dim Ty As String
Dim Drh As String
Dim Urt As String
Ty = Microsoft.VisualBasic.Left(Kode.Text, 3)
Drh = Microsoft.VisualBasic.Mid(Kode.Text, 5, 3)
Urt = Microsoft.VisualBasic.Right(Kode.Text, 3)
If Ty = "TOK" Then
Typ.Text = "TOKO"
Bia.Text = "25000"
Har.Text = "300"
If Urt = "010" Then
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
Else
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
End If
ElseIf Ty = "RUM" Then
Typ.Text = "RUMAH"
Bia.Text = "15000"
Har.Text = "100"
If Urt = "010" Then
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
Else
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
End If
ElseIf Ty = "SWA" Then
Typ.Text = "SWALAYAN"
Bia.Text = "10000"
Har.Text = "200"
If Urt = "010" Then
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
Else
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
End If
ElseIf Ty = "PAB" Then
Typ.Text = "PABRIK"
Bia.Text = "250000"
Har.Text = "500"
If Urt = "010" Then
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
Else
Ur.Text = Urt
If Drh = "MED" Then
Dae.Text = "MEDAN"
ElseIf Drh = "BEL" Then
Dae.Text = "BELAWAN"
ElseIf Drh = "TEM" Then
Dae.Text = "AKSARA"
ElseIf Drh = "MAR" Then
Dae.Text = "MARENDAL"
ElseIf Drh = "BIN" Then
Dae.Text = "BINJAI"
ElseIf Drh = "PAK" Then
Dae.Text = "LUBUK PAKAM"
End If
End If
End If
Jumpe.Focus()
End Sub
Private Sub Jumpe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumpe.KeyPress
If e.KeyChar = Chr(13) Then
Dim ttl As Long
Dim J As Long
Dim Pajak As Long
J = Val(Bia.Text + (Har.Text * Jumpe.Text))
Totha.Text = Format(J, "###,###,###")
Pajak = 0.01 * J
ttl = J + Val(Pajak)
Totba.Text = Format(ttl, "###,###,###")
End If
End Sub
Private Sub Btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnha.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("Pilih Dahulu Data Yang Akan Dihapus", MsgBoxStyle.Information, "Perhatikan !!!!")
End If
End Sub
Private Sub Btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkel.Click
Me.Close()
End Sub
End Class
3. Menu Utama
Public Class Menuutama
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
Tagihan_PDAM.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
Me.Close()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class
Hasil Program :
1. Login
2. Form Pembayaran Tagihan
3. Menu Utama
Sekian....!
Tidak ada komentar:
Posting Komentar