Aplikasi Penghitung Jumlah Kata Pada Artikel

Aplikasi Penghitung Jumlah Kata Pada ArtikelAplikasi Pada Artikel – Pada kesempatan kali ini saya akan sedikit memberikan informasi mengenai Aplikasi Pada Artikel.Aplikasi ini diperuntukan untuk teman – teman semua yang sering mengikuti kontes SEO yang mengharuskan Jumlah Kata Pada Artikel dengan ketentuannya.Oleh karena itu saya membuat sebuah .

Penghitung Jumlah Kata ini masih sangat minimalis sekali tanpa adanya gambar apa – apa yang saya buatkan.Pada  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.

Baca Juga  Menghitung Selisih Tanggal Menggunakan VB 6

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 :

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.

Baca Juga  Base64 Decode / Encode Using VB 6

Leave a Reply

Your email address will not be published. Required fields are marked *