Cara Menghitung Jumlah Kata Yang Terdapat Di Dalam Textbox VB6

Berikut ini adalah cara menghitung jumlah kata yang terdapat di dalam textbox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Textbox, dan 1 Commandbutton
2. Set property textbox MultiLine = True.
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Sub Command1_Click
            'Ketikkan beberapa buah kalimat yang cukup panjang sehingga
            'mengandung sampai puluhan bahkan ratusan kata untuk mencoba

            'fungsi menghitung kata di bawah.
            MsgBox GetWordCount(Text1.Text)
          End Sub

          Public Function GetWordCount(ByVal Text As String) As Long
              'Definisikan sebuah tanda hubung pada setiap akhir baris yang
              'merupakan bagian dari seluruh kata, jadi kombinasikan bersama.
              Text = Trim(Replace(Text, "-" & vbNewLine, ""))
              'Ganti baris baru dengan sebuah space tunggal

              Text = Trim(Replace(Text, vbNewLine, " "))
              'Ganti spasi yang lebih dari satu (jika ada) menjadi spasi tunggal
              Do While Text Like "*  *"
                  Text = Replace(Text, "  ", " ")

              Loop
              'Pisahkan string dan kembalikan kata yang dihitung
              GetWordCount = 1 + UBound(Split(Text, " "))  
          End Function

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