Como disparar SCR com foto acoplador e PIC ?

[Andre_Cruz]

Pessoal,

Preciso disparar um SCR através de um PIC, até ai beleza, estou usando apenas um resistor limitador de corrente de gate do SCR (BT 151) e um diodo 1N4148, gostaria de proteger o gate com um foto acoplador para isolar o PIC da parte de potência, para em uma eventualidade proteger o PIC.
Alguém como devo fazer essa ligação?

Do pino do PIC um resistor de 330R para limitar a corrente do LED (pino 1 do 4N25) o pino 2 do 4N25 no terra. Do outro lado a base o coletor e o emissor como ligo ao BT 151 para disparar ele ?

Agradeço a ajuda de todos

Abraço

André

[jandom]

USE O CI MOC3020/21!

[diogo_18sp]

USE O CI MOC3020/21!

ola caro amigo use um moc 3021 a pouco tempo fiz um controle com display para motor usei para dispara o scr um 3021 eu vou passa pra vc o codigo do programa.


;*********************************** dimmer digital***************************************
;
; diogo franscisco da silva 25/04/2009
; este projeto em um dimmer digital com display de sete segmento onde sera indicado
; a potencia que a onda sera controlada via disparo do pic.
;
;******************************************************************************************

;***********************************descriçoes das portas**********************************
; rb0 saida bcd a
; rb1 saida bcd b
; rb2 saida bcd c
; rb3 saida bcd d
; rb4 entrada entrada do sincronismo
; rb5 entrada chave prog
; rb6 entrada chave menos
; rb7 entrada chave mais
;
; ra0 saida display unidade
; ra1 saida display dezena
; ra2 saida display centena
; ra3 saida rele
; ra4 (saida disparo?)
;********************************************************************************************

;*********************************configuraçoes do pic***************************************

radix hex
list p=16f84a
#include <p16f84A.inc>
__config _xt_osc & _cp_off & _wdt_off & _pwrte_on

;*********************************************************************************************

;**********************************registradores de uso geral*********************************

cblock 0x0c
tempograva
unidade
dezena
centena
controle
delaychave
somadez
auxisoma
TEMPODIMMER
grave
dado
auxizera

endc
;**********************************************************************************************

;***********************************definiçoes*************************************************

#define duni porta,0 ;saida que controla display unidade
#define ddez porta,1 ;saida que controla display dezena
#define dcen porta,2 ;saida que controla display centena
#define rele porta,3 ;saida que controla o rele

#define sinc portb,4 ;entrada do sincronismo 60 Hz
#define ch_up portb,7 ;chave que aumenta valor da potencia
#define ch_don portb,6 ;chave diminui o valor da potencia
#define prog portb,5 ;chave de programaçao

;***********************************************************************************************

;*************************************inicializaçao dos port************************************

org 0x00 ;endereço inicial do banco de memoria
bcf status,rp0 ;seleciona o banco 0
clrf portb ;limpa o portb
clrf porta ;limpa o porta
bsf status,rp0 ;seleciona o banco 1
movlw 0xf0 ;carrega com 11110000
movwf trisb ;0000 saidas 1111 entradas
movlw 0x00 ;carrega com 00000
movwf trisa ;00000 saidas
movlw 0x01 ;prescaler 1:4, tmr0,pull up habilitado
movwf option_reg ;definicoes
movlw 0x00 ;carrega com 00000000*****************
movwf intcon ;nenhuma interrupçao sera tratada
bcf status,rp0 ;seleciona o banco 0
;**************************************************************************************************
;*************************************************************************************************
;gravaçao da memoreia com os valores do dimmer
movlw 0xf0
movwf tempograva

varreprog
nop
btfsc prog ;botao prog ta pressionado?
goto naoprog ;ele naum esta pressionado
decfsz tempograva,f ;dec variavel
goto varreprog ;volta ver a chave
goto cleareg ;limpa registradore s da memoria
;****************************************************************************************************
;neste ponto e onde vai ser limpado o banco de memoria para aa gravaçao dos registradores
cleareg
movlw 0x40 ;carrega com 64 referente as posiçoes de memoria
movwf auxizera ;registrador que auxilia na limpeza da memoria


escram

bcf status,rp0 ;banco 0
bcf eecon1,eeif ;zera o flag da eprom
clrf dado ;limpa dado
movf auxizera,w ;endereço da memoria
call grava ;rotina que grava a ram
decfsz auxizera,f
goto escram

