S
shano002000
Guest
hej im en newbie i picbasic im göra en linje efter robot använder 2 ir sensorer jag pic16f84a innan och den här koden verkade fungera bra men när jag flyttades till F88 min servo
är skulle paus varje halv sekund jag skränande få någon kontinuerlig rotation
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
pausa 1000
loop
paus 5
n = 10
if (left_cds == 1) då
if (right_cds == 1) då
gosub framåt
annan
gosub turnright
endif
endif
if (right_cds == 1) då
if (left_cds == 1) då
gosub framåt
annan
gosub turnleft
endif
endif
goto loop
turnright:
FÖR pulsecount = 1 till n
pulsout 0, 200: pulsout 1, 200
paus 5
nästa
goto loop
turnleft:
FÖR pulsecount = 1 till n
pulsout 0, 100: pulsout 1, 100
paus 5
nästa
goto loop
framåt:
pulsout 0, 200: pulsout 1, 100
goto loop
är skulle paus varje halv sekund jag skränande få någon kontinuerlig rotation
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
pausa 1000
loop
paus 5
n = 10
if (left_cds == 1) då
if (right_cds == 1) då
gosub framåt
annan
gosub turnright
endif
endif
if (right_cds == 1) då
if (left_cds == 1) då
gosub framåt
annan
gosub turnleft
endif
endif
goto loop
turnright:
FÖR pulsecount = 1 till n
pulsout 0, 200: pulsout 1, 200
paus 5
nästa
goto loop
turnleft:
FÖR pulsecount = 1 till n
pulsout 0, 100: pulsout 1, 100
paus 5
nästa
goto loop
framåt:
pulsout 0, 200: pulsout 1, 100
goto loop