TcheCara

Olá Paulo, finalmente consegui implementar um código que sai da interrupção e retorna à ela fazendo um novo ciclo. Dá uma conferida para nós. 'PIC 16F628A Define CONF_WORD = 0x3f50 Define CLOCK_FREQUENCY = 4 TRISA = 0xff 'seta todas portas A como entrada TRISB = 00000111b 'portas 0, 1 e 2 como entrada as demais saida Dim conta As Byte PORTB.5 = 0 AllDigital OPTION_REG.T0CS = 0 'USAR CLOCK INTERNO OPTION_REG.PSA = 0 'PS2, PS1, PS0 CONFIGURADOS PARA PRESCALER = 4 OPTION_REG.PS2 = 0 OPTION_REG.PS1 = 0 OPTION_REG.PS0 = 1 TMR0 = 0x06 'CONTAGEM INICIAL DO TIMER0 EM 6 INTCON.T0IE = 1 'habilita timer0 interrupção INTCON.GIE = 1 'habilitas todos interrupções un-masked OPTION_REG.T0CS = 0 'definir fonte de relógio timer0 de instrução interna do relógio de ciclo Enable alarme: If conta = 10 Then conta = 0 PORTB.7 = 1 WaitMs 10 PORTB.7 = 0 Goto continua Endif End ________________________________________________________ On Interrupt 'interrompe a rotina à cada 1 mS Save System conta = conta + 1 If conta = 10 Then Goto sai Endif Goto continua sai: Goto alarme continua: TMR0 = 0x06 Resume _____________________________________________________________

Ok, vou continuar pesquisando. Eu vi um vídeo muito bom de um camarada a respeito do TIMER0, ele tem várias videos-aulas porém ele se dedica ao MikroC. Ele mostra um exemplo e diz que a garantia de que houve um estouro é o T0IF ir a 1 então ele condiciona sua variável a sofrer incremento só quando essa condição é satisfeita e depois ele faz o T0IF = 0, eu acho que seria assim: aqui houve estouro então If INTCON.T0IF = 1 then conta = conta + 1 INTCON.T0IF = 0 endif vai para novo estouro........................................................... De tanto errar um dia eu acerto kkkkkkkkkkkkkkkkkkkkkkkkkkk, como na mega um dia eu acerto kkkkkkkkkkkkkkkkkkkkkkkkk.

Olá Paulo, após fazer varios ensaios para ver porque a minha gambiarra funcionava embora toda errada e a tua sugestão não fazia a recontagem e ficava trancada no end. A moral é o seguinte na minha gambiarra a execução da rotina de interrupção nunca chegava a executar o RESUME pois antes era desviada através de um goto ciclo, fazendo sempre esse laço sem encerrar com RESUME pois a partir do momento que fizer o RESUME a coisa não implementa mais a variravel CONTA conforme havia comentado. Pergunto então, estaria correto fazer assim? Veja como ficou a titulo de exemplo o codigo: 'PIC 16F628A Define CONF_WORD = 0x3f50 Define CLOCK_FREQUENCY = 4 AllDigital TRISA = 0xff 'seta todas portas A como entrada TRISB = 00000111b 'portas 0, 1 e 2 como entrada as demais saida Dim conta As Byte Dim flag_1 As Byte PORTB.5 = 0 'WaitMs 100 'Vamos esperar o sensor estabilizar e depois mandar o pulso OPTION_REG.T0CS = 0 'USAR CLOCK INTERNO OPTION_REG.PSA = 0 'PS2, PS1, PS0 CONFIGURADOS PARA PRESCALER = 4 OPTION_REG.PS2 = 0 OPTION_REG.PS1 = 0 OPTION_REG.PS0 = 1 TMR0 = 0x06 'CONTAGEM INICIAL DO TIMER0 EM 6 INTCON.T0IE = 1 'habilita timer0 interrupção INTCON.GIE = 1 'habilitas todos interrupções un-masked OPTION_REG.T0CS = 0 'definir fonte de relógio timer0 de instrução interna do relógio de ciclo Enable ciclo: PORTB.5 = 1 WaitUs 10 PORTB.5 = 0 Goto contagem verifica: If conta < 10 Then PORTB.7 = 1 WaitMs 10 PORTB.7 = 0 conta = 0 Goto ciclo 'Eco não retornou no tempo previsto, alarma e retorna novo ciclo Else conta = 0 Goto ciclo 'Tudo ok eco retornou em tempo portanto faz novo ciclo Endif End__________________________________________________________________ contagem: On Interrupt 'interrompe a rotina à cada 1 mS Save System conta = conta + 1 If PORTA.4 = 0 Then 'se recebeu o eco porta.4 vai de 1 para ZERO Goto verifica 'sair ' aqui ele tem que ir para esperando para verificar e já leva o valor de conta que se for igual a 10 alarma Endif sair: TMR0 = 0x06 Goto ciclo Resume________________________________________________________________________________________

