رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
1- القواعد الأساسية في لغة فيجول بيسك:
كل لغة من لغات البرمجة تحتوي على قواعد أساسية لابد لكل من أراد القيام بعمل برامج بواسطة هذه اللغة أن يعرفها. ملاحظة : لدراسة قواعد لغة البرمجة يجب الانتباه إلى الآتي: 1- وظيفة القاعدة. 2- صيغة القاعدة. 3- حفظ أمر القاعدة باللغة الإنجليزية. وفيما يلي بعض القواعد الأساسية: 1- عملية الإسناد : ويقصد بها " تخزين قيمة معينة في متغير " ، وهذه القيمة المسندة تكون إما عددية أو حرفية حسب نوع المتغير، والصيغة العامة هي: Var1=Value حيث إن: 1- Var1 : اسم المتغير. 2- Value : القيمة التي سوف تخزن في هذا المتغير. ومثال ذلك : نفترض أننا سوف نعّرف متغيراً لاسم الطالب ، ونخزن فيه قيمة ، ألا وهي أحد أسماء الطلاب ، ومتغيراً للدرجة ونخزن فيه قيمة الدرجة فنكتب: Dim N As String , D as Single N ="احمد " D = 48.5 2- الجملة الشرطية (IF): |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
وتعتبر من القواعد المهمة في لغة فيجول بيسك بل في جميع لغات البرمجة ، وتستخدم لتنفيذ عمليات معينة حسب شرط محدد. وتحتوي لغة فيجول بيسك على عدة صيغ ويقوم المصمم باختيار المناسب منها حسب متطلبات المشروع ، وأدناه شرح لهذه الصيغ:
أ- صيغة (IF - THEN ) : تستخدم هذه الصيغة لتنفيذ فعل واحد عند تحقق الشرط او مجموعة الشروط. IF condition THEN statements ومعنى هذه الصيغة : أنه إذا تحقق الشرط (condition) فسيتم تنفيذ الأمر (statements)، ومعنى تحقق الشرط أن تكون قيمته (صحيحة True ) ، والمثال التالي يوضح ذلك : IF D >= 50 THEN Text1 = "ناجح" يوضح هذا المثال أنه إذا كانت الدرجة ( N ) أكبر من أو تساوي50 فإن البرنامج سوف يقوم بتخزين قيمة (ناجح ) في المتغير الحرفي ( Text1 ) . ملاحظة : يمكن جمع أكثر من شرط باستخدام ادوات الربط And , Or , كما في المثال الأتي: IF D>= 50 and D <60 Then text2.text="Good" If D >10 Or D <> 0 then Text1.text ="العدد موجب" في هذا المثال سوف يتم طباعة Good عندما تكون الدرجة D اكبر من أو تساوي 50 واصغر من 60، اما في الحالة الثانية فانه سوف يطبع " العدد موجب " عند تحقق أي من الحالتين. |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
ب- صيغة ( IF - THEN - END IF )
IF condition THEN …. statements …. END IF وهذه الصيغة تعني بتنفيذ مجموعة من الأوامر إذا تحقق الشرط (condition) بدلاً من تنفيذ أمر واحد، والمثال التالي يوضح ذلك: IF D >= 50 THEN Text1 = "ناجح" Text2 = " مبروك" END IF في هذا المثال إذا كانت الدرجة ( D ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة (ناجح ) في المتغير الحرفي ( Text1 )، وقيمة (مبروك) في المتغير الحرفي (Text2). ج- صيغة (IF - THEN - ELSE) : IF condition THEN …. statements1 …. ELSE …. statements2 …. END IF تختلف هذه الصيغة عن الصيغتين السابقتين، وذلك أن هذه الصيغة تنفذ مجموعة الأوامر (statements1) عندما يتحقق الشرط(condition)، أما عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (statements2)، وهذا المثال يوضح ذلك: IF D >= 50 THEN Text1 = "ناجح " ELSE Text1 = "راسب" END IF يوضح هذا المثال أنه إذا كانت الدرجة ( D ) أكبر من أو تساوي 50 فإن البرنامج سوف يقوم بتخزين قيمة (ناجح ) في المتغير الحرفي ( Text1 ) ، أما إذا كانت الدرجة ( D ) أصغر من 50 فإن البرنامج سوف يقوم بتخزين قيمة (راسب) في المتغير الحرفي (Text1). د- صيغة (IF - THEN - ELSEIF) : IF condition THEN …. statements1 …. ELSEIF condition THEN …. statements2 …. ELSE …. END IF وتختلف هذه الصيغة عن الصيغة الثالثة في أنها تضع شرطاً جديداً عندما لا يتحقق الشرط السابق ، والمثال التالي يوضح هذه الصيغة : IF D >= 90 THEN Text1 = " ممتاز" ELSEIF D >= 80 THEN Text1 = "جيد جدا" ELSEIF D >= 70 THEN Text1 = "جيد" ELSEIF D >= 60 THEN Text1 = "مقبول" Else Text1 = "راسب" END IF ومعنى هذا المثال أنه إذا كانت الدرجة ( D ) أكبر من أو تساوي 90 (تحقق الشرط الأول) فإن البرنامج سوف يقوم بتخزين قيمة (ممتاز) في المتغير الحرفي (Text1)، أما إذا كانت الدرجة ( D ) أكبر من أو تساوي 80 فإن البرنامج سوف يقوم بتخزين قيمة (جيد جداً) في المتغير الحرفي (Text1 ) ، أما إذا كانت الدرجة (D ) أكبر من أو تساوي 70 فإن البرنامج سوف يقوم بتخزين قيمة (جيد) في المتغير الحرفي ( Text1)، أما إذا كانت الدرجة ( D ) أكبر من أو تساوي 60 فإن البرنامج سوف يقوم بتخزين قيمة (مقبول) في المتغير الحرفي (Text1) ، أما إذا كانت الدرجة غير ما سبق فإن البرنامج سوف يقوم بتخزين قيمة (راسب) في المتغير الحرفي (Text1). ملاحظة / في صيغة (IF - THEN - ELSEIF) إذا تحقق أحد الشروط فإن الحاسب ينفذ العملية ، ثم يذهب مباشرة إلى نهاية جملة ( END IF ) ولا يقوم بالتحقق من الشروط الأخرى. |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
3- الانتقال (GOTO):
في هذه القاعدة يتم الانتقال من جزء إلى جزء آخر في البرنامج أثناء تنفيذه. وهناك نوعان من الانتقال: أ- الانتقال غير المشروط : ويعني " الانتقال لسطر محدد دون التقيد بأي شرط " ، ويكون حسب الصيغة التالية: GOTO line حيث line يعني رقم السطر المراد الانتقال إليه ، ومثال ذلك : Dim N As String , D as Single N="احمد" GoTo AA …. …. AA: D= 48.5 ملاحظة: ينتهي رقم السطر المنتقل إليه بـ( : ) شرح البرنامج : السطر الأول: تعريف المتغير (N) من نوع نص (String) ، والمتغير (D ) من نوع عدد عشري (Single). السطر الثاني: إسناد قيمة "محمد عمر" إلى المتغير (N ). السطر الثالث: يتم الانتقال بواسطة (GoTo) إلى السطر (AA). السطر الرابع والخامس: عدة أوامر بعد قاعدة (GoTo). السطر السادس: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GoTo AA). السطر السابع: الأمر الذي سينفذه البرنامج بعد الانتقال إلى السطر (AA) حيث سيخزن القيمة (48.5) في المتغير (D). ب- الانتقال المشروط : ويعني " الانتقال لسطر محدد عندما يتحقق شرط معين " ، ويكون مصاحباً لإحدى عمليات الشرط والمقارنة ، كما في الصيغة التالية : IF condition THEN GOTO line حيث condition يعبر عن الشرط ، و line يعني رقم السطر المراد الانتقال إليه. والمثال التالي يوضح الانتقال المشروط: IF D >= 90 THEN GOTO A IF D < 90 THEN GOTO B A: Text1 = "ممتاز" GoTo C B: Text1 = "جيد جداً" C: Print Text1 شرح البرنامج : السطر الأول: شرط للتحقق من قيمة المتغير (D) ، فإذا كانت قيمته أكبر من أو تساوي 90 فإن البرنامج سينتقل إلى السطر (A). السطر الثاني: شرط للتحقق من قيمة المتغير (D) ، فإذا كانت قيمته أقل من 90 فإن البرنامج سينتقل إلى السطر (B). السطر الثالث: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO A). السطر الرابع والخامس: تخزين قيمة "ممتاز" في المتغير (Text1) ، ثم الانتقال إلى السطر (C). السطر السادس: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO B). السطر السابع: تخزين قيمة "جيد جداً" في المتغير (Text1). السطر الثامن: السطر الذي سينتقل إليه البرنامج بعد تنفيذ الأمر (GOTO C). السطر التاسع: طباعة قيمة المتغير (Text1) بواسطة الأمر (Print). ولا يفضل استخدام طريقة الانتقال في البرنامج، لأنها تجعل من الصعب متابعة خطوات البرنامج ، خاصة عندما تكون تلك الخطوات كثيرة، والبرنامج الجيد تتتابع خطواته بصورة سلسلة ومنطقية، ولا يحدث انتقال إلا في حالات قليلة. ملاحظة / عند انتقال تنفيذ البرنامج بواسطة الأمر (GOTO) فإن البرنامج سيستمر بتنفيذ الأوامر التي بعد السطر الذي انتقل إليه ولن يعود لتنفيذ الأوامر التي بعد (GOTO). |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
4- الجملة الشرطية (Select Case):
إذا كان لديك احتمال واحد أو احتمالين للشرط، فإنه يمكنك استخدام قاعدة (IF) التي ذكرناها سابقاً ، أما إذا كان لديك عدة احتمالات يفضل استخدام قاعدة (Select Case) ، وتكون صيغته كالتالي: SELECT CASE expression CASE prob1 ….. statements1 ….. CASE prob2 ….. statements2 ….. CASE ELSE ….. statements3 ….. END SELECT حيث إن : 1- SELECT CASE : بداية صيغة القاعدة. 2- expression : التعبير الذي نريد تقييمه. 3- CASE : توضع قبل كل احتمال من احتمالات التعبير الذي نريد تقييمه. 4- prob1, prob2, … : الاحتمالات التي نريد تقييمها للتعبير. 5- CASE ELSE : نستخدمها إذا أردنا تنفيذ أوامر عندما لا يتحقق أي احتمال من الاحتمالات السابقة،وهي اختيارية بمعنى أننا إذا لم نستخدمها فإن ذلك لا يؤثر. 6- END SELECT : نهاية القاعدة. في هذه القاعدة يقوم "فيجول بيسك" بتقييم التعبير (expression) في بداية القاعدة ، ثم يبدأ في مقارنته مع الاحتمالات المختلفة (prob1, prob2,...) التي تذكرها عند كلمة CASE ، فإذا وافق أحدها الشرط ، فإنه يقوم بتنفيذ مجموعة الأوامر التي تليها حتى كلمة CASE التالية، وإذا لم يوافق أيّاً من الاحتمالات المذكورة فإنه ينفذ مجموعة الأوامر التي تلي كلمة (Case Elese) ، وهي اختيارية بمعنى أنها إذا لم تكن موجودة فإنه لا ينفذ أيّاً من تلك الأوامر. والمثال التالي يوضح استخدام ((Select Case : SELECT CASE grade CASE 90 to 100 Text1 = " ممتاز" CASE 80 to 89 Text1 = "جيد جدا" CASE 70 to 79 Text1 = "جيد" CASE 60 to 69 Text1 = "مقبول" CASE Else Text1 = "راسب" END SELECT وقد استخدمنا نفس المثال في جملة (IF - THEN - ELSEIF) ، وهنا نرى قيمة الدرجة ( D ) ، وحسب هذه القيمة نخزن قيمة التقدير في المتغير الحرفي ( Text1 ). |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
1 مرفق
السلام عليكم
وهذا كتاب تعلم الفيجوال اتمنى ان يكون مفيد |
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
جزاكم الله خيرا
|
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
الله يعييييين
|
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
يعطييك العافيه مقدمه راااااائعه ومفيده
|
رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي
شكرا
|
الساعة الآن 05:01 PM. |
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