S
shano002000
Guest
hi im een newbie in picbasic im lijn na het maken van een robot met 2 IR sensoren gebruikte ik PIC16F84A vóór en deze code leek te werken prima, maar als ik verschoven naar F88 mijn servo's zou pauzeren elke halve seconde i cant get enige continue rotatie
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
ANSEL = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = 60 dollar
pause 1000
lus
5 pauze
n = 10
if (left_cds == 1) then
if (right_cds == 1) then
gosub vooruit
anders
gosub draairechts
endif
endif
if (right_cds == 1) then
if (left_cds == 1) then
gosub vooruit
anders
gosub draailinks
endif
endif
goto lus
draairechts:
VOOR pulsecount = 1 tot n
pulsout 0, 200: pulsout 1, 200
5 pauze
volgende
goto lus
draailinks:
VOOR pulsecount = 1 tot n
pulsout 0, 100: pulsout 1, 100
5 pauze
volgende
goto lus
voorwaarts:
pulsout 0, 200: pulsout 1, 100
goto lus
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
ANSEL = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = 60 dollar
pause 1000
lus
5 pauze
n = 10
if (left_cds == 1) then
if (right_cds == 1) then
gosub vooruit
anders
gosub draairechts
endif
endif
if (right_cds == 1) then
if (left_cds == 1) then
gosub vooruit
anders
gosub draailinks
endif
endif
goto lus
draairechts:
VOOR pulsecount = 1 tot n
pulsout 0, 200: pulsout 1, 200
5 pauze
volgende
goto lus
draailinks:
VOOR pulsecount = 1 tot n
pulsout 0, 100: pulsout 1, 100
5 pauze
volgende
goto lus
voorwaarts:
pulsout 0, 200: pulsout 1, 100
goto lus