Jawaban Soal 2 (Muhammad Hudhri)

Kasusnya :Soal Quiz Online Hari Selasa 

Listing Program :

Public Class Form1

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


   buat_tabel()
End Sub



Sub Cek()
Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
   If x = "TS" Then
    Merek.Text = "Toshiba"
     x = Microsoft.VisualBasic.Right(Kode.Text, 3)
     If x = "001" Then
     Harga.Text = "105000"
      Nama.Text = "Flasdisk 4GB" 
     ElseIf x = "002" Then
     Harga.Text = "90000"
     Nama.Text = "Flasdisk 2GB" 
     End If
    ElseIf x = "VG" Then
    Merek.Text = "V-Gen"
     x = Microsoft.VisualBasic.Right(Kode.Text, 3)
     If x = "001" Then
     Harga.Text = "75000"
      Nama.Text = "Flasdisk 4GB" 
     ElseIf x = "002" Then
     Harga.Text = "60000"
     Nama.Text = "Flasdisk 2GB" 
     End If
    End If
End Sub

Sub buat_tabel()
   LV.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Merek", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
   LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
   LV.View = View.Details
   LV.GridLines = True
   LV.FullRowSelect = True
End Sub



Sub isi_tabel()
   Dim lst As New ListViewItem
   lst.Text = No.Text
   lst.SubItems.Add(Kode.Text)
   lst.SubItems.Add(Nama.Text)
   lst.SubItems.Add(Merek.Text)
   lst.SubItems.Add(Harga.Text)
   lst.SubItems.Add(Jmlah.Text)
   lst.SubItems.Add(Total.Text)
   LV.Items.Add(lst)
End Sub


Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
   Call Cek()
End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
   bersih()
End Sub



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



Private Sub Jmlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jmlah.KeyPress
   If e.KeyChar = vbCr Then
   Total.Text = Jmlah.Text * Harga.Text
   End If
End Sub



Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
   isi_tabel()
   bersih()
End Sub



Sub bersih()
   No.Text = ""
   Kode.Text = ""
   Nama.Text = ""
   Merek.Text = ""
   Harga.Text = ""
   Jmlah.Text = ""
   Total.Text = ""
End Sub

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

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

End Sub



End Class 



Hasilnya :

Posted in: Pemrograman Visual