استفسار هام

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

استفسار هام

مُساهمة من طرف شيغو في الخميس فبراير 27, 2014 11:04 pm

السلام عليكم يااخوان اود استخدام اداة الشرط 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
اريد طريقة ربطها مع بعض
avatar
شيغو
..
..

تاريخ التسجيل : 11/07/2013
المساهمات : 29
النقاط : 47
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استفسار هام

مُساهمة من طرف محمد يوسف في الجمعة فبراير 28, 2014 9:30 am

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

الكود:
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
avatar
محمد يوسف
...
...

تاريخ التسجيل : 08/12/2013
المساهمات : 38
النقاط : 66
التقيم : 12
الدولة : السودان
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استفسار هام

مُساهمة من طرف شيغو في الجمعة فبراير 28, 2014 10:03 pm

ممكن تصحح لي دي
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
وهكذا الباقي ولكن ماضبطت معي ارجوا التصحيح
avatar
شيغو
..
..

تاريخ التسجيل : 11/07/2013
المساهمات : 29
النقاط : 47
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استفسار هام

مُساهمة من طرف السنى في السبت مارس 01, 2014 7:30 am

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


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

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استفسار هام

مُساهمة من طرف شيغو في السبت مارس 01, 2014 7:14 pm

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

تاريخ التسجيل : 11/07/2013
المساهمات : 29
النقاط : 47
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: استفسار هام

مُساهمة من طرف محمد يوسف في الثلاثاء مارس 04, 2014 3:45 pm

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

الكود:
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
Text76.Text = 126.2
Text82 = 12.9
avatar
محمد يوسف
...
...

تاريخ التسجيل : 08/12/2013
المساهمات : 38
النقاط : 66
التقيم : 12
الدولة : السودان
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى