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 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 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

Comments