quiz no.3

quiz no.3

Public Class Form1

Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If nomor.Text = "123456" And password.Text = "090909" Then
MENUUTAMA.Show()
Me.Hide()
Else
MsgBox("DATA yang anda masukkan SALAH !!!")
nomor.Text = ""
password.Text = ""
End If
End Sub
End Class


kemudian:
Public Class MENUUTAMA


Private Sub DATAPELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPELANGGANToolStripMenuItem.Click
DATA.Show()
End Sub
End Class

selanjutnya:
Public Class DATA

Sub BUATTABEL()
LV.Columns.Add("No.REKENING", 100, HorizontalAlignment.Left)
LV.Columns.Add("NAMA", 130, HorizontalAlignment.Center)
LV.Columns.Add("KODE PELANGGAN", 70, HorizontalAlignment.Center)
LV.Columns.Add("NO.URUT", 50, HorizontalAlignment.Center)
LV.Columns.Add("DAERAH", 100, HorizontalAlignment.Center)
LV.Columns.Add("TIPE PELANGGAN", 100, HorizontalAlignment.Center)
LV.Columns.Add("BEBAN BIAYA", 90, HorizontalAlignment.Center)
LV.Columns.Add("HARGA PER m3", 90, HorizontalAlignment.Center)
LV.Columns.Add("PEMAKAIAN", 60, HorizontalAlignment.Center)
LV.Columns.Add("BIAYA", 160, HorizontalAlignment.Center)
LV.Columns.Add("PAJAK", 100, HorizontalAlignment.Center)
LV.Columns.Add("TOTAL BAYAR", 180, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True

End Sub
Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = NOREK.Text
LST.SubItems.Add(NAMA.Text)
LST.SubItems.Add(KODE.Text)
LST.SubItems.Add(NOMOR.Text)
LST.SubItems.Add(LOKASI.Text)
LST.SubItems.Add(TIPEPELANGGAN.Text)
LST.SubItems.Add(BEBAN.Text)
LST.SubItems.Add(HARGA.Text)
LST.SubItems.Add(PEMAKAIAN.Text)
LST.SubItems.Add(BIAYA.Text)
LST.SubItems.Add(PAJAK.Text)
LST.SubItems.Add(TOTAL.Text)
LV.Items.Add(LST)
End Sub

Private Sub DATA_PELANGGAN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
LOKASI.Items.Add("MEDAN")
LOKASI.Items.Add("BELAWAN")
LOKASI.Items.Add("AKSARA")
LOKASI.Items.Add("MARINDAL")
LOKASI.Items.Add("BINJAI")
LOKASI.Items.Add("LUBUK PAKAM")

TIPEPELANGGAN.Items.Add("TOKO")
TIPEPELANGGAN.Items.Add("RUMAH")
TIPEPELANGGAN.Items.Add("SWALAYAN")
TIPEPELANGGAN.Items.Add("PABRIK")


End Sub

Private Sub TIPEPELANGGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TIPEPELANGGAN.SelectedIndexChanged


If TIPEPELANGGAN.Text = "TOKO" Then
BEBAN.Text = 25000
HARGA.Text = 300
ElseIf TIPEPELANGGAN.Text = "RUMAH" Then
BEBAN.Text = 15000
HARGA.Text = 100
ElseIf TIPEPELANGGAN.Text = "SWALAYAN" Then
BEBAN.Text = 10000
HARGA.Text = 200
ElseIf TIPEPELANGGAN.Text = "PABRIK" Then
BEBAN.Text = 250000
HARGA.Text = 500
End If

KODE.Text = TIPEPELANGGAN.Text & LOKASI.Text & NOMOR.Text

End Sub

Private Sub PEMAKAIAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMAKAIAN.TextChanged
BIAYA.Text = (PEMAKAIAN.Text * HARGA.Text) + BEBAN.Text

PAJAK.Text = 0.01 * BIAYA.Text

TOTAL.Text = Val(BIAYA.Text) + PAJAK.Text
End Sub

Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
ISITABEL()

End Sub

Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
NOREK.Text = ""
NAMA.Text = ""
KODE.Text = ""
NOMOR.Text = ""
LOKASI.Text = ""
TIPEPELANGGAN.Text = ""
BEBAN.Text = ""
HARGA.Text = ""
PEMAKAIAN.Text = ""
BIAYA.Text = ""
PAJAK.Text = ""
TOTAL.Text = ""
NOREK.Focus()

End Sub

Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End

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 BTNHAPUSDIPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSDIPILIH.Click
LV.Items.Remove(LV.SelectedItems(0))

End Sub
End Class

quiz vb net

quiz vb net
program latihan hal 33
Public Class Form1

Sub BUATTABEL()
LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode Barang", 90, HorizontalAlignment.Left)
LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Merk", 90, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Beli", 50, HorizontalAlignment.Center)
LV.Columns.Add("Total Bayar", 180, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub

Sub ISITABEL()
Dim LST As New ListViewItem
LST.Text = Nomor.Text
LST.SubItems.Add(Kode.Text)
LST.SubItems.Add(Nama.Text)
LST.SubItems.Add(Merk.Text)
LST.SubItems.Add(Harga.Text)
LST.SubItems.Add(Jumlah.Text)
LST.SubItems.Add(Total.Text)
LV.Items.Add(LST)

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
KODE.Items.Add("TS001")
KODE.Items.Add("TS002")
KODE.Items.Add("VG001")
KODE.Items.Add("VG002")

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"
Else
MERK.Text = 0
End If

X = Microsoft.VisualBasic.Mid(KODE.Text,3, 3)
If X = "001" Then
NAMA.Text = "FLASHDISK 4GB"
Else
NAMA.Text = "FLASHDISK 2GB"

End If


End Sub


Private Sub JUMLAH_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH.TextChanged
If KODE.Text = "TS001" Then
HARGA.Text = 105000
ElseIf KODE.Text = "TS002" Then
HARGA.Text = 75000
ElseIf KODE.Text = "VG001" Then
HARGA.Text = 90000
Else
HARGA.Text = 60000
End If

TOTAL.Text = JUMLAH.Text * Val(HARGA.Text)

End Sub


Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
ISITABEL()
End Sub

Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
NOMOR.Text = ""
KODE.Text = ""
NAMA.Text = ""
MERK.Text = ""
HARGA.Text = ""
JUMLAH.Text = ""
TOTAL.Text = ""

End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub

Private Sub BRNHAPUSSEMUA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRNHAPUSSEMUA.Click
LV.Items.Clear()
End Sub

Private Sub BTNHAPUSPILIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSPILIH.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

End Class