TRISA =0
TRISB =0
PORTB =0
PORTA =0


I var word
i = 0
main:
if i > 191 then i = 0
lookup i, [$00,$ff,$ff,$11,$11,$11,$0e,$00,$00,$3c,$42,$c3,$c 3,$42,$3c,$00] ,portb
'lookup i, [$03,$0c,$30,$c0,$co,$30,$0c,$03,$03,$0c,$30,$c0,$c 0,$30,$0c,$03] ,portb
'lookup i, [$00,$ff,$ff,$99,$99,$99,$99,$00,$00,$ff,$ff,$11,$3 1,$51,$9e,$00] ,portb
'lookup i, [$00,$ff,$ff,$99,$99,$99,$99,$00,$00,$ff,$ff,$c0,$c 0,$c0,$c0,$00] ,portb
'lookup i, [$00,$ff,$ff,$99,$99,$99,$99,$00,$00,$3c,$7e,$81,$8 1,$81,$81,$00] ,portb
'lookup i, [$00,$03,$03,$ff,$ff,$03,$03,$00,$00,$ff,$ff,$11,$3 1,$51,$9e,$00] ,portb
'lookup i, [$00,$3c,$42,$c3,$c3,$42,$3c,$00,$00,$ff,$ff,$08,$1 0,$ff,$ff,$00] ,portb
'lookup i, [$00,$c3,$c3,$ff,$ff,$c3,$c3,$00,$00,$3c,$7e,$81,$8 1,$81,$81,$00] ,portb
'lookup i, [$00,$9e,$9b,$9b,$9b,$f1,$71,$00,$00,$ff,$ff,$11,$1 1,$11,$0e,$00] ,portb
'lookup i, [$00,$ff,$ff,$11,$31,$51,$9e,$00,$00,$3c,$42,$c3,$c 3,$42,$3c,$00] ,portb
'lookup i, [$00,$73,$c3,$c3,$ff,$7f,$03,$00,$00,$ff,$ff,$99,$9 9,$99,$99,$00] ,portb
'lookup i, [$00,$3c,7$e,$81,$81,$81,$81,$00,$00,$03,$03,$ff,$f f,$03,$03,$00] ,portb
'endif
call pulse
goto main
pulse:
PORTA.0 = 1
PORTA.1 = 1
porta.2 = 1
porta.3 = 1
PORTA.3 = 0
PORTA.2 = 0
PORTA.1 = 0
PORTA.0 = 0
Return

end

اقتباس المشاركة الأصلية كتبت بواسطة watan مزبوط يا أخي العزيز ، انا وجدت العديد من الأفكار بالنسبة لهادا الموضوع لكن تقريبا المواضيع كانت جاهزة بدون اي شرح لكُود برمجة البك .. وبعض المشاريع تم تطبيقها بلغة مخالفة عن التي أريد.. لهذا طلبت المُساعدة