ma2008

caro amigo boa noite, fiz na platica careguei o programa, no pic 16f877a e coloquei pla funcionar no protobord cara que alegria funcionou tudo certinho, quando atuava no potenciometro o led almentava seu brilho e vice versa, estou satisfeito. duvidas semple temos como por exemplo: no codico tem adcon1=0x0e que eu acho que seja a mesma coisa que 00001110 em binario. como o microcontrolador sabe que o pino rc2 ccp1 vai ser a saida, acho que pode ter tudo aver com o adcon1=0x0e como saber o codico e esse:Define CONF_WORD = 0x3f72 Define CLOCK_FREQUENCY = 12 AllDigital ADCON1 = 00001110b ''0x0e Dim duty As Byte PWMon 1, 9 loop: Adcin 0, duty PWMduty 1, duty Goto loop end

ok amigo obrigado Ok amigo obrigado, mas como eu faço pra mim simular aquele circuito que esta la, pode ser no protus, ou no proprio pic simulator ide, aguardeo seu retorno,

amigos, como é maravilhoso esse mundo facinante dos microcontroladores, poxa vida esses exemplos todos só me faz continuar tentando, a aprender cada ves mas, estou com uma pequena duvida, estou tentando fazer o seguinte: usando um led em que o seu brilho almente gradativamente, ou seja quando eu aperte um botão, parese simples pra muitos, mas ainda não consegui. estou colocando o meu codico inical: Define CONF_WORD = 0x3f71 Define CLOCK_FREQUENCY = 4 AllDigital Symbol led = PORTB.0 Symbol botao = PORTB.1 main: If botao = 0 Then led = 1 Else led = 0 Endif Goto main End amigos por favor

Jfeliciano, obrigado, por ter me ajudado, caso precise novamente posso contar contigo?

caro amigo aphawk, estou a varias semanas tentando escrever no lcd de 2x16, consegui mais so em uma linha, gostaria de aprveitar o espaso e ecrever as duas linhas O PIC QUE EU ESTOU USANDO E O 16F628A , peço a sua ajuda por favor, AGUARDO RETORNO abaixo coloquei o codico, por favor obrigado. Define CONF_WORD = 0x3f02 Define CLOCK_FREQUENCY = 12 AllDigital CMCON = 7 Define LCD_BITS = 8 Define LCD_DREG = PORTB Define LCD_DBIT = 0 Define LCD_RSREG = PORTA Define LCD_RSBIT = 1 Define LCD_EREG = PORTA Define LCD_EBIT = 3 Define LCD_RWREG = PORTA Define LCD_RWBIT = 2 loop: Lcdinit LcdCurOff Lcdout "vamos trabalhar!" WaitMs 500 Lcdcmdout LcdClear Lcdout "nesase assunto!" WaitMs 500 Lcdcmdout LcdClear Goto loop

caro amigo aphawk, estou a varias semanas tentando escrever no lcd de 2x16, consegui mais so em uma linha, gostaria de aprveitar o espaso e ecrever as duas linhas, tem como me ajudar abaixo coloquei o codico, por favor gente obrigado. Define CONF_WORD = 0x3f02 Define CLOCK_FREQUENCY = 12 AllDigital CMCON = 7 Define LCD_BITS = 8 Define LCD_DREG = PORTB Define LCD_DBIT = 0 Define LCD_RSREG = PORTA Define LCD_RSBIT = 1 Define LCD_EREG = PORTA Define LCD_EBIT = 3 Define LCD_RWREG = PORTA Define LCD_RWBIT = 2 loop: Lcdinit LcdCurOff Lcdout "vamos trabalhar!" WaitMs 500 Lcdcmdout LcdClear Lcdout "nesase assunto!" WaitMs 500 Lcdcmdout LcdClear Goto loop a esqueci de informar o pic, 16f628a, aguardo retorno, obrigado.

amigo paulo, amigos do forum, penso que não soube me explicar direito, eu quis dizer o seguinte, com um unico botão eu acendo o led, e apago ao mesmo tempo. um pulso acende o led, com outro pulso apago o mesmo led, tudo isso fazendo com o mesmo botão, sendo um pulso acende, outro pulso com o mesmo botão apaga, certo da compreenção de todos, aguardo retorno. obrigado. Código: Define CONF_WORD = 0x31c4 'configurado para clock interno de 4 Mhz 'e GP3 como I/O em vez de Reset Define CLOCK_FREQUENCY = 4 AllDigital TRISIO = 00000010b 'essa e a maneira correta desse comando! Symbol led = GP0 Symbol botao = GP1 led = 0 main: If botao = 0 Then led = Not led Else Goto main Endif main1: WaitMs 50 If botao = 0 Then Goto main1 WaitMs 50 Goto main End

