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

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

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

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