Radio Controle com PIC

Para quem precisa de um controle remoto com vários botões, podemos usar um microcontrolador. Fizemos isso utilizando um microcontrolador PIC 16F628A da Microchip. Com isso, podemos obter até 8 chaves. Lembrando que poderíamos usar um outro microcontrolador com mais portas para expandir ainda mais o número de chaves.

Os pinos RA1, RA2, RA3 e RA4, foram ligados em chaves para serem utilizados como configuração de endereço. Sendo assim, se no circuito transmissor (Figura 1) todas as chaves estiverem abertas, então todas as chaves do circuito receptor (Figura 2) também devem estar abertas para que o circuito receba os dados. Observe que temos apenas 4 chaves para configuração de endereço. Isso possibilita fazer até 16 endereçamento diferente. Para quem precisa de mais endereçamentos, pode utilizar um PIC com mais portas ou então escrever esse endereçamento no próprio software. Para isso, basta inserir um número de 0 a 255 nas variáveis Codigo e CodigoLocal que encontram-se respectivamente no código fonte do transmissor e do receptor. Veja um exemplo abaixo de como deve ficar o código.

Trecho do código Transmissor - Demonstração de como deve ficar o código caso haja a necessidade de expandir o número de endereçamento.

Do

Codigo = 130

Dado = PORTB         'Copia o valor do PORTB para a variável Dado

Transmita            'Chama a sub-rotina para transmitir o dado

Loop

Trecho do código Receptor - Demonstração de como deve ficar o código caso haja a necessidade de expandir o número de endereçamento.

'Lendo o código local

CodigoLocal = 130

'Verifica se é o código correto

If CodigoLocal = CodigoRecebido Then

PORTB = DadoRecebido                  'Se o código é correto, então PORTB recebe o valor do dado recebido.

end if

Loop

Figura 1: Circuito transmissor do rádio controle com PIC 16F628A.

Figura 2: Circuito receptor do rádio controle com PIC 16F628A.

