كيف تصبح مبرمج Visual Basic محترف

2) تفادي الاخطاء

الكائن Err
عودا الى موضوع اخطاء وقت التشغيل وبالتحديد في مثال الملف FileName.EXT، بدلا من كتابة عشرات الاسطر للتأكد من قابلية حذف الملف، استخدم كائن الخطأ Err. قبل تطبيق هذا الكائن لا بد من معرفة أي كل خطأ من اخطاء وقت التشغيل له رقم خاص فيه ووصف. وعند حدوث الخطأ يتم وضع هذه البيانات (الخاصة بالخطأ) في الكائن Err. عند رغبتك في الاستمرار في عملية تنفيذ البرنامج حتى عند وقوع الخطأ لابد من كتابة التعليمة On Error Resume Next عند بداية كل اجراء حتى يستمر في تنفيذ سطور البرنامج وهي افضل من On Error Goto X. راقب هذا المثال:



Code:
--------------------------------------------------------------------------------


On Error Resume Next

Kill “FileName.EXT”
If Err Then
MsgBox Err.De******ion
Err.Clear
End If



--------------------------------------------------------------------------------



هنا سنقوم بمحاولة حذف الملف. ان لم يستطع البرنامج فعل ذلك فان الكائن Err سيحتوي على خصائص تتعلق بذلك الخطأ. كما تلاحظ، سنظهر رسالة توضح وصف الخطأ. من المهم التأكد من تنظيف الكائن Err عن طريق استدعاء الطريقة Clear حتى تخبر البرنامج اننا انتهينا من قنص الخطأ وانه لا يوجد خطأ اخر.

طريقة مفيدة لتجنب الشوائب
تجنب الشوائب يحتاج الى كتب لا نهاية لها! الا انني ساعرض لك طريقة معروفة لمحاولة معرفة اسباب حدوث الشوائب واصلاحها وهي التنفيذ خطوة خطوة! المقصد تنفيذ سطر تلو الاخر عن طريق الضغط على مفتاح F8 للانتقال الى تنفيذ السطر التالي او Shift + F8 لتنفيذ اجراء كامل. من المهم ان اذكر هنا، ان بعض الاحداث كـ KeyUp و غيرها لن يتم تنفيذها بالشكل الصحيح. بالاضافة الى ذلك، اجعل قيمة الخاصية Interval لاداة المؤقت Timer مساوية للصفر حتى لا تزعك كثرة الانتقال الى كود الاداة. ايضا الق نظرة الى قائمة Debug ستجد فيها الكثير من الخدمات الفعالة كمراقبة قيم المتغيرات وتحديد نقاط الايقاف المؤقت للبرنامج.

خاتمة
ناقشت في هذه المقالة موضوع الاخطاء وصنفتها حسب وقت حدوثها. كما تطرقت الى موضوع الشوائب وهو موضوع كبير لا نهاية له وطريقة التنفيذ خطوة خطوة لمعرفة اسباب حدوثها.


















ارسال القيم الى الاجراءات والدوال (للمبتدئين)


الاجراءات Sub's او Functions قابلة لاستقبال متغيرات Argument. تحديد المتغيرات التي يحتاجها الاجراء يعتمد بشكل كبير على الهدف والوظيفة التي يقوم بها الاجراء. ومن اهمية هذا الموضوع خصصت مقالة تتكلم عن موضوع ارسال المتغيرات الى الاجراءات بشيء من التفصيل.



بصفة عامة، الاجراءات سواء كانت Sub او Functions يمكن ان تستقبل انواع مختلفة من المتغيرات سواء كانت انواع قياسية كـ Integer او String الخ.. او حتى انواع معرفة من قبل المستخدم كتركيبات UDT او فئات Classes. بالاضافة الى قابلية الاجراءات لاستقبال المصفوفات Arrays. عملية ارسال المتغير الى الاجراء تتطلب وضع القيم بين قوسين في حالة كون الاجراء سيعود بقيمة لمستدعي ذلك الاجراء، اما غير ذلك فلا يشترط وضع الاقواس.