Poderia simplificar e cortar um monte de instruções, deixando só o básico, entre a linha enable e o end só um laço para criar uma situação de sair da interrupção e retornar para ela novamente para ver se ela faz uma segunda entrada e um novo incremento da variável com isso acho com 50 linhas seria possível. Interessante que o meu projeto inicial onde a interrupção estava meio confusa inclusive tu pediu para eu colocar no final, fora daquele emaranhado todo a coisa em termos até funcionava isso é havia sucessivos incrementos e agora não, apenas um incremento inicial.

Oi Paulo, pelos experimentos que fiz, Alldigital não influenciou em nada e sem o Save System não funciona nada e se colocar o Intcon.t0if = 0 também. Troquei o pic pelo 16F648A que tem 256 bytes de ram também não resolveu. Resumindo só há incremento da variável na primeira passagem pela interrupção e ao sair dela e entrar em um novo ciclo congela no end.

Olá Paulo, retornando ao nosso estudo. Eu implementei a rotina seguindo tuas instruções e fiz ensaios no PSI. Forcei uma situação para Alarme onde PORTB.7 vai a 1 e uma situação em que o ECO chega no tempo previsto e a PORTA.4 vai a 0, até ai tudo OK. Mas estou tendo o seguinte problema: Quando rodo o programa na primeira vez ele vai ate a interrupção e encrementa a variável CONTA após isso vai para verificação para saber se a situação é de ALARME ou não e de lá vai para CICLO onde novamente envio o pulso de 10 uS para o TRIGGER e vou novamente para interrupção pra incrementar novamente a varíavel CONTA =====> śo que isso não ocorre, não há mais interrupções e a variável CONTA não sofre mais incrementos e o programa parece ficar parado no END. /////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////// ciclo: conta = 0 flag_1 = 0 PORTB.5 = 1 WaitUs 10 PORTB.5 = 0 Goto contagem verifica: If flag_1 = 1 Then If conta < 40 Then PORTB.7 = 1 WaitMs 10 PORTB.7 = 0 Goto ciclo 'Eco não retornou no tempo previsto, alarma e retorna novo ciclo Else Goto ciclo 'Tudo ok eco retornou em tempo portanto faz novo ciclo Endif Else '===========>>> Se o Flag_1 = 0 significa que o Eco ainda não chegou portanto volta a verificar Goto verifica Endif contagem: End_______________________________________________________________________________________________ On Interrupt 'interrompe a rotina à cada 1 mS Save System If flag_1 = 1 Then Goto sair Endif conta = conta + 1 If PORTA.4 = 0 Then 'se recebeu o eco porta.4 vai de 1 para ZERO flag_1 = 1 Goto verifica 'aqui ele tem que ir para esperando para verificar e já leva o valor de conta que se for igual a 10 alarma Endif If conta = 40 Then flag_1 = 1 Goto verifica 'aqui conta chegou a 10 e portb = 1 mas portb.4 = 1 ==> ECO não chegou então tem que alarmar Endif sair: TMR0 = 0x06 Resume___________________________________________________________________________________________