bcf status,rp0 ;banco 0
bcf eecon1,eeif ;zera o flag da eprom
clrf dado ;limpa dado
movf auxizera,w ;endereço da memoria
call grava ;rotina que grava a ram

call le_ram ;ler os dados da memoria
goto principal ;inicio do programa
;............................................................................................................
le_ram
movlw 0x01
call le
movwf unidade

movlw 0x02
call le
movwf dezena

movlw 0x03
call le
movwf centena

movlw 0x04
call le
movwf grave
return


le
Movwf EEADR ;EEADR (endereço da eeprom)
Bsf STATUS,RP0 ;banco 1 onde está o EECON1
Bsf EECON1,RD ;inicia a leitura, leva um ciclo de
nop ;máquina
Bcf STATUS,RP0 ;volto ao banco 0 onde está o EEDATA
Movf EEDATA,W ;W=EEDATA( w= 10H eeprom )

return

)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
;grava na memoria valores

grava
Movwf EEADR ;EEADR (endereço da eeprom)
Movf dado,w ;w
Movwf EEDATA ;EEDATA(dado a ser gravado)

Bsf STATUS,RP0 ;banco 1 onde está o EECON1
bsf EECON1,WREN ;Habilita a escrita na EEPROM
movlw 0x55 ;W=55H
movwf EECON2 ;EECON2 = 55H
movlw 0xAA ;W=AAH
movwf EECON2 ;EECON2 = AAH
bsf EECON1,WR ;WR=1 (inicia a gravação)
bsf EECON1,WREN ;desabilita a escrita na EEPROM

espera
btfss EECON1,EEIF ;testa flag de término de gravação
goto espera ;EEIF=0 então espera terminar
bcf EECON1,EEIF ;EEIF=1 então zera o flag p/ próximo
;uso
Bcf STATUS,RP0 ;volto ao banco 0

return
;_____________________))))))))))))))))))))________________))))))))))))))))))))))))_____________________))))))))
naoprog
btfss grave,0 ;ve se e a primeira ves que limpa banco da memoria
goto cleareg ;aki limpa a memoria
call le_ram
goto principal
;000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000

;*****************************************zeramentodas variaveis***********************************
principal
clrf auxisoma
clrf tempodimmer
; clrf unidade
; clrf dezena
; clrf centena
clrf controle
clrf delaychave
goto inicio

;*****************************************************************************************************

;******************************************inicio do programa*****************************************

inicio

call atual1 ;aqui vai para rotina atualizar display multiplexado
inicio1
call atual ;aqui vai para rotina atualizar display multiplexado
call chave ;aqui vai para subrotina testa chave incremento e decremento
call chaveprog ;testa pra ver se pode começar a controlar onda

goto inicio1
;******************************************************************************************************

;**************************************dimmer**********************************************************
;aki começao controle de potencia do dimmer os displays seram todos apagados para facilitar o controle
;da onda,

dimmer
bcf duni ;apaga display unidade
bcf ddez ;apaga display dezena
bcf dcen ;apaga display centena
;00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
bsf grave,0 ;seta bit de zeramento da memoria

bcf status,rp0 ;banco 0
bcf eecon1,eeif ;zera o flag da eprom
movf unidade,w ;valor programado
movwf dado ;coloca valor em dado
movlw 0x01 ;endereço 1 da memoria
call grava ;rotina que grava

bcf status,rp0 ;banco 0
movf dezena,w ;valor programado
movwf dado ;coloca valor em dado
movlw 0x02 ;endereço 2 da memoria
call grava ;rotina que grava

bcf status,rp0 ;banco 0
movf centena,w ;valor programado
movwf dado ;coloca valor em dado
movlw 0x03 ;endereço 3 da memoria
call grava ;rotina que grava

bcf status,rp0 ;banco 0
movf grave,w ;valor programado
movwf dado ;coloca valor em dado
movlw 0x04 ;endereço 3 da memoria
call grava ;rotina que grava
call le_ram
;00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000



movlw 0xfa ;carrega com 255 em decimal
movwf delaychave ;coloca o valor no registrador espera 1ms para começar a rotina

nop
decfsz delaychave,f ;decrementa e zero
goto $-2 ;volta decrementa
goto conta ;somar os registradores


;¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

conta
clrf somadez ;limpa
clrf auxisoma ;limpa

