Aplikasi Pembalik Kata Dengan VB6

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 

Tuh di dalem kodenya udah ane kasih penjelasan dari setiap bait. Tapi penjelasannya gausah diapus, itu buat keterangan :D

Oke sekian dari ane, jika ada yang ingin ditanyakan, tanya aja melalui fitur komentar di situs JagoCoding ini :D