السلام عليكم ورحمة الله وبركاته ...
عملية ترتيب أكواد وشفرات مشروع هي من العمليات المهمة والتي تظهر أهميتها عندما تنتهي من البرنامج دون تنسيق أو ترتيب وتعود بعد مدة لتطوير البرنامج ، ستلاحظ أن عملية التطوير أصبحت شاقة لغياب عاملين أساسيين هما : التعليقات وترتيب الأكواد ، وهديتي تتعلق بالعامل الأخير .
هديتي اليوم إليكم عبارة عن بريمج قد يعرفه البعض منا ، إنه Indenter VB .
إلى من لا يعرفه هذا البرنامج هو إضافة بسيطة على بيئة التطوير الخاصة بفيجوال بيسك 6 ، تقوم بإضافة بند جديد ( باسم Smart Indenter ) للقائمة المختصرة التي تظهر عند النقر بزر الفأرة الأيمن على نافذة الأكواد
تحتوي هذه القائمة على أربعة خيارات :
1- Indent Procedure : ويقوم بتنظيم وترتيب أكواد الإجراء الحالي المحدد عليه .
2- Indent Module : ويقوم بترتيب أكواد الوحدة الحالية التي تعمل عليها سواء أكانت نموذجًا أو وحدةً نمطيةً أو غيرها .
3- Indent Project : وكما هو واضح من اسمها فهي تقوم بترتيب أكواد المشروع بأكمله .
4- Indenting Options : يعرض لك مربع حوار تستطيع منه تغيير بعض خصائص البريمج .
* مثال بسيط
Private Sub Form_Load() For x = 0 To 255 For y = 0 To 255 For z = 0 To 255 If x = y * z Then MsgBox "تحقق الشرط" End If DoEvents Next z Next y Next x End Sub
المثال نفسه بعد عملية الترتيب والتنظيم
<P align=center> <DIV align=right>Private Sub Form_Load() For x = 0 To 255 For y = 0 To 255 For z = 0 To 255 If x = y * z Then MsgBox "تحقق الشرط" End If DoEvents Next z Next y Next x End Sub </DIV> <P align=center>