Paulo, agora eu é que fiquei confuso, pois se era para preservar a rotina de interrupção mantendo ela sem muita interferência para não atrapalhar, agora ela está cheia de tarefas agindo durante sua execução. A não ser que tenha entendido tudo errado. Conforme entendi ficou assim: ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// flag_1 = 0 PORTB.5 = 1 'aqui geramos pulso de 10 uS para o trigger WaitUs 10 PORTB.5 = 0 If flag_1 = 1 Then If conta = 40 Then 'não houve retorno do eco PORTB.7 = 1 'saida de alarme WaitMs 10 PORTB.7 = 0 Endif Endif End _________________________________________________________________________________ On Interrupt 'interrompe a rotina à cada 1 mS If flag_1 = 0 Then 'se for zero faz a rotina, se for 1 vai direto ao fim Save System TMR0 = 0x06 'zera contagem Endif If flag_1 = 1 Then Goto sair 'pula direto para o fim Endif If PORTA.4 = 0 Then 'se recebeu o eco porta.4 vai de 1 para ZERO flag_1 = 1 Goto sair ' pula direto para o fim Endif conta = conta + 1 If conta = 40 Then flag_1 = 1 Endif sair: Resume _____________________________________________________________________________________

Paulo agora sim, tu deu nos dedos. Esse é meu problema, eu ainda não consegui entender como pegar o resultado da minha variável conta dentro da rotina de interrupção sem entrar nela. Sei que essa informação está gravada na memória do pic só não sei o caminho para chegar lá. Você fala em criar um Flag, seria esse o caminho? Vou dar uma pesquisada para entender como trabalhar com Flags.

OK Paulo, implementei as modificações mas na prática continua igual, parece que só trocou 6 por 1/2 dúzia pois o resultado é o mesmo. Ficou assim: 'SENSOR DE MOVIMENTO 'PIC 16F628A Define CONF_WORD = 0x3f50 Define CLOCK_FREQUENCY = 4 TRISA = 0xff 'seta todas portas A como entrada TRISB = 00000111b 'portas 0, 1 e 2 como entrada as demais saida Dim conta As Byte Dim tempo(4) As Byte Dim x As Byte Dim i As Byte Dim medida(2) As Byte Dim tolerancia1 As Byte Dim tolerancia2 As Byte PORTB.5 = 0 WaitMs 100 'Vamos esperar o sensor estabilizar e depois mandar o pulso OPTION_REG.T0CS = 0 'USAR CLOCK INTERNO OPTION_REG.PSA = 0 'PS2, PS1, PS0 CONFIGURADOS PARA PRESCALER = 4 OPTION_REG.PS2 = 0 OPTION_REG.PS1 = 0 OPTION_REG.PS0 = 1 TMR0 = 0x06 'CONTAGEM INICIAL DO TIMER0 EM 6 INTCON.T0IE = 1 'habilita timer0 interrupção INTCON.GIE = 1 'habilitas todos interrupções un-masked OPTION_REG.T0CS = 0 'definir fonte de relógio timer0 de instrução interna do relógio de ciclo Enable medida(0) = 0 medida(1) = 0 i = 0 ciclo: conta = 0 tempo(0) = 0 tempo(1) = 0 tempo(2) = 0 tempo(3) = 0 x = 0 For x = 0 To 4 'Vamos medir 4 vezes e fazer a media If x = 4 Then Goto registra Endif PORTB.5 = 1 'aqui geramos o pulso TRIGGER de 10 uS aprox para o SRF04 WaitUs 10 PORTB.5 = 0 verifica: If PORTA.4 = 1 Then 'aqui monitoramos a porta ECHO do SRF04 Goto mede Endif Goto verifica alarme: tolerancia1 = medida(1) + ((medida(1) * 10) / 100) 'tolerancia de 10% para erro tolerancia2 = medida(1) - ((medida(1) * 10) / 100) If tolerancia2 <= medida(0) And medida(0) <= tolerancia1 Then 'aqui aceito erro de 10% abaixo e acima PORTB.7 = 0 Else PORTB.7 = 1 WaitMs 10 PORTB.7 = 0 Endif tolerancia1 = 0 tolerancia2 = 0 medida(0) = 0 medida(1) = 0 Goto ciclo testa: If PORTA.4 = 0 Then tempo(x) = conta 'AQUI SALVAMOS A MEDIDA DO TEMPO conta = 0 Goto retorna 'faz voltar para proximo x Endif Goto mede retorna: Next x registra: medida(i) = tempo(0) + tempo(1) + tempo(2) + tempo(3) If i = 0 Then i = 1 Goto ciclo Endif If i = 1 Then i = 0 Goto alarme Endif End______________________________________________________________________ mede: On Interrupt 'interrompe a rotina à cada 1 mS Save System conta = conta + 1 'aqui faz incremento a cada 1 mS TMR0 = 0x06 'zera contagem INTCON.T0IF = 0 'habilita nova interrupção Goto testa Resume___________________________________________________________________

