Cara Menghitung Jumlah Kata Dan Membalikan Goresan Pena Vb6

5 views
Pada kesempatan kali admin akan membuatkan wacana function yang masih bekerjasama dengan string. Pada artikel sebelumnya pernah admin bahas permasalahan wacana function string dengan judul artikel Function String Hilangkan Seluruh Spasi Kalimat | VB6 untuk kali ini agak sedikit berbeda dalam pembahasannya, bagaimana cara menciptakan syntak pada Microsoft Visual Basic 6.0 untuk menghitung jumlah kata pada suatu goresan pena dan cara membalikan tulisan. 
Buatlah project Microsoft Visual Basic 6.0 lalu form dan tambahkan komponen TextBox dan 2 buah CommanButton, copykan syntak function yang pertama adalah 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 adalah 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 simpulan simpan lalu RUN/F5. Inputkan beberapa kata pada textbox yang telah kiat buat pada form lalu klik pada commanButton untuk function menghitung jumlah suku kata dan akan tampil sebuah pesan dengan jumlah suku kata yang dipisahkan menurut spasi ibarat gambar dibawah ini
Kemudian klik juga pada commanbutton yang berisi function membalikan goresan pena dan akan tampil sebuah pesan dengan berisi goresan pena terbalik per suku kata, ibarat gambar dibawah ini : 

Cukup terperinci bukan dari kedua buah function yang gres kita bahas tadi, untuk lebih detailnya sourcode sanggup didownload di LINK INI. Semoga pembahasan kedua buah function ini sanggup memperlihatkan manfaat bagi pembaca sekalian.

Author: 
    author
    No related post!