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

البرق الأبيض

البرق الأبيض

New Member
بسم الله الرحمن الرحيم
قاعدة if .... or
تستخدم هذه القاعدة لتنفيذ أمر معين في حال توفر شرط واحد من عدة شروط
الشكل العام if ..شرط.. or ..شرط.. or ..شرط.. then
..............
.............. مجموعة أوامر
..............
end if
في حال تحقق أكثر من شرط فإنه يتم تنفيذ أول شرط صحيح
مثال
تحتاج هنا إلى زر أمر command ومربع نص text اكتب داخل زر الامر
Rich (BB code): 
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
اكتب داخل زر الامر
Rich (BB code): 
dim a,s as string
if a="محمد" and s="12mner23" then
msgbox"أهلا بك عزيزي الضيف"
else
msgbox"كلمة السر التي ادخلتها أو الاسم خطا ,,,, الرجاء حاول مرة أخرى"
end if

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


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


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


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


جزاك الله خيرا اخي البرق ممكن اذا سمحت ان تكثر من المواضيع المتعلقة بالفيجول بيسك دوت نت لاني الان ادرسها بعد ان انهينا المخطط النهجي صدقني احببت البرمجة و احببت دراستكم و صحيح ليس لدراستي علاقة بالكومبيوتر او البرمجة لكني افكر ان اطور نفسي بها لانها رياضة العقل
 
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى