Contoh Mencari Nilai Rata-Rata Dari Array VB6

Berikut ini adalah contoh mencari nilai rata-rata dari sekumpulan data yang direpresentasikan dalam bentuk array statis.di visual basic 6, untuk mempraktekannya siapkan : 

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
 2. Copy-kan coding berikut ke dalam editor Form yang bertalian.

          Private Sub Command1_Click()

          Dim i As Integer, Total As Long
          'Karena kita menggunakan array statis, maka kita harus
          'menggunakan constanta tertentu untuk menentukan banyaknya
          'elemen array. Jika kita menggunakan: Dim JlhBil As Integer

          '(misalnya), maka akan terjadi error saat run-time
          'yang menunjuk baris: Dim arrData(JlhBil) As Integer
          Const JlhBil As Integer = 10
            Dim arrData(JlhBil) As Integer

            'Isi elemen array arrData
            arrData(0) = 12
            arrData(1) = 500
            arrData(2) = 92
            arrData(3) = 262

            arrData(4) = 112
            arrData(5) = 152
            arrData(6) = 887
            arrData(7) = 10

            arrData(8) = 120
            arrData(9) = 12
            'Inisialisasi variabel Total
            Total = 0

            'Bersihkan form
            Form1.Cls
            'Iterasi bilangan untuk menjumlah
            For i = 0 To 9
              'Cetak data-nya ke layar

              Print arrData(i)
              'Jumlahkan semua bilangan...
              Total = Total + arrData(i)
            Next i

            'Tampilkan jumlah semua bilangan
            MsgBox "Jumlah seluruh bilangan = " & Total, _
                   vbInformation, "Total"
            'Tampilkan nilai rata-rata setelah selesai iterasi

            MsgBox "Rata-rata = " & Total / 10 & "" & vbCrLf & _
                   "yang diperoleh dari:" & vbCrLf & _
                   "perhitungan: " & Total & "/" & JlhBil & "", _
                   vbInformation, "Rata-rata"
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module