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

واضح آرشیو وب فارسی:سایت ریسک: mhnmohsen19-06-2007, 08:06 PMسلام به متخصصین ویژوال بیسیک 6 آقا من یک کمک در باره نوشتن یک برنامه می خوام می خواستم اگه بشه من این برنامه رو میگم و شما هم یک کمکی کنید اگه میشه فثط این برنامه رو برام بنویسید . فایل اجرایی نمی خوام فقط بنویسید و در این تایپیک نشون بدید حالا برنامه (( برنامه ای بنویسید که رشته ای را از ورودی گرفته و تعداد تکرار حروف آنرا محاسبه کند. و بین حروف بزرگ و کوچک تفاوت قائل شود و نتیجه را به ازای هر حرف در یک آرایه قرار دهد .)) ممنون میشم از کمکتون:11: :10: :31: haj_hamid21-06-2007, 01:34 AMسلام یه command button و دو تا textbox بزار فرم تو textbox1 رشته رو وارد کن Private Sub Command 1_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_hamid21-06-2007, 01:41 AMاینم سورس نمونه http://rapidshare.com/files/38409917/str.zip.html امیدوارم مشکلت حل شده باشه mhnmohsen21-06-2007, 08:52 AMآقا دستت درد نکنه خیلی ممنون رفتم حرم امام رضا حتمان دعات می کنم چون یک کمک بزرگی بهم کردی بازم ازت ممنونم دوست عزیز:11: :40: سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 520]