بســــــــ الله الرحمن الرحيم ــــــم
دعوة حتي نكون من رواد التطوير 0000
أخواني الاعزاء 00 وجد في هذا الموضوع أفادة رائعة 00 ألأ وهي كيفية معرفة الأساليب والمهارت الفنية لكتابة الكود
حتي يكون لدينا افضل الوسائل للتكويد
من السهل علي المبرمج كتابة كود 000 ولكن هذا الكود بيكون من وجهة نظر ورؤية المبرمج صاحب الكود وفي الغالب بيشتغل الكود والبرنامج يحقق النتائج المطلوبة
لكن عند تتبع سير البرنامج 00 نجد احياناً أن البرنامج يقوم بتنفيذ أوامر زائدة
ليس لها شأن 0بالأمر الذي نود تنفيذة
أحياناً بنكتشف ذاللك عندما نستخدم الوسيلة park point لمتابعة أوامر البرنامج سطر سطر أو خطوة بخطوة
حتي لا أطيل عليكم الوقت أخواني
أقترح بأن يقوم كل واحد يود المشاركة بعرض فكرة أو تكنينك معين لكتابة الكود حتي نكون رواد التطوير
فأرجو من الاخوة المشاركين أن يضعو أفكار للتكويد وجدو فيها منفعة وتوفير للجهد حتي نتوصل ألي أعلي مرونة واسرع معلجة للبيانات داخل البرنامج 0000
--------------------------------------------------------------------------
وسأقوم بعرض فكرة بسيطة ربما تلقي استحسانكم
-----------------------------------------------
فكرة هذا الكود تعتمد علي فهرسة الاكواد 0000 مثلها كمثل فهرس الكتاب نقوم بفتح فهرس الكتاب ومنة نقوم بختيار الصفحة 000 نفس الاسلوب يتم اتباعة مع موضوعنا 0000
أول شيء نعملة نقوم بعمل أجراء فرعي ونسمية علي سبيل المثال Index_Code
Private Sub index_code(index As Integer) End Sub
ثم نقوم بوضع معامل ونسمية index ونوعة integer
ثم قوم بعمل جملة شرطية ---------> وما احلي الفهرسة مع جملة select case
نقوم بكتابة الكود التالي
Private Sub index_code(index As Integer) Select Case index Case 0 MsgBox "code num 0 " Case 1 code num 1" End Select End Sub
ثم نقوم بوضع زرورارين أمر
ونكتب في الاول
Private Sub Command1_Click() index_code (0) End Sub
وفي الزر التاني
Private Sub Command2_Click() index_code (1) End Sub
الشرح :
فالزر الاول قمنا بنداء الأجراء الفرعي index_code ثم قمنا بتحديد رقم فهرستة وهي (0)
أي أنة سيذهب للأجراء index_code ويقرأ الcase رقم( 0)
ونفس الموضوع في الزر الثاني بثتثناء رقم الفرهرس وهو هنا رقم (1)
ويكون شكلة النهائي
index_code (1)
هذة الطريقة ظريفة ولها فوائد أخري وخاصتاً مع التيمر حيث أنك يمكن تقسيم الاوامر حسب الرغبة أثناء عمل التيمر
دة غير سهولت الأداء التي يتحها نظام الفهرسة 0
أرجو من الله أن أكون قد وفقت في عرضي للموضوع
وأرجو من الاخوة الاعزاء لو عندهم تعليق أو مشاركة جديدة لتعزيز التكويد داخل الفجول بيزك
فلا يبخل عاينا بمشاركتة
وجزاكم الله كل خير