BASCOM-AVR .... تجارب ومشاريع

أقدم إليكم هذا المشروع الذي قد
يكون شبيها نوعا ما بأجهزة PLC
">وظيفة المشروع :
تشغيل و إطفاء عدة مخارج ( 4 مخارج في هذا المشروع ) و يمكن التوسيع حتى
تصبح 8 مخارج .
-يكمن
و من خلال برنامج البرمجة Bascom AVR ضبط زمن تشغيل و إطفاء كل مخرج بشكل
مستقل عن الآخر .
فينتج عندنا سلسلة أوامر تتوقف
عند آخر أمر .
و يمكن تكرار عمل هذه السلسة
لعدة مرات يمكن تحديد عددها أيضا .
ويمكن الإستمرار تكرار السلسلة
دائما .
">هذا ملف التجربة ( البروتوس ) .

http://www.4shared.com/file/12789495...b/4_Releh.html

">وصف عمل هذه التجربة :
بعد ثانيتان من التشغيل يعمل المخرج الأول و الثاني
و بعد ثانية يعمل المخرج الثالث و الرابع
وبعد ثانية يتوقف المخرج الثاني و الرابع
و بعد ثانية يتوقف المخرج الأول
و بعد ثانية يتوقف الثالث

أرجوا أن تكون الفكرة قد أعجبتكم ,
لمن شاهدها و لمن
حَمَّلها
هذا رابط فيه برنامج
Bascom-AVR-1.11.9.0

http://www.4shared.com/get/38673422/...VR-111190.html

لقد قمت بتحميله و تجريبه و إنشاء
الله يعمل

">أما بالنسبة للتجربة السابقة هذا هو
الكود الخاص بها


كود:

$regfile = "m8def.dat"
$crystal = 8000000
'--------------------
Config Portb = &B11111111
Portb = $b00000000
'----------------------------------------
R1 Alias Portb.1
R2 Alias Portb.2
R3 Alias Portb.3
R4 Alias Portb.4
'-----------------------------------------
Dim I As Byte
'-----------------------------------------
For I = 0 To 0
Waitms 200
Set R1
Set R2
Waitms 100
Set R3
Set R4
Waitms 100
Reset R2
Reset R4
Waitms 100
Reset R1
Waitms 100
Reset R3
Next I
End

هذا شرح بسيط للكود على قدر
الإستطاعة , أرجوا الفائدة :



يجب الإنتباه إلى التعليمات
التالية
">Set تغيير
الحالة المنطقية للقطب إلى ">1
Reset تغيير الحالة المنطقية للقطب إلى 0
Waitms تأخير زمني ملي ثانية ( في الكود Waitms100 )

ويمكن كتابة
Wait تأخير زمني بالثانية

أو
Waitus تأخير زمني بالميكرو ثانية