Coba pake function ini:
Public Function JumlahKar(source As String, cari As String)
Dim i As Integer
Dim counter As Integer
counter = 0
For i = 1 To Len(source)
a = Mid(source, i, Len(cari))
If a = Trim(cari) Then counter = counter + 1
Next i
JumlahKar = counter
End Function
source adalah parameter dari string yang mau dicari jumlah karakternya
(misalnya: Indonesia Raya), cari adalah parameter karakter/string yang mau
dihitung jumlahnya dalam source (misalnya: "A")
AHMAD SUDRAJAT <[EMAIL PROTECTED]> wrote:
Halo semua salam kenal !!
Saya punya pertanyaan nih, tolong bantu ya
Gimana cara mencari jumlah karakter tertentu dalam TextBox
Misal dalam TextBox1 "INDONESIA RAYA"
Maka di Textbox2 otomatis ada tulisan " ada 3 huruf A"
Mohon bantuannya
Terima kasih
---------------------------------
Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+
countries) for 2¢/min or less.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo!
Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
