S
shano002000
Guest
hi im yksi newbie vuonna picbasic im tehdä linja seuraavat robotin avulla 2 ir-anturit i käytetään pic16f84a ennen ja tämän koodin näytti toimivat hyvin, mutta kun olen siirtynyt f88 minun servo
n olisi tauko joka puoli toinen i cant get any jatkuva kierto
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
keskeyttää 1000
silmukka
keskeyttää 5
n = 10
if (left_cds == 1) sitten
if (right_cds == 1) sitten
gosub eteenpäin
muuten
gosub turnright
endif
endif
if (right_cds == 1) sitten
if (left_cds == 1) sitten
gosub eteenpäin
muuten
gosub turnleft
endif
endif
goto loop
turnright:
FOR pulsecount = 1 N
pulsout 0, 200: pulsout 1, 200
keskeyttää 5
seuraava
goto loop
turnleft:
FOR pulsecount = 1 N
pulsout 0, 100: pulsout 1, 100
keskeyttää 5
seuraava
goto loop
eteenpäin:
pulsout 0, 200: pulsout 1, 100
goto loop
n olisi tauko joka puoli toinen i cant get any jatkuva kierto
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
Ansel = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = $ 60
keskeyttää 1000
silmukka
keskeyttää 5
n = 10
if (left_cds == 1) sitten
if (right_cds == 1) sitten
gosub eteenpäin
muuten
gosub turnright
endif
endif
if (right_cds == 1) sitten
if (left_cds == 1) sitten
gosub eteenpäin
muuten
gosub turnleft
endif
endif
goto loop
turnright:
FOR pulsecount = 1 N
pulsout 0, 200: pulsout 1, 200
keskeyttää 5
seuraava
goto loop
turnleft:
FOR pulsecount = 1 N
pulsout 0, 100: pulsout 1, 100
keskeyttää 5
seuraava
goto loop
eteenpäin:
pulsout 0, 200: pulsout 1, 100
goto loop