clrw ;limpa w
movf centena,w ;coloca o valor em w
xorlw 0x01 ;compara se e 1
btfss status,z ;e 1?
goto somaini ;busca no banco de memoria o valor correspondente

movlw 0x64 ;carrega com 100
movwf auxisoma ;crrega 100
goto valordimmer ;busca no banco de memoria o valor
somaini

movlw 0x0a
movwf somadez ;coloca valor 10
soma
clrw ;limpa w
movf dezena,w ;coloca valor de dezena em w ex:9
addwf auxisoma,f ;guarda o valor em f; 0+9........90
decfsz somadez,f ;e igual a zero
goto soma ;ainda naum

movf unidade,w ;coloca unidade em w
addwf auxisoma,f ;soma unidade com dezena 90 +9
goto valordimmer

;_______________________________________________________________________________________________________
;aqui inicia a conversao do display para o tempo de disparo do dimmer

valordimmer
call veonda ;espera sinal pra sincronismo
call timerpera ;aki oprograma cria um atrasopara deposi começar o disparo
call converte ;aki trata tempo que vaio ser disparado o dimmer

btfsc prog ;botao pra sai do modo dimmer
goto valordimmer
nsolto
btfsc prog
goto vbsolto
goto nsolto
vbsolto
goto inicio1
;¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨*************************************************




)))))))))))))))))))))))))))))))))veonda_______________________________________________________________________

veonda

naoe
btfsc sinc ;a onda e zero?
goto naoe
goto sime
sime
btfss sinc
goto sime ;aqui a onda naum foi a 1
return ;aqui e onda foi 1
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

timerpera

movlw 0x64 ;carrega com 100 *****************
movwf tempodimmer
naoacabo
nop
decfsz tempodimmer,f ;decrementa
goto naoacabo ;naum acabou tempo de 1 ms
return
;*****************************************************&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&*******************
;converte o valor do registrador para procurar o valor na tabela de tempo
;tamanho pulso de atraso de cada disparo

converte
movf auxisoma,w
sublw 0x65 ;carrega com 101
movwf tempodimmer ;subtrai 101 do registrador
voltala
bcf intcon,t0if ;limpa flag
movlw 0xf0 ;243 (240)**********************************
movwf tmr0
btfss intcon,t0if ;testa pra ver se tem interrupçao
goto $-1

decfsz tempodimmer,f ;e zero
goto voltala ;naum

;tempo de 300us para disparo da onda

bsf rele ;ativa disparo dimmer
bcf intcon,t0if ;reseta bit
movlw 0xb4 ;carrega com 1oo000000 75
movwf tmr0 ;carrega timer
btfss intcon,t0if
goto $-1
bcf rele ;desliga saida
bcf intcon,t0if
return

;******************************************************************************************************

;**************************************inicia chave prog***********************************************
;aqui entra o modo de operaçao para ver se a chave prog esta acionada para funcionamento do dimmer

chaveprog

movlw 0x64 ;carrega com 100 em decimal
movwf delaychave ;coloca o valor no registrador

vchaveprog

btfsc prog ; a chave prog esta pressionada ?
return ;volta para o programa principal
decfsz delaychave,f ;decrementa o registrador anti ruido da chave
goto vchaveprog ;volta pois nao acabou o tempo

vchavednovo

btfss prog ;chave esta solta?
goto perai ;vai atualizar display quando a chave naum esta solta
goto dimmer ;aqui vai começar usar o dimmer
perai
call atual ;atualiza display
goto vchavednovo
;*************************************atualiza display multiplexado************************************

atual
btfss intcon,t0if ;houve interrupçao?
return ;nao houve interrupçao volta para rotina principal

btfss controle,0 ; e um trata display unidade
goto testa ;testa dezena
goto atual1 ;trata unidade
testa
btfss controle,1 ;e um trata display dezena
goto testa1 ;testa o proximo bit
goto dez ;vai tratar dezena
testa1
btfss controle,2 ; e um trata display centena
goto atual ;*******indica qu e houve erro
goto cen ;trata display centena


atual1
bcf controle,0 ;apaga o bit e indica que vai atualizar dezena
bcf dcen ;apaga display centena
bcf ddez ;apaga display dezena
bsf controle,1 ;seta o bit e indica que vai atualizar a dezena
movf unidade,w ;coloca o valor em w
movwf portb ;coloca o valor no portb
bsf duni ;seleciona display unidade
goto timer ;tempo para multiplexaçao

