ايران ويج

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

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

منم نفهميدم !

behnamled نوشته است:متني از ورودي دريافت شود (حداقل 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

behnamled

sheveda

arnh

Darg