تعلم معنا البرمجة بلغة بيسك المرئي Visual Basic5

الرياض@نت  خالد بن محمد المسيهيج

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

إليها بالرقم (1) ثم نستدعي أيضاً أداة استعراض المجلدات التي يشير إليها الرقم (2) وبنفس الطريقة نستدعي أداة عرض الملفات (3) وبعد أن نقوم بصفها نقوم بصياغة الكود. كيف؟
نحن نريد عند تغيير محرك الأقراص تظهر المجلدات المحفوظة عليه وعند دخول المجلد تظهر كافة الملفات التي بداخله، فنبدأ بمحرك الأقراص حيث نكتب الكود بهذا المنطق :
Dir1.Path = Drive1.Drive
بمعنى : إذا تغير محرك الأقراص فإن قائمة المجلدات ستتغير تبعاً للقرص الظاهر، والشكل (4) يوضح الكود كاملاً.
ونفس الحال بالنسبة لتغير المجلدات، فعند النقر المزدوج على مجلد معين المنطق يقول ان الملفات التي ستعرض في قائمة الملفات هي الملفات المحفوظة بداخل ذلك المجلد، لذلك سنكتب الكود بالمنطق التالي :
File1.Path = Dir1.Path
بمعنى : إذا تغير المجلد فإن مسار الملفات المعروضة سيتغير تبعاً للمجلد الظاهر، والشكل (5) يوضح الكود كاملاً.
نقوم الآن بتنفيذ البرنامج، نلاحظ أن البرنامج يعمل بشكل مترابط وسليم كما في الشكل (6).
يمكن الحصول على الملفات المصدرية للبرنامج من خلال الوصلة التالية : www.ma3refah.org/km/05.zip

اختبار (1) :
مطلوب إنشاء برنامج يقوم بإيجاد المتوسط الحسابي لثلاثة أرقام، إذا علمت أن القانون العام للمتوسط الحسابي للأرقام الثلاثة هو (مجموع الأرقام الثلاثة مقسوماً على العدد ثلاثة).