IAS

Amigo Paulo...

O meu muito obrigado pela luz no fim do túnel. Apesar de já utilizar o VB há algum tempo, estava fazendo confusão no uso do BASIC para o PIC, já que existem várias e várias versões do BASIC, cada uma voltada para um determinado compilador. Abaixo a rotina testada com sucesso no PSI - as semelhanças com o PROJETO 6 do seu tutorial 2 não são mera coincidência.

Define CONF_WORD = 0x3f50

Define CLOCK_FREQUENCY = 4

AllDigital

TRISA = 0x00

PORTA = 0x0

OPTION_REG = 7

Dim rxbuff(7) As Byte

Dim dado As Byte

Dim x As Byte

Hseropen 9600

Hserout "Projeto 6 - Comunicação Serial", CrLf

For x = 0 To 4

m21:

Hserget dado

If dado = 0 Then GoTo m21

rxbuff(x) = dado

If x = 4 Then

If rxbuff(0) = "G" Then PORTA 0# = 1

If rxbuff(2) = "C" Then PORTA 0.2 = 1

If rxbuff(4) = "*" Then PORTA 0.4 = 1

End If

Next x

Um grande abraço

Itamar

Antes de mais nada parabens Paulo pela segunda parte do tutorial do PSI. Após um tempo ausente e voltando ao estudo do assembler do PIC e também do BASIC torno a pedir uma orientação aos mestres de plantão: Como fazer para enviar via RS232 uma mensagem com cinco bytes para o PIC onde o primeiro byte, o terceiro e o quinto sejam caracteres de controle (uma maneira de ter certeza que o segundo byte e o quarto byte contêm as informações corretas)?

A rotina de recepção de um byte via rs232 põe o byte recebido em W

movf TEMP ;Salvo o byte recebido em TEMP

incf CONTADOR ;incremento CONTADOR

movf CONTADOR,W ;Carrego W com o valor de CONTADOR

xorlw 0x01 ;Verifico se é o byte 1

btfss STATUS,z

goto TESTA_GRUPO

return ;volta para a rotina de recepção

TESTA_GRUPO

MOVF TEMP,W ;carrega W com o Byte recebido

XORLW 0X47 ;TESTA SE É O CARACTERE "G"

BTFSC STATUS,Z

return

BSF PORTB,4 ;SE SIM, LIGA LED

INCF CONTADOR

MOVLW 0X2A ;CARREGA W COM "*"

return

essa rotina se repete 5 vezes, porém só identifica o primeiro byte, os seguintes não. lembrando que os bytes 1,2 e 3 são descartados, a informação está contida nos bytes 2 e 4 que seriam salvos e utilizados.

Grato.

IAS

Paulo e demais colegas do forum - se é pra falar de velharias: vamos lá - eu iniciei os meus "estudos" em eletrônica queimando um moderno (na época) retificador de selênio - e haja cheiro de ôvo podre hehehe, usei e muito, válvulas 5Y3, 12AV6, 6AQ5, etc... e fui usuario de uma maravilha da modernidade: o fantastico TK82 com 16K de memoria RAM, mas hoje são outros tempos, coisas que na época eram apenas ficção de algum diretor de cinema muito futurista, hoje fazem parte do nosso dia a dia.

Mas vamos as sugestões - práticamente tudo hoje em dia gira em volta da automação, então se houvesse a possibilidade de incluir algo no qual fosse possivel enviar comandos e receber alarmes à partir do PC usando RS232, acho que seria excelente.

Em tempo: na minha opinião um tutorial necessáriamente não tem que ser bonito e arrumadinho, e sim, ter conteúdo - pela primeira parte dá pra perceber que boa vontade para repartir conhecimento e conteúdo de alto nível não vai faltar.

Atenciosamente

Itamar

Oi pessoal, estou com uma duvida :

Ainda não terminei toda a segunda parte, mas já escreví sobre displays LCD's, memórias flash I2C, RTC's , serial assíncrona, e falta muito pouco para acabar o que me propús .

Percebí que muita gente pediu sobre LCD's e I2C, e isto já está pronto.

Estive pensando em publicar mais esta parte, e só ficaria para o final o PWM, e outros exemplos de uso mais complexos.

Só que aí o tutorial completo seria composto de 3 partes em vez de 2 .

Outra coisa que vou fazer é colocar um arquivo com todas as listagens de programa, pois muitos me escreveram solicitando isso.

Gostaria de suas opiniões ok ?

Paulo

Caro Paulo...

Antes de mais nada os meus agradecimento por nos ter brindado com a primeira parte de seu tutorial. Essa segunda parte está sendo ansiosamente aguardada por muitos que assim como eu pretendem aprender a programar o PIC em basic e que enfrentam as dificuldades do assembler.

Antecipadamente grato...

Itamar

Tente em vez disso , isso:

Amigão....funcionou perfeitamente....deu para aprender a identificar um byte recebido pela sua forma binária. Meus agradecimentos.

Itamar

