Cara Membalikkan Tulisan di Suatu Kata/Kalimat VB6

Berikut ini adalah cara membalikkan tulisan di suatu kata/kalimat di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form
2. Tambahkan 1 TextBox dan 1 CommandButton.
3. Copy-kan coding berikut ke dalam editor form yang bertalian

          Private Sub Command1_Click()
            Text1.Text = BalikkanString(Text1.Text)
          End Sub

          Function BalikkanString(strKalimat As String) As String
          Dim i As Integer, Panjang As Integer
          Dim strTampung As String
            Panjang = Len(strKalimat)

             For i = Panjang To 1 Step -1
                strTampung = strTampung & Mid(strKalimat, i, 1)
             Next i
             BalikkanString = strTampung
          End Function

          Private Sub Form_Load()
            Text1.Text = "Masino Sinaga"
          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