O código fonte foi escrito para o compilador GCBASIC (http://gcbasic.sourceforge.net/). A vantagem de se usar o GCBASIC está na sua facilidade e também por ele ser Open Source. Para facilitar a compilação do GCBASIC, usamos o programa Prithvi Portable que é um portatil do programa Prithvi Development Studio (http://sourceforge.net/projects/prithvi/). Pra quem nunca utilizou o programa Prithvi, assista este vídeo que demonstra como compilar um código fonte: http://youtu.be/NFfLw_ibIcY

O compilador GCBASIC vem com uma função para transmissão serial. Porém, para melhor entender a transmissão, resolvi criar um pacote de transmissão usando a codificação Manchester ^[2]. Para sincronizar os dados, foi criado um pulso alto de 2000 microssegundos seguido de um nível baixo de 100 microssegundos (Figura 4). Em seguida, é transmitido um byte com o endereço (ou código) e outro byte contendo o dado. A codificaçao Manchester usada foi a IEEE 802.3 (Figura 5).

Figura 3 - Sinal do pacote transmitido.

Figura 4 - Analise dos pulsos de cada pacote transmitido.

Figura 5 - Codificação Manchester. Disponível em http://en.wikipedia.org/wiki/Manchester_code

Os módulos TXC1 e RXD1 (Figura 6) são responsáveis pela transmissão e recepção via rádio frequência respectivamente.

Figura 6a: Receptor RXD1

Figura 6b: Transmissor TXC1

Segundo o datasheet dos módulos de do Transmissor TXC1 e do Receptor RXD1, obtivemos os seguintes tamanhos para a antena:

Transmissor TXC1: Comprimento = 22.6cm para 315MHz ; Comprimento = 17.2 cm para 434MHz.
Receptor RXD1: Comprimento = 22.6cm para 315MHz ; Comprimento = 17.2 cm para 434MHz.

Como iremos trabalhar com a frequência de 433.92MHz, o tamanha da nossa antena será:

Transmissor TXC1: Comprimento = 17.2cm
Receptor RXD1: Comprimento = 17.2cm

A antena pode ser feita de fio rígido de cobre 26AWG [1] ou fio encontrado em cabo de rede.

Os arquivos transmissor.hex e receptor.hex podem ser baixados nos link:

transmissor.hex

receptor.hex

Logo abaixo existe um vídeo mostrando o funcionamento do circuito através de simulação.

Código fonte - Transmissor

#chip 16F628A, 4

#define TX PORTA.0 'Define o pino RA0 como TX

Dir TX Out 'Define TX como saída

Dir PORTA.1 In 'Define PORTA.1 como entrada

Dir PORTA.2 In 'Define PORTA.2 como entrada

Dir PORTA.3 In 'Define PORTA.3 como entrada

Dir PORTA.4 In 'Define PORTA.4 como entrada

Dir PORTB in 'Define todo o PORTB como entrada

Codigo.1 = PORTA.1 'Copia o valor do pino RA1 para o bit 1 da variável Código

Codigo.2 = PORTA.2 'Copia o valor do pino RA2 para o bit 2 da variável Código

Codigo.3 = PORTA.3 'Copia o valor do pino RA3 para o bit 3 da variável Código

Codigo.4 = PORTA.4 'Copia o valor do pino RA4 para o bit 4 da variável Código

Dado = PORTB 'Copia o valor do PORTB para a variável Dado

Transmita 'Chama a sub-rotina para transmitir o dado

Loop

Sub Transmita

' 01 é igual a 1

' 10 é igual a 0

'Inicio da transmissao

'Rotina para transmitir pulso longo

TX = 1

Wait 2000 us

TX = 0

Wait 100 us

If Codigo.0 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.1 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.2 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.3 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.4 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.5 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.6 = 1 Then

Transmita1

Else

Transmita0

end if

If Codigo.7 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.0 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.1 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.2 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.3 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.4 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.5 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.6 = 1 Then

Transmita1

Else

Transmita0

end if

If Dado.7 = 1 Then

Transmita1

Else

Transmita0

end if

end sub

Sub Transmita1

TX = 0

Wait 100 us

TX = 1

Wait 100 us

end sub

Sub Transmita0

TX = 1

Wait 100 us

TX = 0

Wait 100 us

end sub

Código fonte - Receptor

#chip 16F628A, 4

#define RX PORTA.0 'Define o pino RA0 como RX para receber a transmisão

Dir RX In 'Define a RX como entrada

Dir PORTA.1 In 'Define o pino RA1 como entrada

Dir PORTA.2 In 'Define o pino RA2 como entrada

Dir PORTA.3 In 'Define o pino RA3 como entrada

Dir PORTA.4 In 'Define o pino RA4 como entrada

Dir PORTB Out 'Define todo PORTB como saida

Wait 10 ms

'Zera variáveis

CodigoLocal = 0

'=============================================================================

'Identifica Pulso de 2000 ms para iniciar a leitura do dado

'=============================================================================

Inicio:

Contador = 0 'Zera contador

Volta:

If RX = 1 Then 'Testa se o sinal está em nível alto

Contador = Contador + 1 'Incrementa contador

wait 15 us 'Aguarda 15 microsegundos

Goto Volta 'Volta para testar o pulso novamente

End if 'Fim da rotina If

If Contador < 95 Then 'Se contador menor que 95, cancela e volta p/ Inicio

Goto Inicio

end if

'Se contador maior que 95, receba o dado

'=============================================================================

Receba 'Chama sub-rotina para receber o dado

DecodificaManchester 'Chama sub-rotina para decodificar o dado recebido

DadoRecebido = dado 'Salva valor do dado recebido

'Verificar codificação

dadoA = codigoA 'Copia o codigoA na variável dadoA para decodifica-lo usando a sub-rotina DecodificaManchester

dadoB = codigoB 'Copia o codigoA na variável dadoA para decodifica-lo usando a sub-rotina DecodificaManchester

DecodificaManchester 'Chama sub-rotina para decodificar o Código recebido

CodigoRecebido = dado 'Salva valor do codigo recebido

'Lendo o código local

CodigoLocal.1 = PORTA.1 'Copia o estado do pino RA1 no bit 1 da variável CodigoLocal

CodigoLocal.2 = PORTA.2 'Copia o estado do pino RA2 no bit 2 da variável CodigoLocal

CodigoLocal.3 = PORTA.3 'Copia o estado do pino RA3 no bit 3 da variável CodigoLocal

CodigoLocal.4 = PORTA.4 'Copia o estado do pino RA4 no bit 4 da variável CodigoLocal

'Verifica se é o código correto

If CodigoLocal = CodigoRecebido Then

PORTB = DadoRecebido 'Se o código é correto, então PORTB recebe o valor do dado recebido.

end if

Loop

Sub Receba

Wait 145 us 'Aguarda 145 microsegundo para sincronizar os pulsos

codigoA.0 = RX

Wait 100 us

codigoA.1 = RX

Wait 100 us

codigoA.2 = RX

Wait 100 us

codigoA.3 = RX

Wait 100 us

codigoA.4 = RX

Wait 100 us

codigoA.5 = RX

Wait 100 us

codigoA.6 = RX

Wait 100 us

codigoA.7 = RX

Wait 100 us

codigoB.0 = RX

Wait 100 us

codigoB.1 = RX

Wait 100 us

codigoB.2 = RX

Wait 100 us

codigoB.3 = RX

Wait 100 us

codigoB.4 = RX

Wait 100 us

codigoB.5 = RX

Wait 100 us

codigoB.6 = RX

Wait 100 us

codigoB.7 = RX

Wait 100 us

dadoA.0 = RX

Wait 100 us

dadoA.1 = RX

Wait 100 us

dadoA.2 = RX

Wait 100 us

dadoA.3 = RX

Wait 100 us

dadoA.4 = RX

Wait 100 us

dadoA.5 = RX

Wait 100 us

dadoA.6 = RX

Wait 100 us

dadoA.7 = RX

Wait 100 us

dadoB.0 = RX

Wait 100 us

dadoB.1 = RX

Wait 100 us

dadoB.2 = RX

Wait 100 us

dadoB.3 = RX

Wait 100 us

dadoB.4 = RX

Wait 100 us

dadoB.5 = RX

Wait 100 us

dadoB.6 = RX

Wait 100 us

dadoB.7 = RX

End sub

Sub DecodificaManchester

If dadoA.0=1 Then

If dadoA.1=1 Then GOTO erro

MyData_recebendo.0 = 0

else

If dadoA.1=0 Then GOTO erro

MyData_recebendo.0 = 1

end if

If dadoA.2=1 Then

If dadoA.3=1 Then GOTO erro

MyData_recebendo.1 = 0

else

If dadoA.3=0 Then GOTO erro

MyData_recebendo.1 = 1

end if

If dadoA.4=1 Then

If dadoA.5=1 Then GOTO erro

MyData_recebendo.2 = 0

else

If dadoA.5=0 Then GOTO erro

MyData_recebendo.2 = 1

end if

If dadoA.6=1 Then

If dadoA.7=1 Then GOTO erro

MyData_recebendo.3 = 0

else

If dadoA.7=0 Then GOTO erro

MyData_recebendo.3 = 1

end if

If dadoB.0=1 Then

If dadoB.1=1 Then GOTO erro

MyData_recebendo.4 = 0

else

If dadoB.1=0 Then GOTO erro

MyData_recebendo.4 = 1

end if

If dadoB.2=1 Then

If dadoB.3=1 Then GOTO erro

MyData_recebendo.5 = 0

else

If dadoB.3=0 Then GOTO erro

MyData_recebendo.5 = 1

end if

If dadoB.4=1 Then

If dadoB.5=1 Then GOTO erro

MyData_recebendo.6 = 0

else

If dadoB.5=0 Then GOTO erro

MyData_recebendo.6 = 1

end if

If dadoB.6=1 Then

If dadoB.7=1 Then GOTO erro

MyData_recebendo.7 = 0

else

If dadoB.7=0 Then GOTO erro

MyData_recebendo.7 = 1

end if

dado = MyData_recebendo

end sub

erro:

Goto Inicio

end

Referências:

[1] Rogercom, Disponível em <http://www.rogercom.com/pparalela/LptWireless.htm>; acessado em 10 de Agosto de 2009.

[2] Wikipédia, Manchester code. Disponível em <http://en.wikipedia.org/wiki/Manchester_code>; acessado em 09 de Abril de 2013.

[3] GCBASIC, Great Cow BASIC. Disponível em <http://gcbasic.sourceforge.net/>; acessado em 09 de Abril de 2013.

[4] Prithvi Development Studio. Disponível em <http://sourceforge.net/projects/prithvi>; acessado em 09 de Abril de 2013.

Fórum, http://74.125.47.132/search?q=cache:-bfz2kd6VzkJ:forum.clubedohardware.com.br/archive/controle-remoto-rf/487527+Ht12d+esquema&cd=4&hl=pt-BR&ct=clnk&gl=br

Veja também:

Radio Controle simples - esquema