const device=3B
DIM CAPT1 AS BYTE
DIM CAPT2 AS BYTE
10 OUT 11,1
PWM 9,128
PWM 10,128
CAPT1 = IN(0)
CAPT2 = IN(1)
IF CAPT1 = 0 AND CAPT2 = 0 THEN GOSUB CYCLE1
IF CAPT1 = 0 AND CAPT2 = 1 THEN GOSUB CYCLE2
IF CAPT1 = 1 AND CAPT2 = 0 THEN GOSUB CYCLE3
IF CAPT1 = 1 AND CAPT2 = 1 THEN GOSUB CYCLE4
GOTO 10
CYCLE1: PWM 9,10
PWM 10,10
RETURN
CYCLE2: PWM 9,10
PWM 10,128
RETURN
CYCLE3: PWM 9,128
PWM 10,10
RETURN
CYCLE4: PWM 9,128
PWM 10,128
SOUND 14,239,10,159,10
RETURN
4 résistances CMS 220 Ω
2 résistances CMS 100 kΩ
2 résistances CMS 47 kΩ
2 résistances CMS 4.7 kΩ
1 condensateur CMS 2,2 µF
2 potentiomètres CMS TSM4YJ 100K
2 circuits intégrés LM393
1 LED rouge Ø 3mm
1 LED verte Ø 3mm
2 capteurs infrarouges HOA0149
1 embase droite CMS 1mm
1 boîtier vide 4 contacts