الارسال بالمرجع او بالقيمة
افتراضيا، تستقبل الاجراءات المتغيرات المرسلة لها بالمرجع. وفي حالة رغبتك لجعلها تستقبل المتغيرات بالقيمة لابد من كتابة الكلمة ByVal عند تصريح المتغير الذي يستقبله الاجراء. اما الفرق بين عملية ارسال المتغير بالمرجع وارساله بالقيمة فهو بسيط جدا. فعملية ارسال المتغير بالمرجع Reference تقوم على اساس ارسال مؤشر المتغير أي عنوان المتغير بالذاكرة والذي عن طريقه تستطيع تعديل قيمة المتغير في الاجراء:



Code:
--------------------------------------------------------------------------------


Sub Start ()
' هنا نقطة البداية
Dim X As Integer

' X = 0
Print X
MySub X
' X = 5
Print X
End Sub

Sub MySub (X As Integer)
X = 5
End Sub



--------------------------------------------------------------------------------



فكما تلاحظ في الكود السابق، الاجراء MySub توقع استقبال مرجع لمتغير من نوع Integer مما يعطيه قابلية لتغيير القيمة المرسلة لها. الكثير من الحلول يوفرها لك اسلوب الاستدعاء بالمرجع لعل اسهلها اجراء يقوم بتبديل قيمتين مرسلتان له:



Code:
--------------------------------------------------------------------------------


Sub Swap (X As Variant, Y As Variant)
' اجراء يقوم بتبديل قيم لمتغيران
' ارسلا له مهما كان نوعهما
Dim vTemp As Variant
vTemp = X : X = Y : Y = vTemp
End Sub



--------------------------------------------------------------------------------




اما الارسال بالقيمة فهو ابطأ من الارسال بالمرجع خاصة مع الحروف Strings والسبب في ذلك ان Visual Basic سيضطر لنسخ قيمة المتغير الى مكان مؤقت في الذاكرة، كذلك لن تستطيع تعديل قيمة المتغير المرسل لك. لجعل الاجراء يستقبل متغيرات بالقيمة استخدم الكلمة المحجوزة ByVal:



Code:
--------------------------------------------------------------------------------


Sub Start ()
' هنا نقطة البداية
Dim X As Integer, Y As Integer

' X = 0, Y = 0
Print X, Y
MySub X, Y
' X = 3, Y = 0
Print X, Y
End Sub

Sub MySub (X As Integer, ByVal Y As Integer)
X = 5
Y = 10
End Sub



--------------------------------------------------------------------------------




ارسال المتغيرات من نوع تركيبات UDT
المتغيرات من نوع التركيبات UDT والتي تنشئها عن طريق الكلمة المحجوزة Type تستطيع ارسالها لكن في حالات خاصة وشروط معينة اختصرها في هذه النقاط:

1) اذا كان مجال التركيب من نوع Private ومعرف في داخل وحدة برمجية كنافذة نموذج، فئة، ملف برمجة الخ.. فان الاجراءت التي داخل تلك الوحدة البرمجية يمكن لها ان تستقبل المتغيرات من نوع ذلك التركيب.

2) اذا كان التركيب مجاله عام Public معرف في ملف برمجة BAS فان جميع الاجراءات التي في نفس المشروع قابلة لاستقبال ذلك التركيب.

3) في حالة كون التركيب معرف في فئة في مشروع COM، فان الاجراءات الموجودة في برنامجك تستطيع ان تستقبل ذلك التركيب المعرف في داخل مكون COM اذا كان مسموح بذلك طبعا.

