( لغة الفيجوال بيسك) قاعدة if .. and , if.....or

البرق الأبيض · #1 2006-06-06, 03:24 PM

بسم الله الرحمن الرحيم
قاعدة if .... or
تستخدم هذه القاعدة لتنفيذ أمر معين في حال توفر شرط واحد من عدة شروط
الشكل العام if ..شرط.. or ..شرط.. or ..شرط.. then
..............
.............. مجموعة أوامر
..............
end if
في حال تحقق أكثر من شرط فإنه يتم تنفيذ أول شرط صحيح
مثال
تحتاج هنا إلى زر أمر command ومربع نص text اكتب داخل زر الامر

كود:

 
dim a as string
a=text1.text
if a ="ali" or a="mousa" or a="rania" or a="lina" then
msgbox"أهلا بك عزيزي الضيف"
else
msgbox"الاسم الذي ادخلته غير معرف لدينا"
end if

اذا كتبت "ali" فإنه سوف ينفذ البرنامج فورا لانه أول شرط أما اذا لم تكنب "ali" فإنه سوف يبحث عن شرط آخر فينتقل الى الشرط الثاني فاذا وجد "mousa" فسينفذ البرنلمج فورا وان لم يجد "mousa" فسينتقل الى الشرط الثالث وهكذا ........ حتى يصل الى آخر شرط فان لم يكن صحيحا تظهر لك الرسالة "الاسم الذي ادخلته غير معرف لدينا"
ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــ
قاعدة if ..... and

تستخدم هذه القاعدة لتنفيذ أمر معين في حال توفر جميع الشروط اللازمة لتنفيذ ذلك العمل . اذا حدث خلل في شرط واحد أو اكثر فإنه لا ينفذ البرنامج .
الشكل العام if ..شرط.. and ..شرط.. and ..شرط.. then
................
................مجموعة أوامر
................
end if
مثال
تحتاج الى مربعي نص الاول للاسم والثاني لكلمة السر وتحتاج الى زر امر command
اكتب داخل زر الامر

كود:

 
dim a,s as string
if a="محمد" and s="12mner23" then
msgbox"أهلا بك عزيزي الضيف"
else
msgbox"كلمة السر التي ادخلتها أو الاسم خطا ,,,, الرجاء حاول مرة أخرى"
end if

لاحظ هنا انه اذا حدث خلل ما في شرط الاول كان تكتب كلمة اخرة غير محمد فلن ينفذ البرنامج

البرق الابيض - فلسطين

محمد الفرح · #2 2006-06-06, 04:06 PM

مشكور اخوي إسمح لي بتغيير العنوانين الخاص بمواضيعك لأنه يوجد أكثر من لغة توضع بهذا القسم

ابو خطاب · #3 2006-06-07, 10:52 AM

جزاك الله كل خير

البرق الأبيض · #4 2006-10-17, 11:28 PM

جزاكما الله خيرا وبارك فيكما

adib8584 · #5 2006-10-18, 12:39 AM

مشكور

salem001 · #6 2006-10-18, 04:16 PM

جميل وممتاز
وبارك الله فيك

ismeal2001 · #7 2006-10-21, 08:08 PM

جميل وممتاز
وبارك الله فيك

keko_ferkeko · #8 2006-10-23, 02:30 PM

بارك الله فيك و عليك..
شروحات مهمة و سلسة..
بانتظار المزيد..

البرق الأبيض · #9 2006-10-27, 11:07 PM

شكرا جزيلا لك اخي adib8584

البرق الأبيض · #10 2006-10-27, 11:08 PM

شكرا لك اخي سالم 001

خيارات الموضوع
عرض نسخة للطّباعة ارسل هذه الصفحة لصديق
طريقة العرض
النمط المتتابع التحول إلى النمط التشعبي التحول إلى النمط الأُحادي

مواضيع مشابهة للموضوع: ( لغة الفيجوال بيسك) قاعدة if .. and , if.....or
الموضوع	الكاتب	القسم	الردود	آخر مشاركة
عمل دليل هاتف بواسطة الفيجوال بيسك (الدرس الاول) انشاء قاعدة بيانات	محمد الفرح	البرمجة	13	2008-08-17 11:05 AM
لكل محبي لغة الفيجوال بيسك	gold_fire2010	البرمجة	19	2008-08-05 01:08 AM
من يحل هذا السؤال في الفيجوال بيسك ...	البدر !!	البرمجة	1	2008-03-20 10:14 PM
الفيجوال بيسك	m_tito	البرمجة	1	2007-05-08 06:43 PM

عدد 2 من الطلاب تقدموا بالشكر لكاتب الموضوع البرق الأبيض علي هذه المشاركة الطيبة :
صدوقي (2008-01-21), عطرالليل (2008-01-13)

يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)