PAULO, amigo Amigos do forum, estou trabalhando a varios dias, nesse progeto, mais nÃo consigo avamÇar sei que pra muitos que tem facilidades de um aprendizado rápido,é tranquilo, mas no meu caso e um pouco devagar por isso que estou pedindo ajuda a todos, tres semanas estudando. conciste no seguinte, com um unico botÃo eu acendo o led e apago com o mesmo botÃo, estou usando o pic 12f675, aguardo retorno, obrigado

Amigos do forum, estou trabalhando a varios dias, nesse progeto, mais nÃo consigo avamÇar conciste no seguinte, com um unico botÃo eu acendo o led e apago com o mesmo botÃo, estou usando o pic 12f675, aguardo retorno, obrigado

amigos boa noite, me ajudem. fiz um sequencial usando os cinco pinos de saida do pic12f675 no simulador funciona tudo bem, mas depois que eu copi-lo para o pic12f675 e vou testa-lo fazendo todas as ligaçoes, somente tres leds funcionam na sequencia gpo,gp1,gp2, acho que o problema e na hora de fazer o configuration bits, detalhe so funcina com o crystal conectado peço a colaboração de todos. Define CONF_WORD = 0x31e2 AllDigital TRISIO = 00000000 'b Symbol led0 = GP0 Symbol led1 = GP1 Symbol led2 = GP2 Symbol led4 = GP4 Symbol led5 = GP5 main: led0 = 1 WaitMs 100 led0 = 0 led1 = 1 WaitMs 100 led1 = 0 led2 = 1 WaitMs 100 led2 = 0 led4 = 1 WaitMs 100 led4 = 0 led5 = 1 WaitMs 100 led5 = 0 Goto main End

amigos boa noite, me ajudem. fiz um sequencial usando os cinco pinos de saida do pic12f675 no simulador funciona tudo bem, mas depois que eu copi-lo para o pic12f675 e vou testa-lo fazendo todas as ligaçoes, somente tres leds funcionam na sequencia gpo,gp1,gp2, acho que o problema e na hora de fazer o configuration bits, detalhe so funcina com o crystal conectado peço a colaboração de todos. Define CONF_WORD = 0x31e2 AllDigital TRISIO = 00000000 'b Symbol led0 = GP0 Symbol led1 = GP1 Symbol led2 = GP2 Symbol led4 = GP4 Symbol led5 = GP5 main: led0 = 1 WaitMs 100 led0 = 0 led1 = 1 WaitMs 100 led1 = 0 led2 = 1 WaitMs 100 led2 = 0 led4 = 1 WaitMs 100 led4 = 0 led5 = 1 WaitMs 100 led5 = 0 Goto main End

amigos boa noite, me ajudem. fiz um sequencial usando os cinco pinos de saida do pic12f675 no simulador funciona tudo bem, mas depois que eu copi-lo para o pic12f675 e vou testa-lo fazendo todas as ligaçoes, somente tres leds funcionam na sequencia gpo,gp1,gp2, acho que o problema e na hora de fazer o configuration bits, detalhe so funcina com o crystal conectado peço a colaboração de todos. Define CONF_WORD = 0x31e2 AllDigital TRISIO = 00000000 'b Symbol led0 = GP0 Symbol led1 = GP1 Symbol led2 = GP2 Symbol led4 = GP4 Symbol led5 = GP5 main: led0 = 1 WaitMs 100 led0 = 0 led1 = 1 WaitMs 100 led1 = 0 led2 = 1 WaitMs 100 led2 = 0 led4 = 1 WaitMs 100 led4 = 0 led5 = 1 WaitMs 100 led5 = 0 Goto main End

ola amigos, me ajudem, tenho um leptop amazon pc, meu gravador de pic veio com uma saida db9, porém quando vou copilar o codico da erro, será que essa saida minha ta ruim, ou tenho que comprar um gravador com usb? obrigado aguardo retorno

mestre: aphawk estou postando esse códico aqui no forum porque esta dando um erro ao copia lo, o codico e para funcionar um servo motor ele fica continuo pra direita e esquerda segue o codico: Define CONF_WORD = 0x31c4 AllDigital C var Byte' o erro e esse: error in line 3: syntax error TRISIO = 0 GP0 = 0 inicio: For C = 50 To 250 Step 1 pulsout GP0.0, C pause 10 Next For C = 250 To 50 Step -1 pulsout GP1.0, C pause 10 Next Goto inicio end amigos por favor, obrigado aguardo retorno

