Ir ao conteúdo
  • Cadastre-se

Morisco

Membro Júnior
  • Posts

    5
  • Cadastrado em

  • Última visita

Reputação

0
  1. Ola a todos Como eu prometi aqui o vídeo e atualização do programa e esquema '**************************************************************** '* Name : UNTITLED.BAS * '* Author : [Cesar Morisco * '* Notice : Copyright (c) 2016 [Centraltek] * '* : All Rights Reserved * '* Date : 22/08/2016 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** @ DEVICE pic16F628A @ DEVICE pic16F628A, WDT_OFF @ DEVICE pic16F628A, PWRT_OFF @ DEVICE pic16F628A, BOD_OFF @ DEVICE pic16F628A, PROTECT_OFF @ DEVICE pic16F628A, MCLR_OFF @ DEVICE pic16F628A, HS_OSC DEFINE OSC 12 TRISB=%00000001:PORTB=%00000000 TRISA=%11111111:PORTA=%00000000 CMCON=7 OPTION_REG = %1000000 DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 2 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 3 DEFINE LCD_LINES 2 DEFINE LCD_COMMANDUS 2000 DEFINE LCD_DATAUS 50 TRIAC VAR PORTB.1 TLA VAR WORD T1 VAR WORD A VAR BYTE C VAR BYTE B VAR BYTE for A=0 to 45 pause 150 lcdout $fe,1 for C=0 to 15 lookup C,["BY CESAR MORISCO"],B lcdout $fe,143+C-A,B next C C=0 next A A=0 ON INTERRUPT GOTO ZERO_CROSS INTCON = %10010000 'habilitar interrupção PORTA B0 OPTION_REG.6=0 TLA=4200 T1=ABS(TLA/42)'100 LOW TRIAC INICIO: IF PORTA.2 = 0 THEN gosub BAIXAR IF PORTA.3 = 0 THEN GOSUB SUBIR GOTO INICIO BAIXAR: IF TLA<=538 THEN GOSUB LIMITE1 TLA=TLA-1 T1=ABS(TLA/42)'12 RETURN SUBIR: IF TLA>=4200 THEN GOSUB LIMITE2 TLA=TLA+1 T1=ABS(TLA/42)'100 RETURN LIMITE1: TLA=538:RETURN LIMITE2: TLA=4200:RETURN DISABLE ZERO_CROSS: PAUSEUS 150 PAUSEUS TLA 'RETARDO ANTES DEO DISPARO HIGH TRIAC 'DISPARO DO TRIAC PAUSEUS 100 'PAUSE DE 100 MILE LOW TRIAC INTCON = %10010000 RESUME ENABLE END
  2. Ola pessoal beleza Hoje um dei uma melhora da no circuito o ventilador funciona bem a velocidade Os comentário que eu tive aqui foi muito bom para resolver o meu problema Obrigado a todo Aqui algumas foto brefe ou posto o video
  3. Obrigado pela resposta Este capacitor e o resisto em sere com a saída já esta no circuito Obrigado Ja usei adicionado 4 minutos depois Obrigado pela resposta Este capacitor e o resisto em sere com a saída já esta no circuito E o meu primeiro projeto com este circuito usando triac e o moc Tem diferença para controlar lampada ou motor AC Obrigado
  4. Ola bom dia Eu estou construindo um pequeno dimmer para controlar um ventilador de teto Mais não estou tendo bons resultado O meu projeto esta funcionado bem com uma lampada mais se eu ligar o ventilador ele oscilando não a atua a velocidade Aqui algumas foto e o meu programa Eu não tenho muita experiencia neste tipo de projeto com dimmer Obrigado @ DEVICE pic16F628A @ DEVICE pic16F628A, WDT_OFF @ DEVICE pic16F628A, PWRT_OFF @ DEVICE pic16F628A, BOD_OFF @ DEVICE pic16F628A, PROTECT_OFF @ DEVICE pic16F628A, MCLR_ON @ DEVICE pic16F628A, HS_OSC DEFINE OSC 12 TRISB=%00000001:PORTB=%00000000 TRISA=%11111111:PORTA=%00000000 CMCON=7 OPTION_REG = %10000000 DEFINE LCD_DREG PORTB DEFINE LCD_DBIT 4 DEFINE LCD_RSREG PORTB DEFINE LCD_RSBIT 2 DEFINE LCD_EREG PORTB DEFINE LCD_EBIT 3 DEFINE LCD_LINES 2 DEFINE LCD_COMMANDUS 2000 DEFINE LCD_DATAUS 50 LA VAR PORTB.1 TLA VAR WORD T1 VAR WORD LCDOUT $fe,1, " By Cesar" pause 1000 LCDOUT $fe,1 ON INTERRUPT GOTO ZERO_CROSS INTCON = %10010000 TLA = 670 'VALOR INICIAL DE TLA INICIO: IF PORTA.2 = 0 THEN TLA = TLA + 10 FOR T1 = 0 TO 200 'PAUSA ENTRE CAMBIOS DE RETARDO DE TLA PAUSEUS 5 NEXT ENDIF '''****************************************************************************** '''****************************************************************************** IF PORTA.3 = 0 THEN TLA = TLA - 10 FOR T1 = 0 TO 200 'PAUSA ENTRE CAMBIOS DE RETARDO DE TLA PAUSEUS 5 NEXT ENDIF GOTO INICIO DISABLE ZERO_CROSS : PAUSEUS TLA 'RETARDO ANTES DEO DISPARO LA = 1 'DISPARO DO TRIAC PAUSEUS 2 LA = 0 LcdOut $FE,192 LCDOUT DEC3 TLA INTCON=%10010000 RESUME ENABLE

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...