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