Mestre aphwk obrigado, sÓ tire uma duvida por favor no pic 12f675 eu posso usar os 6pinos como ios certo? Ok. Eu fiz o seguinte tomando base como partida o codico que você escreveu pra mim. EntÃo fiz o seguinte: BotÃo quando acionado acende 5 leds quando solto o botÃo os leds se apagÃo, sÓ tem um detalhe: Eu coloquei gp0 associado a um botÃo gp1 led gp2 led gp3 led gp4 led gp5 led funcionou bem, sÓ que o gp4/an3/t1g/osc2/clkout nÃo acendeu permaneceu apagado, gostaria de te pedir a sua ajuda pois com a ajuda desse forum tenho aprendido muito, desde ja obrigado, aguardo seu retorno. mestre aphawk: descilpe não é o gp4 que não funcionou. 0 que não funcionou foi o MCLR/Vpp/GP3 deveria acender tambem junto com os outros 5 leds.

MESTRE APHAWK ESTE TRECHO JA SE ENCONTRA NO FINAL, ME DESCULPE A MINHA INSISTÊNCIA, por favor ESTOU AGUARDANDO O SEU RETORNO DESDE DE JA OBRIGADO. Goto inicio End saida: led1 = vled1 led2 = vled2 Return APHAWK, desculpe o erro era meu, pois depois de um montão de tentativas, verifiquei que eu estava errado, agora vou tentar escrever outros codicos com essa dica que você me deu, tudo bem. mais um aprendizado ate mais

amigo obrigado pelo codico mais porém esta aparecendo um erro na linha (Gosub saida) tentei varias vezes e não consegui teirar esse erro, por favor obrigado. Define CONF_WORD = 0x31c4 'configurado para clock interno de 4 Mhz 'e GP3 como I/O em vez de Reset Define CLOCK_FREQUENCY = 4 AllDigital TRISIO = 11111100b 'GP0 e GP1 saidas; GP2 entrada WPU.2 = 1 'habilita o weak pull up Symbol led1 = GP0 Symbol led2 = GP1 Symbol botao = GP2 Dim vled1 As Bit Dim vled2 As Bit inicio: If botao = 1 Then Goto inicio vled1 = 0 vled2 = 1 Gosub saida ´esta aparecendo um erro nessa linha WaitMs 10 vled1 = 1 vled2 = 0 Gosub saida

alguem nesse forum poderia me ajudar com o pic 12f675, um exemplo com botão e led

amigo boa noite: amigo guilmo tudo bem, seja bem vindo, pode contar com todos, tambem sou novato por aqui, com a ajuda de todos deste forum estou aprendendo bem de devagar, não quero atrupelar as coisas, estou aprendendo a trabalhar com os Ios do pic 16f877a graça a todas as feras desse forum, são tudo gente boa, só o fato de você postar a sua idade aqui ja é uma vitória, dezistir nunca, lembre-se aforça de vontade desculpe gente apertei a técla errada, esva querendo dizer que a força de vontade é o inicio de tudo, parabens.

paulo hoje logo pela manhan entrei no forum, que alegria ouvir essas palavras de encentivo e´como eu estivesse num tunel sem saida e na escuridão, e de repente varias saidas aparecesem, sabe tenho 43 anos e ontem meu neto nasceu as 19:hora o nome dele é Isac, casei cedo tenho tres filhos luto muito na vida, abri mao de meus ideais para educar meus filhos, graça a Deus ele me deu esse entendimento, meu filho tem 21 anos, minha filha tem 19anos, e o casulinha tem 4 anos, minha filha casa ano que vem, e somos uma afamilia abençoadá por Deus, ano passa que consegui terminar meu 2º grau, estou agora concluino o curso técno em eletrônica, só agora volto a me dedicar aquilo que tenho plazer a eletronica. e esse mundo estraordinário que é os microcontroladores, que bom que achei vocês, só tenho a agradecer, como sei que vocês são observadores, sou cristão, e tento errar menos na vida. sinceramente pensso que quando vocês tambem começaram a programar pics tambem tiveram alguma dificuldade, gostaria que vocês me dessem um retorno para mim, pra que sirva de uma força pra mim continuar, obrigado a todos e peço a Deus que nos abençoe. volto só final de semana, vou curtir o neto.

Ok amigo obrigo pela sua forÇa, vou parar por aqui pra mim estudar mais com certeza terei muitas duvidas posso te perguntar? Volto amahan obrigado.

amigo obrigado, cimulei no proteus e deu tudo certo, agora acrecentei outro botao agora são tres, vou testa-lo no proteus, o codico ficou assim. Define CONF_WORD = 0x3f70 Define CLOCK_FREQUENCY = 4 AllDigital TRISB = 11110111b Dim b1 As Bit Dim b2 As Bit Dim b3 As Bit Symbol botao1 = PORTB.0 Symbol botao2 = PORTB.1 Symbol botao3 = PORTB.2 Symbol ledout = PORTB.3 ledout = 0 'apaga o LED inicio: b1 = botao1 'le o botao b2 = botao2 b3 = botao3 'le o segundo botao b3 = b3 Or b1 'se ambos estiverem em 0, resultado sera 0, senao sera 1 If b2 = 0 Then ledout = 1 'acende o LED Else ledout = 0 'apaga o LED Endif Goto inicio End tenho mas duvidas, porque tive que colocar b3 = b3 Or b1 antes era b2=b2 or b1 porque, desculpe não quero ser chato nem uma mala sem alça, mas é q não sei estou aprendendo, por favor. aguardo retorno desde ja obrigado

