EDUCATION

Mungkin sudah banyak yach program-program yang seperti ini, :p tapi tidak apa-apalah, ini cuma sharing buat temen-temen yang memerlukan saja., dan lebih bagus berkreasi dengan desain-desain yang bagus....!!!
dalam data penjualan ini akan menggunakan fungsi array.
Selanjutnya silahkan atur form seperti diatas.

pada tombol simpan di isikan code :

Private Sub Command1_Click()
'proses simpan data ke erray
n = n + 1
jual(n) = Trim(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End Sub

Pada saat tombol simpan di klik, maka data yang di inputkan telah tersimpan, tapi belum di tampilkan.
Nah untuk menampilkan data yang telah di inputkan tadi klik tmobol "tampil"

Private Sub Command2_Click()
'Tampilkan ke list
List1.Clear
For i = 1 To n
List1.AddItem jual(i)
Next i
End Sub

Dengan memasukkan perintah tersebut, maka akan tampil pada list,data-data yang yang telah di inputkan sebelumnya.

Nah berikut untuk menampilkan harga tertinggi pada list tersebut. waktu membuat harga tertinggi ini mungkin aga membingungkan karna susah juga lho.. heeh..

klik tombol "harga tertinggi"

Private Sub Command3_Click()
'Menghitung nilai maksimal dari data
jualMaks = jual(1)
For i = 2 To n
If jual(i) > jualMaks Then jualMaks = jual(i)
Next
List1.AddItem ""
List1.AddItem "Harga tertinggi = " & jualMaks

End Sub

dan harga terendah:

Private Sub Command4_Click()
'Menghitung nilai minimal dari data
jualMin = jual(1)
For i = 2 To n
If jual(i) < jualMin Then jualMin = jual(i)
Next
List1.AddItem ""
List1.AddItem "Harga terendah = " & jualMin

End Sub

mencari nilai rata-rata:

Private Sub Command5_Click()
jumlah = 0
For i = 1 To n
jumlah = jumlah + jual(i)
Next i
rata2 = jumlah / n
List1.AddItem ""
List1.AddItem "Rata-rata = " & rata2
End Sub

Untuk coding berikutnya mungkin temen juga bisa...
Mungkin Berguna juga ,,,