Kang Premor salam kenal ??
On 4/20/05, D. Premor <[EMAIL PROTECTED]> wrote:
> Ing dinten Rebo Paing, 20 April '05 - 11:43:34 WIB
> Premor ngendiko mekaten :
> ======================================
> Coba Pake ini, semoga bisa membantu.
>
> Function CariHuruf(Kata As String, HurufDicari As String) As Integer
> Dim i As Variant
> For i = 1 To Len(Kata)
> If Mid(Kata, i, 1) = HurufDicari Then CariHuruf = CariHuruf + 1
> Next
> End Function
>
> Private Sub Command1_Click()
> Text2.Text = CariHuruf("programmer vb by spiderman spider", "r")
> End Sub
>
>
> Matur Suwun
> Premor
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
>
>
> ________________________________
> Yahoo! Groups Links
>
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/programmer-vb/
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
--
Didit Permana
PT.AMC Bintan
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-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/
