تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحقق من المصفوفة
#1
السلام عليكم
عندما اقوم بعمل اداة TextBox ك مصفوفة تتكون من عدد معين ولنفرض 10 وذلك عن طريق الكود

ما هي طريقة التحقق من ان كل TextBox  يحتوي على ما اريد

وفي  حال عدم التحقق يتم الاشعار ب مسج بوكس

انا عملت التالي ولكن الكود طويل    اريد اختصاره

كود :
If TextBox(0).Text = "1" And TextBox(1).Text = "2" And TextBox(2).Text = "3" _
           And TextBox(3).Text = "4" And TextBox(4).Text = "5" And TextBox(5).Text = "6" _
           And TextBox(6).Text = "7" And TextBox(7).Text = "8" And TextBox(8).Text = "9" _
           And TextBox(9).Text = "10" Then
MsgBox("لقد فزت", MsgBoxStyle.Information, "تهانينا")
End If
اللهم صلي على نبينا محمد
الرد }}}
تم الشكر بواسطة: ابو انس
#2
استخدم حلقة تكرار فهي تختصر الكود الذي كتبته بشكل كبير

كود :
for a as integer =0 to 10
if textbox(a).text="something" then
msgbox("correct")
else
msgbox("wrong")
end if
next

الرد }}}
تم الشكر بواسطة: Mtaktak , Mtaktak , ابو انس
#3
شكرا اخي على مرورك
بالنسبة للكود الذي وضعته انت جزاك الله خيرا صحيح اذا كنت تريد التحقق من نتيجة واحدة فقط  وانا اعرف ذلك
ولكن هل ينطبق هذا الكود في حال كان التحقق من نتائج مختلفة مثل المثال الذي انا وضعته

بمعنى ان Textbox(1) يتضمن رقم ٧
بينما  Textbox(2)  يحتوي على رقم ١٠ فرضا

وهكذاا


وشكرا لك
اللهم صلي على نبينا محمد
الرد }}}
تم الشكر بواسطة: ابو انس
#4
يبدو اني وجد الحل
كود :
Dim win As Integer
       Dim i As Integer
       Do While i <= 15
           i = i + 1
           If Val(Btns(i - 1).Text) = i Then
               win += 1
           End If
       Loop
       If win = 15 Then
           MsgBox("لقد فزت  " & "عدد المحاولات   " & count, MsgBoxStyle.Information, "تهانينا")
           win = 0
           i = 0
       End If
       count += 1

شكرا لتفاعلكم  ومروركم
اللهم صلي على نبينا محمد
الرد }}}
تم الشكر بواسطة: ابو انس , معاند الحظ


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 510 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
  [مثال] كيفيه التحقق من البريد الالكتروني حسن الجلب 7 971 05-08-22, 11:36 PM
آخر رد: سعود
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 770 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  التحقق من تنفيذ عمليتان في نفس الوقت أو إلغائهما معتز حسن 7 1,210 17-07-22, 12:48 AM
آخر رد: معتز حسن
  [سؤال] كيفيه التحقق من الجدول بقاعدة البيانات حسن الجلب 2 1,195 28-03-22, 04:59 AM
آخر رد: Taha Okla
  [VB.NET] اريد مساعدة في كود التحقق من البيانات في قاعدة اكسس Safwan_Daw 2 1,262 22-03-22, 12:39 AM
آخر رد: Safwan_Daw
  [سؤال] كيفيه التحقق من الأرقام حسن الجلب 3 1,097 15-01-22, 06:25 PM
آخر رد: سعود
  طلب كود التحقق من وجود الاتصال بالانترنت bidaya 6 5,156 16-06-21, 06:49 PM
آخر رد: aliahmed-85
  السلام عليكم سؤال في التحقق من المتغييرات اليوم السابع 3 1,209 19-02-21, 11:38 PM
آخر رد: اليوم السابع

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم