[ Source ] Simple Penghitung Jumlah kata with VB6

Welcome To GENETIK [ Generasi Teknik Informatika ] :

Hallo Semua Sobat Inside Lovers, kali ini Blog's GENETIK [ Generasi Teknik Informatika ] akan memposting [ Source ] Simple Penghitung Jumlah kata with VB6,
oke tanpa basa basi lagi liat tutorialnya di bawah :

Yuk langsung saja Ke code :

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


Silakan Build Source Ini Pke Visualbasic
^^ Selamat Mencoba Agan"