dez bcf controle,1 ;apaga bit pois ja passou por ai
bcf duni
bcf dcen
bsf controle,2 ;seta o bit e indica que vai atualizar a centena
movf dezena,w ;coloca o valor em w
movwf portb ;coloca o valor no portb
bsf ddez ;seleciona display dezena
goto timer ;tempo para multiplexaçao
cen
bcf controle,2
bcf duni
bcf ddez
bsf controle,0 ;seta o bit e indica que vai atualizar a unidade
movf centena,w ;coloca o valor em w
movwf portb ;coloca o valor no portb
bsf dcen ;seleciona display centena
goto timer ;tempo para multiplexaçao

;*****************************************************************************************************

;********************************************timer****************************************************
timer
bcf intcon,t0if ;zera flag do tmr0
clrf tmr0 ;limpa o registrador tmr0
movlw 0x05 ;carrega com 5
movwf tmr0 ;inicia timmer com 5

return ;volta a rotina principal

;********************************************************************************************************

;********************************************chave*******************************************************
;aqui nessa subrotina vai ser excecutado os teste das chave up e donw para incremento e decremento do display

chave
movlw 0x64 ;carrega com 100 em decimal
movwf delaychave ;coloca o valor no registrador

chave1
btfsc ch_up ;a chave esta pressionada ?
goto vchave ;ve a chave donw
decfsz delaychave,f ;decrementa o registrador anti ruido da chave
goto chave1 ;volta pois nao acabou o tempo
chavsolta
btfss ch_up ;chave ta solta
goto atualch
goto incrementa ;incrementa o display

atualch
call atual
goto chavsolta

vchave
movlw 0x64 ;carrega com 100 em decimal
movwf delaychave ;coloca o valor no registrador
chave2
btfsc ch_don ;a chave e esta pressionada
return ;volta para o programa principal
decfsz delaychave,f ;decrementa o registrador anti ruido da chave
goto chave2 ;volta pois nao acabou o tempo
chavsolta1
btfss ch_don
goto atualch1
goto decrementa ;decrementa display
atualch1
call atual
goto chavsolta1
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

incrementa
movf centena,w
xorlw 0x01 ;aqui verifica se o valor do display e cem pois ele eo maximo
btfss status,z ;e 100?
goto podeinc ;nao e 100
return ;volta ao programa principal
podeinc
incf unidade,f ;incrementa contagem
movf unidade,w
xorlw 0x0a ;compara ja passou de 9 ou seja e 10?
btfss status,z ;ve se a comparaçao houve estouro
goto fim
clrf unidade ;limpa unidade e incrementa dezena

incf dezena,f ;incrementa dezena
movf dezena,w ;coloca dezena em w
xorlw 0x0a ;compara ja passou de 9 ou seja e 10?
btfss status,z ;ve se a comparaçao houve estouro
goto fim
clrf dezena ;limpa dezena

incf centena,f ;incrementa centena
goto fim ;atualiza display

decrementa
movf unidade,w
btfss status,z
goto podedec

movf dezena,w
btfss status,z
goto podedec

movf centena,w
btfss status,z
goto podedec
return ;display encontra em 000 entao naum decrementa



podedec
movf unidade,w
xorlw 0x00
btfss status,z
goto dec_uni ;pode decrementar
movlw 0x09
movwf unidade
goto dec_dez
dec_uni
decf unidade,f ;decrementa unidade
;goto dec_dez
return
dec_dez
movf dezena,w
xorlw 0x00
btfss status,z
goto decdez ;pode decrementar
movlw 0x09
movwf dezena
goto dec_cen
decdez
decf dezena,f
;goto dec_cen
return
dec_cen
movf centena,w
xorlw 0x01
btfss status,z
return
decf centena,f
goto fim
fim

call atual ;atualiza display
return ;volta ao programa principal
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
end

[Andre_Cruz]

jandom e diogo_18sp

Agradeço o código para servir como exemplo, mas minha dificuldade é na parte de hardware, de como ligar o foto acoplador ou foto triac entre o PIC e o SCR para isolar a parte de potência da parte de controle.

Vou tentar ser mais claro.

Usando um 4N25 entre o pino do PIC ligo um resistor limitador da corrente do LED (Anodo Pino 1) e o catodo do LED (Pino 2) no terra, um resistor do 5V para o coletor (Pino 5) e o emissor (Pino 6) para terra, entre o pino 5 e o resistor tenho nível lógico alto quando, o PIC coloca nivel lógico baixo "0" e nível lógico baixo quando, o PIC coloca nível lógico alto "1".
Eu preciso, quando o PIC colocar nível lógico "0" a saída do foto acoplador tenha "0" e quando o PIC colocar nível alto "1" tenha "1" na saída do foto acoplador.

