الفصل (2) : الثوابت والمتغيرات وخصائصها....نظرة مفصلة

عند فتح الفيجوال بيسك 2008 ستظهر لنا هذه النافذة هنا ويمكنك من خلالها تحديد اللغة
التي ستبرمج بها والية العمل التي تريدها داخل البرنامج والصورة توضح :

2- الفريم وورك المراد العمل بة .
4- إسم المشروع تبعنا .
5- تغيير مسار حفظ المشروع تبعنا .
والبقية نختارها كما هي بالصورة .

نبتدىء بالدرس الخاص للفصل الحالي وهى ( الثوابت و المتغيرات ) .
أولاً : الثوابت .
تنقسم الثوابت في لغة الفيجوال بسيك 2008 إلى ثلاثة اقسام رئيسية وهي :
نصية .
رقمية .
منطقية .
ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة

const

ولاحظ هنا اخي الكريم في الفيجوال بيسك 2008 لا يمكنك تعريف ثابت إلا من خلال المبدأ التالي :

Const   name  as  type  =  value

ولاحظ هنا عند كتابة الثابت لا يمكنك نسب قيمة له إلا في نفس السطر الذي قمت بكتابة الثابت فيه .

اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر
وهذا من الاشياء التي تميز المتغير عن الثابت
امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج :-

اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر
وهذا من الاشياء التي تميز المتغير عن الثابت
امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج :-

ثابت من نوع نص

Const name As String = "mohammed"

ثابت من نوع عدد صحيح

Const age As Integer = 22

ثابت من نوع قيمة منطقية

Const marry As Boolean = False

 الطرق التي من خلالها تستطيع تعريف ثوابت لبرنامج :-

 1 - الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل

Const name As String = "ali"

2 - كتابة الثابت بدون تحديد نوع له مثل :-

Const name = "lo2i"

 3 - كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل

Const name As String = "mohammed", age As Integer = 22

4 - كتابة اكثر من ثابت بدون تحديد نوع الثابت مثل

Const name = "mohammed", age = 33, marry = False

لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط .


 فوائد الثوابت في البرنامج :

1- تسهيل البرمجة عندما تريد التعويض بقيمة ثابتة لعدد غير معين من المتغيرات.

فمثلاً اذا اردت ان ان تعٌرف ثابت لعمر اعضاء في المنتدى
اسماؤهم كالتالي :_ أحمد و محمد و لؤي
ونريد اعطاء عمر واحد لكل الاعضاء

Const age As Integer = 20
Dim person1 As String = "ahmad"
Dim person2 As String = "mohammed"
Dim person3 As String = "lo2i"
MsgBox(person1 & " = " & age & vbCrLf & person2 & " = " & age & vbCrLf & person3 & " = " & age)

ووظيفة الدالة VBCRLF
هي كالتالي :-
الدالة تعمل على اعطاء سطر جديد في الرسالة ويمكن ايضاً استخدامها في اكثر من مجال
في التيكست وفي اللابيل وفي اكثر من اداة
وضيغتها كالتالي :_ & VBCRLF &
 

 اضغط على الصورة لتكبيرها .

- انها تتعامل مع المصفوفات بكل يسر وسهولة ويمكنها الوصول إلى مصفوفة معينة

الاخطاء المتوقعة حدوثها عند تعاملك مع الثوابت :-

اولاً :-
تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك :-

Const age As Integer = 20
 age = 22

ثانياً:-
تعريف الثابت في سطر ونسب القيمة له في سطر اخر كما قلنا سابقاً .
مثال لذلك :-

Const age As Integer
 age = 18

ملاحظة هامة جداً جداً :-
عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة تعريف الثابت .

ولا حظ هنا ان الفرق بين النقطة الاولى و الثانية   ,, وهي ماسيوضحه هذا الشكل

وهي ان الكود الاول اعطى قيمة للثابت في تعريف الثابت
وفي الخطوة الثانية حاول تغيير القيمة وهنا هو الخطأ

كما قلنا سابقاً الثابت لا يمكن تغييره في وقت تنفيذ البرنامج.

الكود الثاني الخطأ فيه هنا انه لم يعطي قيمة للثابت في التعريف
واقصد بالتعريف هنا اي تعريف الثابت باستخدام الكلمة المحجوزة واعطاه قيمة في سطر جديد .

ملاحظة يمكنك عمل ثابت بالبرنامج
بدون تحديد نوعه اي نصي او حرفي مثل :

Const a = "lo2i"

Const s = 123

Const x = true

ولكن في هذه الحالة يمكنك اعطاء اي قيمة كانت له حرفية نصية منطقية ( اي قيمة صحيحة او خاطئة ) .

=========================

ثانياً المتغيرات :-

تعريفها :- موقع محدد في الذاكرةيمكن ان يحتوي بيانات من اي نوع فالمتغير لايعطي قيمة ثابتة بل يمكن تغييرها بعكس الثابت .

الشروط اللازمة لكتابة اسماء المتغيرات في البرنامج:

1 - عدم استخدام الكلمات المحجوزة في البرنامج 

(if    dim   while   do    ......)

س
 س
س
س
س
س