Holtek Encoder HT6P20

[picdev]

Hello....
If someone have interest in HT6P20B decoding, feel free to use the code below.
Is ugly to see, but works fine.
And if someone help me to let this code more short and clean, antecipately thanks.

Carlos W. Rett

________________________________________________
INCLUDE "BS2DEFS.BAS"
DEFINE CHAR_PACING 1000 'Serout character pacing in us
DEFINE PULSIN_MAX 6200
DEFINE OSC 20 'Oscilator Speed

ADCON1 = 7 ' Set PORTA and PORTE to digital

';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'Define nome de variáveis

BITVALUE VAR WORD
ADDRESS VAR WORD
CODE VAR BYTE
BTRES VAR BIT
IRIN1 VAR PORTA.0
SERPC VAR PORTA.1

pause 100
CLEAR 'Clear All Variables

';;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
'Port Adjust

TRISA = %11111101 'PortA Adjusted .

SEROUT2 SERPC,16390,["--Program initialized--",13,10] 'SERIAL Speed = 38400

Start:
CLEAR
PULSIN IRIN1,0,BITVALUE
IF (BITVALUE > 5400) and (bitvalue < 6100) THEN
Goto LEDADOS
else
goto Start
endif


LEDADOS:
GOSUB TESTABIT
ADDRESS.15 = BTRES
GOSUB TESTABIT
ADDRESS.14 = BTRES
GOSUB TESTABIT
ADDRESS.13 = BTRES
GOSUB TESTABIT
ADDRESS.12 = BTRES
GOSUB TESTABIT
ADDRESS.11 = BTRES
GOSUB TESTABIT
ADDRESS.10 = BTRES
GOSUB TESTABIT
ADDRESS.9 = BTRES
GOSUB TESTABIT
ADDRESS.8 = BTRES
GOSUB TESTABIT
ADDRESS.7 = BTRES
GOSUB TESTABIT
ADDRESS.6 = BTRES
GOSUB TESTABIT
ADDRESS.5 = BTRES
GOSUB TESTABIT
ADDRESS.4 = BTRES
GOSUB TESTABIT
ADDRESS.3 = BTRES
GOSUB TESTABIT
ADDRESS.2 = BTRES
GOSUB TESTABIT
ADDRESS.1 = BTRES
GOSUB TESTABIT
ADDRESS.0 = BTRES
GOSUB TESTABIT
CODE.7 = BTRES
GOSUB TESTABIT
CODE.6 = BTRES
GOSUB TESTABIT
CODE.5 = BTRES
GOSUB TESTABIT
CODE.4 = BTRES
GOSUB TESTABIT
CODE.3 = BTRES
GOSUB TESTABIT
CODE.2 = BTRES
GOSUB TESTABIT
CODE.1 = BTRES
GOSUB TESTABIT
CODE.0 = BTRES
GOSUB TESTABIT

SEROUT2 SERPC,16390,["Address= ",BIN16 ADDRESS," Code = ",BIN8 CODE,13,10]
GOTO Start



TESTABIT:
BITVALUE = 0
PULSIN IRIN1, 1, BITVALUE
IF (BITVALUE < 200) OR (BITVALUE > 600) THEN
SEROUT2 SERPC,16390,["Interrupted Code or Garbage ",13,10]
GOTO Start
ENDIF
IF BITVALUE < 400 THEN
Btres = 1
ELSE
Btres = 0
ENDIF
RETURN

End

[leko]

Hi Carlos!! You know the manchester code!!Some small alterations based on the examples of manchester code can be useful!

Você conhece o codigo manchester? Algumas pequenas alterações baseadas nos exemplos do codigo manchester podem ser interessantes!Vc ja olhou os exemplos para codificacao manchester!! No codigo da Melaine me parece que ela monta os dados seriais. Olhei muito rápido!! Qualquer coisa me manda um email [email protected]

http://www.picbasic.co.uk/forum/show...ght=Manchester

[MARCANTONIO]

Hi Carlos,

Utilizei o seu código para decodificar o sinal enviado por um sensor de presença sem fio que utiliza o padrão 6p20b. O código compilou direitinho mas não consegui a decodificação do sinal. O meu receptor de RF está recebendo o sinal mas não consigo decodificá-lo. O que será que pode estar acontecendo?

[picdev]

Olá MARCANTONIO,

Especifique melhor o seu projeto para que eu possa entender o que pode estar acontecendo, como o tipo de PIC utilizado, se está utilizando Display, o tipo de receptor, e poste a sua rotina ou parte dela para que eu possa estar dando uma olhada.

Já adiantando, você pode olhar algumas coisinha básicas, como a configuração correta das portas do PIC, se estão definidas como entrada ou saída corretamente, se estão setadas como entrada/saída DIGITAL e não analógica, se você está usando a saída digital do seu receptor de RF e não a analógica, se as variáveis de programa estão com o tamanho correto (Byte,Word, Bit) etc.

Espero que tenha sucesso, depois poste aqui os resultados.

[ ]s
C.W.Rett

[MARCANTONIO]

Hi Carlos,

Estou utilizando o seu código com quase nenhuma alteração. As alterações que fiz foram basicamente na apresentação dos dados via LCD. O PIC utilizado é um 16f877 - 20MHz, conforme você tinha sugerido.
O meu receptor de rf é este comercializado na Tato
http://www.tato.ind.br/files/RxD1.pdf

Estou pretendendo decoficar os sinais enviados via RF para sistemas de alarme sem fio. Se pelo menos eu conseguisse fazer a decodificação já seria de grande ajuda pois era só ir adaptando o código.
Você conseguiu fazer a decodificação do ht6p20B com o exemplo acima? Como os dados eram apresentados? Você teria mais alguma dica ou exemplo?

Você pode entrar em contato direto comigo pelo e-mail abaixo

[email protected]

Um grande abraço.

[picdev]

Marcantonio, o receptor que eu tenho utilizado, é o DHAY 433MHz do link below :

http://www.dhay.com.br/Produtos/Plug-in/RX.htm

Não conheço este módulo da TATO ao qual você se referiu, não sei se a saída do mesmo é digital ou analógica, e se a saída de dados do mesmo é da mesma fase que o DHAY, talvez também seja necessário colocar um resistor de Pull-Up ou Pull-Down na saída do seu módulo para melhor definição do sinal.

Caso Você esteja em São Paulo, te aconselho comprar um destes módulos híbridos da DHAY, você os encontra na Multicomercial (Sta. Ifigênia), e o custo do mesmo é em torno de R$12,00 a R$15,00 aproximadamente, assim você poderia testar a rotina para ver o funcionamento da mesma, e talvez adaptar a seu receptor.

Já utilizei esta rotina em vários projetos, e funciona perfeitamente além de ser bem rápida na leitura e não apresentar leituras errôneas.

[ ]s
C.W.Rett

[Ioannis]

Hey boys, you happen to be in an english language speaking (=writing) forum!

Ioannis