Étape 5: Étape 4
4. maintenant vous devez écrire votre code sur timbre de base pour tester votre appareil et vérifiez son fonctionnement. Utilisez le code ci-dessous et remplacer la variable constante gauche pour votre propre. (dans un endroit très éclairé, l’orateur doit s’allumer après environ 5 secondes)."{$STAMP BS2}
"{$PBASIC 2,5}
timeleft VAR Word
leftconstant CON 4000
PAUSE DE 5000
FAIRE
GOSUB read_p
Alarme GOSUB
BOUCLE
read_p :
HIGH 5
PAUSE DE 3
RCTIME 5, 1, timeleft
RETOUR
alarme :
IF (timeleft < leftconstant) puis
FAIRE
FREQOUT 4, 2000, 4000
BOUCLE
ENDIF
PAUSE DE 20
RETOUR