http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-selasa-2/
Listing Program
Public Class Form1
Sub table()
ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isi()
Dim lst As New ListViewItem
lst.Text = no.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)
ListView1.Items.Add(lst)
End Sub
Private Sub latihan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
End Sub
Private Sub latihan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
table()
AddJumlah()
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
End Sub
Sub AddJumlah()
For i = 1 To 100
jumlah.Items.Add(i)
Next
End Sub
Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
total.Text = Val(jumlah.Text) * Val(harga.Text)
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim latihan As String
Microsoft.VisualBasic.Left(kode.Text, 2)
latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
If latihan = "TS" Then
merk.Text = "TOSHIBA"
ElseIf latihan = "VG" Then
merk.Text = "V-Gen"
End If
latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
If latihan = "001" Then
nama.Text = "Flasdic 4GB"
ElseIf latihan = "002" Then
nama.Text = "Flasdisc 2GB"
End If
harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
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
no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
Dim i As Byte
i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
If i = vbYes Then
End
End If
End Sub
Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
hitung_Click(sender, e)
End If
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isi()
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
ListView1.Items.Clear()
End Sub
Private Sub jumlah_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
hitung_Click(sender, e)
End If
End Sub
Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged
End Sub
Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
End Sub
End Class
Hasil Program
Tidak ada komentar:
Posting Komentar