Pages

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

3 comments:

 

Blogger news

About Me

My photo
Palembang, Sumatera Selatan, Indonesia
Seorang yang ingin terus belajar.