دستور and

سوال

سلام من خواستم که با یه کد چندین دستور رو چک کنم

مثلا من نزدیک 12 تا ادیت تکست دارم

که میخوام با یه خط کد همه رو جک کنه که هی else if نزارم

 

حل شد 0
, 2017-10-09T12:35:59+03:30 3 پاسخ کاربر تازه 0

پاسخ ها ( 3 )

  1. محمد
    0
    2017-10-10T17:28:15+03:30
    پاسخ
    این پاسخ ویرایش شد.

    میخوام اگه ادیت تکست ها خالی بودن اینکار رو کنم

     

  2. محمد
    0
    2017-10-12T12:28:14+03:30
    پاسخ

    ببخشید جرا فعالیت سایت اومده پایین؟

    • SOLTANE GHALBHA
      0
      2017-10-12T19:58:27+03:30
      پاسخ

      فعالیت سایت پایین نیومده دوست عزیز!
      سوالی که میپرسید باید منتظر جواب باشید، اگر کسی جوابی برای سوال شما داشت پاسخ میده در غیر این صورت خیر

      لطفا پس از ارسال سوال در سایت، تا دریافت جواب منتظر بمانید

      • محمد
        0
        2017-10-13T07:14:49+03:30
        پاسخ
        این پاسخ ویرایش شد.

        ممنون  ولی من میخوام این سوال رو پاک کنم چیکار کنم؟

        دیگه بدردم نمیخوره

        از برنامه صرف نظرکردم

        • SOLTANE GHALBHA
          0
          2017-10-13T09:07:52+03:30
          پاسخ

          نیازی به حذف سوال نیست دوست عزیز

          همینجوری باشه، شاید کاربری جواب سوال رو بدونه، جواب بده(بدرد آیندگان خواهد خورد)

  3. امین والی
    1
    2018-01-03T07:16:13+03:30
    پاسخ

    سلام با این که این دوست عزیزمون از این برنامه صرف نظر کردن ولی من جوابشون رو می دم شاید به درد بقیه خورد.

    Sub Globals
Dim ed(11) as EditText
Dim btn as Button
End sub

Sub Activity_Create(firsttime as boolean)
Activity.loadlayout("layout1")
End sub

    در کدهای بالا در قسمت ed(11) در واقع 12 تا ادیت تکست رو معرّفی کردیم(شمارش از صفر شروع می شه)

    همچنین btn رو هم به عنوان یک دکمه تعریف کردیم.

    حالا در ساب btn_click می نویسیم:

    Sub btn_click
for i=0 to 11
if ed(i).Text.Length=0 Then
toastmessageshow("error",false)
End if
Next
End sub

    در کد بالا با استفاده از یک حلقه ی for و یک if بررسی شده است که ادیت تکست ها خالی نباشند و اگر هر کدام از آن ها خالی بود توست مسیج “error” نشان داده خواهد شد.

    بهترین پاسخ

ارسال یک پاسخ