Eletronica‎ > ‎

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:

http://kito.com.br/radio-controle/transmissor.hex 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


Do
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

Do
'=============================================================================
'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 StudioDisponí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






ċ
transmissor.hex
(1k)
Edivaldo Amaral Gonçalves,
24 de jun de 2015 18:14
Comments