InstagramTwitterSnapChat


 
وصف

العودة   منتديات سكاو > الكليات الجامعية > منتدى كلية الحاسبات وتقنية المعلومات > منتدى قسم علوم الحاسبات
   
   


الدرس(6):صنع القرار...الجزء الأول-الجمل الشرطية

منتدى قسم علوم الحاسبات

إضافة رد
 
أدوات الموضوع إبحث في الموضوع انواع عرض الموضوع
منتديات طلاب وطالبات جامعة الملك عبد العزيز منتديات طلاب وطالبات جامعة الملك عبد العزيز
  #1  
قديم 28-12-2014, 07:06 PM

عبدالقادر البعداني عبدالقادر البعداني غير متواجد حالياً

استاذ جامعي

 
تاريخ التسجيل: Dec 2014
الكلية: كلية الحاسبات وتقنية المعلومات
التخصص: علوم حاسوب
نوع الدراسة: ماجستير
المستوى: متخرج
البلد: الدول العربية
الجنس: ذكر
المشاركات: 7
افتراضي الدرس(6):صنع القرار...الجزء الأول-الجمل الشرطية


دورة الدوت نت

الدرس(6):صنع القرار...الجزء الأول-الجمل الشرطية

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

بسم الله الرحمن الرحيم



سنتحدث اليوم عن قضية هامة جدا في البرمجة وهي صنع القرار .

صنع القرار : توجيه سير البرنامج عند الوصول لنتيجة معينة.



يتم ذلك عن طريق الجمل الشرطية والتي تنقسم لقسمين:



الجمل الشرطية باستخدام الكلمة المحجوزةIf

الجمل الشرطية باستخدام الكلمتان المحجوزتانSelect Case



أولاً:الجمل الشرطية باستخدام If

للتوضيح:يقصد ب Conditionالشرط قيد الفحص

و Statementالتعليمة التي يتم تنفيذها عند تحقيق الشرط

يمكن استخدام القاعدة Ifباكثر من صورة:

التصنيف الأول - من حيث التركيب:



1)

If Condition Then Statement
وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمة بعد Then وان فشل الشرط يتم تخطيها



مثال:

كود:

If Mark > 90 Then Result = "Very Good"
2)



If Condition Then

Statement

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

مثال:



كود:

If Mark>90 Then

Result = "Very Good"

End If
3)



If Condition Then

Statement1

Statement2

Statement3



....

....

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



مثال:

كود:

If Mark>90 Then

Result1="Very"

Result2="Good"

Result=Result1+Result2

End If
4)



If Condition Then

Statement1

Statement2

ElseStatement3

....

End If
وهنا نخبر البرنامج انه في حال صحة الشرط يتم تطبيق التعليمات Statement1 و Statement2

وفي حال فشل الشرط يتم تنفيذ التعليمات بعد Else وهي تستخدم لتنفيذ التعليمات التي تحتضنها في حال فشل الشروط السابقة لها.

ملاحظة:Elseتعني غير



مثال:



كود:

If Mark>50 Then

Result="Successful"

Else

Result="Not Successful"

End If
5)



If Condition1 Then

Statement1

ElseIf Condition2

Statement2

Else

Statement3
....

End If
وهنا نخبر البرنامج انه اذا تأكد من صحة الشرط الأول يتم تنفيذ ما بعد Then في نفس سطر الشرط إلى أن تنتهي بابتداء الشرط الآخر وهكذا مع بقية الشروط في حال فشل الشروط السالقة وصولا الى Elseوالتي تنفذ في حال فشل كل الشروط السابقة



التصنيف الثاني-من حيث التوزيع:

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

Dim Abrave As Double

Mark1 = Integer.Parse(TextBox1.Text)

Mark2 = Integer.Parse(TextBox2.Text)

Mark3 = Integer.Parse(TextBox3.Text)

Total = Mark1 + Mark2 + Mark3

Abrave = (Total / 3)

Label1.Text = Abrave.ToString

If Abrave> 90 Then

Label2.Text = "ممتاز"

ElseIf Abrave > 80 Then

Label2.Text = "جيد جدا"

ElseIf Abrave > 70 Then

Label2.Text = "جيد"

ElseIf Abrave > 60 Then

Label2.Text = "متوسط"

ElseIf Abrave > 50 Then

Label2.Text = "مقبول"

Else

Label2.Text = "راسب"

End If


الآن قمنا بحجز اربع وتغيرات من النوع Integer وهم الثلاث علامات ومجموعهم وقمنا بحجز متغير آخر من النوع Doubleوهو المعدل لانه من المتوقع أن يحمل المعدل كسور عشرية

لعلك لاحظت جديد في الكود وهو الدالة



كود:

Integer.Parse(String)
كما نعلم فان القيم التي يتم ادخالها لمربع النص TextBox تكون على شكل نص وهنا لا نحتاجها كنص بل نريدها عدد صحيح وهي تعمل عكس عمل .ToString وتقوم بتغيير نوع المدخل من نص إلى رقم صحيح



ملاحظة:كتلة Ifهي كتلة متداخلة(Nested)

ثانيا: الجمل الشرطية باستخدام Select Case

لا تختلف قاعدة Select Case كثيرا عن قاعدة Ifمن ناحية الوظيف لكن لكل حادث حديث

كيف يمكننا استخدام Select Case

1)

يمكننا استخدام لمقارنة قيمة واحدة

مثال:



كود:

Dim X As Integer = 20

Select Case X

Case 20

MsgBox("القيمة هي 20")

Case ElseMsgBox("القيمة غير 20")

End Select
وهنا قمنا باختبار هل المتغير X يحمل القيمة20 أم لا





2)

مقارنة مدى معين

تمعن في المثال التالي:



كود:

Select Case X

Case Is >= 90

Result = "ممتاز"

Case 80 To 89

Result = "جيد جدا"

Case 70 To 79

Result = "جيد"

Case 60 To 69

Result = "متوسط"

Case 50 To 59

Result = "مقبول"

Case Else

Result="راسب"

End Select
الآن نستطيع القول اننا انتهينا من الجمل الشرط بنوعيها الرئيسين والآن انتظروا الجزء الثاني في الفصل القادم -ان شاء الله-



انتظروا الدرس القادم
رد مع اقتباس

 

إضافة رد

أدوات الموضوع إبحث في الموضوع
إبحث في الموضوع:

البحث المتقدم
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

 


الساعة الآن 11:22 PM


Powered by vBulletin® Version 3.8.9 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Ads Organizer 3.0.3 by Analytics - Distance Education

أن كل ما ينشر في المنتدى لا يمثل رأي الإدارة وانما يمثل رأي أصحابها

جميع الحقوق محفوظة لشبكة سكاو

2003-2023