Aplikasi Penghitung Jumlah Kata Pada Artikel

Penghitung Jumlah Kata ini masih sangat minimalis sekali tanpa adanya gambar apa – apa yang saya buatkan.Pada Aplikasi Penghitung Jumlah Kata Pada Artikel yang saya buatkan ini,selain untuk menghitung Jumlah Kata saya juga membuatkan untuk menghitung jumlah karakter dan jumlah spasi dengan 1 kali klik saja.
Bagaimana ?? Penasaran ?? Berikut akan saya berikan source code Aplikasi Penghitung Jumlah Kata Pada Artikel.
Penghitung Jumlah Kata
Berikut ini adalah source code dari Aplikasi Penghitung Jumlah Kata yang saya buatkan untuk teman – teman pembaca setia blog sederhana saya ini :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Private Sub Command1_Click() 'jalan Dim i, jmlA, jmlB As Integer Dim a, b As String Dim nItem As Integer Dim aItem As Variant Dim sTeks As String If Text1 . Text = "" Then Text1 . SetFocus Exit Sub End If 'Tampilkan Jumlah Kata a = Text1 . Text jmlA = 1 For i = 1 To Len(Trim$(a)) If Asc(Mid(a, i, 1 )) = 13 Or Asc(Mid(a, i, 1 )) = 32 Then jmlA = jmlA + 1 Next i Text2 = jmlA 'Tampilkan Jumlah Karakter Text3 = Len(Text1) 'Tampilkan Jumlah spasi sTeks = Text1 aItem = Split(sTeks, " ") nItem = UBound(aItem) Text4 = nItem End Sub Private Sub Command2_Click() 'keluar End End Sub Private Sub Command3_Click() 'clear Text1 . Text = "" Text2 . Text = "" Text3 . Text = "" Text4 . Text = "" Text1 . SetFocus End Sub Private Sub Form_Load() Text1 . Text = "" End Sub |
Diatas tadi adalah sebuah script sederhana yang saya buatkan untuk Aplikasi Penghitung Jumlah Kata Pada Artikel.Jika teman – teman bingung,project tersebut bisa didapatkan pada link berikut yang sudah saya upload berikut ini Aplikasi Penghitung Jumlah Kata Pada Artikel.
Sekian
informasi sederhana saya ini,semoga dengan adanya artikel ini teman –
teman semua terbantu.Jika ada yang ingin ditanyakan silahkan berkomentar
pada kolom komentar setelah artikel Aplikasi Penghitung Jumlah Kata Pada Artikel.