المتغيرات الاختيارية
اذا كان عدد المتغيرات المرسلة للاجراء غير عدد المتغيرات المصرحة فيه والتي يتوقعها، فان رسالة الخطأ لها نصيب. لذلك، في حالات كثيرة جدا تريد ان تجعل اجراءك مرن بما فيه الكفاية وذلك عن طريق تعريف متغيرات اختيارية تعطي المستخدم حرية ما اذا كان يريد ان يرسلها او لا. تتم هذه العملية عن طريق الكلمة المحجوزة Optional. واذا اردت معرفة ما اذا كان المستخدم قد ارسل قيمة الى الاجراء تحقق عن طريق الدالة IsMissing لكن احذر! دالة IsMissing تعود بقيم صحيحة في حالة كون المتغير المرسل لها من نوع Variant فقط!

Code:
--------------------------------------------------------------------------------


Sub Start ()
' هنا نقطة البداية

' MyFunction = -1
Print MyFunction ()

' MyFunction = 4
Print MyFunction (2)
End Sub

Function MyFunction (Optional X As Variant) As Integer
If IsMissing(X) Then
' لم يتم ارسال قيمة للمتغير
MyFunction = -1
Else
' تم ارسال قيمة للمتغير
MyFunction = X ^ 2
End If
End Function



--------------------------------------------------------------------------------




المشكلة هنا ان المتغيرات لابد ان تكون من نوع Variant حتى نتمكن التحقق من ارسالها عن طريق الدالة IsMissing وهو ابطأ الانواع استخدام. لذلك، يبدو ان الحل الافضل هو عن طريق وضع قيمة افتراضية تستخدم في حالة لم يتم ارسال قيم للمتغيرات:




Code:
--------------------------------------------------------------------------------


Sub Start ()
' هنا نقطة البداية

' MyFunction = -1
Print MyFunction ()

' MyFunction = 4
Print MyFunction (2)
End Sub

Function MyFunction (Optional X As Integer = -1) As Integer
If X = -1 Then
' لم يتم ارسال قيمة للمتغير
MyFunction = -1
Else
' تم ارسال قيمة للمتغير
MyFunction = X ^ 2
End If
End Function



--------------------------------------------------------------------------------




ملاحظة هامة، هو ان المتغيرات الاختيارية Optional لابد من ان تكون في نهاية سلسة المتغيرات المرسلة الى الاجراء -أي من جهة اليسار- للاجراء.

متغيرات غير محددة العدد
في هذه الحالة، فانك لا تحدد عددا معينا من المتغيرات التي سيستقبلها الاجراء لان القيم ستكون في مصفوفة تعرفها بنفسك عن طريق استخدام الكلمة المحجوزة ParamArray، هذا مثال لدالة توجد مجموع القيم المرسلة لها:




Code:
--------------------------------------------------------------------------------


Function Sum (ParamArray args() As Variant) As Long
Dim iCounter As Integer

For iCounter = 0 To Ubound(args)
Sum = Sum + args(iCounter)
Next iCounter
End Function



--------------------------------------------------------------------------------




لابد ان يكون المتغير من نوع Variant حتى تطبق عليه هذا المبدأ، لاستدعاء الدالة الموجودة في المثال السابق كل هذه الامثلة صحيحة:



Code:
--------------------------------------------------------------------------------


' Sum = 10
Print Sum (5, 5)
' Sum = 100
Print Sum (20, 20, 20, 20, 20)
' Sum = 1000
Print Sum (250, 250, 250, 250)



--------------------------------------------------------------------------------




خاتمة
ناقشت في هذه المقالة عملية ارسال المتغيرات الى الاجراءت وتطرقت الى الطرق المختلفة لعمل ذلك سواء كانت بالمرجع او بالقيمة. كما عرضت الحالات الخاصة للمتغيرات والخاصة بالتركيبات. ايضا لجعل المتغيرات اختيارية استخدم الكلمة المحجوزة Option والكلمة ParamArray لجعل عدد المتغيرات لا نهائي.



المشكله ليست في البرنامج

المشكله في الكود كيفية كتابة

فيجوال بيسك لا يقبل أي خطىء في الاكواد