Emisor de IR (Infrarrojos) para ROOMBA con PIC16F84
Desde hace algunos meses dispongo de uno de esos aspiradores autonomos (robotizados) ROOMBA. Como he visto que no hay mucha información en internet sobre el protocolo que se usa para transmitir los comandos IR a este aspirador, y aprovechando que estoy con un proyecto sobre éste, pongo aqui unas rutinas que he creado para enviar esos comandos IR con un PIC16F84.
El protocolo que usa para la emisión de estos comandos Infrarrojos (IR) es el siguiente:
Portadora de Frecuencia = 38 KHz (T = 26,31usg = Ton + Toff)
1 Lógico = 3 msg de envío de la portadora (ON) + 1 msg de OFF
0 Lógico = 1 msg de envío de la portadora (ON) + 3 msg de OFF
Por lo tanto, para enviar un “1 lógico” se deben enviar: 3msg/T = 114 pulsos (Ton+Toff) (3msg/26,31usg=114) y 1 msg a OFF.
Por lo tanto, para enviar un “0 lógico” se deben enviar: 3msg/T = 38 pulsos (Ton+Toff) (1msg/26,31usg=38) y 3 msg a OFF.
El comando CLEAR (comienza a aspirar) es el código 136 = “10001000”
Aquí va el programa que he creado para enviar el comando CLEAR y que el aspirador se ponga a funcionar.
1 | program Envio_Comandos_ROOMBA |
2 | ' Envios de comandos IR a ROOMBA |
3 | ' ******************************************************************************* |
4 | ' (c) Autor: ZackY - zackyzgz@yahoo.es |
9 | ' Diodo IR conectado a PORTA.1 (salida) |
10 | ' Pulsador conectado a PORTB.0 (entrada) |
11 | ' ******************************************************************************* |
14 | 'Sub-rutina para generar un 1 logico de trama IR |
15 | Sub procedure Env_Uno() |
17 | For i=1 to 114 ' 3msg/26umg= 114 pulsos on-off |
19 | Delay_us(12) ' Ajuste: Debería ser 13usg, pero observando el osciloscipio |
20 | Clearbit(PORTA,1) ' ese valor se ajusta mejor |
21 | Delay_us(2) ' Ajuste: Debería ser 13usg, pero observando el osciloscipio |
22 | next i ' ese valor se ajusta mejor |
23 | Clearbit(PORTA,1) ' 1msg a OFF |
27 | 'Sub-rutina para generar un 0 logico de trama IR |
28 | Sub procedure Env_Cero |
30 | For i=1 to 38 ' 1msg/26umg= 38 pulsos on-off |
36 | Clearbit(PORTA,1) ' 3msg a OFF |
41 | TRISA = 0 ' PORTA.1 como Salida |
42 | TRISB = 1 ' PORTB.0 como Entrada |
43 | PORTA.1 = 0 ' Inicializo PORTA - Apago led |
44 | PORTB.0 = 1 ' Inicializo PORTB - Entrada OFF |
49 | If PORTB.0 = 0 then ' Envio comando CLEAR |
Fuente: http://foros.zackyfiles.com/showthread.php?t=570461
|
2.372 Veces leído 0 comentarios |
