مشاركة: البرمجه بالفيجوال بيسك
سابداء اليوم بموضوع عن البرمجه بالفيجوال بيسك 6 وهو موضوع البرمجه الحدثيه او المسيره بالاحداث
بمعنى انك بكل حدث تفعله على الفورم فان البرنامج ينفذ سطرا في منطقه ما من المشروع
فتستطيع مثلا بكليك الموس ان تفعل المعجزات داخل البرنامج بخلق اوالغاء او تحرير اي كائن على الفورم وكذلك استدعاء او مسح احد الكائنات من والى الذاكره
كيف يبدا الحدث EVENT ?
يبداالبرنامج بالاستجابه للحدث في البرمجه بالفيجوال بيسك بالاجراء والذي يقع بين السطر
SUB
وينتهي بالامر
END SUB
ومابين هذين السطرين يقومالبرنامج بالاستجابه لللحدث
فمثلا
PRIVATE SUB COMMAND1_CLICK()
تعني ان الاجراء الواقع الان هو من نوع فرعي خاص يقع اذا تم الضغط كليك مره واحده على الزر COMMAND1
كذلك
PROVATE SUB FORM1.LOAD()
ويقع الحدث هنا بمجرد تحميل الفورم الذي يظهر لنا على الشاشه الى الذاكره
لنقمالان بعمل برنامج صغير لتوضيح الفكره
قم بفتح الفيجوال بيسك 6
سيقوم معالج الاعداد داخل البرنامج باظهار شاشه صغيره لاختيار مشروع منها ستقوم انت بالضغط على STANDARD EXE
من ثم ستظهر لك شاشه تحتوي على نافذه لاتحتوي على شئ
هذا هو الفورم وهو ماسوف نملؤه يوما بعد يوم ان شاء الله
لكي نطبق الدرس سوف نضغط مرتين على الفورم فتظهر لنا شاشه الاكواد
كود:
Private Sub Form_Load()
END SUB
لكي نملؤه سنقوم بكتابه الاتي
كود:
PRINT "هذا هو الدرس الاول للفيجوال بيك"
بين SUB و EMD SUB
اضغط F5 للتنفيذ او
اضغط زر بدء
ماذا سينتج؟
اذا لم يعطك شئ ارجوا بدء الدرس من البدايه واذا تم التنفيذ انتقل الى ما بعد ذللك
فهنا نرى ان البرنامج قامبتنفيذ الاجراء PRINT عند وقوع الحدث LOAD
ولتعميق الفكره اكثر ناخذ المثال التالي:
افتح مشروع جديد واتبع نفس الخطوات الى ان تظهر الفورم
ثم اضف زر جديد من القائمه التي على شمالك واسمها COMPONENTS LIST
وسوف نستخدمه بشكل اكبر في المرات القادمه
المهم بعد اضافه الزر يمكنك الضغط عليه مرتين لتظهر نافذه الاكواد ستجد
Private Sub Command1_Click()
End Sub
بين هذين السطرين ستكتب
كود:
كود:
PRINT "لا اله الا الله محمد رسول الله"
لا تنسى علا متي التنصيص " لانه بدونها ستظهر رساله خطاء
هذا هو الدرس الاول للفيجوال بيسك وكل يوم ساضيف درسا ان شاء الله وارجوا من الله ان يعينني على ذلك كما ارجوا من الاخوه الكرام اذا ما واجهوا اي مشاكل يخبروني عنها وباذن الله نحلها مع بعض
اخوكم
INCUBUS