Contoh Mencari Nilai Minimum Dari Array VB6
Berikut ini adalah contoh mencari nilai minimum dari array statis di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor Form yang bertalian.
Private Sub Command1_Click()
Dim arrData(10) As Integer
Dim Min As Integer, i As Integer
'Isi elemen array arrData
arrData(0) = 12
arrData(1) = 500
arrData(2) = 92
arrData(3) = 262
arrData(4) = 112
arrData(5) = 152
arrData(6) = 887
arrData(7) = 10
arrData(8) = 120
arrData(9) = 12
'Inisialisasi variabel Min
Min = 32767
'Mengapa 32767...? Tentu Anda bertanya demikian?
'Jawabnya: Karena tipe data yang kita gunakan untuk
' variabel Min adalah Integer, dan memiliki
' jangkauan nilai dari - 32768 sampai dengan
' 32767. Nilai ini bisa Anda perbesar jika
' Anda menggunakan tipe data Long (misalnya).
'Lalu Anda mungkin bertanya lagi: Mengapa nilai terbesar
'diambil? Jawabnya: Karena kita akan membandingkan dengan
'nilai lainnya yang belum diketahui, jadi kita inisialisasikan
'nilai variabel pembanding dengan nilai terbesar dari range
'tipe data yang kita gunakan. Bandingkan dengan tips
'"Cari Nilai Maksimum".
'Bersihkan form
Form1.Cls
'Periksa semua isi array
For i = 0 To 9
'Cetak data-nya ke layar
Print arrData(i)
'Jika array indeks ke-i lebih kecil dari Min
If arrData(i) < Min Then
'Tampung nilai Min
Min = arrData(i)
Else 'Jika tidak...
'Nilai Min masih tetap yang sebelumnya
Min = Min
End If 'Akhir pemeriksaan isi array
Next i
'Tampilkan nilai minimum setelah selesai iterasi
MsgBox "Nilai minimum = " & Min, _
vbInformation, "Minimum"
End Sub
Tags:
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor Form yang bertalian.
Private Sub Command1_Click()
Dim arrData(10) As Integer
Dim Min As Integer, i As Integer
'Isi elemen array arrData
arrData(0) = 12
arrData(1) = 500
arrData(2) = 92
arrData(3) = 262
arrData(4) = 112
arrData(5) = 152
arrData(6) = 887
arrData(7) = 10
arrData(8) = 120
arrData(9) = 12
'Inisialisasi variabel Min
Min = 32767
'Mengapa 32767...? Tentu Anda bertanya demikian?
'Jawabnya: Karena tipe data yang kita gunakan untuk
' variabel Min adalah Integer, dan memiliki
' jangkauan nilai dari - 32768 sampai dengan
' 32767. Nilai ini bisa Anda perbesar jika
' Anda menggunakan tipe data Long (misalnya).
'Lalu Anda mungkin bertanya lagi: Mengapa nilai terbesar
'diambil? Jawabnya: Karena kita akan membandingkan dengan
'nilai lainnya yang belum diketahui, jadi kita inisialisasikan
'nilai variabel pembanding dengan nilai terbesar dari range
'tipe data yang kita gunakan. Bandingkan dengan tips
'"Cari Nilai Maksimum".
'Bersihkan form
Form1.Cls
'Periksa semua isi array
For i = 0 To 9
'Cetak data-nya ke layar
Print arrData(i)
'Jika array indeks ke-i lebih kecil dari Min
If arrData(i) < Min Then
'Tampung nilai Min
Min = arrData(i)
Else 'Jika tidak...
'Nilai Min masih tetap yang sebelumnya
Min = Min
End If 'Akhir pemeriksaan isi array
Next i
'Tampilkan nilai minimum setelah selesai iterasi
MsgBox "Nilai minimum = " & Min, _
vbInformation, "Minimum"
End Sub
Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module
Posting Komentar untuk "Contoh Mencari Nilai Minimum Dari Array VB6"