الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]الشرط المتعدد

بدأه joud-kheder في 7 فبراير 2009 · 4 رد · 505 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

كيف يمكنني كتابة كود متعدد الشرط مثلا

إذا كان معنا اثنين تكست بوكس فكيف نكتب كود لزر أمر( كوماند) أن ينظر في التكست الأول والثاني فإذا حققا الشرطين معا

أن ينفذ الأمر المسند إليه

أي نريد أن يكون مثلا التيكست الأول =5

والثاني =10

يؤدي عند ضغط الزر يتأكد من أن التيكست الاول =5 و الثاني =10 فإذا حققا القيمتين فينفذ الأمر وإذا لم يتحق أحدهما ينفذ أمرا أخر

J.A.D

JOUD.NET

jado.kheder@hotmail.com

#2

قم بإنشاء مشروع جديد وضع بداخله Text1 و Text2 و Command1 .. ثم ضع الكود أدناه في الـ Form


If Val(Text1) = 5 And Val(Text2) = 10 Then
MsgBox "تم تحقق الشرط"
Else
MsgBox "لم يتحقق الشرط"
End If
End Sub
Private Sub Command1_Click()

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

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

#3

عليك التعرف على and و or وفهمهما

بسيطه جدا

if condition1 and condition2 then do it

if condition1 or condition2 then do it

اذا (الشرط الاول) و (الشرط الثاني) اذا نفذ

اذا (الشرط الاول) او (الشرط الثاني) اذا نفذ

eg.1

if Text1="mini" and Text2="spider" then msgbox "waaaw"

eg.2

if text1="mini" or text1="spider" then msgbox"not bad"

اسف فلا اعرف اشرح

لكن اتوقع انها واضحه الان

فمن الافضل ان تتعرف عليها وتفهمها

سهله مو مستاهله تاخذ كود من غير ما تفتمه وبتنفعك بمكانات كثيره مو بس بالشرط يعني

تحياتي

تم تعديل هذه المشاركة بواسطة MiNi.SpIdEr في 7 فبراير 2009 في 13:55

[moveleft]

MiN! SpId3r SqUaD

[/moveleft]

#4

معاملات And و Or المنطقية مفيدة جداً أثناء البرمجة، وهي تستخدم إما عند التعامل مع تحقق شرطين، أو أحياناً عند التعامل مع عدد ما بالطريقة الثنائية،

بالنسبة لتحقق شرطين، فلنضرب مثلاً:

  1.  
  2. If Text1="5" And Text2="7" Then
  3. MsgBox "Hello"
  4. Else
  5. MsgBox "Bye"
  6. End If
  7.  

فالمترجم هنا ينظر، في الشرط الأول، فإن تحقق فإنه يعطيه قيمة True وإن فشل فإنه يعطيه قيمة False ، ثم يكرر العملية على الشرط الثاني، فإن كانت نتيجة الشرطين هي True فإنه يعيد True وإلا فإنه يعيد False .

هناك أربع حالات على مثالنا السابق:

1- True And True

ومعنى هذا أن الشرطين قد تحققا، وعندها تنجح العملية ويعرض فيها رسالة فيها كلمة Hello.

وإذا صغناها كمعادلة ستكون كالتالي:

True And True = True

2- True And False

ومعنى هذا أن الشرط الأول قد تحقق، ولكن الشرط الثاني فشل، فهنا لن تتحقق العملية وسيعرض رسالة فيها Bye.

True And False = False

3- False And True

وهو مثل السابق، فهنا فشلت الأولى وتحققت الثانية

False And True = False

4-False And False

وهنا فشلت الاثنتان، وبالتأكيد ستكون النتيجة هي الفشل.

False And False = False

ويمكنك استعمال المعامل And مع البتات، ولكن هذا ليس مكاناً لشرحه، كما أن هناك المعامل Or وغيره.

وإذا لم ترد استعمال المعاملات المنطقية، فيمكنك كتابة التالي بكل بساطة:

  1.  
  2. If Text1="5" Then
  3. If Text2="7" Then
  4. MsgBox "Hello"
  5. Else
  6. MsgBox "Bye"
  7. End If
  8. End If
  9.  

وهنا استخدمنا التعشيش Nesting ووضعنا جملتين شرطيتين وراء بعضهما.

وفقك الله :)

هذه الجملة خاطئة  :wacko: 


#5

السلام عليكم

شكرا للأخوة الكرام mrx و mini و abboodd

على الاجوبة

- وبقول للأخ mrx شكرا جزيلا

- و للأخ Mini شكرا طريقة الشرح عندك كتير جيدة وشكرا على هذه البهدلة اللطيفة

- وللأخ Abboodd شكرا على الطريقة الأولى و الشرح الوافي لإنيأبحث عن طرق أخرى غير طريقة التعشيش Nesting

وبرجع و بقول

انا لكم من الشاكرين

جاد

J.A.D

JOUD.NET

jado.kheder@hotmail.com

مواضيع مشابهة