Se alguem puder me esclarecer o porquê deste trecho de rotina abaixo só ligar o primeiro LED do PORTB (RB7) e não desligar, ignorando os comando seguintes, fico grato.

PS: a intenção é receber um byte via serial e de acordo com o valor desse byte, ligar os LEDs correspondentes do byte em binario no PORTB.

; -------------------------------------------

; RECEIVE CHARACTER FROM RS232 AND STORE IN W

; -------------------------------------------

; This routine does not return until a character is received.

;

receive btfss PIR1,RCIF ; (5) check for received data

goto receive

movf RCREG,W ; save received data in W

btfsc w,7 ;Testa o bit 7 em w e salta se for 0

bsf PORTB,7

btfss w,7 ;Testa o bit 7 em w e salta se for 1

bcf PORTB,7

btfsc w,6 ;Testa o bit 6 em w e salta se for 0

bsf PORTB,6

btfss w,6 ;Testa o bit 6 em w e salta se for 1

bcf PORTB,6

btfsc w,5 ;Testa o bit 5 em w e salta se for 0

bsf PORTB,5

btfss w,5 ;Testa o bit 5 em w e salta se for 1

bcf PORTB,5

btfsc w,4 ;Testa o bit 4 em w e salta se for 0

bsf PORTB,4

btfss w,4 ;Testa o bit 4 em w e salta se for 1

bcf PORTB,4

btfsc w,3 ;Testa o bit 3 em w e salta se for 0

bsf PORTB,3

btfss w,3 ;Testa o bit 3 em w e salta se for 1

bcf PORTB,3

return

;

Colega BCPETRONZIO...

pelo excelente nível técnico deste fórum, está ajundando sim e muito. Tenho desenvolvido tanto o hardware como o software e comercializado informalmente um sistema no qual atrávez de msgs de texto, aciono de forma independente até 64 cargas conectadas na LPT1 - limite máximo conseguido com utilização de circuitos discretos (multiplexadores, latch...) acredito que é possivel conseguir o mesmo utilizando o PIC, de uma forma mais "inteligente", mais segura e evidentemente mais simples. Recentemente adqueri um kit para desenvolvimento Multipic e um Multiprog, ambos fabricados pela SmartRadio e estou tentando aprender assembler e/ou basic com esse objetivo. Evidentemente que toda e qualquer ajuda será bem vinda e desde já me coloco a disposição dos integrantes deste forum para qualquer esclarecimento ou ajuda em algo que eu tenha conhecimento.

Abraços....

Itamar

Pessoal, estou anotando as idéias para implementar algum projeto com elas e colocar no tutorial.

Motor de passos, ok !

Matriz de LEDS, ok, mas que tipo de projeto ?

Shift Register, desculpem a minha dúvida, mas o que seria isso na prática ?

Comunicação entre Pics.... no momento estou no meio de um projeto onde uso um 16F877A que controla 8 16f629 e precisa receber e transmitir um monte de dados entre eles, mas é bem complexo, não sei se vai ajudar o pessoal que está iniciando, pois tem de estudar 2 programas bem diferentes funcionando juntos ao mesmo tempo...

vocês sugerem algo mais prático para poder colocar no tutorial ?

Eu estou tentando colocar projetos que possam ter um uso prático , para que o pessoal seja incentivado a montar o projeto para ver o funcionamento, acho que fica mais fácil entender como funciona né ?

Mas de qualquer maneira valeu pelas sugestões, amigos, já fiz dois exemplos usando PWM com Leds e também controle de temperatura de um aquário, afinal assim usamos exemplos do mundo real para ilustrar como se faz.

Sugestões são bem vindas !!!!

Paulo

Antes de mais nada meus sinceros parabens pelo tutorial - tenho feito dele o meu livro de cabeceira. Antes de maiis nada deixa eu me apresentar - meu nome é Itamar - técnico em eletrônica e telecomunicações - aprendi assembler usando o velho 8085, mas isso são aguas passadas e esquecidas. Atualmente estou tentando reaprender assembler - no caso para o PIC e me deparei com a possibilidade de programa-lo usando o BASIC... coisa que me seria de maior facilidade pois já uso e faço desenvolvimento de pequenos programas voltados para a área de automação usando o VB6. Para desenhos uso o EAGLE e faço as placas prótotipos ou em pequena quantidade usando a transferência térmica, obtendo bons resultados em placas de face simples.

Atualmente trabalho no desenvolvimento de um projeto semelhante ao que você desenvolve ou seja: um programa gerenciador no PC, fazendo a comunicação com um PIC inicialmente usando a serial mas que a intenção final é usar a USB, que gerenciaria outros e acionaria relés. Tenho vasculhado a net buscando mais informações sobre o basic para a programação do PIC e pouca coisa encontrado. Aguardo ansiosamente a publicação da segunda parte do seu tutorial e como sugestão, se puder abordar o uso da USART no PSI...

PS: São tantos os foruns aqui falando sobre o PIC que confunde um pouco, talvez se pudessem ser fundidos em um único....

Atenciosamente

Itamar