Thursday, June 24, 2010

Menghitung Jumlah Total Nominal Pada ListBox

Fungsi berikut untuk menghitung Total_Belanja pada ListBox:

Private Sub Hitung()
   Dim totalbelanja As Long
   totalbelanja = 0
   For t As Integer = 0 To ListBox1.Items.Count - 1
      totalbelanja = totalbelanja + Val(ListBox1.Items.Item(t))
   Next
   Label1.Text = totalbelanja
End Sub

2 comments:

  1. Yang untuk Vb 6.0 gimana gan??
    ga ada pilihan listbox1.items..

    ReplyDelete
  2. Sorry gan kalo blog ini untuk pemrograman vb.net :D

    ReplyDelete