Dosyalar, Dosya Paylaşım Sitesinden Silindiği İçin Bu Konu Çöpe Taşınmıştır.
Kod:
TRISB=0
PORTB=0
SAG:
PORTB=%10000000
SAGA_DEVAM
PAUSE 100
PORTB=PORTB>>1
IF PORTB=%00000001 THEN SOL
GOTO SAGA_DEVAM
SOL:
PORTB=%00000001
SOLA_DEVAM:
PAUSE 100
PORTB=PORTB<<1
IF PORTB=%10000000 THEN SAG
GOTO SOLA_DEVAM
END