PROGRAMMES

précédent      retour au menu principal    suivant

Pour pouvoir manipuler le robot explorer 1.1 nous nous sommes servi de la programmation par ordinateur ( Quick Basik ) , c' est a dire le script . La programmation est assez simple et nous allons vous expliquer les étapes pour qu'elle soit complète .

programme 1 pour commander le robot

DO                           
A$ = INPUT$(1)
IF A$ = "8" THEN
OUT &H378, 7
END IF
IF A$ = "2" THEN
OUT &H378, 4
END IF
IF A$ = "4" THEN
OUT &H378, 5
END IF
IF A$ = "26" THEN
OUT &H378, 6
END IF
IF A$ = "5" THEN
OUT &H378, 0
END IF
LOOP

 

programme 2 pour commander le robot

DO
FOR t = 1 TO 30000
NEXT t
a$ = INKEY$
IF a$ <> "" THEN
IF a$ = "8" THEN
OUT &H378, 7
END IF
IF a$ = "2" THEN
OUT &H378, 4
END IF
IF a$ = "4" THEN
OUT &H378, 5
END IF
IF a$ = "6" THEN
OUT &H378, 6
END IF
IF a$ = "5" THEN
OUT &H378, 0
END IF
ELSE

OUT &H378, 0
END IF


LOOP

programme  pour que le robot fasse un rectangle

(sans le commander)

CLS

OUT &H378, 0
SLEEP 10
OUT &H378, 7
SLEEP 3
OUT &H378, 6
FOR t = 1 TO 935000
NEXT t
OUT &H378, 7
SLEEP 3
OUT &H378, 6
FOR t = 1 TO 935000
NEXT t
OUT &H378, 7
SLEEP 3
OUT &H378, 6
FOR t = 1 TO 935000
NEXT t
OUT &H378, 7
SLEEP 3
OUT &H378, 6
FOR t = 1 TO 935000
NEXT t

OUT &H378, 0
END
 

explication

do : exécuter

loop:

A$ = INPUT$(1)

IF A$ = "8" THEN : si  A=8 alors

END IF: et si

OUT &H378, 7: envoyer info 7

SLEEP 10: tempo 10

FOR t = 1 TO 935000: tempo indeterminé

NEXT t: faire la tempo

END: fin