Paulo a situação é a seguinte: Montando o circuito eu tenho o led da portb.7 piscando e quando passo a mão na frente do SFR04 dá pra perceber alteração no led e quando chego a 15cm aprox. o led tende a apagar. Implementei uma tolerância de 10% depois de 20% até chegar em 30% mas não houve melhoras significativas. Retirando a conexão que envia pulso para o trigger o led apaga como deveria acontecer. Parece que o sistema em si está ok e o problema estaria no código. Nos testes estou com sensor a 1,80 mt da parede.

Beleza Mestre, o pouco que eu sei é em basic através da tua apostila, vamos lá: Eu configurei o TIMER0 para fazer interrupções à cada 1 mS e incrementar minha variavel para ter um parâmetro para comprarar o tempo do ECO à cada vez que eu mando um pulso no TRIGGER. 'SENSOR DE MOVIMENTO '07/07/2015 'PIC 16F628A Define CONF_WORD = 0x3f50 Define CLOCK_FREQUENCY = 4 TRISA = 0xff 'seta todas portas A como entrada TRISB = 00000111b 'portas 0, 1 e 2 como entrada as demais saida Dim conta As Byte Dim tempo(4) As Byte Dim x As Byte Dim i As Byte Dim medida(2) As Byte PORTB.5 = 0 WaitMs 100 'Vamos esperar o sensor estabilizar e depois mandar o pulso OPTION_REG.T0CS = 0 'USAR CLOCK INTERNO OPTION_REG.PSA = 0 'PS2, PS1, PS0 CONFIGURADOS PARA PRESCALER = 4 OPTION_REG.PS2 = 0 OPTION_REG.PS1 = 0 OPTION_REG.PS0 = 1 TMR0 = 0x06 'CONTAGEM INICIAL DO TIMER0 EM 6 INTCON.T0IE = 1 'habilita timer0 interrupção INTCON.GIE = 1 'habilitas todos interrupções un-masked OPTION_REG.T0CS = 0 'definir fonte de relógio timer0 de instrução interna do relógio de ciclo Enable medida(0) = 0 medida(1) = 0 i = 0 ciclo: conta = 0 tempo(0) = 0 tempo(1) = 0 tempo(2) = 0 tempo(3) = 0 x = 0 For x = 0 To 4 'Vamos medir 4 vezes e fazer a media If x = 4 Then Goto registra Endif PORTB.5 = 1 'aqui geramos o pulso TRIGGER de 10 uS aprox para o SRF04 WaitUs 10 PORTB.5 = 0 verifica: If PORTA.4 = 1 Then 'aqui monitoramos a porta ECHO do SRF04 Goto mede Endif Goto verifica alarme: If medida(0) = medida(1) Then 'se o tempos forem iguais PORTB.7 = 0 Else PORTB.7 = 1 WaitMs 10 PORTB.7 = 0 Endif medida(0) = 0 medida(1) = 0 Goto ciclo End mede: On Interrupt 'interrompe a rotina à cada 1 mS conta = conta + 1 'aqui faz incremento a cada 1 mS TMR0 = 0x06 'zera contagem INTCON.T0IF = 0 'habilita nova interrupção If PORTA.4 = 0 Then tempo(x) = conta 'AQUI SALVAMOS A MEDIDA DO TEMPO conta = 0 Goto retorna Endif Goto mede retorna: 'faz voltar para proximo x Next x registra: medida(i) = tempo(0) + tempo(1) + tempo(2) + tempo(3) Select Case i Case 0 i = 1 Goto ciclo Case 1 i = 0 Goto alarme EndSelect Resume

Olá meus amigos desse forum, um abraço a todos em especial ao meu queridissimo professor Paulo. Gostaria de aproveitar esse espaço e pedir uma orientação pois estou tendo dificuldades em um pequeno projeto usando o sensor SRF04. Trata-se de um sensor de movimento por ultrassom, o código que desenvolvi é em basic usando o PSI. Se houver alguém interessado em ajudar poderei postar meu codigo para analise.

