Lompat ke konten Lompat ke sidebar Lompat ke footer

Contoh Pengurutan (Sort Ascending) Dengan Array VB6

Berikut ini adalah contoh pengurutan (sort ascending) dengan menggunakan array di visual basic 6, untuk mempraktekannya siapkan : 
1. Buat 1 Project baru dengan 1 Form, 1 Commandbutton, dan 2 TextBox.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.
          Option Explicit

          Private Sub Command1_Click()
            'Ketika Command1 diklik, maka kumpulan abjad di Text1
            'akan diurutkan dari terkecil hingga abjad yang terbesar
            'dan hasilnya ditampilkan di Text2 menjadi:
            'ABCDEFGHIJKLMNOPQRSTUVWXYZ

            Dim sAbjad() As String, ar As Integer, br As Integer, _
              sAbjadTemp As String
            Text2.Text = ""
            ReDim sAbjad(Len(Text1.Text) - 1)

            For ar = 1 To Len(Text1.Text)
              sAbjad(ar - 1) = Mid(Text1.Text, ar, 1)
            Next ar
            For ar = LBound(sAbjad) To UBound(sAbjad)

              For br = LBound(sAbjad) To UBound(sAbjad) - 1
                If sAbjad(br) > sAbjad(br + 1) Then
                  sAbjadTemp = sAbjad(br + 1)
                  sAbjad(br + 1) = sAbjad(br)
                  sAbjad(br) = sAbjadTemp

                End If
              Next br
            Next ar
            For ar = LBound(sAbjad) To UBound(sAbjad)

              Text2.Text = Text2.Text & sAbjad(ar)
            Next ar
          End Sub


          Private Sub Form_Load()
            'Mula-mula, kumpulan abjad di Text1 belum urut...
            Text1.Text = "QWERTYUIOPASDFGHJKLZXCVBNM"
            Text2.Text = ""
          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 Pengurutan (Sort Ascending) Dengan Array VB6"