Selesaikanlah Kasus Berikut :
JUDUL SOAL
Berikut Jawaban Program :
Soal No.1
Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang
Listing Program
PublicClass Form1
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
BuatTabel()
Kodbar.Items.Add("TS001")
Kodbar.Items.Add("TS002")
Kodbar.Items.Add("VG001")
Kodbar.Items.Add("VG002")
EndSub
Sub BuatTabel()
LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama Barang", 180, HorizontalAlignment.Center)
LV.Columns.Add("Merk", 180, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
LV.Columns.Add("Junmlah Beli", 80, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
EndSub
Sub IsiTabel()
Dim Lst AsNew ListViewItem
Lst.Text = Nopem.Text
Lst.SubItems.Add(Kodbar.Text)
Lst.SubItems.Add(Nabar.Text)
Lst.SubItems.Add(Merk.Text)
Lst.SubItems.Add(Harga.Text)
Lst.SubItems.Add(Jubel.Text)
Lst.SubItems.Add(totharga.Text)
LV.Items.Add(Lst)
EndSub
PrivateSub Kodbar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodbar.SelectedIndexChanged
Dim x AsString
x = Microsoft.VisualBasic.Left(Kodbar.Text, 2)
SelectCase x
Case"TS" : Merk.Text = "TOSHIBA"
Case"VG" : Merk.Text = "V-GEN"
EndSelect
Dim I AsString
I = Microsoft.VisualBasic.Right(Kodbar.Text, 3)
SelectCase I
Case"001" : Nabar.Text = "FLASHDISK 4GB"
Case"002" : Nabar.Text = "FLASHDISK 2GB"
EndSelect
If x = "TS"And I = "001"Then
Harga.Text = 105000
ElseIf x = "TS"And I = "002"Then
Harga.Text = 75000
ElseIf x = "VG"And I = "001"Then
Harga.Text = 90000
ElseIf x = "VG"And I = "002"Then
Harga.Text = 60000
EndIf
EndSub
Sub bersih()
EndSub
PrivateSub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
Me.Close()
EndSub
PrivateSub Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
Nopem.Text = ""
Kodbar.Text = ""
Merk.Text = ""
Harga.Text = ""
totharga.Text = ""
Jubel.Text = ""
Nabar.Text = ""
EndSub
PrivateSub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
IsiTabel()
Nopem.Text = ""
Kodbar.Text = ""
Nabar.Text = ""
Merk.Text = ""
Harga.Text = ""
Jubel.Text = ""
totharga.Text = ""
EndSub
PrivateSub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
LV.Items.Remove(LV.SelectedItems(0))
EndSub
PrivateSub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
LV.Items.Clear()
EndSub
PrivateSub Jubel_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jubel.KeyPress
Dim tombol AsInteger = Asc(e.KeyChar)
If tombol = 13 Then
totharga.Text = Harga.Text * Jubel.Text
EndIf
EndSub
PrivateSub Nopem_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Nopem.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
e.KeyChar = ""
EndIf
EndSub
EndClass
JAWABAN no 2
PublicClass Form1
PrivateSub Julem_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Julem.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
e.KeyChar = ""
EndIf
EndSub
PrivateSub HPL_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles HPL.KeyPress
Dim angka AsString = "0123456789"
Dim x AsLong = InStr(angka, e.KeyChar)
If x = 0 And Asc(e.KeyChar) <> 8 And Asc(e.KeyChar) <> 10 Then
e.KeyChar = ""
EndIf
EndSub
PrivateSub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
If Julem.Text >= 200 And HPL.Text = 100 Then
Else
EndIf
Totharga.Text = Julem.Text * HPL.Text
If Totharga.Text > 500000 Then
Sale.Text = 0.15 * Totharga.Text
Else
Sale.Text = 0
EndIf
Pembayaran.Text = Val(Totharga.Text) - Val(Sale.Text)
EndSub
PrivateSub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
Julem.Text = ""
HPL.Text = ""
Totharga.Text = ""
Sale.Text = ""
Pembayaran.Text = ""
EndSub
PrivateSub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
EndSub
EndClass
Demikilahlah postingan saya
Nama : (Muhammad Suhairi Arafat)
NPM : (1111534)
Selamat Belajar Bahasa Pemrograman VB NET
Selamat Belajar Bahasa Pemrograman VB NET
0 komentar:
Posting Komentar