Mengetahui Rata-Rata, Nilai Maks Dan Min Array

Di tutorial sebelumnya kita telah menciptakan sebuah kegiatan Input Nama dengan memakai Array, masih sama dengan tutorial sebelumnya, kali ini kita akan menciptakan prgoram dengan memakai fungsi array, yang aku namakan Program Data Penjualan, dimana kita akan menuliskan sebuah data di dalam sebuah list, dan dari data tersebut kita dapat mengetahui nilai rata – rata, Nilai maksimal dan nilai minimalnya, oke berikut turotialnya :

1. Pertama jalankan VB dengan kegiatan Standar Exe

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

3. Ubah Propertesnya menyerupai ini :

Sehingga menjadi menyerupai 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 saat 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, kemudian 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 berguru cara menghitung rata - rata dari sebuah nilai

- Anda berguru cara mencari nilai maksimal dari sebuah data

- Anda berguru cara mencari nilai minimal dari sebuah data

Sekian tutorial kali ini, selamat mencoba