تبلیغات
تبلیغات متنی
محبوبترینها
چگونه برای دریافت ویزای ایران اقدام کنیم؟ مدارک لازم و نکات کاربردی
راهنمای خرید یو پی اس برای مراکز درمانی و بیمارستانی مطابق الزامات قانونی
آیا طلاق توافقی نیاز به وکیل دارد؟
چگونه ویزای آفریقای جنوبی را به آسانی دریافت کنیم؟ راهنمای قدم به قدم
همه چیز درباره ویزای آلمان و مراحل دریافت آن
چرا پاسارگاد به عنوان یکی از مهم‌ترین آثار تاریخی ایران شناخته میشود؟
خرید انواع خودکار و روان نویس شیک و ارزان
خرید انواع خودکار و روان نویس شیک و ارزان
تعمیرگاه امداد خودرو کرمان موتور
تعمیرگاه امداد خودرو کرمان موتور
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1819234624
درخواست عاجزانه کمک از برنامه نویسان ویژوال بیسیک 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]
[تعداد بازديد از اين مطلب: 515]
-
گوناگون
پربازدیدترینها