Agradeço a ajuda de todos

Abraço

[fabim]

você quer ligar o scr. mais o que ele esta controlando e qual a tensão ?

Abraços

[Andre_Cruz]

fabim

O BT 151 esta controlando uma lâmpada de xenon para dar o efeito de um flash em 220V.

Ja tenho o circuito funcionando, com apenas um diodo de proteção mas gostaria de colocar o foto acoplador pra isolar.

Muito obrigado

Abraço

[fabim]

fabim

O BT 151 esta controlando uma lâmpada de xenon para dar o efeito de um flash em 220V.

Ja tenho o circuito funcionando, com apenas um diodo de proteção mas gostaria de colocar o foto acoplador pra isolar.

Muito obrigado

Abraço

certo, quer dizer que tu retifica a rede e joga no charge da lampada.
E o BT você da o pulso de emi em alta frequencia.

Eu estou imaginando que você usou um fonte linear ou chaveada para o pic né ? e que você quer isolar o circuito do pic da rede.
Bom, eu ja fiz isso.
Só que eu fiz diferente.
Como eu sabia que a tensão sempre ia ser de 315..340V. fazendo a jogada da ponte detificadora e dois capacitores eletroliticos.
Eu coloquei um zener de 75V, em paralelo com ele um cap de 330nF, e para o VCC um resistor limitando a corrente.
Ao invés de eu utilizar um opto transistor, eu usei um opto-diac, ele ficava entre os ditos 75V, em série com ele um resistor de 1K, que ia para o gate do BT. Do gate do bt para terra um resistor de 2.5K.
Quando for disparar o pulso, para saber qual o comprimento dele.
basta você saber qual o tempo de permanencia do trafinho que ele gere a EMI de trigger necessaria para disparar a lampada + o tempo de resposta que o datasheet do opto-diac indica.
Gira em volta de 800uS na média.

no led do opto diac, basta você olhar no datasheet qual valor de resistor ele pede.

Possivelmente, esse 4N25 esta conduzindo direto, pois você aplicou uma tensão superior a tensão de potencial de isolação.

Abraços

Fabim

[Andre_Cruz]

fabim

Sim eu retifico a rede e coloco na lâmpada.

"E o BT você da o pulso de emi em alta frequencia. "
Eu não sei o que é emi em alta frequência, pode explicar ?
Sou novo e estou aprendendo com os mais experientes e conhecedores aqui do forum.

O PIC esta sendo alimentado por bateria, que futuramente com a ajuda de todos aqui do forum quero fazer um conversor DC/DC de 12V para 220V para acionar a lâmapada.
Atualmente esta o PIC alimentado por bateria e a lâmpada pela rede.

Quero isolar o SCR a parte que tem uma tensão mais alta, da parte de controle o PIC.

Queria disparar o SCR com corrente continua DC e de preferência 5V, como ja disse uso um diodo mas queria colocar uma proteção melhor.

Muito obrigado por ajudar

Abraço

[fabim]

hehe............
Leia novamente o que eu escrevi.

Sobre o EMI. a lampada precisa ser concatenada por um campo eletromagnetico de alta velocidade em alta tensão..
EMI = ELECTRO MAGNETIC INDUCTION.

Por este motivo ela tem uma bobina enrolada nela, que é a antena!! e você precisa injetar nesta bobina uma alta tensão em crista de subida em alta velocidade "frequencia"<<Rs

sanou ?

Fabim

[Andre_Cruz]

fabim,

Você fez uma fonte de 75V DC e usa ela para disparar o gate do SCR, acho que agora entendi rsrsrs

Vou tentar dessa maneira.

Muito obrigado

[Djalma Toledo Rodrigues]

fabim Sim eu retifico a rede e coloco na lâmpada.
...

Certamente existe um Resistor e um Capacitor após a retificação da rede certo?
E é a descarga desse Capacitor sobre a Lâmpada Xenon que irá gerar o Flash.

Para gatilhar a Lâmpada de Xenon é necessário um pulso de muito alta tensão, que pode
obter através de um transformador de pulso, uma pequena bobina com dois enrolamentos e
núcleo de ferrite.
.