Tutorial Membuat Aplikasi Pembalik Kata Dengan VB6

Hai gan! Lama tak berjumpa dengan kalian 😀 kali ini saya akan memberikan sebuah tutorial sederhana dari visual basic 6. Yaitu tentang tata cara membuat aplikasi pembalik kata dengan benar. Sebenernya saya membuat apps ini hanya untuk iseng iseng saja, tapi lumayan buat pembelajaran dari bahasa pemrogrammannya, dengan alasan alasan mengapa bisa membuat kata terbalik.

Step 1:
buka dulu dong visual basic 6 nya, terus create new exe / new exe project. hehe

Step 2:
siapin 1 textbox, dan 1 commandbutton

step 3:
klik kanan pada mouse tepat di form1. Kemudian klik view code. Ctrl + a terus klik delete / ganti semua code dengan code ini:

Option Explicit
 
Private Sub Command1_Click()
 
On Error Resume Next
 
Dim kata As String
Dim gabung As String
Dim hitung As Integer
Dim arraykata
 
'Text1.Text mengambil text di dalam textbox Text1 nama dari textbox.
kata = Text1.Text
 
'Hapus spasi jika ada di awal dan akhir kata.
kata = Trim$(kata)
 
'Buat kata menjadi array dan spasi sebagai pembatasnya.
arraykata = Split(kata, " ", , vbTextCompare)
 
'Buat perulangan dari nilai terkecil sampai nilai terbesar di variabel "arraykata".
For hitung = LBound(arraykata) To UBound(arraykata)
 
    'Jika string di dalam array tidak kosong maka...
    If Trim$(arraykata(hitung)) <> "" Then
        'Balik kata-kata di variabel "arraykata" dan masukan ke dalam variabel "gabung"
        gabung = gabung & StrReverse(arraykata(hitung)) & " "
    End If
     
    'Proses Event selanjutnya.
    DoEvents
     
'Lanjutkan menghitung.
Next hitung
 
'Hapus spasi jika ada di awal dan akhir kata pada variabel "gabung".
gabung = Trim$(gabung)
 
'Cetak semua kata di variabel "gabung" ke dalam TextBox.
Text1.Text = ""
Text1.Text = gabung
End Sub