Cara Mengurutkan Abjad di vb6

Pada artikel kali ini saya akan berbagi trik bagaiamana cara mengurutkan abjad dengan vb6.

Dimana dalam sebuah Tebox Saya akan mengisi abjad secara acak kemudian dengan menekan tombol Proses maka ajad yang tidak berurut sebagaimana mestinya akan menjadi berurut mulai dari A-Z.

Berikut dibawah ini adalah cara mengurutkan abjad di VB6

1. Buka Form VB6 Anda pilih Standar Exe

2. Pada Form1 tambahkan 2 TextBox dan 1 Commandbutton

3. Kemudian ketik kode dibawah ini di jendela kode

Private Sub Command1_Click()

Dim abjad() As String, ar As Integer, br As Integer, abjadtemp As String

Text2.Text = ""

ReDim abjad(Len(Text1.Text) - 1)

For ar = 1 To Len(Text1.Text)

    abjad(ar - 1) = Mid(Text1.Text, ar, 1)

   Next ar

    

    For ar = LBound(abjad) To UBound(abjad)

    For br = LBound(abjad) To UBound(abjad) - 1

        If abjad(br) > abjad(br + 1) Then

            abjadtemp = abjad(br + 1)

            abjad(br + 1) = abjad(br)

            abjad(br) = abjadtemp

        End If

    Next br

    Next ar

    

    For ar = LBound(abjad) To UBound(abjad)

        Text2.Text = Text2.Text & abjad(ar)

        Next ar

End Sub

Private Sub Form_Load()

Text1.Text = "ASDFGHJKLQWERTYUIOPZXCVBNM"

Text2.Text = ""

End Sub

4. Sekarng coba jalankan Project Anda, jika tidak ada erorr maka hasilnya akan tampak pada gambar dibawah ini:

Output

 

Demikianlh artikel singkat pada hri ini, semoga bermanfaat buat kita semua.Amin

Selamat mencoba semoga sukses...

Related Post: Uncategories