If Then
- 2. بعض القواعد الأساسية في لغة الفيجوال بيسك
- 3. البرمجة بلغة الفيجول بيسك الباب الثالث بعض القواعد الأساسية في لغة فيجول بيسك كل لغة من لغات البرمجة تحتوي على قواعد أساسية لابد لكل من أراد القيام بعمل برامج بواسطة هذه اللغة أن يعرفها . مقدمة ملاحظة لدراسة قواعد لغة البرمجة يجب الانتباه إلى الآتي : 1 وظيفة القاعدة . 1 2 صيغة القاعدة . 3 حفظ أمر القاعدة باللغة الإنجليزية .
- 4. البرمجة بلغة الفيجول بيسك الباب الثالث بعض القواعد الأساسية في لغة فيجول بيسك أولاً ويقصد بها : تخزين قيمة معينة في متغير ، وهذه القيمة المسندة إما عددية أو حرفية حسب نوع المتغير : وصيغته كالتالي : Var1 = value حيث إن : 1 Var1 : اسم المتغير . 2 value : القيمة التي سوف تخزن في هذا المتغير . عملية الإسناد
- 5. البرمجة بلغة الفيجول بيسك الباب الثالث مثال نفترض أننا سوف نعرف متغيراً لاسم الطالب ، ونخزن فيه قيمة ، ألا وهي أحد أسماء الطلاب ومتغيراً للدرجة ونخزن فيه قيمة الدرجة فنكتب : Dim name As String, grade as Single Name = “ali” grade = 15 عملية الإسناد تسمى
- 6. التطبيق ؟ ؟ ؟ ؟ ؟ ؟
- 7. أن الأمور لا تحدث صدفة في الحياة بل بمشيئة الله ثم إذا تحقق شرط معين يحصل الأمر ،، هل طلبت من الوالدة طلب مثل جوال أو ساعة ثمينة واشترطت عليك شرط كالتفوق في الدراسة؟ إذا اجتهدتي إذن سوف تنجحين ، إذا درجتك أكبر من 90 إذن تحصلين على تقدير ممتاز ،، فإذا عرفت الشروط و قمت بتحقيقها يتم تنفيذ الأمر من جد وجد من زرع حصد
- 8. و بالمثل في برامج الحاسب فإن أهم أوامر البرمجة هي الشرط لأنها تجعل البرنامج ينفذ العملية المطلوبة و المناسبة على البيانات،، حيث نكتب الشرط و البرنامج ينفذه،،،
- 9. البرمجة بلغة الفيجول بيسك الباب الثالث بعض القواعد الأساسية في لغة فيجول بيسك ثانياً وتعتبر من القواعد المهمة في لغة فيجول بيسك في جميع لغات البرمجة ، وتستخدم لتنفيذ عمليات معينة حسب شرط محدد . وتحتوي لغة فيجول بيسك على عدة صيغ ، منها : 1 صيغة ( IF-THEN- END IF ) 2 3 صيغة ( IF-THEN- ELSE ) صيغة ( IF-THEN ) 4 صيغة ( IF-THEN- ELSEIF ) الجملة الشرطية ( IF )
- 10. البرمجة بلغة الفيجول بيسك الباب الثالث 1- صيغة ( IF- THEN ) الصيغة العامة : IF condition THEN statements ومعنى هذه الصيغة : أنه إذا تحقق الشرط ( condition ) فسيتم تنفيذ الأمر ( statements ) ، ومعنى تحقق الشرط أن تكون قيمته ( صحيحة True ) مثال يوضح المثال السابق أنه إذا كانت الدرجة ( grade ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة ( ناجح ) في المتغير الحرفي ( Text1 ) . IF grade>=50 THEN Text1= ” ناجح ”
- 11. البرمجة بلغة الفيجول بيسك الباب الثالث 2- صيغة ( IF-THEN-END IF ) الصيغة العامة : IF condition THEN …… Statements …… END IF مجموعة من الأوامر وهذه الصيغة يعني تنفيذ مجموعة من الأوامر إذا تحقق الشرط ( condition ) بدلاً من تنفيذ أمر واحد . هذه هي
- 12. البرمجة بلغة الفيجول بيسك الباب الثالث مثال في هذا المثال إذا كانت الدرجة ( grade ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة ( ناجح ) في المتغير الحرفي ( Text1 ) ، وقيمة ( مبروك ) في المتغير الحرفي ( Text2 ) . 2- صيغة ( IF-THEN-END IF ) مجموعة من الأوامر IF grade>=50 THEN Text1= Text2= END IF ” ناجح ” ” مبروك ” هذه هي
- 13. البرمجة بلغة الفيجول بيسك الباب الثالث 3- صيغة ( IF-THEN-ELSE ) تختلف هذه الصيغة عن الصيغتين السابقتين ، وذالك أن هذه الصبغة تنفذ مجموعة الأوامر ( Statements1 ) عندما يتحقق الشرط ( condition ) ، أما عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر ( Statements2 ) IF condition THEN …… Statements1 …… else …… Statements2 …… END IF الصيغة العامة :
- 14. البرمجة بلغة الفيجول بيسك الباب الثالث 3- صيغة ( IF-THEN-ELSE ) مثال IF grade>=50 THEN Text1=” ناجح " ELSE Text2=” راسب " END IF يوضح هذا المثال أنه إذا كانت الدرجة ( grade ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة ( ناجح ) في المتغير الحرفي ( Text1 ) ، أما إذا كانت الدرجة ( grade ) أصغر من 50 فإن البرنامج سوف يقوم بتخزين قيمة ( راسب ) في المتغير الحرفي ( Text2 ) .
- 15. البرمجة بلغة الفيجول بيسك الباب الثالث 4- صيغة ( IF-THEN-ELSEIF ) وتختلف هذه الصيغة عن الصيغة الثالثة في أنها تضع شرطاً جديداً عندما لا يتحقق الشرط السابق ، والمثال التالي يوضح هذه الصيغة . IF condition THEN …… Statements1 …… Elseif condition THEN …… Statements2 …… Else … .. END IF الصيغة العامة :
- 16. البرمجة بلغة الفيجول بيسك الباب الثالث 4- صيغة ( IF-THEN-ELSEIF ) مثال IF grade>=90 THEN Text1= “ ” ممتاز ELSEIF grade >=80 THEN Text1= “ ” جيد جداً ELSEIF grade >=70 THEN Text1=“ جيد ” ELSEIF grade >=60 THEN Text1=“ مقبول “ Else Text1=“ ” راسب END IF ملاحظة : في صيغة ( IF-THEN-ELSEIF ) إذا تحقق أحد الشروط فإن الحاسب ينفذ العملية ، ثم يذهب مباشرة إلى نهاية جملة ( END IF ) ولا يقوم بالتحقق من الشروط الأخرى
- 17. التطبيق ؟ ؟ ؟ ؟ ؟ ؟
- 18. البرمجة بلغة الفيجول بيسك الباب الثالث بعض القواعد الأساسية في لغة فيجول بيسك ثالثاً في هذه القاعدة يتم الانتقال من جزء إلى جزء آخر في البرنامج أثناء تنفيذه . وهناك نوعان من الانتقال : 1 2 الانتقال غير المشروط : ويعني الانتقال المحدد دون التقيد بأي شرط . الانتقال ( GOTO ) الانتقال المشروط : ويعني الانتقال لسطر محدد عندما يتحقق شرط معين، ويكون مصاحباً لإحدى عمليات الشرط والمقارنة .
- 19. البرمجة بلغة الفيجول بيسك الباب الثالث ا - الانتقال غير المشروط GOTO line حيث line يعني رقم السطر المراد الانتقال إليه ، ومثال ذلك : ويعني الانتقال المحدد دون التقيد بأي شرط . Dim name As String , grade As Single Name = “ عمر محمد ” GOTO AA ....... …… AA: Grade = 48.5 الصيغة العامة مثال
- 20. البرمجة بلغة الفيجول بيسك الباب الثالث 2- الانتقال المشروط IF condition THEN GOTO line حيث condition يعبر عن الشرط . و line يعني رقم السطر المراد الانتقال إليه : الصيغة العامة ويعني الانتقال لسطر محدد عندما يتحقق شرط معين، ويكون مصاحباً لإحدى عمليات الشرط والمقارنة .
- 21. البرمجة بلغة الفيجول بيسك الباب الثالث 2- مثال على الانتقال المشروط IF grade >= 90 THEN GOTO A IF grade < 90 THEN GOTO B A: Text1 = “ ممتاز ” GOTO C B: Text2 = “ جيد جداً ” GOTO C C: Print Text1 مثال
- 22. البرمجة بلغة الفيجول بيسك الباب الثالث لا يفضل استخدام طريقة الانتقال في البرنامج ، لأنها تجعل من الصعب متابعة خطوات البرنامج ، خاصة عندما تكون تلك الخطوات كثيرة ، والبرنامج الجيد تتتابع خطواته بصورة سلسة ومنطقية ، ولا يحدث انتقال إلا في حالات قليلة ملاحظة 2 ملاحظة 1 عند انتقال تنفيذ البرنامج بواسطة الأمر ( GOTO ) فإن البرنامج سيستمر بتنفيذ الأوامر التي بعد السطر الذي انتقل إليه ولن يعود لتنفيذ الأوامر التي بعد ( GOTO ) الأولى .
- 23. استعدي خير استعداد اختبار بعد كل باب الأسبوع القادم _بإذن الله_ اختبار في الباب 1 و 2
- 24. تذكري أن معمل الحاسب أمانة فحافظي على نظافته بارك الله فيك عزيزتي الطالبة