منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التحقق من المصفوفة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندما اقوم بعمل اداة 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
استخدم حلقة تكرار فهي تختصر الكود الذي كتبته بشكل كبير

كود :
for a as integer =0 to 10
if textbox(a).text="something" then
msgbox("correct")
else
msgbox("wrong")
end if
next
شكرا اخي على مرورك
بالنسبة للكود الذي وضعته انت جزاك الله خيرا صحيح اذا كنت تريد التحقق من نتيجة واحدة فقط  وانا اعرف ذلك
ولكن هل ينطبق هذا الكود في حال كان التحقق من نتائج مختلفة مثل المثال الذي انا وضعته

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

وهكذاا


وشكرا لك
يبدو اني وجد الحل
كود :
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

شكرا لتفاعلكم  ومروركم