تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 8 از 8

نام تاپيک: یه سوال در مورد یه برنامه ساده در ویژوال بیسیک 6 !

  1. #1
    اگه نباشه جاش خالی می مونه 3ッドマクス's Avatar
    تاريخ عضويت
    Sep 2008
    پست ها
    381

    پيش فرض یه سوال در مورد یه برنامه ساده در ویژوال بیسیک 6 !

    سلام کمک کنید امتحان دارم من میخوام بدونم چطوری میشه برنامه ای نوشت که فاصله های خالی بین حروف رو بشماره و تو یه کادر بنویسه ! مثلا تو یه جمله 5 تا جا خالی هست وقتی روی ok کلیک میکنیم میخوام این تعداد رو تو یه کادر بنویسه ! اگر دوستان بلد هستند لطفا کمک کنند خیلی برام مهمه

  2. #2
    اگه نباشه جاش خالی می مونه 3ッドマクス's Avatar
    تاريخ عضويت
    Sep 2008
    پست ها
    381

    پيش فرض

    امتحان دارم به دادم برسید ! نوش دارو پس از مرگ صحراب نشه ...

  3. #3
    پروفشنال M.K_Soft's Avatar
    تاريخ عضويت
    Aug 2006
    محل سكونت
    مشهد
    پست ها
    734

    پيش فرض

    فکر کنم باید از تابع trim استفاده کنی. زیاد یادم نیست ولی فکر کنم برای حروف سمت راست از rtrim و چپ از ltrim استفاده کنی.
    میتونی خروجی تابع رو تو یه متغیر بریزی و بعد کاراکترهاشو بشمری.
    مطمئن نیستم ولی تا همین حد یادم بود. امیدوارم به کارت بیاد.

  4. این کاربر از M.K_Soft بخاطر این مطلب مفید تشکر کرده است


  5. #4
    اگه نباشه جاش خالی می مونه 3ッドマクス's Avatar
    تاريخ عضويت
    Sep 2008
    پست ها
    381

    پيش فرض

    ممنون تا این حد رو خودم بلدم اما نمیتونم بنویسم بازم ...
    کد برنامش رو اگر کسی بزاره عالیه .

  6. #5
    داره خودمونی میشه samiblog's Avatar
    تاريخ عضويت
    Mar 2009
    پست ها
    20

    پيش فرض

    این کد فاصله خالی رو برات می شماره

    Private Sub Command1_Click()
    Dim s As Integer
    i = Len(Text1.Text)
    For k = 1 To i
    j = Mid(Text1.Text, k, 1)
    If j = " " Then
    s = s + 1
    Label1.Caption = s
    End If
    Next k
    End Sub
    ----------------------------------------------
    موفق باشی

  7. این کاربر از samiblog بخاطر این مطلب مفید تشکر کرده است


  8. #6
    اگه نباشه جاش خالی می مونه roya_borhany's Avatar
    تاريخ عضويت
    Feb 2009
    محل سكونت
    کره زمین
    پست ها
    206

    پيش فرض

    سلام. 2 تا textbox با نام های textbox1,2 بذارید و یک command1
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

  9. این کاربر از roya_borhany بخاطر این مطلب مفید تشکر کرده است


  10. #7
    در آغاز فعالیت
    تاريخ عضويت
    Nov 2008
    پست ها
    4

    پيش فرض

    سلام
    يک textbox و يک command و يک ليبل روي فرم بذار و اين کد رابنويس :

    Private Sub Command1_Click()
    Dim xx() As String
    xx = Split(Trim(Text1.Text), " ")
    Label1.Caption = UBound(xx)
    End Sub

  11. این کاربر از aslan_irani بخاطر این مطلب مفید تشکر کرده است


  12. #8
    اگه نباشه جاش خالی می مونه 3ッドマクス's Avatar
    تاريخ عضويت
    Sep 2008
    پست ها
    381

    پيش فرض

    خیلی خیلی خیلی خیلی خیلی خیلی ممنون واقعا نیاز داشتم بهش حالا باید برم روش فکر کنم ببینم چطوری نوشته شده :d
    چندتا سوال دیگه ام هم دارم میتونم از طریق پیغام خصوصی بپرسم ؟

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •