Injeção eletronica Caseira
Moderadores: DESIGN/CRIAÇÃO, MODERADOR, SUPORTE
Injeção eletronica Caseira
Pessoal,
Sou novo nesse grupo aki e resolvi postar minha colaboração para este projeto.
Sou tec. eletronica e trabalho com projetos de circuitos com micro-controladores da linha PIC.
(para quem não quiser ler todos os posts, segue link da ultima atualização da injecao:
www.optotech.net.br/fzanoto/inj_eletr.rar
)
Fiz o seguinte:
Eu tenho um gol 1000 quadrado ano 95 gasolina, porém, quando eu mandei fazer o motor dele, coloquei o kit 1.6 alcool e no carburador eu troquei somente os gicles...
Acontece que tenho que ficar limpando direto o carburador dele, e dá um puta trampo, além do que o carburador de gasolina não ficou legal no carro a alcool.
Resolvi então fazer uma injeção eletronica:
Sou leigo em mecanica de autos, mas eu mesmo dou umas fuçadas no meu carbura e carro aki, fiz o seguinte:
Consegui uma carcaça estragada de um carburador igual ao meu (weber duplo) e mandei frezar e colocar o bico:
montei um circuito de injeção básico para fazer um teste
Coloquei uma bomba de combustível na entrada do bico e o restante volta p/ o tanque fazendo um by-pass, tudo na frente do carro mesmo...
Coloquei um potenciometro comum para saber a informação da posição da borboleta e liguei no meu circuito que alimenta o bico injetor,
fiz uns testes aki em casa e o motor funcionou legal..
porém não deu tempo de eu testar com o carro em movimento, pois ficou com muita gambiarra e não sabia se isso poderia acabar estragando o meu motor com falta ou excesso de combustível.
alguém tem um motor ou carro para esse tipo de teste aki para ajudar ???
o custo total ficou menos que R$200,00
fotos:
Segue programa:
program Injecao
dim freq, valor, borboleta, pot as word
dim duty, bo_max, bo_min, per_max, per_min as byte
dim periodo as word
dim txt as string[5]
'-----------------------------------------------------
sub procedure grava_eeprom
Eeprom_Write(0,bo_max)
Eeprom_Write(1,bo_min)
Eeprom_Write(2,per_max)
Eeprom_Write(3,per_min)
end sub
'-----------------------------------------------------
sub procedure verifica_eeprom
bo_max = Eeprom_Read(0)
bo_min = Eeprom_Read(1)
per_max = Eeprom_Read(2)
per_min = Eeprom_Read(3)
if bo_max = 255 then
bo_max = 220
bo_min = 10
per_max = 250
per_min = 20
grava_eeprom
end if
end sub
'------------------------------------------------------
sub procedure interrupt
' 'delay mínimo e máximo do bico injetor: 1200 a 10000uS
'Pot Borboleta: 1.0V - 1.8V
' '(7000Rpm=116Hz=4.2mS de injecao(2xpor volta))enviar 6mS
' (900Rpm=15Hz)lenta=0,5mS de injecao(enviar 1mS)
' '(12.5Hz = 4000 pulsin) 25Hz=2000 50Hz=1000 100Hz=500
if intcon.1 = 1 then
freq = freq + 5
intcon.1 = 0 'clear flag
end if
if pir1.0 = 1 then
valor = freq
freq = 0
tmr1h = $25 'ajuste fino da rpm
tmr1l = $00 'ajuste fino da rpm
pir1.0 = 0 'clear flag
end if
end sub
'------------------------------------------------------
sub procedure display
wordtostrwithzeros(valor,txt)
Lcd_Out(1, 5, txt)
Lcd_Out(1, 1, "Rpm=")
wordtostr(borboleta,txt)
Lcd_Out(1, 12, txt)
Lcd_Out(1, 11, "B=")
bytetostr(duty,txt)
Lcd_Out(2, 6, txt)
Lcd_Out(2, 1, "Duty=")
end sub
'----------------------------------------------------
sub procedure le_pot
pot = Adc_Read(0)
borboleta = pot/4
if borboleta <bo_min> bo_max then
borboleta = bo_max
end if
end sub
'----------------------------------------------------
sub procedure bico_injetor
'bo_max = 220
'bo_min = 10
'per_max = 200
'per_min = 50
periodo = (per_max - per_min)*(borboleta-bo_min)
periodo = (periodo)/(bo_max-bo_min)
periodo = periodo + per_min
duty = periodo
Pwm1_Change_Duty(duty)
end sub
'----------------------------------------------------
sub procedure menu
menu_0:
valor = 65535
duty = per_max
display
le_pot
bico_injetor
if portc.6 = 0 then
per_max = per_max + 1
delay_ms(100)
end if
if portc.7 = 0 then
per_max= per_max - 1
delay_ms(100)
end if
if portc.5 = 0 then
while portc.5 = 0
wend
goto menu_1
end if
goto menu_0
menu_1:
valor = 65535
duty = per_min
display
le_pot
bico_injetor
if portc.6 = 0 then
per_min = per_min + 1
delay_ms(100)
end if
if portc.7 = 0 then
per_min= per_min - 1
delay_ms(100)
end if
if portc.5 = 0 then
while portc.5 = 0
wend
grava_eeprom
exit
end if
goto menu_1
end sub
'----------------------------------------------------
main:
trisa = %00000001
trisb = %00000001
trisc = %11100000 'teclado
adcon1 = %10001110 '10 bit´s an0 analógico, resto digital
intcon = %11011000
t1con = %00111101 'liga tmr1 prescaler 1:8
pie1.0 = 1 'liga interrupt timer1
portc.2 = 1
delay_ms(1500) 'injecao inicial
portc.2 = 0
Pwm1_Init(70) ' Initialize PWM module
Pwm1_Start ' Start PWM
Pwm1_Change_Duty(10) 'lenta
Lcd_Config(PORTB,7,6,5,4,PORTB,2,1,3)
Lcd_Cmd(Lcd_Cursor_Off)
verifica_eeprom
'-------------------------------------------------------------------
while true
le_pot
bico_injetor
display
if portc.5 = 0 then
while portc.5 = 0
wend
menu
end if
wend
'--------------------------------------------------------------
end.
inté...
Sou novo nesse grupo aki e resolvi postar minha colaboração para este projeto.
Sou tec. eletronica e trabalho com projetos de circuitos com micro-controladores da linha PIC.
(para quem não quiser ler todos os posts, segue link da ultima atualização da injecao:
www.optotech.net.br/fzanoto/inj_eletr.rar
)
Fiz o seguinte:
Eu tenho um gol 1000 quadrado ano 95 gasolina, porém, quando eu mandei fazer o motor dele, coloquei o kit 1.6 alcool e no carburador eu troquei somente os gicles...
Acontece que tenho que ficar limpando direto o carburador dele, e dá um puta trampo, além do que o carburador de gasolina não ficou legal no carro a alcool.
Resolvi então fazer uma injeção eletronica:
Sou leigo em mecanica de autos, mas eu mesmo dou umas fuçadas no meu carbura e carro aki, fiz o seguinte:
Consegui uma carcaça estragada de um carburador igual ao meu (weber duplo) e mandei frezar e colocar o bico:
montei um circuito de injeção básico para fazer um teste
Coloquei uma bomba de combustível na entrada do bico e o restante volta p/ o tanque fazendo um by-pass, tudo na frente do carro mesmo...
Coloquei um potenciometro comum para saber a informação da posição da borboleta e liguei no meu circuito que alimenta o bico injetor,
fiz uns testes aki em casa e o motor funcionou legal..
porém não deu tempo de eu testar com o carro em movimento, pois ficou com muita gambiarra e não sabia se isso poderia acabar estragando o meu motor com falta ou excesso de combustível.
alguém tem um motor ou carro para esse tipo de teste aki para ajudar ???
o custo total ficou menos que R$200,00
fotos:
Segue programa:
program Injecao
dim freq, valor, borboleta, pot as word
dim duty, bo_max, bo_min, per_max, per_min as byte
dim periodo as word
dim txt as string[5]
'-----------------------------------------------------
sub procedure grava_eeprom
Eeprom_Write(0,bo_max)
Eeprom_Write(1,bo_min)
Eeprom_Write(2,per_max)
Eeprom_Write(3,per_min)
end sub
'-----------------------------------------------------
sub procedure verifica_eeprom
bo_max = Eeprom_Read(0)
bo_min = Eeprom_Read(1)
per_max = Eeprom_Read(2)
per_min = Eeprom_Read(3)
if bo_max = 255 then
bo_max = 220
bo_min = 10
per_max = 250
per_min = 20
grava_eeprom
end if
end sub
'------------------------------------------------------
sub procedure interrupt
' 'delay mínimo e máximo do bico injetor: 1200 a 10000uS
'Pot Borboleta: 1.0V - 1.8V
' '(7000Rpm=116Hz=4.2mS de injecao(2xpor volta))enviar 6mS
' (900Rpm=15Hz)lenta=0,5mS de injecao(enviar 1mS)
' '(12.5Hz = 4000 pulsin) 25Hz=2000 50Hz=1000 100Hz=500
if intcon.1 = 1 then
freq = freq + 5
intcon.1 = 0 'clear flag
end if
if pir1.0 = 1 then
valor = freq
freq = 0
tmr1h = $25 'ajuste fino da rpm
tmr1l = $00 'ajuste fino da rpm
pir1.0 = 0 'clear flag
end if
end sub
'------------------------------------------------------
sub procedure display
wordtostrwithzeros(valor,txt)
Lcd_Out(1, 5, txt)
Lcd_Out(1, 1, "Rpm=")
wordtostr(borboleta,txt)
Lcd_Out(1, 12, txt)
Lcd_Out(1, 11, "B=")
bytetostr(duty,txt)
Lcd_Out(2, 6, txt)
Lcd_Out(2, 1, "Duty=")
end sub
'----------------------------------------------------
sub procedure le_pot
pot = Adc_Read(0)
borboleta = pot/4
if borboleta <bo_min> bo_max then
borboleta = bo_max
end if
end sub
'----------------------------------------------------
sub procedure bico_injetor
'bo_max = 220
'bo_min = 10
'per_max = 200
'per_min = 50
periodo = (per_max - per_min)*(borboleta-bo_min)
periodo = (periodo)/(bo_max-bo_min)
periodo = periodo + per_min
duty = periodo
Pwm1_Change_Duty(duty)
end sub
'----------------------------------------------------
sub procedure menu
menu_0:
valor = 65535
duty = per_max
display
le_pot
bico_injetor
if portc.6 = 0 then
per_max = per_max + 1
delay_ms(100)
end if
if portc.7 = 0 then
per_max= per_max - 1
delay_ms(100)
end if
if portc.5 = 0 then
while portc.5 = 0
wend
goto menu_1
end if
goto menu_0
menu_1:
valor = 65535
duty = per_min
display
le_pot
bico_injetor
if portc.6 = 0 then
per_min = per_min + 1
delay_ms(100)
end if
if portc.7 = 0 then
per_min= per_min - 1
delay_ms(100)
end if
if portc.5 = 0 then
while portc.5 = 0
wend
grava_eeprom
exit
end if
goto menu_1
end sub
'----------------------------------------------------
main:
trisa = %00000001
trisb = %00000001
trisc = %11100000 'teclado
adcon1 = %10001110 '10 bit´s an0 analógico, resto digital
intcon = %11011000
t1con = %00111101 'liga tmr1 prescaler 1:8
pie1.0 = 1 'liga interrupt timer1
portc.2 = 1
delay_ms(1500) 'injecao inicial
portc.2 = 0
Pwm1_Init(70) ' Initialize PWM module
Pwm1_Start ' Start PWM
Pwm1_Change_Duty(10) 'lenta
Lcd_Config(PORTB,7,6,5,4,PORTB,2,1,3)
Lcd_Cmd(Lcd_Cursor_Off)
verifica_eeprom
'-------------------------------------------------------------------
while true
le_pot
bico_injetor
display
if portc.5 = 0 then
while portc.5 = 0
wend
menu
end if
wend
'--------------------------------------------------------------
end.
inté...
Editado pela última vez por fzanoto em 26 Dez 2012, 10:44, em um total de 3 vezes.
- Fets
- Socio-CdGQ!
- Mensagens: 2027
- Registrado em: 22 Jun 2008, 19:37
- Carro:
- Localização: Guarulhos-SP - Filial CDGQ! GRU/ZN
cara, vc ownou todo mundo agora!
que show, vc fez sua própria injeção véio! animal isso!
parabéns! depois se der posta fotos dele pronto! adorei!
pena que meu carro ja é injetado! se agente colocar isso a injeção vai ficar tentando corrigir e ficar doida! se fosse em tempos de carburado eu ja tava aí pra montar e testar!
novamente parabéns!
que show, vc fez sua própria injeção véio! animal isso!
parabéns! depois se der posta fotos dele pronto! adorei!
pena que meu carro ja é injetado! se agente colocar isso a injeção vai ficar tentando corrigir e ficar doida! se fosse em tempos de carburado eu ja tava aí pra montar e testar!
novamente parabéns!
Ao ensinar, se aprende pela segunda vez...
Não existem perguntas ruins, existem respostas ruins!
Não existem perguntas ruins, existem respostas ruins!
- Dario Lucchesi
- Membro - 1.6
- Mensagens: 850
- Registrado em: 11 Jul 2008, 20:31
- Carro:
- Localização: São Paulo / Lapa ZO
Caramba, parece a formula da maquina do tempo..rs
Muito fod**** mesmo, parabéns cara...
tomara que seu projeto vá para frente e dê tudo certo, mantenha-nos informado sobre isso.
Abraços.
Muito fod**** mesmo, parabéns cara...
tomara que seu projeto vá para frente e dê tudo certo, mantenha-nos informado sobre isso.
Abraços.
Fotos do meu Boleta: http://www.golquadrado.com.br/forum/gol ... 11649.html
-
- Membro
- Mensagens: 175
- Registrado em: 22 Out 2008, 20:49
- Carro:
- Localização: São Paulo
- msjunior46
- Membro - Silver
- Mensagens: 2858
- Registrado em: 11 Jun 2007, 23:10
- Carro:
- Localização: São Bernardo do Campo - SP / Filial ABC
Parabéns!!!
Bela iniciativa, tópico fixo a partir de agora.
Abraços
Bela iniciativa, tópico fixo a partir de agora.
Abraços
Gol GIII - 1.8 - 2000
Gol S 2.0 - 1984 - Turbo novo projeto (em breve)
http://golquadrado.com.br/forum/viewtop ... =4&t=23878
---------------------------------------------------------
Contato: 9*57190 TEL: 117891-3703
Filial ABC
Gol S 2.0 - 1984 - Turbo novo projeto (em breve)
http://golquadrado.com.br/forum/viewtop ... =4&t=23878
---------------------------------------------------------
Contato: 9*57190 TEL: 117891-3703
Filial ABC
Poisé pessoar,
o que tá phoda de terminar esse projeto direitinho é que eu dependo muito do carro e tenho medo de dar alguma pane quando viajo...
Mas uma coisa é certa: é a injeção mais simples e barata, que apesar de eu não calcular o desempenho , já deve ficar melhor que carburado...
não utilizei sonda lambda nem o resto das parafernalhas, o motor funcionou perfeitamente....acelerei e desacelerei, e ele segura na lenta em 900 Rpm e etc...
Eu precisava de ter mais técnicos em eletronica aki no grupo me ajudando e construindo também, pois meu tempo é muito corrido aki...
o que tá phoda de terminar esse projeto direitinho é que eu dependo muito do carro e tenho medo de dar alguma pane quando viajo...
Mas uma coisa é certa: é a injeção mais simples e barata, que apesar de eu não calcular o desempenho , já deve ficar melhor que carburado...
não utilizei sonda lambda nem o resto das parafernalhas, o motor funcionou perfeitamente....acelerei e desacelerei, e ele segura na lenta em 900 Rpm e etc...
Eu precisava de ter mais técnicos em eletronica aki no grupo me ajudando e construindo também, pois meu tempo é muito corrido aki...
- cascaes
- Membro
- Mensagens: 59
- Registrado em: 17 Fev 2008, 13:46
- Carro:
- Localização: Florianópolis/Santa Catarina
parabens cara, muito boa a idéia, eu vou fazer um curso de eletronica e quando eu terminar vou arriscar fazer uma tambem.
quando a dar problema, pra garantir, ja anda com outro carburador no portamalas ;D
quando a dar problema, pra garantir, ja anda com outro carburador no portamalas ;D
GOL CL 94/95 1.0 CHT No GNV!!
Pneus Pirelli P6000 185/60/R14
G8 nois vidros menos parabrisa
Alarme, Trava e Vidro eletrico
Pyramid 1000rms 2x 6x9 Arlen 500W 1xDrive Selenium D250 50rms 1x 12" Arlen fenix 185Rms
Pneus Pirelli P6000 185/60/R14
G8 nois vidros menos parabrisa
Alarme, Trava e Vidro eletrico
Pyramid 1000rms 2x 6x9 Arlen 500W 1xDrive Selenium D250 50rms 1x 12" Arlen fenix 185Rms
Re: Injeção eletronica Caseira
Algumas perguntas!!
Vc chegou a andar com o carro?
Vc aumentou a vazao do bico...? É q sou aficionado por mecânica e tenho uma injeção programável no meu carro, e acredito q com este bico IWP (modelo do bico) não seria o ideal...se vc pegasse um bico sigle point, ele tem um leque maior e mais vazão, como se fosse os CNH 1.0...ou AP1.8 com apenas 1 bico, ele irá suprir com sobra a necessidade de combustível do teu carro.
Mas a idéia é essa...vai fundo e desenvolve essa nova idéia!!
ABraço...
Vc chegou a andar com o carro?
Vc aumentou a vazao do bico...? É q sou aficionado por mecânica e tenho uma injeção programável no meu carro, e acredito q com este bico IWP (modelo do bico) não seria o ideal...se vc pegasse um bico sigle point, ele tem um leque maior e mais vazão, como se fosse os CNH 1.0...ou AP1.8 com apenas 1 bico, ele irá suprir com sobra a necessidade de combustível do teu carro.
Mas a idéia é essa...vai fundo e desenvolve essa nova idéia!!
ABraço...
Gol GL 1.6 1989 MI
by DIGIPULSE MAXY
by DIGIPULSE MAXY
Não andei com o carro, só funcionei ele na garagem..
a parte do carburador em si, foi eliminada, só aproveitei uma carcaça de carburador para fixar o bico injetor.. ele funciona com um bico monoponto 1.6 e deu uma ótima vazao....
o ideal era colocar o bixo abaixo da borboleta, mas eu vi que em cima, ele funcionou bem e ficou bem mais fácil...
Irei disponibilizar aki todo o projeto completinho para quem quiser fazer e ajudar e eu testar o bixim em mais carros !!
a parte do carburador em si, foi eliminada, só aproveitei uma carcaça de carburador para fixar o bico injetor.. ele funciona com um bico monoponto 1.6 e deu uma ótima vazao....
o ideal era colocar o bixo abaixo da borboleta, mas eu vi que em cima, ele funcionou bem e ficou bem mais fácil...
Irei disponibilizar aki todo o projeto completinho para quem quiser fazer e ajudar e eu testar o bixim em mais carros !!
- Lobinho
- Membro - Silver
- Mensagens: 2335
- Registrado em: 06 Fev 2007, 09:09
- Carro:
- Localização: São Paulo / SP
- Contato:
caraka, tenta dar umas acelerada para ver, poe um hallmeter e uma sonda para saber a mistura. Mto bom o topico, libera postar no blog? abs!
Gol 92 1.8 Turbo [ Vendido ] http://www.twitpic.com/1gwcm
Corsa 98 1.0 Wind [ Vendido ] www.twitpic.com/1b6oy
Clio 06 1.0 16v Flex Completo+Couro [ Trairão ] http://www.golquadrado.com.br/forum/ren ... 15512.html
Corsa 98 1.0 Wind [ Vendido ] www.twitpic.com/1b6oy
Clio 06 1.0 16v Flex Completo+Couro [ Trairão ] http://www.golquadrado.com.br/forum/ren ... 15512.html
- Lobinho
- Membro - Silver
- Mensagens: 2335
- Registrado em: 06 Fev 2007, 09:09
- Carro:
- Localização: São Paulo / SP
- Contato:
a graça de tudo é que o cara desenvolveu =)
Gol 92 1.8 Turbo [ Vendido ] http://www.twitpic.com/1gwcm
Corsa 98 1.0 Wind [ Vendido ] www.twitpic.com/1b6oy
Clio 06 1.0 16v Flex Completo+Couro [ Trairão ] http://www.golquadrado.com.br/forum/ren ... 15512.html
Corsa 98 1.0 Wind [ Vendido ] www.twitpic.com/1b6oy
Clio 06 1.0 16v Flex Completo+Couro [ Trairão ] http://www.golquadrado.com.br/forum/ren ... 15512.html
- Felipe Alves
- Membro - 1.6
- Mensagens: 419
- Registrado em: 06 Out 2008, 18:27
- Carro:
- Localização: Toledo-PR
:D
Tu eh doido =X
- cururuh
- Filial CdGQ!
- Mensagens: 413
- Registrado em: 24 Fev 2009, 21:05
- Carro: Voyage CL 1.6 AP 95
- Localização: Arapiraca-AL
Putz!
Parabéns pela criatividade e paciência!
Parabéns pela criatividade e paciência!
Anderson Moura - MOURA AUTO PEÇAS
Arapiraca-AL
Voltando ao mundo dos quadrados com um Voyage CL AP 1.6
http://www.golquadrado.com.br/forum/gol ... 12973.html
Arapiraca-AL
Voltando ao mundo dos quadrados com um Voyage CL AP 1.6
http://www.golquadrado.com.br/forum/gol ... 12973.html
- anonymo300
- Membro
- Mensagens: 8
- Registrado em: 12 Jul 2008, 09:33
- Carro:
- Localização: Paranaguá-PR