Cara Mengurutkan Abjad Pada VB

Berikut adalah Source Code bagaimana cara untuk Mengurutkan Ajad Pada VB 6.0 :

Private Sub Command1_Click()
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()
Text1.Text = "QWERTYUIOPASDFGHJKLZXCVBNM"
Text2.Text = ""
End Su

Anda bisa memasukan Coding diatas pada Form yang anda buat pada VB 6.0


Salam Pembelajar
Pintar VB | Tutorial Lengkap VB 6.0 dan VB Net

Tweet