S
shano002000
Guest
hi im a newbie στο picbasic im καθιστώντας τη γραμμή μετά τη χρήση ρομπότ 2 ir i αισθητήρες που χρησιμοποιούνται PIC16F84A πριν και αυτός ο κώδικας φαινόταν να δουλεύουν μια χαρά, αλλά όταν θα μετατοπίζεται σε F88 σερβο μου θα παύση κάθε μισή δεύτερη λοξοτομώ παίρνω κάθε συνεχής περιστροφή
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
ANSEL = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = 60 δολάρια
παύση 1000
βρόχος
παύση 5
n = 10
αν left_cds == (1) τότε
αν right_cds == (1) τότε
Gosub εμπρός
άλλος
turnright Gosub
endif
endif
αν right_cds == (1) τότε
αν left_cds == (1) τότε
Gosub εμπρός
άλλος
turnleft Gosub
endif
endif
goto loop
turnright:
ΓΙΑ pulsecount = 1 έως n
pulsout 0, 200: pulsout 1, 200
παύση 5
επόμενος
goto loop
turnleft:
ΓΙΑ pulsecount = 1 έως n
pulsout 0, 100: pulsout 1, 100
παύση 5
επόμενος
goto loop
εμπρός:
pulsout 0, 200: pulsout 1, 100
goto loop
left_cds var PORTA.0
right_cds var PORTA.1
pulsecount VAR Byte
n var Byte
ANSEL = 0
PORTB =% 00000000
TRISB =% 11000000
OSCCON = 60 δολάρια
παύση 1000
βρόχος
παύση 5
n = 10
αν left_cds == (1) τότε
αν right_cds == (1) τότε
Gosub εμπρός
άλλος
turnright Gosub
endif
endif
αν right_cds == (1) τότε
αν left_cds == (1) τότε
Gosub εμπρός
άλλος
turnleft Gosub
endif
endif
goto loop
turnright:
ΓΙΑ pulsecount = 1 έως n
pulsout 0, 200: pulsout 1, 200
παύση 5
επόμενος
goto loop
turnleft:
ΓΙΑ pulsecount = 1 έως n
pulsout 0, 100: pulsout 1, 100
παύση 5
επόμενος
goto loop
εμπρός:
pulsout 0, 200: pulsout 1, 100
goto loop