Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

http://www.mesran.blogspot.com/2013/05/latihan-listview-perhitungan-penjualan.html

Public Class Form1

 

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   Kode.items.add("KS001")
   Kode.items.add("KS002")
   Kode.items.add("KS003")
   Kode.items.add("SD001")
   Kode.items.add("SD002")
   Kode.items.add("SD003")
   Kode.items.add("TS001")
   Kode.items.add("TS002")
   Kode.items.add("TS003")

   Call Settable() 
 End Sub
 

 Sub settable()

       LV.Columns.Add("NO", 100, HorizontalAlignment.Center)

       LV.Columns.Add("Kode", 100, HorizontalAlignment.Center)

       LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)

       LV.Columns.Add("Merk", 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 isitable()

         Dim x As New ListViewItem

       x.Text = NO.Text

       x.SubItems.Add(Kode.Text)

       x.SubItems.Add(Nama.Text)

       x.SubItems.Add(Merk.Text)

       x.SubItems.Add(Harga.Text)

       x.SubItems.Add(Jumlah.Text)

       x.SubItems.Add(Total.Text)

       LV.Items.Add(x)

    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.Mid(Kode.Text, 1, 2)

          If x = "KS" Then

             Merk.Text = "Kingston"

          ElseIf x = "SD Then

             Merk.Text = "SanDisk"

     ElseIf x = "TS Then

             Merk.Text = "Toshiba"

          End If

        x = Microsoft.VisualBasic.Mid(Kode.Text, 3, 3)

          If x = 001 Then

            Nama.Text = "Flashdisk 8GB"

          ElseIf x = 002 Then

            Merek.Text = "Flashdisk 4GB"

          ElseIf x = 003 Then

            Merek.Text = "Flashdisk 2 GB"

          End If

    Select Case Kode.Text

          Case "KS001"

            Harga.Text = 120000

          Case "KS002"

             Harga.Text = 70000

          Case "KS003"

             Harga.Text = 50000

          Case "SD001"

             Harga.Text = 90000

          Case "SD002"

            Harga.Text = 70000

          Case "SD003"

            Harga.Text = 60000

    Case "TS001"

             Harga.Text = 130000

          Case "TS002"

            Harga.Text = 80000

          Case "TS003"

            Harga.Text = 70000

        End Select

  End Sub

Private Sub Jumlah_KeyPress(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.KeyPress

    If ASC(e.KeyChar)=13 Then

      Call Isi Table

    End If 

 Private Sub TSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSimpan.Click

           Call isitable()

   End Sub

 Private Sub THapus_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THapus.Click

     If LV.SelectedItems.Count <> 0 Then

           LV.Items.Remove(LV.SelectedItems(0))

     Else

           MsgBox("Silahkan Pilih Listnya")

     End If

  End Sub

 Private Sub THapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBatal.Click

      NO.Text = ""

      Kode.Text = ""

      Nama.Text = ""

      Merek.Text = ""

      Harga.Text = ""

      Jumlah.Text = ""

      Total.Text = ""

  End Sub

 Private Sub TBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBersih.Click

   LV.Items.Clear()

 

 Private Sub TKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKeluar.Click

       Dim x As String

         x = MsgBox("Tekan OK Jika Anda Ingin Keluar", MsgBoxStyle.OkCancel, "Pesan")

       If x = vbOK Then

           Me.Close()

       End If

  End Sub

End Class

Demikian Postingan Saya :-)
Nama : Franto Agustinus
NPM:13110826