Cara Menghitung Jumlah Kata dan Membalikan Tulisan VB6

Pada kesempatan kali admin akan berbagi tentang function yang masih berhubungan dengan string. Pada artikel sebelumnya pernah admin bahas permasalahan tentang function string dengan judul artikel Function String Hilangkan Seluruh Spasi Kalimat | VB6 untuk kali ini agak sedikit berbeda dalam pembahasannya, bagaimana cara membuat syntak pada Microsoft Visual Basic 6.0 untuk menghitung jumlah kata pada suatu tulisan dan cara membalikan tulisan. 

Buatlah project Microsoft Visual Basic 6.0 kemudian form dan tambahkan komponen TextBox dan 2 buah CommanButton, copykan syntak function yang pertama yaitu menghitung jumlah kata.

Public Function GetWordCount(ByVal Text As String) _
As Long
    Text = Trim(Replace(Text, "-" & vbNewLine, ""))
    Text = Trim(Replace(Text, vbNewLine, " "))
    Do While Text Like "*  *"
        Text = Replace(Text, "  ", " ")
    Loop
    GetWordCount = 1 + UBound(Split(Text, " "))

End Function

Untuk selanjutnya yaitu syntak function membalikan tulisan

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

Setelah selesai, pada commanbutton yang pertama double klik dan panggil syntak function menghitung jumlah kata

MsgBox GetWordCount(Text1.Text), 64, "Hitung Jumlah Suku Kata"

Kemudian diteruskan pada CommanButton yang kedua function untuk membalikan tulisan

MsgBox BalikkanString(Text1.Text), 64, "Membalikan Tulisan" 

Setelah selesai simpan kemudian RUN/F5. Inputkan beberapa kata pada textbox yang telah kiat buat pada form kemudian klik pada commanButton untuk function menghitung jumlah suku kata dan akan tampil sebuah pesan dengan jumlah suku kata yang dipisahkan berdasarkan spasi seperti gambar dibawah ini

Kemudian klik juga pada commanbutton yang berisi function membalikan tulisan dan akan tampil sebuah pesan dengan berisi tulisan terbalik per suku kata, seperti gambar dibawah ini : 

Cukup jelas bukan dari kedua buah function yang baru kita bahas tadi, untuk lebih detailnya sourcode bisa didownload di LINK INI. Semoga pembahasan kedua buah function ini dapat memberikan manfaat bagi pembaca sekalian.