السلام عليكم يااخوان اود استخدام اداة الشرط if او Select
مع مشروع بحيث ان عندي عدة تكست
مثال اذا كان
تكست 1 = 100
تكست2= 105
تكست3= 110
تكست4=112
تكست5=115
تكست6=117
اريد ان يطبع
تكست 7= 400
تكست8=420
تكست9=423
تكست10=430
تكست11=435
تكست 12=438
اريد طريقة ربطها مع بعض

يتم استخدام العوامل المنطقية كما يلى :

الكود:

If Text1.Text = 100 And Text2.Text = 105 And Text3.Text = 110 And Text4.Text = 112 Then

Text7.Text = 400
Text8.Text = 420
Text9.Text = 423
Text10.Text = 430
Text11.Text = 435
Text12.Text = 438

End If


ممكن تصحح لي دي
Dim x, n, s, g, t, y As Integer
x = Val(Text24.Text)
Select Case x
Case 10000 To 10199
Text75.Text = 126.2
Text81 = 12.9
n = Val(Text24.Text
Case 10000 To 10199
Text76.Text = 126.2
Text82 = 12.9
وهكذا الباقي ولكن ماضبطت معي ارجوا التصحيح

شيغو كتب:ممكن تصحح لي دي
Dim x, n, s, g, t, y As Integer
x = Val(Text24.Text)
Select Case x
Case 10000 To 10199
Text75.Text = 126.2
Text81 = 12.9
n = Val(Text24.Text
Case 10000 To 10199
Text76.Text = 126.2
Text82 = 12.9
وهكذا الباقي ولكن ماضبطت معي ارجوا التصحيح

أخى الكريم

جملة select تعمل بالمنطق التالى :

فى البداية يتم تغذيتها بشرط معين من خلال جملة Select Case و تمرير قيمة الشرط لها ... ثم تقوم بعد ذلك بالمرور على حالات الشرط Case ...فإن تم تحقيق الشرط فى الحالة الاولى يتم تنفيذ ما هو مطلوب منها فى تلك الحالة ثم تقوم بإنهاء جملة الاختيار End Select ..... اما اذ لم يتحقق الشرط فى الحالة الاولى تقوم بالذهاب للحالة الثانية وهكذا

ففى مثالك قمت بتغذية جملة الاختيار قيمية الشرط Select Case x .... ثم قمت بإنشاء الحالة الاولى Case 10000 To 10199 و لغاية الان انت صحيح

لكن الخطأ أنك قمت بإنشاء الحالة الثانية بنفس قيمة الحالة الاولى Case 10000 To 10199 ....وبالتالى فإن جملة الاختيار ستقوم بتنفيذ الحالة الاولى اذا تم تحقيق الشرط ثم تنهى الجملة و لن تلتفت الى الحالة الثانية


الحل هو انشاء حالات الاختيار مع عدم تكرار قيمة الشرط

نعم ولكن الحاله الاولى في تكست مختلف عن الثاني
اقصد انا عندي عدة تكسات قيمها متماثله ولكن نتائجها اريدها ان تظهر في تكسات مختلفه