Code pour mon robot

[invite8458f0f6]

Bonjours à tous,

cet pourtant un code simple mais qui ne veut pas marcher sur mon boe-bot : je voudrais que mon robot avance quand j'appuis sur le bouton 1 de la télécommande et s’arrête quand j'appuis sur deux, pour le moment, il avance quand j'appuis sur 1 mains ne s'arrête pas quand j'appuis sur 2.

Mon Code :

' {$STAMP BS2}
' {$PBASIC 2.5}


irPulse        VAR     Word
remoteCode     VAR     Byte

Get_Ir_Remote_Code:

  remoteCode = 0

  DO
    RCTIME 9, 1, irPulse
  LOOP UNTIL irPulse > 1000
  RCTIME 9, 0, irPulse
  IF irPulse > 1125 OR irPulse < 675 THEN GOTO Get_Ir_Remote_Code

  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT0 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT1 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT2 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT3 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT4 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT5 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT6 = 1
  IF (remoteCode < 10) THEN remoteCode = remoteCode + 1
  IF (remoteCode = 10) THEN remoteCode = 0

  IF (remoteCode = 1) THEN
   PULSOUT 14, 650
   PULSOUT 15, 850
   PAUSE 20
  ELSEIF (remoteCode = 2) then
    PULSOUT 14, 000
   PULSOUT 15, 000
   PAUSE 20
  ENDIF

Merci pour votre aide.
-----

[invite8458f0f6]

up s'il vous plait

[vincent66]

Bonsoir,
ça ne viendrait pas du fait qu'il y a panoplie de "IF THEN ELSE" imbriqués dans une boucle "DO" qui n'a pas de condition de sortie...?

[invite8458f0f6]

Pourrai tu me montrai ce que ca donne car après plusieurs autre tentatives ca ne marche toujours pas.

[A voir en vidéo sur Futura]

[paulfjujo]

ton programme n'est pas bouclé.
la premiere boucle Do est bien fermée par le Loop until

rajoute déja un goto au debut du programme à la fin de celui ci

.....
IF (remoteCode = 1) THEN
PULSOUT 14, 650
PULSOUT 15, 850
PAUSE 20
ELSEIF (remoteCode = 2) then
PULSOUT 14, 000
PULSOUT 15, 000
PAUSE 20
ENDIF

GOTO Get_Ir_Remote_Code

[invite8458f0f6]

Je suis désoler mais le robot avance tant que j'appuis mais moi je veux que même quand je n'appuis pas, mon robot avance quand même. Une nouvelle tentative serai très bien apprèciée

[paulfjujo]

test separement la valeur de remote code
RAZ remote code si detection irPulse OK
nota: je ne connais pas PBASIC..
je suppose que la cde PULSOUT... reste active tant qu'on ne la RAZ pas avec la valeur 000

Get_Ir_Remote_Code:

DO
RCTIME 9, 1, irPulse
LOOP UNTIL irPulse > 1000
RCTIME 9, 0, irPulse
IF irPulse > 1125 OR irPulse < 675 THEN GOTO Get_Ir_Remote_Code

remoteCode = 0

RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT0 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT1 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT2 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT3 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT4 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT5 = 1
RCTIME 9, 0, irPulse
IF irPulse > 300 THEN remoteCode.BIT6 = 1
IF (remoteCode < 10) THEN remoteCode = remoteCode + 1
IF (remoteCode = 10) THEN remoteCode = 0

IF (remoteCode = 1) THEN
PULSOUT 14, 650
PULSOUT 15, 850
PAUSE 20
ENDIF
IF (remoteCode = 2) then
PULSOUT 14, 000
PULSOUT 15, 000
PAUSE 20
ENDIF

[invite8458f0f6]

Non, ca ne marche toujours pas, ca me semble bizarre que ca ne marche pas

[invitef86a6203]

Quels signaux envoi la telec ?
RCTIM lit une résistance , est ce bien adapté à un pulse ou autre?
Le moteur est commandé comment ?

pulsout envoie juste un pulse
un pulse de taille 0 c est pas de pulse du tout !


Il faut boucler le prog comme déjà indiqué

[invite8458f0f6]

1) Elle envoie des bit de donné
2)rctime est bien adaptés, pulse(in ou out) ne marche pas
3) le moteur est commander en lui envoyant un nombre de pulsation par minute

Voici mon programme (j'ai mis des qti) :

' {$STAMP BS2}
' {$PBASIC 2.5}

qtiLeft        VAR     Bit
qtiCenter      VAR     Bit
qtiRight       VAR     Bit
irPulse        VAR     Word
remoteCode     VAR     Byte

Get_Ir_Remote_Code:

  remoteCode = 0

  DO
    RCTIME 9, 1, irPulse
  LOOP UNTIL irPulse > 1000
  RCTIME 9, 0, irPulse
  IF irPulse > 1125 OR irPulse < 675 THEN GOTO Get_Ir_Remote_Code

  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT0 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT1 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT2 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT3 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT4 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT5 = 1
  RCTIME 9, 0, irPulse
  IF irPulse > 300 THEN remoteCode.BIT6 = 1
  IF (remoteCode < 10) THEN remoteCode = remoteCode + 1
  IF (remoteCode = 10) THEN remoteCode = 0

  IF (remoteCode = 1) THEN
   PULSOUT 14, 650
   PULSOUT 15, 850
   PAUSE 20
   GOSUB  Qti_Check
  ENDIF
IF (remoteCode = 2) THEN
PULSOUT 14, 850
PULSOUT 15, 650
PAUSE 20
ENDIF

Qti_Check :
DO
 HIGH 5: PAUSE 1: qtiRight = IN3: INPUT 5
 HIGH 6: PAUSE 1: qtiCenter = IN3: INPUT 6
 HIGH 7: PAUSE 1: qtiLeft = IN3: INPUT 7
 PAUSE 100

 IF (qtiRight = 1)AND (qtiCenter = 0) THEN
  PULSOUT 14, 650
  PULSOUT 15, 650
  PAUSE 20
 ELSEIF (qtiLeft = 1)AND (qtiCenter = 0)THEN
  PULSOUT 14, 850
  PULSOUT 15, 850
  PAUSE 20
 ELSEIF (qtiCenter = 1) THEN
  PULSOUT 14, 850
  PULSOUT 15, 850
  PAUSE 20
 ELSE
  PULSOUT 14, 650
  PULSOUT 15, 850
  PAUSE 20
ENDIF
LOOP

J'ai compris le problem : il y a un conflit entre mais deux fonction, la 1 me fais reculer quand j'appuis sur 2 mais la 2 me fait repartir aussitôt devant et ces pour ça que ca ne marche pas, comment y parvenir

[invite8458f0f6]

S'il vous plait j'ai besoin d'aide en extrème urgence