Bonjour,
je cherche à convertir le code basicstamp2 suivant en code picbasic.
il s'agit d'un programme qui gère le détecteur ultrason MaxSonar.
je voudrais l'insérer dans un code perso et programmer le tout sur un
16F84.
l'attribution des Pins ne pose pas de problème, je bloque surtout sur les Debug CR,CR et Serin...
'Reads both the PW and serial outputs
' ------- P PINs -----------------------------
pMaxRecv PIN 15
pMaxClock PIN 14
pMaxPWM PIN 0
' --------------- X Variables -----------------
xDist VAR Word
xPulse VAR Word
xX VAR Byte
' ============ Main loop ================
DO GOSUB sPWM
GOSUB sSerial
DEBUG CR, CR
PAUSE 50
LOOP
END ' never reached
' ------------- Subs ------------------------
sPWM: 'Max sends 147 µs per inch
'BS2 reads for 2 µs
FOR xX = 1 TO 5
HIGH pMaxClock
PULSIN pMaxPWM, 1, xPulse
LOW pMaxClock
DEBUG DEC5 xPulse, " "
PAUSE 50
NEXT
DEBUG CR
RETURN
sSerial:
FOR xX = 1 TO 5
SERIN pMaxRecv\pMaxClock, 16468, [WAIT ("R"), DEC xDist]
DEBUG DEC5 xDist, " "
PAUSE 50
NEXT
DEBUG CR
RETURN
-----