Option Explicit

' Programa para sensor Sharp GP2D15 conectado a
' un Basic X-24 de la siguiente forma.
' Cable rojo VCC de alimentacion conectado a +5 V.
' Cable negro de tierra conectado a 0V.
' Cable amarillo Vout conectado al pin 20
' Cuando detecta algo manda la palabra 'Deteccion' al PC
' La distancia de deteccion se ajusta sobre el mismo sensor.
' Realizado por Pablo Pompa. pablo@superrobotica.com
' Para uso privado y educacional. Prohibido su uso comercial.
' Octubre 2002

Dim data As Byte						'Contiene la medida

Sub Main()
  Do
    If getpin(20) = 1 Then					'Espera a que termine
      Debug.Print "Deteccion " 					'Indica la deteccion
    Else
      Debug.Print "--------- "					'Indica la deteccion
    End If
    Call sleep(50)						'Retardo entre mediciones
  Loop			
End Sub