CONSTRUCCIÓN DE SENSOR DE PROXIMIDAD INFRARROJO CASERO CON PIC16F876

INTRODUCCIÓN
Un Sensor de proximidad infrarrojo es un dispositivo muy válido para detectar objetos que se aproximan a este, evaluando la distancia. Este dispositivo viene a costar de 20 a 30 euros, ya que pueden evaluar aproximadamente 0,3 a 0,5m. Estos dispositivo son imprescindibles en robótica y autómatas para detectar objetos, pero también se puede aplicar para crear música con la función sound en pic basic.
Para el sensor utilizaremos un receptor infrarrojo extraído de un optoacoplador y un laser barato de los chinos y en principio un sencillo circuito para comprobar que funciona. Luego con un 16f876 podremos ver la sensibilidad de dicho sensor mandando la señal al pic.

COMPONENTES

- Laser Barato.
-1 Resistencia de 470 ohmios (depende del led que uses).
-1 Resistencia de 1k ohmios.
-1 Resistencia de 5,1k ohmios.
-Optoacoplador (extraído de una impresora rota hay de varios tipos).
- 1 Led .
-Transistor BD136 PNP.

Para aquellos que deseen valorar el sensor os dejo el programa y el circuito:
Programa para el PIC 16f876
INCLUDE “modedefs.bas”
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 2
DEFINE OSC 4
; PARÁMETROS DEL ADC
DEFINE ADC_BITS 10
DEFINE ADC_CLOCK 3
DEFINE ADC_SAMPLEUS 50
; VARIABLES
RES VAR WORD
led var portb.3
TRISA = 1 ‘puerto a como entrada
TRISB = 0 ‘puerto b como salida
PAUSE 500 ‘ creo 0,5 seg para el lcd esta bien
ADCON1 = %10001110
ADCON0 = %11000001
LCDOUT $FE, 1
high led
pause 1000
low led
pause 1000
INICIO:
; INICIAR CONVERSIÓN
ADCIN 0, RES ; LEER EL CANAL A
PAUSE 100 ; PAUSA 0,1 SEGUNDOS
LCDOUT $FE,1,dec res
SEROUT PORTb.0,n2400,[#res]
GOTO INICIO
END

Fuente: http://webs.ono.com/joliva68/sensor_infrarrojo_casro.html