تعلم اليوم - المتغيرات في الVB

السلام عليكم

الحمدلله على السلامة اخوي منصور وإن شاء الله يكون سبب انقطاعك عن المنتدى مانع خير إن شاء الله :)

هذا انت رديت لنا وكعادتك في جعبتك الكثير والكثير...الله يعطيك العافيه.

Welcome Back

وشكرا

________

[F=Maroon]استكمالاً لما بدئناه بالحديث عن المتغيرات يسرنا أن أوضح لكم اليوم فائدة الاعلان عن المتغيرات

إن عدم الاعلان عن النتغيرات قد يؤدي إلى أخطاء خفيه في برنامجك ( بس تدوخ مالقيتها ) فمثلاً

UserName=inputbox ("أدخل اسمك ")

magbox ("اسمك هو"& UseName )

في هذا الكود يفترض ان تدخل اسمك والسطر الثاني يعطيك رساله يقول فيها اسمك هو ..

ولكن ولوجود اختلاف في اسم المتغير في السطر الثاني وهو UseName عن السطر الأول وهو UserName سوف

تكون الرساله بدون ذكر اسمك الذي أدخلت لأن الفيجول بيسك سيعتبره متغير جديد لا يحمل اي قيمه .

وهذه المشاكل لاتوقف البرنامج ولا تعطي أي رسالة خطأ ولكن البرنامج سيكون فيه عيب برمجي كبير

على فرض أنه برنامج محاسبي وهذا المتغير مطلوب حسم قيمته من راتب او غيره فلن يقوم بحسمه إذن

ما هو الحل ؟

لحل المسأله يمكنك كتابة الجملة الاتية في قسم الاعلانات في النموذج الامر هو Option Explicit

هذا الأمر يقوم برفض اي متغير لم يعرف ( اي لم يعلن عنه ) والاعلان عن المتغيرات كالتالي

Dim VBNAME AS String ولكن هذا الامر سوف يعمل مع النموذج المكتوب فيه فقط فإذا كان لديك

مجموعة نماذج فمن قائمة Tools اختر Option ثم Editor ثم ضع علامة صح أمام Requir Variable Declarations

وسوف يقوم الفيجول بيسك بإضافة الجملة Option Explicit في كل نموذج تنشئه .

يتم الاعلان عن المتغيرات بإحدى الاوامر الاتية Dim , Global , static

ويتم اختيار احدها حسب الحاجة وسوف أبين الفرق بينهم ان شاء الله .

[/F]

[C][F=5][F=Red]المتغيرات العامة : Global Variable[/F][/F][/C]

وهذا المتغير يمكنك استخدامه من أي مكان في البرنامج أي أن مداه يشمل البرنامج بجميع ملفاته

ونوافذه ويبقى في الذاكره حتى تنهي البرنامج ويتم الاعلان عنه في ملف برمجه أو ( مود يول ) بالصيغة

الأتية Global Mename AS string

[C][F=5][F=Red]المتغيرات على مستوى النموذج ( الفورم ): Global Variable[/F][/F][/C]

وهي متغيرات محدودة بالنموذج فقط ولا يمكن استعمالها في النوذج الثاني وهذه ايضاً تبقى في الذاكره

حتى ينتهي البرنامج والفرق بين المتغير العام وبين هذا المتغير فقط في المدى فالاول يستخدم من

اي مكان بينما هذا من الفورم الموجود فيه فقط .ويتم كتابته في قسم الاعلانات في النموذج ( الفورم )

بالصيغة الأتية Dim Mename as strig

[C][F=5][F=Red]المتغيرات المحلية على مستوى الاجراء Global Variable[/F][/F][/C]

وهذا النوع هو من اقصر المتغيرات من حيث المدى حيث يقتصر عمله على الاجراء (Procedure) الذي

أعلن عنها فيه ولا يمكن استخدامها في خارج نطاقه . ويتم الاعلان عن المتغير داخل الاجراء نفسه كالتالي

Private Sub Command1_Click()
Static s As Integer
s = s + 10
Text1.Text = s
End Sub

ولو جربت في المثال السابق تبديل الـ static بـ Dim سوف تجد أن القيمة ثابته لأن S تزال من

الذاكره وتصبح قيمتها صفر وطبعاً 0+10 =10 في كل مره بينما static يبقي قيمة المتغير في الذاكره

فيكون الاتي : قيمة الـ S هي 10 في البداية ثم تنقل للذاكره 10 وتبقى هناك وعند استدعاء الاجراء

مره أخرى يكون 10+sالموجوده بالذاكره =20 ثم تنقل ال 20 للذاكره وتبقى هكذا .

ويختلف عمر المتغير حسب طريقة الاعلان عنه فإذا أعلنت عنه بستخدام الامرDim فإن فيجول بيسك

يزيل المتغيرمن الذاكره بعد انتهاء الاجراء وبالتالي تفقد قيمتها ويتم استرجاع قيمة الذاكره

المحجوزه لها وعند استدعاء الاجراء مره اخرى تحجز الذاكره مره ثانية وهذا النوع من المتغيرات مفيد

جداً للمتغيرات المؤقته لقلة استهلاكه للذاكره .

[C] [note ][LT ][F=7][F=Blue]خلاصة الحديث[/F][/F][/note ][/C]

انه يجب عليك ان تحدد مدى المتغير الذي تريد استخدامه منعاً لستهلاك الذاكره بدون داع فإذا كنت

تحتاج استخدام متغير في أكثر من نافذه ( نموذج او فورم ) فيجب ان تعلن عنه

كمتغير عام Global Vairabal

واذا كنت تحتاجه داخل النموذج فقط تعلن عنه داخل النافذه فقط واذا كنت تحتاج احتياج مؤقت اعلن عنه داخل

الاجراء

اشكر لكم متابعتكم واقدم شديد اعتذاري على قصور ما أقدم فلكم علينا الحق الكثير والشكر لمن اهدى إلي

الملاحظات فأنا بأشد الحاجة إليها .

اخوكم

الموضوع جميل تسلم ;)

جزاك الله خير

فعلاً استاذ