Compartelo en facebook

Menú del sitio
Noticias
Inicio » Artículos » Electrónica » Microcontroladores

Programa Proton para medidor de distancias infrarrojo
El programa es simple, solo hay que considerar que para que la conversión analogico digital sea lo suficientemente precisa usamos un cristal de 20 MHz. Se conectaron en el puerto B dos leds; uno prendía si se detectaba algo por debajo de los 80 cm de distancia, en caso contrario encendía el otro. El ranger GP2Y0A21YK tiene un rango máximo de 80 cm, la hoja de datos la pueden ubicar en la sección de descargas de esta web.

Device = 16F876A
Xtal 20
Declare Adin_Res = 10 ' resultado de 10-bit
Declare Adin_Tad = 3 ' RC OSC
Declare Adin_Delay = 50 ' muestreo de 50 microsegundos

Symbol ROJO = PORTB.2
Symbol VERDE = PORTB.3
Dim SENSOR1 As Word
Dim distancia As Word
TRISA = %00000001 ' AN0 (PortA.0) como entrada
ADCON1 = %10000000 ' PortA.0 entrada analogica
TRISB.2 = 0
TRISB.3 = 0
PORTB = 0
DelayMS 30

main:
    SENSOR1 = ADIn 0
    DelayMS 1000
    distancia = (6787 / (SENSOR1 - 3)) - 4
    If distancia < 80 Then
        High ROJO
    Else
        High VERDE
    EndIf
    DelayMS 1000
    Low ROJO
    Low VERDE
    GoTo main
End
Categoría: Microcontroladores | Ha añadido: Patariki (2012-06-06)
Visiones: 633 | Tags: Proton, Ranger, programa, GP2Y0A21YK, pic, Sharp, infrarrojo, 16F876A | Ranking: 0.0/0
Total de comentarios: 0
Solamente los usuarios registrados pueden añadir los comentarios.
[ Registrarse | Entrada ]
Estadística

Total en línea: 1
Invitados: 1
Usuarios: 0
Sponsors



   

Búsqueda
Copyright Patariki © 2017Crear un sitio web gratis con uCoz