bom dia amigo. botei pra copilar esse codico e deu esse erro será que esqueci de mais alguma coisa? Define CONF_WORD = 0x3f70 Define CLOCK_FREQUENCY = 4 AllDigital TRISB = 11111011b Dim b1 As Bit Dim b2 As Bit Symbol botao1 = PORTB.0 Symbol botao2 = PORTB.1 Symbol ledout = PORTB.2 ledout = 0 ' apaga o LED inicio: b1 = botao1 ' le o botao b2 = botao2 ' le o segundo botao b2 = b2 Or b1 ' se ambos estiverem em 0, resultado sera 0, senao sera 1 If b2 = 0 Then ledout = 1 ' acende o LED Else ledout = 0 ' apaga o LED Endif Goto inicio End erro: 0 1 mBPic.exe -DBG -pP16F628A -MSF -Y -DL -O11111114 -fo4 -N"C:\logica.mbppi" -SP"C:\Arquivos de programas\Mikroelektronika\mikroBasic PRO for PIC\defs\" -SP"C:\Arquivos de programas\Mikroelektronika\mikroBasic PRO for PIC\Uses\P16\" -SP"C:\" "__Lib_Math.mcl" "__Lib_MathDouble.mcl" "__Lib_System.mcl" "__Lib_Delays.mcl" "__Lib_CType.mcl" "__Lib_String.mcl" "__Lib_Conversions.mcl" "__Lib_Time.mcl" "__Lib_Trigon.mcl" "__Lib_Trigonometry.mcl" "__Lib_Button.mcl" "__Lib_Keypad4x4.mcl" "__Lib_Manchester.mcl" "__Lib_OneWire.mcl" "__Lib_PS2.mcl" "__Lib_Sound.mcl" "__Lib_SoftI2C.mcl" "__Lib_SoftSPI.mcl" "__Lib_SoftUART.mcl" "__Lib_EEPROM.mcl" "__Lib_PWM_b3.mcl" "__Lib_UART_b21.mcl" "__Lib_CF.mcl" "__Lib_GlcdFonts.mcl" "__Lib_Glcd.mcl" "__Lib_LcdConsts.mcl" "__Lib_Lcd.mcl" "__Lib_RS485.mcl" "__Lib_T6963C.mcl" "logica.mbas" 0 155 Available RAM: 208 [bytes], Available ROM: 2048 [bytes] 0 133 Compilation Started C:\\logica.mbas 1 1015 Hint: Compiling unit "C:\\logica.mbas" logica.mbas 2 303 Identifier "Define" was not declared logica.mbas 2 303 Identifier "Define" was not declared logica.mbas 2 304 Syntax error: Expected "end" but "Define" found logica.mbas 2 304 Syntax error: Expected "." but "CONF_WORD" found logica.mbas 0 102 Finished (with errors): 07 jul 2010, 08:02:13 logica.mbppi amigo umildemente por favor. desde de já obrigado.

desculpe amigo aphawk, desculpe mesmo obrigado tenha um bom dia. amigos do forum felicidades, estou postando aqui nesse forum esse codico; mas antes deiche eu explicar o que eu quero, é o seguinte quando eu apertar dois botões ao mesmo tempo o led acende, quando eu soltar o botao o led apaga tem como fazer ? desde de já brigado a todos. program logica symbol botao=portb,o symbol botao1=portb,1 symbol led =portb,2 main: cmcon=7 trisb=%00000011 if portb.0 and portb.1=0 then setbit (portb,2) else clearbit(portb,2) goto main end if end.

Ola amigos do forum bom dia. Estou precisando da ajuda de vocês, estou postando esse codico, botÃo e led. Funciona da seguinte maneira. Quando aciono o botÃo o led acende quando solto o botÃo o led apaga. No etanto agora que pega. Nesse mesmo programa estou querendo colocar outro botÃo separado quando for acionado tambem ira acender outro led, independente, 0 cod. É esse: #include <p18f452.inc> __config _config1h, _xt_osc_1h __config _config2h, _wdt_off_2h __config_config2l,_bor_on_2l & _borv_42_2l __config _config4l, _lvp_off_4l org 0 movlw b' 00000111' movwf adcon1 movlw b' 00000001' movwf trisa repete btfsc porta,0 bra dfesliga_led bra liga_led bra desliga_led bcf porta,2 bra repete liga_led bsf porta,2 bra repete end