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

التركيبة IF-then-else

مغلق
بدأه proegy في 27 مايو 2005 · 10 رد · 1,589 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

جملة

IF

انها جملة لايستغني عنها اي مبرمج مش في الفيجول بيزك بل في كل لغات البرمجة

==============================

هناك عدة صور لجملة IF

*********

الصورة العامة لهذة الجملة

------------------------------------

^^^^^^^^^^^^^^^^^^^

IF(شرط)THEN

........................

........................

الفعل المراد تنفيذة

.......................

.......................

ELSE

...................

...................

الفعل الثاني المراد تنفيذة

..................

..................

END IF

حيث (الشرط) هو الفعل المطلوب اختبار صحتة

وهو تعبير منطقي قيمة الصواب أو الخطاء

وإما ان يكون شرط بسيط أوشرط مركب

1-يقوم الحاسب بأجراء اختيار الشرط في الجملة

2- ذا كانت قيمة الشرط الصواب (أي اذا تحقق الشرط) نفذ مجموعة الجمل المحصورة بين كلمة

THEN

و

ELSE

ثم يذهب مباشرة لتنفيذ جملة

END IF

3-اذا كانت قيمة الشرط خطاء (الشرط لم يتحقق الشرط)نفذ مجموعة الجمل المحصورة بين الكلمتين

else

و

end if

الشرط الثاني

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

الصورة البسيطة

IF(شرط)THEN

........................

........................

الفعل المراد تنفيذة

.......................

.......................

END IF

1-يقوم الحاسب بأجراء اختيار الشرط في الجملة

2- ذا كانت قيمة الشرط الصواب (أي اذا تحقق الشرط) نفذ مجموعة الجمل المحصورة بين كلمة

THEN

ثم يذهب مباشرة لتنفيذ جملة

END IF

3-اذا كانت قيمة الشرط خطاء (الشرط لم يتحقق الشرط)نفذ مجموعة الجمل التلي

end if

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

نأتي الي أهم جملةمن جمل if

الجملة المتداخلة

IF(شرط)THEN

........................

........................

الفعل المراد تنفيذة

.......................

.......................

ELSEIF(2شرط)THEN

...................

...................

الفعل الثاني المراد تنفيذة

..................

..................

ELSEIF(شرط3)THEN

...................

...................

الفعل الثالث المراد تنفيذة

..................

..................

ELSEIF(شرط س)THEN

...................

...................

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

..................

..................

end if

حيث الشروط من الشرط 1الي الشرط س

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

then

و

else if

اما اذا كان الشرط غير صحيح فيتم اختيار جمله

else if

علي التوالي وكل جملة علي حدة

فاذا وجدت شرط صحيح فيتم تنفيذ هذة الجملة

واذا لم يكن هناك ولا شرط صحيح

يتم تنفيذ جملة

end if

***********************************************************

وبأذن الله هناك المزيد من الجمل الي حشرحة مثل

go to

التفرع بأستخدام select

for/next

do-loop

قريبا

*********************************************************

أخوكم :D

#2

شرح مميز Proegy جدا وشامل

ولكن اخي لو تستخدم الالوان في شرحك بكون افضل

والسلام

وشكرا لك مرو اخرى

من دروسي :

درس مبسط لفهم ال VB6.... Resource File

تعلم تصميم اداة ال Active X خطوة بخطوة (الجزء الأول)

الطريقة المثلى للتعامل مع مسجل النظام( VB6..... (Registry

من برامجي :

Abo Sabreen Messenger v2.1 العملاق

--------------------------------------------------

مفكرة الإسلام؛ طالع أخبار العالم وأخبار المجاهدين بعيدا عن التعتيم الاعلامي.

#3

شكراً لك عزيزى PROEGY :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

شكراً لك أخ proegy

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#7

شكرا اخوي على الدرس الحلو

#8

مشكور على هذا الدرس

هذا الموضوع مغلق.

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