درس : كيفية التحقق من وجود قرص في محرك أقراص معين

بسم الله الرحمن الرحيم

درس اليوم عن التحقق بطريقة بسيطة من وجود محرك أقراص

وسنعمل على القرص المرن A:\

أولا الكود المستخدم

رمز:Private Sub Timer1_Timer()On Error GoTo 100Open "a:\test.txt" For Random As #1Close #1MsgBox"يوجد قرص"Exit Sub100: MsgBox "لايوجد قرصA:\"End Subثانيا الشرح :

هذا الكود موضوع في تايمر (لا تنسى أن تضبط الخاصية Interval)

أول سطر في كود التايمر وهو الأهم : نأمر الكمبيوتر أن يذهب إلى السطر المسمى 100 عند حدوث خطأ

من السطر الأول إلى الثالث : ننشئ ملف في القرص A:\ وطبعا إن لم يتمكن الكمبيوتر من ذلك فسيحصل خطأ (هل عرفت لماذا وضعنا ال On error???)

السطر التالي يجعل الكمبيوتر يتوقف (كي لا يمر على السطر المسمى 100)

وطبعا المسج بوكس لإعلام المستخدم بوجود الفلوبي ديسك

شرح السطر 100 :

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

وسيعلم المستخدم بواسطة مسج بوكس بعدم وجود فلوبي

ملاحظة : لن يعمل هذا الكود في بعض الحالات !!!!

مثل : إذا وضعت CD لا يمكن الكتابة عليه (ليش؟؟؟؟؟) حاول تعرف

إذا في أي مشاكل أو أسئلة فأنا جاهز

أخوكم فؤاد أصيل (Aleppo Force)