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 BoxPropertiesKeterangan
Form 1CaptionData Penjualan
Start Up PositionsCenter Screen
Lable 1CaptionData
Text 1Text(Kosong)
Text 2
Text 2EnabledFalse
Command 1CaptionSIMPAN
Command 2RATA-RATA
Command 3Nilai MAKS
Command 4Nilai 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

2 Responses to "Mengetahui Rata-Rata, Nilai Maks dan Min Array"

  1. Gan, kenapa utk min dan max nilai for i = 2 to n? Kalau diganti dgn for i = 0 to n bisa nggak utk max dan min?

    ReplyDelete
  2. Bisa gan, tapi hanya untuk nilai maksimal saja
    Karena jika di pakai untuk nilai minimal, pencarian data akan di mulai dari data ke 0, dimana data ke 0 ini memiliki nilai 0, sehingga hasil untuk nilai minimal akan selalu nol

    ReplyDelete