Mengetahui Rata-Rata, Nilai Maks dan Min Array

Di tutorial sebelumnya kita telah membuat sebuah program Input Nama dengan menggunakan Array, masih sama dengan tutorial sebelumnya, kali ini kita akan membuat prgoram dengan menggunakan fungsi array, yang saya namakan Program Data Penjualan, dimana kita akan menuliskan sebuah data di dalam sebuah list, dan dari data tersebut kita bisa mengetahui nilai rata – rata, Nilai maksimal dan nilai minimalnya, baiklah berikut turotialnya :

1. Pertama jalankan VB dengan program Standar Exe

2. Tambahkan 1 Label, 2 Text box, 4 Command Button dan 1 List Box

3. Ubah Propertesnya seperti ini :

Sehingga menjadi seperti ini :

Tool Box	Properties	Keterangan
Form 1	Caption	Data Penjualan
	Start Up Positions	Center Screen
Lable 1	Caption	Data
Text 1	Text	(Kosong)
Text 2
Text 2	Enabled	False
Command 1	Caption	SIMPAN
Command 2		RATA-RATA
Command 3		Nilai MAKS
Command 4		Nilai MIN

4. Lalu tambahkan script :

Dim Data(100) As Single 'Membuat sebuah array Data untuk data penjualan

Dim n As Integer 'Jumlah data penjualan N

Private Sub Command1_Click()

n = n + 1 'Nilai N selalu bertambah 1 ketika di klik SIMPAN

Data(n) = Val(Text1) 'Nilai dari text1 = dengan nilai dari index N

List1.AddItem Data(n) 'Menambahkan data ke list

Text1.Text = "" 'Mengkosongkan text1

Text1.SetFocus 'Menmpatkan kursor di text1

End Sub

Private Sub Command2_Click() 'Script untuk menghitung rata-rata

jumlah = 0

For i = 1 To n

jumlah = jumlah + Data(i)

Next i

rata2 = jumlah / n

Text2.Text = ""

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

End Sub

Private Sub Command3_Click() 'Script untuk mencari data maksimal

DataMaks = Data(1)

For i = 2 To n

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

Next

Text2.Text = ""

Text2.Text = "Penjualan maksimum = " & DataMaks

End Sub

Private Sub Command4_Click() 'Script untuk mencari nilai minimal

DataMin = Data(1)

For i = 2 To n

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

Next

Text2.Text = ""

Text2.Text = "Penjualan Minimum = " & DataMin

End Sub

Private Sub Form_Load()

n = 0

List1.Clear

End Sub

5. Jika sudah, Jalankan Program :

Cara Kerja :

Tulislah beberapa data berupa angak di text box, lalu klik simpan, maka otomatis list 1 akan menampilkan data yang telah di tuliskan di text 1
Jika data sudah lebih dari 1, klik “RATA-RATA”, Maka otomatis akan menampilkan rata-rata dari semua data yang ada di text2,

begitupun dengan “Nilai MAKS” dan “Nilai MIN”, di  text2 akan menampilkan nilai maksimal dan minimal dari data yang ada di list.

Kesimpulan :

- Anda belajar cara menghitung rata - rata dari sebuah nilai

- Anda belajar cara mencari nilai maksimal dari sebuah data

- Anda belajar cara mencari nilai minimal dari sebuah data

Sekian tutorial kali ini, selamat mencoba