CONSTRUCCIÓN DE SENSOR DE PROXIMIDAD INFRARROJO CASERO
.
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.

FOTOGRAFIAS DEL MONTAJE

1º Cortamos por la mitad el optoacoplador para separa el receptor.

2º Desmontamos el laser.

3º Pegamos el receptor y laser en paralelo.

4º Montamos el circuito.

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

CIRCUITO

PREGUNTAS Y SUGERENCIAS.

Para cualquier pregunta puedes realizármela al correo master@picpc.es