+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحقق من المصفوفة (/showthread.php?tid=41328)
التحقق من المصفوفة - Mtaktak - 26-04-22
السلام عليكم
عندما اقوم بعمل اداة 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 IfRE: التحقق من المصفوفة - معاند الحظ - 26-04-22
استخدم حلقة تكرار فهي تختصر الكود الذي كتبته بشكل كبير
كود :
for a as integer =0 to 10
if textbox(a).text="something" then
msgbox("correct")
else
msgbox("wrong")
end if
nextRE: التحقق من المصفوفة - Mtaktak - 28-04-22
شكرا اخي على مرورك
بالنسبة للكود الذي وضعته انت جزاك الله خيرا صحيح اذا كنت تريد التحقق من نتيجة واحدة فقط وانا اعرف ذلك
ولكن هل ينطبق هذا الكود في حال كان التحقق من نتائج مختلفة مثل المثال الذي انا وضعته
بمعنى ان Textbox(1) يتضمن رقم ٧
بينما Textbox(2) يحتوي على رقم ١٠ فرضا
وهكذاا
وشكرا لك
RE: التحقق من المصفوفة - Mtaktak - 28-04-22
يبدو اني وجد الحل
كود :
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شكرا لتفاعلكم ومروركم