Bom dia Julio, O mais comum é relé de 12 Volts, talvez você encontre de 6. Exixte um relé que é usado em minuteira que é 12 v 10 A é um relé bem baratinho. Quanto ao meu projeto estou aguardando os componentes para montar. Um abraço.

Olá Julio, Fiz uma compra com esses caras aqui, ainda não recebi. O site deles é esse e os preços são bons. http://www.antarcomp.com.br. voce entra em contato por email ou faça um orçamento pois no site não consta todos os componentes. voce pode usar para acender a lampada um darligton TIP122, direto sem relé desde que você não queira por exemplo acender a lampada com 110 ou 220 Volts ac, nesse caso tem que usar relé para isolar do sistema.

Oi Paulo, Seria 7 letras como os displays tem 5 verticais e cada letra ocupará 5 + 1 espaço entre letras ==> 6 x 7 = 42 verticais vou usar 9 displays de 5 v ===> terei 45 verticais disponível. Já tá de bom tamanho.

Olá Paulo, Veja bem se usar apenas um 16F877 o meu projeto fica limitado a um número máximo de colunas, já usando um 16F628 + outro CI para as colunas fica mais flexível caso futuramente quiser aumentar o número de colunas. Esclarecido então a razão de usar o 16F628, qual seria a melhor opção em relação a pergunta que eu havia feito. È que existe tantas versões que confunde e acredito que uma destas é a mais viável tecnicamente oferecendo melhores resultados. Um abraço.

Bom dia Paulo, Gostaria de saber a tua opinião. Estou trabalhando como sabes em um projeto de matriz 7 linhas X 5 colunas (o total será de 30 colunas). Estou desenvolvendo em cima de um projeto onde o 74HC595 coloca o byte nas colunas e o PIC coloca 1 para ascender o led correspondente a linha desejada. Existem projetos que fazem o contrário, o PIC coloca os bytes nas 7 linhas e um 4017 coloca 1 na coluna escolhida. À medida que vou trabalhando em meu projeto e os horizontes vão abrindo vejo que este projeto não é bom e a segunda forma é a mais viável e inclusive fecha com uma dica que tu me deu de fazer 7 ponteiros varrer os displays. Seria isto ai mestre ? Um abraço e boa semana.

Estimado Professor, Essa é boa acessando o forum às 5:00 da madruga e eu é que preciso casar ? KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK:D Arrisco perder um amigo mas não posso deixar passar a oportunidade de uma boa piada. O problema Professor é que eu preciso é trocar a nega véia por duas de 25:wub: e tá dificel pois nem o ferro velho quer a dita cuja.KKKKKKKKKKKKKKKKKKKKKKKKKKK Um abraço e obrigado pela dica e desculpe as brincadeiras.

E ai turma, tudo numa boa. Gurizada de uns tempos pra cá já não conto mais carneirinhos para dormir, agora so consigo dormir contando bits. Será normal !!!!!!!!!!!!!!!! KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK Só arrumo pepino vejam só, agora estou tentando um meio de inverter uma sequência de bits em uma variável. É coisa de louco não ? kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk B = 01001101 ====> quero assim B = 10110010 Seria reinscrever a variável de forma inversa. Alguém teria uma ideia de como fazer ?

Olá Galera, A medida que vou implementando o meu projeto, faço pequenos ensaios para observar o funcionamento e fazer as devidas correções necessárias para atingir o meu objetivo. Estou postando aqui o exercicio para quem quiser experimentar. Desta vez trata-se do uso ShiftLeft para endereçar os dados à porta serial do CI 74HC595 e observar como se comporta a sua saida paralela. Estou disponibilizando arquivos do PSI e do PROTEUS. Bom proveito aos amigos. Abraço. http://serv43.enterupload.com/files/8/oyxbsi99gitd2r/shiftleft.rar

Olá Jorge, Amigo por enquanto estou só no virtual mas tenho o que você quer. A minha ideia é usar este software para editar as mensagens via PC. http://www.enterupload.com/7xq9q3uuphte/LED_MSG.exe.html Quanto ao esquema elétrico eu ainda não testei mas ele está aqui. http://www.enterupload.com/1gpdcfinlupq/RS_232.jpg.html Tenha bons estudos, um abraço.

