 |
|
|
|
|||||
نكمل نفتح برنامج الفيجوال ونختار برنامجنا ونتوجه فورا إلى الأداة Module1 الموجود على يمين الشاشة وننقر عليها مرتين فتفتح لنا نافذة كتابة الكود فنكتب داخلها الكود التالي :  بعد ذلك نعود إلى واجهة البرنامج وننقر مرتين على الزر (إرسال) كما في الصورة التالية:  تفتح لنا نافذة الكود نكتب بداخلها الكود التالي:ونكرر عملية كتابة الكود 16 مرة. حيث أن هذا الكود وظيفته فحص القيمة العددية المكتوبة داخل العناصر Label بشكل متتالي ومع فحص قيمة كل أداة نولد نبضة ساعة ونرسلها من خلال المخرج الثاني لمنفذ الطابعة.فإن كانت القيمة داخل العنصر Label هي 0 فستنتقل هذه القيمة إلى المسجل وان كانت 1 أيضا سوف تنتقل إلى المسجل وهكذا حتى يتم فحص قيم العناصر كلها. من الجدير بالذكر أن برنامج الفيجوال كما جميع برامج البرمجة ينفذ الكود سطر سطر بالتتالي وتكون سرعة تنفيذ الكود كبيرة جدا ولا يمكن للدارة المتكاملة 74HC595 مجاراتها .لذلك ومن اجل الإبطاء من سرعة تنفيذ الكود نجعل البرنامج يعد حتى 1000 قبل الانتقال للأمر التالي.( نقول للشخص المتسرع عد حتى 10 قبل أن تفعل كذا..) وبرنامجنا متسرع كثيرا بل متهور لذلك نقول له عد حتى 1000 قبل أن تقدم على الأمر التالي.  بعد الانتهاء من فحص قيم جميع العناصر نعطي الأمر لإظهار النتائج على مخارج المتكاملتين وذلك بأخراج 1 منطفي ثم 0منطقي على المخرج الثالث لمنفذ الطابعة فنكتب الكود التالي:  نعود لواجهة البرنامج وننقر على الأداة Label1مرتين كما في الصورة التالية:  ما نريده من هذه الأداة هو أن تقوم بما يلي: عندما ننقر عليها بالماوس أن كان القيمة المكتوبة داخلها (0) تتغير وتصبح (1) ويصبح لونها اخضر وإذا كانت قيمتها (1) تتغير وتصبح (0) ويصبح لونها ابيض وهذا ما نريد أن تفعله جميع العناصر Labelلذلك نكرر العملية على بقية العناصر كما في الصورة التالية:  نعود الآن لواجهة البرنامج وننقر مرتين على عنصر المؤقت بعد أن نعدل خصائصه كما في الصورة التالية:  تفتح لنا نافذة الكود نكتب بها الأمر البسيط التالي :  ما فعلناه هو أننا أمرنا المؤقت أن يضغط على الزر (إرسال) 100مرة كل ثانية وهذا سريع جدا لذلك فانه لو حدث أي تغيير على قيمة احد عناصر Label فأن النتيجة ستظهر فوراً على المخارج بقي لدينا الأزرار التالية: 1- الزر (آلي) وظيفته تشغيل المؤقت 2- الزر (يدوي) وظيفته إيقاف المؤقت 3- الزر(إطفاء الكل) وظيفته جعل كل المخارج على القيمة 0 منطقي ونفعل ذلك بتوليد 16 نبضة 01على المخرج الثاني لمنفذ الطابعة مع المحافظة على المخرج الأول على القيمة 0منطقي بعد ذلك نعطي أمر بإظهار النتائج (إطلاق النار) ونكون قد أطفئنا جميع الأجهزة.  بقي الزر (إغلاق) نكتب داخله الأمرين التاليين: Out &H378, 0
end وهكذا نكون قد اتممنا اخر خطوة اتمنى ان اكون قد قدمت شيئ مفيد وانا جاهز للإجابة على الاسئلة قدر استطاعتي. لتحميل المشروع اليكم الرابط التالي: http://www.4shared.com/file/nYMxdH6l/_2__.html |
| اعلانات |
|
|||||
|
|
| اعلانات اضافية ( قم بتسجيل الدخول لاخفائها ) | |
|
|
|
||||||
|
|
|
|||||
|
|
|
|||||
|
|
|
||||||
|
|
|
||||||
|
اخى العزيز البرنامج لا يفتح عندى  |
|
|||||
|
|
