' Triangulation par ultra-son
' Largeur impulsion emission : 500 us


CLS
DO
compte = 0
compte2 = 0
arret = 0
arret2 = 0
OUT &H378, 0
FOR i = 1 TO 100
NEXT i
OUT &H378, 1
FOR i = 1 TO 1000
a1 = INP(&H379)
a = a1 AND 16
b = a1 AND 8

IF arret = 0 THEN
   compte = compte + 1
END IF
IF arret2 = 0 THEN
   compte2 = compte2 + 1
END IF

IF a = 16 THEN
 arret = 1
END IF
IF b = 8 THEN
   arret2 = 1
END IF


NEXT i
LOCATE 10, 10
PRINT "compteur = "; compte; "  "
PRINT "compteur 2:="; compte2; "  "
y = compte * 2.55
y2 = compte2 * 2.55
PRINT "Distance objet - balise 1 :"; y; "cm    "
PRINT "Distance objet - balise 2 :"; y2; "cm    "




 LOOP