Meus Amigos, Estou postando mais um exercício envolvendo a porta serial RS 232. - Enviaremos a palavra "FORUM" pela porta serial e vamos grava-la em uma memória eeprom. Feito isso, vamos ler a eeprom e identificar cada letra e fazer acender o led correspondente a esta. Segue link com vídeo demonstrativo. Um abraço e bom proveito. http://rapidshare.com/files/377811011/Exercicio_RS_232.FLV.html '09/03/10 'PIC: 16F628A - matriz 7 X 5 Define CONF_WORD = 0x3f70 Define CLOCK_FREQUENCY = 4 AllDigital TRISA.2 = 1 'entrada sda TRISA.3 = 0 'Saida scl TRISA.5 = 1 TRISB.1 = 1 TRISB.2 = 0 TRISB.3 = 0 TRISB.4 = 0 TRISB.5 = 0 TRISB.6 = 0 TRISB.7 = 0 TRISB.1 = 1 'entrada RS 232 Symbol sda = PORTA.2 Symbol scl = PORTA.3 Dim addr As Word Dim data As Byte Dim valor As Byte Dim rxbuff(7) As Byte '************BUS_I2C ****************** read_eeprom: 'Vamos escrever "FORUM" Hseropen 9600 For addr = 0 To 4 roda: Hserget data If data = 0 Then Goto roda rxbuff(addr) = data WaitMs 5 I2CWrite sda, scl, 0xa0, addr, data 'escrevendo dado na memória If addr = 5 Then Goto le_eeprom Endif Next addr le_eeprom: For addr = 0 To 4 I2CRead sda, scl, 0xa0, addr, data 'lê eeprom WaitMs 5 valor = data Select Case valor Case %01000110 'F PORTB.3 = 1 WaitMs 100 PORTB.3 = 0 Case %01001111 'O PORTB.4 = 1 WaitMs 100 PORTB.4 = 0 Case %01010010 'R PORTB.5 = 1 WaitMs 100 PORTB.5 = 0 Case %01010101 'U PORTB.6 = 1 WaitMs 100 PORTB.6 = 0 Case %01001101 'M PORTB.7 = 1 WaitMs 100 PORTB.7 = 0 EndSelect Next addr

Meu querido Professor, Genial essa, a agente tem mania de procurar soluções difíceis quando as bem simples resolvem o problema. Fazendo uma analogia, seria como armazenar 500 lt de água e você só dispõe de caixas de 100 lt. Basta interligar 5 caixas uma a outra e você terá os 500 l disponíveis ao uso. Como diz o velho ditado, "cabeça não é só para usar chapéu". Valeu meu amigo, vamos a luta.

Olá meus amigos, Ao fazer ensaios no Pic basic Simulator constatei que a minha ideia de juntar todos os bytes de cada letra que compõe uma frase em uma única variável para depois processar não é possível pois extrapola a capacidade máxima de uma variável long. Abandonei a ideia e comecei a pensar diferente e ai percebi que eu deveria pegar uma letra e deslocar uma casa para esquerda, pegar a segunda letra e fazer o mesmo e assim sucessivamente até novamente pegar a primeira letra e recomeçar o processo e ai teria a frase se deslocando na tela. O espaço do deslocamento entre uma letra e outra seria nada mais que o espaço necessário para separar um caracter do outro. Ufa!!!!!! Custei mas acho que agora estou no caminho certo, valeu vamos a luta. Um abraço turma.

Bem vindo meu amigo lucas, Estou trabalhando numa matriz de leds onde o objetivo é mostrar uma mensagem se deslocando da direita para a esquerda. Comecei apenas com uma letra para testar, matriz de 5 x 7 . Ao aumentar o numero de displays para compor por exemplo uma palavra ai as coisas complicaram e o basic começa a ficar mais trabalhoso e então a ideia é implementar em ASM as operações mais complexas. Estou trabalhado com o PIC SIMULATOR IDE que aceita codigos ASM junto com o basic. Para dar inicio ao deslocamento por exemplo de uma palavra eu tenho que ter em uma unica variavel os bytes lado a lado de cada letra ex.: a b c Ao deslocar a primeira letra a aparecer seria o "a" logo vem o "b" e em seguida o "c'. letra a = 11111 letra b = 10101 letra c = 00010 variavel = 111111010100010 ==> esta variavel seria deslocada para esquerda. Um abraço.