S
shano002000
Guest
hi im newbie w picbasic im podejmowania linii po robot wykorzystuje 2 czujniki ir użyłem pic16f84a przed i ten kod wydawało się działać dobrze, ale kiedy przesunął się F88 mój serwo miałby zatrzymać co pół sekundy cant get any ciągłej rotacji
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
pauza 1000
pętla
przerwa 5
n = 10
if (left_cds == 1) then
if (right_cds == 1) then
GoSub przodu
w przeciwnym razie
obróć_ w_ prawo GoSub
endif
endif
if (right_cds == 1) then
if (left_cds == 1) then
GoSub przodu
w przeciwnym razie
obróć_ w_ GoSub
endif
endif
loop goto
obróć_ w_ prawo:
DLA pulsecount od 1 do n
pulsout 0, 200: pulsout 1 200
przerwa 5
następny
loop goto
obróć_ w_:
DLA pulsecount od 1 do n
pulsout 0, 100: pulsout 1 100
przerwa 5
następny
loop goto
przekazania:
pulsout 0, 200: pulsout 1 100
loop goto
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
pauza 1000
pętla
przerwa 5
n = 10
if (left_cds == 1) then
if (right_cds == 1) then
GoSub przodu
w przeciwnym razie
obróć_ w_ prawo GoSub
endif
endif
if (right_cds == 1) then
if (left_cds == 1) then
GoSub przodu
w przeciwnym razie
obróć_ w_ GoSub
endif
endif
loop goto
obróć_ w_ prawo:
DLA pulsecount od 1 do n
pulsout 0, 200: pulsout 1 200
przerwa 5
następny
loop goto
obróć_ w_:
DLA pulsecount od 1 do n
pulsout 0, 100: pulsout 1 100
przerwa 5
następny
loop goto
przekazania:
pulsout 0, 200: pulsout 1 100
loop goto