پرچم تشریفات با کیفیت بالا و قیمت ارزان
پرواز از نگاه دکتر ماکان آریا پارسا
دکتر علی پرند فوق تخصص جراحی پلاستیک
تجهیزات و دستگاه های کلینیک زیبایی
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
تعداد کل بازدیدها :
1848446289
درخواست عاجزانه کمک از برنامه نویسان ویژوال بیسیک 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 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
-