Friday, April 8, 2016

Source Code VB 6 Menghitung Total Angka List Box

Sourcu Code VB 6 Menghitung Total Jumlah Angka Di Dalam List - Menghitung Jumlah Total Nominal Pada ListBox. Menjumlahkan angka di dalam listbox pada visual basi 6 sangatlah mudah di ingat, namun anda harus mempelajarinya dulu. Berikut source code VB 6 Menghitung Total Jumlah Angka Di Dalam List.


Source Code VB 6 Menghitung Total Angka List Box


Sebelum membuat penghitung jumlah nominal angka yang ada di dalam listbox, terlebih dahulu anda harus memahami dulu toolbox pada visual basic 6.0, bagi yang sudah paham, penulis ucapkan syukur, tapi jika yang belum tahu simak dulu rentetan kata dan gambar dibawah ini:

Sourcu Code VB 6 Menghitung Total Jumlah Angka Di Dalam List
Sourcu Code VB 6 Menghitung Total Jumlah Angka Di Dalam List

Klik ganda listbox seperti gambar diatas untuk meletakkan list1 ke form,
kemudian klik ganda form, untuk menampilkan code pengetikan
kemudian anda masukkan conding dibawah ini:

Private Sub Form_Load()
Dim a, i As Integer
Dim totalbelanja As Long
For a = 1000 To 1050
List1.AddItem a
Next a
totalbelanja = 0
   For i = 0 To List1.ListCount - 1
      totalbelanja = totalbelanja + Val(List1.List(i))
   Next
Me.Caption = totalbelanja
End Sub

Setelah itu silakan agan jalankan, MAKA hasilnya sebagai berikut:

Sourcu Code VB 6 Menghitung Total Jumlah Angka Di Dalam List
Sourcu Code VB 6 Menghitung Total Jumlah Angka Di Dalam List

****  SELAMAT MENCOBA ****

No comments:

Post a Comment