Aux journées APMEP à Nantes et au congrès de l'UdPPC à Limoges, l'on pouvait tester ce programme avec une TI-83 Premium CE bleue fort bien assortie au TI-Innovator Rover.
Le programme comporte en fait 3 sous-programmes que l'on active alternativement en tapant
![[1] :ns1:](./images/smilies/nspire/ns_1.png)
![[2] :ns2:](./images/smilies/nspire/ns_2.png)
![[3] :ns3:](./images/smilies/nspire/ns_3.png)
Regardons aujourd'hui le sous-programme n°2 dont une version simplifiée est reproduite ci-dessous :
- Code: Select all
1→O
Send("CONNECT RV")
While O≤3
Send("READ RV.RANGER")
Get(D)
If D≥0.3
Then
Send("READ RV.MOVING")
Get(D)
If D=0
Send("SET RV FORWARD")
Else
O+1→O
Send("SET RV.COLOR.RED 255 TIME 3")
Send("SET SOUND TO 440 TIME 3")
Send("SET RV STOP")
Send("SET RV BACKWARD 0.25")
If O≤3
Send("SET RV LEFT 45 DEGREES")
End
End
Send("SET RV ANGLE 180")
Le programme déplace le robot jusqu'à détecter et éviter 3 obstacles. Voici un exemple de ce que cela pouvait produire :
Téléchargements :