Soalnya dari Sini!
Public Class Login
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
If username.Text = "eko" And password.Text = "setiawan" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("data username/password Tidak Sesuai!!!")
username.Text = ""
password.Text = ""
End If
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Hasilnya:
Public Class menuutama
Private Sub DataPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPDAMToolStripMenuItem.Click
Tagihan_PDAM.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
Gambar:
Public Class Tagihan_PDAM
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Dim x As String
x = Microsoft.VisualBasic.Left(kopel.Text, 3)
If x = "TOK" Then
tipel.TabIndex = "TOKO"
biayabeban.Text = 25000
hargaper_m3.Text = 300
ElseIf x = "RUM" Then
tipel.Text = "RUMAH"
biayabeban.Text = 15000
hargaper_m3.Text = 100
ElseIf x = "SWA" Then
tipel.Text = "SWALYAN"
biayabeban.Text = 10000
hargaper_m3.Text = 200
ElseIf x = "PAB" Then
tipel.Text = "PABRIK"
biayabeban.Text = 25000
hargaper_m3.Text = 500
End If
x = Microsoft.VisualBasic.Mid(kopel.Text, 4, 1)
If x = "-" Then
End If
x = Microsoft.VisualBasic.Mid(kopel.Text, 5, 3)
If x = "MED" Then
daerahpelanggan.Text = "MEDAN"
ElseIf x = "BEL" Then
daerahpelanggan.Text = "BELAWAN"
ElseIf x = "TEM" Then
daerahpelanggan.Text = "AKSARA"
ElseIf x = "BIN" Then
daerahpelanggan.Text = "BINJAI"
ElseIf x = "PAK" Then
daerahpelanggan.Text = "LUBUK-PAKAM"
End If
x = Microsoft.VisualBasic.Mid(kopel.Text, 8, 1)
If x = "-" Then
End If
nomor_urut.Text = Microsoft.VisualBasic.Mid(kopel.Text, 9, 3)
totaltagihan.Text = Val(biayabeban.Text) + Val(hargaper_m3.Text) * Val(jumlahpemakaian.Text)
totaltagihanppn.Text = (0.01) * Val(totaltagihan.Text) + Val(totaltagihan.Text)
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
kopel.Text = ""
daerahpelanggan.Text = ""
tipel.Text = ""
biayabeban.Text = ""
totaltagihan.Text = ""
hargaper_m3.Text = ""
jumlahpemakaian.Text = ""
totaltagihanppn.Text = ""
nomor_urut.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Gambar Akhir:
Sabtu, 28 Januari 2012
Jawaban Kuis Nomor 2 Modul Halaman 33 (eko setiawan)
Lihat Soal disini!
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kobar.Items.Add("TS001")
kobar.Items.Add("TS002")
kobar.Items.Add("VG001")
kobar.Items.Add("VG002")
buattabel()
End Sub
Private Sub kobar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobrg.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kobar.Text, 2)
If x = "TS" Then
merk.Text = "Toshiba"
ElseIf x = "VG" Then
merk.Text = "V-Gen"
End If
x = Microsoft.VisualBasic.Right(kobar.Text, 3)
If x = "001" Then
nabar.Text = "Flashdisk 4GB"
ElseIf x = "002" Then
nabar.Text = "Flashdisk 2GB"
End If
If kobar.Text = "TS001" Then
harga.Text = "105000"
ElseIf kobar.Text = "TS002" Then
harga.Text = "75000"
ElseIf kobar.Text = "VG001" Then
harga.Text = "90000"
ElseIf kobar.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub jubel_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhbrg.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
btnproses_Click(sender, e)
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(jlhbrg.Text) * Val(harga.Text)
End Sub
Sub buattabel()
With LV
.Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add("Harga", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nbeli.Text
lst.SubItems.Add(kobar.Text)
lst.SubItems.Add(nabar.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jubel.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Sub clean()
nobel.Text = ""
kobar.Text = ""
nabar.Text = ""
merk.Text = ""
harga.Text = ""
jubel.Text = ""
total.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitabel()
Call buattabel()
Call clean()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
Call clean()
End Sub
Private Sub btnhapusdatapilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatapilihan.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("Maaf, Berikan Tanda terhadap Data yang Mau di Hapus!!!")
End If
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
End Class
Hasil Gambar:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kobar.Items.Add("TS001")
kobar.Items.Add("TS002")
kobar.Items.Add("VG001")
kobar.Items.Add("VG002")
buattabel()
End Sub
Private Sub kobar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobrg.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kobar.Text, 2)
If x = "TS" Then
merk.Text = "Toshiba"
ElseIf x = "VG" Then
merk.Text = "V-Gen"
End If
x = Microsoft.VisualBasic.Right(kobar.Text, 3)
If x = "001" Then
nabar.Text = "Flashdisk 4GB"
ElseIf x = "002" Then
nabar.Text = "Flashdisk 2GB"
End If
If kobar.Text = "TS001" Then
harga.Text = "105000"
ElseIf kobar.Text = "TS002" Then
harga.Text = "75000"
ElseIf kobar.Text = "VG001" Then
harga.Text = "90000"
ElseIf kobar.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub jubel_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhbrg.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
btnproses_Click(sender, e)
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(jlhbrg.Text) * Val(harga.Text)
End Sub
Sub buattabel()
With LV
.Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
.Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add("Harga", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nbeli.Text
lst.SubItems.Add(kobar.Text)
lst.SubItems.Add(nabar.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jubel.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Sub clean()
nobel.Text = ""
kobar.Text = ""
nabar.Text = ""
merk.Text = ""
harga.Text = ""
jubel.Text = ""
total.Text = ""
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitabel()
Call buattabel()
Call clean()
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
Call clean()
End Sub
Private Sub btnhapusdatapilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatapilihan.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("Maaf, Berikan Tanda terhadap Data yang Mau di Hapus!!!")
End If
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
End Class
Hasil Gambar:
Langganan:
Postingan (Atom)