ADCON1 = %00000111 ' Установим все выводы PORTA как цифровые.
TRISB = %00000000
PORTB = %00000000
Symbol LED=PORTB ' обозвать порт LED
b var byte
b=0
i var byte
portb=0 ' УСТАНОВКА ПОРТА В в логический 0. (если portb=255, то установить все в логическую 1, т.к 255=%11111111, а 0=%00000000)
pravo:
FOR I = 0 TO 8
if i=0 then LED=%00000001
if i=1 then LED=%00000010
if i=2 then LED=%00000100
if i=3 then LED=%00001000
if i=4 then LED=%00010000
if i=5 then LED=%00100000
if i=6 then LED=%01000000
if i=7 then LED=%10000000
if i=8 then LED=%00000000
Button porta.0,0,255,255,b,1,levo ' смена направления
pause 500
next
goto pravo
levo:
FOR I = 0 TO 8
if i=0 then LED=%10000000
if i=1 then LED=%01000000
if i=2 then LED=%00100000
if i=3 then LED=%00010000
if i=4 then LED=%00001000
if i=5 then LED=%00000100
if i=6 then LED=%00000010
if i=7 then LED=%00000001
if i=8 then LED=%00000000
Button porta.0,0,255,255,b,1,pravo ' смена направления
pause 500
next
goto levo