YUK! Belajar Pemprograman di Mesran.net

Public Class Form1

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

     kB.items.add("ts001")

     kB.items.add("ts002") 

     kB.items.add("vg001") 

     kB.items.add("vg002")

end sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click  

       NP.text=""

       KB.text=""

       NB.text=""

       MK.text=""

       HG.text=""

       JB.text=""

       TH.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 KB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB.Click

      dim x as string

      dim Y as string

     X=microsoft.visual basic.left(KB.text,2)

     X=microsoft.visual basic.right(KB.text,3)

   select case X 

         case "ts" = MK.text="toshiba" 

         case "VG" = MK.text="V-gen"  

   end select

select case Y

   case"001"=NB.text="flasdisk 1GB"

   case"002"=NB.text="flasdisk 2GB" 

end select

   if X="TS" end Y="001" then

         HG.text="10500"

    else if X="ts" and Y="002" then

         HG.text="90000"

end if 



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

        NP.Text = ""

        KB.Text = ""

        NB.Text = ""

        MK.Text = ""

        HG.Text = ""

        JB.Text = ""

        TH.Text = ""

    End Sub

    Sub buattabel()

        LV.Columns.Add("NO.pembelian", 50, HorizontalAlignment.Left)

        LV.Columns.Add("Kode barang", 60, HorizontalAlignment.Left)

        LV.Columns.Add("nama barang", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji", 60, HorizontalAlignment.Left)

        LV.Columns.Add("Jumlah Beli", 60, HorizontalAlignment.Left)

        LV.Columns.Add("total harga", 60, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = KB.Text

        lst.SubItems.Add(NP.Text)

        lst.SubItems.Add(KB.Text)

        lst.SubItems.Add(NB.Text)

        lst.SubItems.Add(MK.Text)

        lst.SubItems.Add(HG.Text)

        lst.SubItems.Add(JB.Text)

        lst.SubItems.Add(TH.Text)

        Lv.Items.Add(lst)

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        isitabel()

    End Sub

    Private Sub hapusygdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusygdipilih.Click

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

    End Sub

    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click

        LV.Items.Clear()

    End Sub

End Class