Mencari Nilai Total, Minimum, Maksimum dan Rata-rata dengan Array di VB6

Terinspirasi dengan program Excel kali ini Saya akan membuat sebuah tutorial untuk Mencari Nilai Total, Minimum, Maksimum dan Rata-rata dengan Array VB6.

Kadang kadang saya suka mencari inspirasi dari program Excel ke VB atau sebaliknya dari VB ke Excel untuk saya tulis dalam betuk artikel di blog ini. Judul artikel ini juga termasuk terinspirasi dari Excel.

Kalau kita menggunakan Excel untuk mencari Total menggunakan fungsi SUM, untuk mencari Angka terkecil menggunakan Fungsi MIN, untuk mencari nilai terbesar menggunakan Fungsi MAX dan AVERAGE untuk mencari nilai Rata-rata.

Buat yang suka Excel pelajari tip dan trik Excel di link ini

Lalu bagaimana cara mencari Subtotal, Nilai Minimum, Nilai Maksimum dan Nilai Rata-rata di VB6?, sebenarny banyak cara salah satunya adalah dengan menggunakan Array.

Mencari Nilai Total, Minimum, Maksimum dan Rata-rata dengan Array di VB6

Untuk mencari Nilai yang Saya sebutkan diatas di form Vb6 adalah sebagai berikut:

Buka Form VB 6 Anda

Tanamkan beberapa Label, Commandbuton, Textbox dan ListBox

Desainlah form seperti Gambar dibawah ini

Form Desain

Setelah Anda mendesain Form ketiklah kode dbawah ini :

Dim Data(100) As Single

Dim n As Integer

Private Sub Command1_Click()

jumlah = 0

For i = 1 To n

jumlah = jumlah + Data(i)

Next i

rata2 = jumlah / n

Text2.Text = ""

Text2.Text = "Nilai Rata-rata = " & rata2

End Sub

Private Sub Command2_Click()

datamin = Data(1)

For i = 2 To n

If Data(i) < datamin Then datamin = Data(i)

Next

Text2.Text = ""

Text2.Text = "Nilai Minimum = " & datamin

End Sub

Private Sub Command3_Click()

datamaks = Data(1)

For i = 2 To n

If Data(i) > datamaks Then datamaks = Data(i)

Next

Text2.Text = ""

Text2.Text = "Nilai Maksimum = " & datamaks

End Sub

Private Sub Command4_Click()

If Text1.Text = "" Then

MsgBox "masukan Angka", vbOKOnly, "Perhatian"

Text1.SetFocus

Else

Command1.Enabled = True

n = n + 1

Data(n) = Val(Text1.Text)

List1.AddItem Data(n)

Text1.Text = ""

Text1.SetFocus

End If

End Sub

Private Sub Command5_Click()

Dim total As Long

Dim t As Integer

total = 0

For t = 0 To List1.ListCount - 1

total = total + Val(List1.List(t))

Next

Text3.Text = total

End Sub

Private Sub Command6_Click()

List1.Clear

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Enabled = False

Text3.Enabled = False

Command1.Enabled = False

List1.Enabled = False

n = 0

List1.Clear

Text2.Text = ""

Text3.Text = ""

End Sub

Setelah mengetik kode seperti diatas, lalu jalankan program Anda. Jika tidak ada error silahkan isi pada tekxtbox kosong sebuah angka berapa saja kemudian tekan Simpan, maka angka yang anda masukan akan tersimpan di Listbox, masukan lagi angka kedua klik simpan, masukan lagi angka ketiga klik simpan dan seterusnya sampai sesuai keinginan.

Kemudian tekan tombol masing-masing untuk mengetahui Jumlah Total, Angka Minimum, Angka Maksimum dan nilai Rata-rata, hasilnya akan di tampilkan pada Texbox.Untuk lebih jelasnya perhatikan hasil output berikut ini :

Hasil Output Array

Demikinlah artikel dari Saya tentang cara mencari Total, Minimum, Maksimum dan Rata-rata dengan Array.

Related Post: Array