Contoh Mencari Nilai Maximum Dari Array VB6

Berikut ini adalah contoh mencari nilai maximum 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.
          'Contoh data yang diurutkan dari recordset, namun tidak sesuai dengan
          'urutan yang diharapkan adalah sbb:
          '- BS-1/1
          '- BS-1/10
          '- BS-1/11

          '- BS-1/2
          '- BS-1/3
          '- BS-1/4
          '- BS-1/5

          '- BS-1/6
          '- BS-1/7
          '- BS-1/8
          '- BS-1/9

          'dst...
          'Sementara sebenarnya Anda hanya ingin mengambil data setelah
          'karakter garis miring, maka kita tidak mengetahui bahwa sebenarnya
          'nilai maksimum-nya adalah 11, tapi dalam hal ini, seolah-olah
          'nilai maksimum-nya adalah 9. Hal ini berdasarkan pengalaman

          'yang pernah saya alami sendiri...

          Private Sub Command1_Click()
          Dim arrData(10) As Integer

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

            Max = 0
            '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 besar dari Max
              If arrData(i) > Max Then

                 'Tampung nilai Max
                 Max = arrData(i)
              Else 'Jika tidak...
                 'Nilai Max masih tetap yang sebelumnya

                 Max = Max
              End If 'Akhir pemeriksaan isi array
            Next i
            'Tampilkan nilai maksimal setelah selesai iterasi

            MsgBox "Nilai maksimum = " & Max, _
                   vbInformation, "Maksimum"
          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