 |
:: عضو ذهبي ::
تاريخ التسجيل: Jun 2008
الدولة: مصر- الاسكندرية
المشاركات: 1,583
|
|
نشاط [ 5282 ]
قوة السمعة:
|
|
20-06-2009, 12:18 AM
المشاركة 41
|
|
اولا اعتذر عن التأخير
شرح الكود
اسم البرنامج program led_blinking
تعريف متغير dim i as byte
جعل البورت خرج DDRD = $FF
جعل البورت خرج DDRC = $FF
جعل البورت دخل DDRb = $00
بداية البرنامجmain:
جعل قيمة المتغير بصفر i=0
بداية البرنامج startprog:
if Button(PORTb, 0, 50, 0) then
i=i+1
end if
هذا الامر كسابقة هنا يتم اختبار حالة المنفذ بورت ب رقم واحد لضغطة مدتها 50 ميللى ثانية عندما يكون المنفذ يساوى صفر اى عند الضغط على الزر ل ينقص قيمة المتغير بواحد
if Button(PORTb, 1, 50, 0) then
i=i-1
end if
''''''''''''''''''''''''''''''
الاكواد التالية يتم فيها عرض قيمة المتغير على البورت المنفذ c,d
if i=1 then
portd=1
portc=1
end if
if i=2 then
portd=2
portc=3
end if
if i=3 then
portd=3
portc=7
end if
if i=4 then
portd=4
portc=15
end if
if i=5 then
portd=5
portc=31
end if
if i=6 then
portd=6
portc=63
end if
تاخير 100 ميللى ثانية
delay_ms(100)
اذهب لبداية البرنامج وكرر الامر
goto startprog
end.
مرة اخرى رابط اخر لتحميل البرنامج + ملف المحاكاة
http://www.up.6y6y.com/uploads/b460f0aa4f.rar
بالنسبة لباقى المشاريع سأحاول بنائها من جديد ورفعها مرة اخرى لان بعض المشاريع مسحت من عندى
وشكراااا للمتابعة واى استفار انا تحت امركم
التعديل الأخير تم بواسطة : 5282 بتاريخ 20-06-2009 الساعة 12:31 AM
|