تابع:تعداد كاراكتر های الفبای انگليسی

[behnamled]

دو سوال مهم دارم
1-پروژه اي كه شمارش معكوس را شبيه سازي كنه
2-كه از همه مهم تره اين كه
متني از ورودي دريافت شود (حداقل 200 كاراكتر)وتعدادكاراكتر هاي الفباي انگليسي را چاپ كند
البته فكر مي كنم با استفاده از جستجوي دودويي باشه
ممنون

[sheveda]

من که هیچی نفهمیدم
شمارش معکوس اگه منظورت این باشه اینجوریه
تو timer اینو مینویسی
Label1.Caption = Label1.Caption - 1

[arnh]

منم نفهميدم !

[Darg]

متني از ورودي دريافت شود (حداقل 200 كاراكتر)وتعدادكاراكتر هاي الفباي انگليسي را چاپ كند
البته فكر مي كنم با استفاده از جستجوي دودويي باشه
ممنون

کد:

Public Function NumberAlf(ByVal StrIn As String) As Long
Dim LCaseM  As Boolean
Dim MemoStr As String
         MemoStr = StrIn

RetLin:
    For ISum = Asc("A") To Asc("Z")
        StrIn = Replace(StrIn, _
            Chr$(ISum + IIf(LCaseM, Asc("a") - Asc("A"), 0)), Empty)
    Next ISum
    If Not (Len(StrIn) = 0 Or LCaseM) Then
        LCaseM = True
        GoTo RetLin
    End If

    NumberAlf = Len(MemoStr) - Len(StrIn)
End Function