742 likes | 2.3k Views
البرمجة بلغة الفيجول بيسك. تابع الباب الثالث. طرق تعريف المتغيرات والثوابت بلغة فيجـــــوال بيسك. 3-3. 1. طريقة تعريف المتغيرات. يتم تعريف المتغيرات في لغة فيجوال بيسك باستخدام الأمر Dim. وصيغته كـالتالــــــــــي. Dim var1 As Type. Dim name As String. مثــــال. 2.
E N D
تابع الباب الثالث طرق تعريف المتغيرات والثوابت بلغة فيجـــــوال بيسك. 3-3 1 طريقة تعريف المتغيرات يتم تعريف المتغيرات في لغة فيجوال بيسك باستخدام الأمر Dim وصيغته كـالتالــــــــــي Dim var1 As Type Dim name As String مثــــال
2 طريقة تعريف الثوابت يتم تعريف الثوابت باستخدام الأمر( Const ) وصيغته كالتالي Const Const1= Value إذا أردنــا تعريف ثابت للدرجة القصوى لمـــادة معيــنة يكون كالتــالي : Const HighScore = 100 مثـــــــــــال
3 طريقة الإعلان عن المتغيرات والثوابت ونقصد بالإعلان هو: تحديد المكان الذي نعرف فيه هذه المتغيرات والثوابت داخل البرنامج ملاحظة : يتم تعريف المتغيرات والثوابت داخل الإجراءات الخاصة بالعناصر ( الأدوات ). Private Sub sub_name ( ) ُEnd Sub بالصيغة التــــــــــــــالية : Private Sub Enter _ Cmd ( ) Dim name As String ConstHighScore = 100 ….. ….. End Sub مثــــال
بعض القواعد الأساسية في لغة فيجوال بيسك 3-4 ملاحظة : لدراسة قواعد لغة البرمجة يجب الانتباه إلى الآتي : 1 – وظيفة القاعدة. 2- صيغة القاعدة. 3- حفظ أمر القاعدة باللغة الإنجليزية. ويقصد بهــا :تخزين قيمة معينة في متغير ، وهذه القيمة المسندة تكون إما عددية أو حرفية حسب نوع المتغير عملية الإسنـــــــــــاد 1 Var1 = Value وصيغته كالتـــالي
Dim name As String , grade as Single ”محمد عمر ”name = عملية الإسنادGrade = 48.5 وتعتبر من القواعد المهمة في لغة فيجوال وفي جميع لغات البرمجة وتحوي لغة فيجوال بيسك على عدة صيغ منها مثـــال 3 الجمــلة الشرطيــــــــــــــــــة IF أ- صيغة ( IF – THEN ) الصيغة العامــــــــــــــة IF condition THEN statements ”ناجح ”IFgrade >= 50 THEN text1= مثـــال
ب - صيغة ( (IF – THEN END IF IF condition THEN ….. مجموعة من الأوامرStatements …. END IF الصيغة العــــــــــامة IF grade >= 50 THEN ” ناجح ”Text1= ” مبروك ”Text2 = ُEND IF مثـــــال
ج – صيغــة ( IF – THEN – ELSE ) IF condition THEN …. Statements1 …. ELSE …. Statements2 …. END IF الصيغة العــــــــــــامة
IF grade >= 50 THEN ” ناجح ”Text1 = ُELSE ” راســـب ”Text1 = ُEND IF مثــــــــــال الصيغة الأخيرة هي د- IF – THEN – ELSEIF التفاصيل عنها الأسبوع القادم نهـــــاية الدرس