الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113) +---- قسم : دورة تعليم البرمجة باستخدام VB.net, (http://vb4arb.com/vb/forumdisplay.php?fid=129) +---- الموضوع : الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية (/showthread.php?tid=4357) |
الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - Omar Mekkawy - 23-09-12 السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم سنتحدث اليوم عن قضية هامة جدا في البرمجة وهي صنع القرار . صنع القرار : توجيه سير البرنامج عند الوصول لنتيجة معينة. يتم ذلك عن طريق الجمل الشرطية والتي تنقسم لقسمين:
للتوضيح:يقصد ب Condition الشرط قيد الفحص و Statement التعليمة التي يتم تنفيذها عند تحقيق الشرط يمكن استخدام القاعدة If باكثر من صورة: التصنيف الأول - من حيث التركيب: 1) If Condition Then Statement
وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمة بعد Then وان فشل الشرط يتم تخطيهاكود : If Mark > 90 Then Result = "Very Good" 2)
If Condition Then Statement End If مثال: كود : If Mark>90 ThenResult = "Very Good"End If 3)
If Condition Then Statement1 Statement2 Statement3 .... .... End If وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمات داخل الIf وان فشل الشرط يتم تخطيها
مثال: كود : If Mark>90 ThenResult1="Very"Result2="Good"Result=Result1+Result2End If 4)
If Condition Then Statement1 Statement2 ElseStatement3 .... End If وفي حال فشل الشرط يتم تنفيذ التعليمات بعد Else وهي تستخدم لتنفيذ التعليمات التي تحتضنها في حال فشل الشروط السابقة لها. ملاحظة:Else تعني غير مثال: كود : If Mark>50 ThenResult="Successful"ElseResult="Not Successful"End If 5)
If Condition1 Then Statement1 ElseIf Condition2 Statement2 Else Statement3 .... End If التصنيف الثاني-من حيث التوزيع: 1) في سطر واحد: If Condition Then Statement
حيث في الصورة الثانية بتحقق الشروط يتم تنفيذ التعليمات المرتبطة ويتم الفصل بينها بعلامة ":"If Condition Then Statement1 : Statement2 :..... If Condition Then Statement1 Else Statement2 أما في الصورة الثالثة فتعادل الصورة رقم 4 في التصنيف الأول 2) في أكثر من سطر: If Condition Then
Statement End If وباقي الحالات في التصنيف العلوي ما عدا الرقم واحد ينطبق عليها تصنيف اكثر من سطر كما في الامثلة السابقة ملاحظة مهمة: في حال تعدد الاسطر علينا انهاء كتلة الشرط If ب End If لكي يستطيع المترجم تحديد نهابة كتلة If مثال يوضح قاعدة If وهو حساب معدل ثلاث علامات وعرض النتيجة 1) قم بانشاء مشروع جديد من نوع Windows Application بلغة فيجوال بيسك دوت نت 2) أضف ثلاث صناديق نص (TextBox) للنموذج واضف زر تحكم Button وأداتان تسمية Label. 3)أعد ضبط الخصائص 4) اضغط ضغطا مزدوجا على زر التحكم Button ليتم ادخال الكود في حدث من احداثه والحدث الافتراضي له هو Click كود : Dim Mark1, Mark2, Mark3, Total As Integer الآن قمنا بحجز اربع وتغيرات من النوع Integer وهم الثلاث علامات ومجموعهم وقمنا بحجز متغير آخر من النوع Double وهو المعدل لانه من المتوقع أن يحمل المعدل كسور عشرية
كود : Integer.Parse(String) كما نعلم فان القيم التي يتم ادخالها لمربع النص TextBox تكون على شكل نص وهنا لا نحتاجها كنص بل نريدها عدد صحيح وهي تعمل عكس عمل .ToString وتقوم بتغيير نوع المدخل من نص إلى رقم صحيح
ملاحظة:كتلة If هي كتلة متداخلة(Nested) ثانيا: الجمل الشرطية باستخدام Select Case لا تختلف قاعدة Select Case كثيرا عن قاعدة If من ناحية الوظيف لكن لكل حادث حديث كيف يمكننا استخدام Select Case 1) يمكننا استخدام لمقارنة قيمة واحدة مثال: كود : Dim X As Integer = 20Select Case XCase 20 MsgBox("القيمة هي 20")Case ElseMsgBox("القيمة غير 20")End Select وهنا قمنا باختبار هل المتغير X يحمل القيمة 20 أم لا
2) مقارنة مدى معين تمعن في المثال التالي: كود : Select Case X الآن نستطيع القول اننا انتهينا من الجمل الشرط بنوعيها الرئيسين والآن انتظروا الجزء الثاني في الفصل القادم -ان شاء الله-
أبلغكم تحياتنا Lo2i و Mohammed Asaad انتظروا الدرس القادم الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - abdoojh - 19-02-13 وعليكم السلام ورحمة الله اخي الكريم لدي تعليق بسيط وهو عند كتابة الكود ارجو كتابته بصورة اوضح مثلا :If Mark>50 ThenResult="Successful"ElseResult="Not Successful"End If لو قمت بكتابته هكذا If Mark>50 Then Result="Successful" Else Result="Not Successful" End If لكي يسهل علينا فهمه بارك الله فيك وجزاك الله كل خير الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - خليل اسماعيل - 27-04-13 الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - green.grass52 - 27-07-13 شكرااااااااااااااااعالطرح الجميل الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية - Omar Mekkawy - 10-08-13 abdoojh كتب :وعليكم السلام ورحمة الله جاري التحرير الله يعطيك العافية |