العودة   منتديات حاسبكو المتخصصة بمادة الحاسب الآلي > حاسبكوا مادة الحاسب لمراحل التعليم العام > دروس وشرح برامج المنهج

الملاحظات

دروس وشرح برامج المنهج هنا المساعد لاستفسارات برامج المنهج

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 10-27-2012, 05:12 PM   #21
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

1- القواعد الأساسية في لغة فيجول بيسك:
كل لغة من لغات البرمجة تحتوي على قواعد أساسية لابد لكل من أراد القيام بعمل برامج بواسطة هذه اللغة أن يعرفها.
ملاحظة :
لدراسة قواعد لغة البرمجة يجب الانتباه إلى الآتي:
1- وظيفة القاعدة.
2- صيغة القاعدة.
3- حفظ أمر القاعدة باللغة الإنجليزية.
وفيما يلي بعض القواعد الأساسية:


1- عملية الإسناد :
ويقصد بها " تخزين قيمة معينة في متغير " ، وهذه القيمة المسندة تكون إما عددية أو حرفية حسب نوع المتغير، والصيغة العامة هي:
Var1=Value
حيث إن:
1- Var1 : اسم المتغير.
2- Value : القيمة التي سوف تخزن في هذا المتغير.
ومثال ذلك : نفترض أننا سوف نعّرف متغيراً لاسم الطالب ، ونخزن فيه قيمة ، ألا وهي أحد أسماء الطلاب ، ومتغيراً للدرجة ونخزن فيه قيمة الدرجة فنكتب:
Dim N As String , D as Single
N ="احمد "
D = 48.5
2- الجملة الشرطية (IF):
  رد مع اقتباس
قديم 10-27-2012, 05:13 PM   #22
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

وتعتبر من القواعد المهمة في لغة فيجول بيسك بل في جميع لغات البرمجة ، وتستخدم لتنفيذ عمليات معينة حسب شرط محدد. وتحتوي لغة فيجول بيسك على عدة صيغ ويقوم المصمم باختيار المناسب منها حسب متطلبات المشروع ، وأدناه شرح لهذه الصيغ:
أ- صيغة (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، اما في الحالة الثانية فانه سوف يطبع " العدد موجب " عند تحقق أي من الحالتين.
  رد مع اقتباس
قديم 10-27-2012, 05:14 PM   #23
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

ب- صيغة ( 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 ) ولا يقوم بالتحقق من الشروط الأخرى.
  رد مع اقتباس
قديم 10-27-2012, 05:14 PM   #24
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

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).
  رد مع اقتباس
قديم 10-27-2012, 05:15 PM   #25
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

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 ).
  رد مع اقتباس
قديم 10-27-2012, 05:20 PM   #26
shamal
 
الصورة الرمزية shamal
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

السلام عليكم
وهذا كتاب تعلم الفيجوال
اتمنى ان يكون مفيد
الملفات المرفقة
نوع الملف: pdf تعلم الفجوال بيسك في أسبوعين.pdf‏ (1.88 ميجابايت, المشاهدات 240)
  رد مع اقتباس
قديم 11-02-2012, 07:08 PM   #27
فريق الاشراف
 
الصورة الرمزية أمل المملكه
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

جزاكم الله خيرا
  رد مع اقتباس
قديم 11-06-2012, 12:25 AM   #28
RFM2010
 
الصورة الرمزية RFM2010
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

الله يعييييين
  رد مع اقتباس
قديم 09-05-2013, 10:45 AM   #29
ام كنان
حاسبكو مبتدئ
 
الصورة الرمزية ام كنان
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

يعطييك العافيه مقدمه راااااائعه ومفيده
  رد مع اقتباس
قديم 12-03-2013, 07:54 AM   #30
ماصارات
حاسبكو جديد
 
الصورة الرمزية ماصارات
افتراضي رد: البرمجة بلغة الفيجول بيسك لصف ثالث ثانوي

شكرا
  رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

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

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

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


الساعة الآن 12:29 PM.





Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Trans by
جميع الحقوق محفوظة لدى موقع ومنتديات حاسبكو 1431هـ/1432هـ

a.d - i.s.s.w