Menghitung Nilai Jumlah Dan Nilai Rata-Rata Bilangan Pada Array
Array ialah sekumpulan data bertipe sama dan berurutan tertentu yang mempunyai nama sama. Nilai-nilai data tersebut pada suatu baris dibedakan dengan menggunakan suatu index. Index tersebut didalam bahasa pemrograman khususnya Visual Basic 6.0 (VB6) mampu perulangan For…Next, Do While……Wend dan lain-lain. Penulisan artikel kali ini admin akan membuat sebuah syntak bagaimana menghitung nilai jumlah keseluruhan dan nilai rata-rata pada sebuah bilangan menggunakan Array. Buka Ms. Visual Basic 6.0 (VB) kemudian buatlah sebuah project dan tambahkan form. Untuk Caption Form mampu ditambahkan tabrakan pena sesuai selera atau dibiarkan secara default juga tidak menjadi masalah. Pada area form tambahkan juga 1 (satu) buah komponen CommandButton.
Setelah itu double klik pada CommandButton dan copas syntak dibawah ini
Dim i As Integer, Total As Long
Const JlhBil As Integer = 10
Dim arrData(JlhBil) As Integer
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
Total = 0
Form1.Cls
For i = 0 To 9
Print arrData(i)
Total = Total + arrData(i)
Next i
Print “————————————————–“
Print “Grand Total bilangan = ” & Total
Print “————————————————–“
Print “Rata-rata = ” & Total / 10 & “” & vbCrLf & _
“dari perhitungan: ” & Total & ” / ” & JlhBil
Sekarang kita coba RUN/F5 kemudian klik CommandButton maka risikonya menyerupai dibawah ini
Form diatas merupakan hasil dari syntak perhitungan nilai keseluruhan dan nilai rata-rata dengan menggunakan array diatas, semoga artikel pendek kali ini mampu bermanfaat bagi pembaca sekalian.
