Menghitung Selisih Tanggal Menggunakan VB 6

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.

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.

KASIH RATE YUK!
4 5
Oleh


Leave a Reply

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