درخواست عاجزانه کمک از برنامه نویسان ویژوال بیسیک 6

[mhnmohsen]

سلام به متخصصین ویژوال بیسیک 6 آقا من یک کمک در باره نوشتن یک برنامه می خوام

می خواستم اگه بشه من این برنامه رو میگم و شما هم یک کمکی کنید

اگه میشه فثط این برنامه رو برام بنویسید . فایل اجرایی نمی خوام فقط بنویسید و در این تایپیک نشون بدید

حالا برنامه

(( برنامه ای بنویسید که رشته ای را از ورودی گرفته و تعداد تکرار حروف آنرا محاسبه کند. و بین حروف بزرگ و کوچک

تفاوت قائل شود و نتیجه را به ازای هر حرف در یک آرایه قرار دهد .))

ممنون میشم از کمکتون:11: :10: :31:

[haj_hamid]

سلام
یه command button و دو تا textbox بزار فرم
تو textbox1 رشته رو وارد کن



Private Sub Command1_Click()
Dim n, i, j, k, enter As Integer
Dim str() As String
Dim substr As String
If Text1.Text = Empty Then Exit Sub
n = Len(Text1.Text)
ReDim str(n - 1)

Text2.Text = ""
For i = 0 To n - 1
str(i) = Mid(Text1.Text, i + 1, 1)
Next
k = 0
enter = 0
For j = 0 To n - 1
For i = 0 To n - 1
If str(j) = Mid(Text1.Text, i + 1, 1) And (str(j) <> Empty) Then
k = k + 1
End If
DoEvents
Next i
If k = 0 Then GoTo n
substr = str(j)
For i = 0 To n - 1
If str(i) = substr Then
str(i) = Empty
End If
DoEvents
Next i

If Asc(substr) = 13 Then
substr = "(Enter)"
enter = enter + 1
GoTo n
End If
If substr = " " Then
substr = "(space)"
End If

Text2.Text = Text2.Text & substr & " " & k & vbCrLf
k = 0
DoEvents
n:
Next j
Text2.Text = Text2.Text & "(Enter)" & " " & enter
End Sub

[haj_hamid]

اینم سورس نمونه

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

امیدوارم مشکلت حل شده باشه

[mhnmohsen]

آقا دستت درد نکنه خیلی ممنون

رفتم حرم امام رضا حتمان دعات می کنم چون یک کمک بزرگی بهم کردی

بازم ازت ممنونم دوست عزیز:11: :40: