Menghitung Nilai Jumlah Dan Nilai Rata-Rata Bilangan Pada Array

24 views
Array yaitu sekumpulan data bertipe sama dan berurutan tertentu yang memiliki nama sama. Nilai-nilai data tersebut pada suatu baris dibedakan dengan memakai suatu index. Index tersebut didalam bahasa pemrograman khususnya Visual Basic 6.0 (VB6) sanggup perulangan For…Next, Do While……Wend dan lain-lain. Penulisan artikel kali ini admin akan menciptakan sebuah syntak bagaimana menghitung nilai jumlah keseluruhan dan nilai rata-rata pada sebuah bilangan memakai Array. Buka Ms. Visual Basic 6.0 (VB) lalu buatlah sebuah project dan tambahkan form. Untuk Caption Form sanggup ditambahkan goresan 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 lalu klik CommandButton maka jadinya ibarat dibawah ini


Form diatas merupakan hasil dari syntak perhitungan nilai keseluruhan dan nilai rata-rata dengan memakai array diatas, semoga artikel pendek kali ini sanggup bermanfaat bagi pembaca sekalian.
Author: 
    author
    No related post!