Está página é apenas uma tradução da página original Esta é uma versão melhorada do Tacômetro criado especialmente para medir até a 9999 RPM.
Utiliza um PIC 16F628. (04/24/2006) PIC: 16F628 CONFIG: XT OSC, PWRT ON, OFF MCRL, BODEN OFF, WD OFF. Como muita gente estava procurando uma versão do taquímetro para medir até 9999 rotações por minuto (RPM), decidi criar uma versão melhorada especialmente utilizados para automóveis ou qualquer outra máquina que não passe mais de 9999 RPM. A versão original foi criado para medir o RPM de motores com alta precisão com um intervalo entre 60 a 99.990 RPM. Esta versão melhorada medi entre 200 a 9999 RPM com 0,3% de precisão. Eu não recomendo usar esse projeto para aplicações críticas.
Pino 3: Define o tipo de Exibição: Ânodo ou cátodo comum. Ligue este pino no GROUND (terra) se você estiver usando um Display de 7 segmentos com cátodo comum. Para usar ânodo comum ligue no VCC (positivo). Pino 4: é o sinal de entrada, você pode utilizar sensores ópticos (Fototransistors, fotoresistors, etc), sensores magnéticos (efeito Hall, reed switch, etc) ou utilizar um interruptor. Infelizmente, não tenho nenhuma idéia de como ligar este circuito para funcionar em um veículo. Não ligue qualquer sinal diretamente ao PINO 4. Alta tensão pode danificar o PIC. Se o sinal de entrada é mais de 5 Volts, Use um driver como TTL, CMOS, ou Amp Operacional ou Transístores. Faça o download do código HEX AQUI, Botão direito e “salvar como …”
Aqui está uma foto do protótipo durante o ensaio e calibração, o sinal de entrada foi de 3600 RPM. Observe que o display vermelho exibe melhor os digitos do que os verdes ou amarelos.
Projeto dos usuários:
Ligação do Tacômetro em motos: Click aqui
Você quer saber como funciona o tacômetro? Segue o algoritmo.
[cc lang='c' ]
; Tachometer algorithm / Algoritmo de tacometro
; www.josepino.com ; created: October 3, 2003
; Last version: April 22, 2005
; Intended for 16F628 – 10 Mhz
variable byte cero at 0×46 ; zero
variable byte uno at 0×47 ; one
variable byte dos at 0×48 ; two
variable byte tres at 0×49 ; three
variable byte cuatro at 0x4A ; four
variable byte cinco at 0x4B ; five variable byte seis at 0x4C ; six
variable byte siete at 0x4D ; seven
variable byte ocho at 0x4E ; eight
variable byte nueve at 0x4F ; nine
variable byte blanco ; blank
delay 100ms
disable comparators ; 628 tiene comparadores
port B = all output
port A = all output
pin a4 = input ; used to detect display type / Tipo de display
pin a5 = input ; input pulses / Pulsos de entrada
if a4 then blanco = 0b_1111_1111 ; If display is Common cathode, cero = 0b_1100_0000 ; define the numbers for common uno = 0b_1111_1001 ; cathode dos = 0b_1010_0100 tres = 0b_1011_0000 cuatro = 0b_1001_1001 ; define los numeros cinco = 0b_1001_0010 ; cuando sean para seis = 0b_1000_0010 ; catodo comun siete = 0b_1101_1000 ocho = 0b_1000_0000 nueve = 0b_1001_0000 else blanco = 0b_0000_0000 ; Define the numbers for common cero = 0b_0011_1111 ; anode uno = 0b_0000_0110 dos = 0b_0101_1011 tres = 0b_0100_1111 ; define los numeros para cuatro = 0b_0110_0110 ; el display de anodo comun cinco = 0b_0110_1101 seis = 0b_0111_1101 siete = 0b_0010_0111 ocho = 0b_0111_1111 nueve = 0b_0110_1111 end if
; A routine test HERE
; Se recomienda una rutina de TEST aqui.
; Define sample rate, display every 500 ms
; Define cada cuando calcula las RPM
variable byte bres_hi = 0×09 ; hi byte of our 24bit variable
variable byte bres_mid = 0×89 ; mid byte
variable byte bres_lo = 0×68 ; lo byte
variable byte bandera = 0 ; a flag
variable byte bandera1 = 0 ; another “flag”
variable byte temporal ; temporary variable
variable byte contador = 0 ; Counter
variable byte decenas = 0 ; 10′s
variable byte centenas = 0 ; 100′a
variable byte datad = 0 ; Auxiliary variariable
variable byte datac = 0 ; Auxiliary var.
; Here is the interruption based on Roman Black’s code.
; Every 500ms gets the RPM and displays it.
; Esta es la rutina de interrupcion que se genera cada 500ms
; esta basado en el codigo hecho por Roman Black
; for more info: www.romanblack.com/one_sec.htm
procedure interrupcion is ; Assembler code
tstf bres_mid ; first test for mid==0
skpnz ; nz = no underflow needed
decf bres_hi,f ; z, so is underflow, so dec the msb
decfsz bres_mid,f ; dec the mid byte (subtract 256)
goto int_exit ; nz, so definitely not one second yet.
tstf bres_hi ; test hi for zero too
skpz ; z = both hi and mid are zero, is one second!
goto int_exit ; nz, so not one second yet. movlw alto ; get msb value movwf bres_hi ; load in msb movlw medio ; get mid value
movwf bres_mid ; load in mid movlw bajo ; lsb value to add
addwf bres_lo,f ; add it to the remainder already in lsb
skpnc ; nc = no overflow, so mid is still ok
incf bres_mid,f ; c, so lsb overflowed, so inc mid movlw 0×01 movwf bandera ; 500ms ? then activate a flag
int_exit: BCF INTCON,2 ; reset the tmr0 interrupt flag end assembler
end procedure
select bank 1 ; Necesario para interrupciones
option register = 0b_1000_0000 ; Enable interrupts
intcon gie bit = on
intcon t0ie bit = on
select bank 0
; Here is the main program / Aqui comienza el programa principal
Loop ; main Loop / Ciclo infinito
if ! pin a5 then ; Pulse? / Recibio un pulso? if bandera1 = 1 then ; This calculation is not done? Calculate RPM bandera1 = 0 ; Si no se ha calculado las RPM, Calcula RPM decenas = decenas + 20 centenas = centenas + 1 if decenas > 99 then centenas = centenas + 1 decenas = decenas – 100 end if end if
else bandera1 = 1
end if
if bandera = 1 then ; 500ms already? clear all counters bandera = 0 ; Ya son 500ms? Regresa a cero los contadores datad = decenas datac = centenas centenas = 0 decenas = 0
end if
temporal = datac / 10 ; calculate UNITS / Calcula unidades
FSR = temporal + 0×46 ; get the mem address of variable / Obtiene direccion de la variable
temporal = INDF ; gets the character / obtiene el caracter a desplegar
if temporal = cero then ; Zero? then BLANK / Cero? entonces no despliega nada temporal = blanco
end if
if pin a4 then ; check the display type and activate the digit port a = 0b_0000_0001 ; verifica el tipo de display y activa el digito
else port a = 0b_1111_1110
end if
port b = temporal ; display 1000′s / Despliega los millares
delay 5microseconds
port b = blanco
if datac = 0 then ; 100′s are cero? blank. temporal = blanco ; Si las centenas es cero, deja en blanco
else temporal = datac % 10 ; calculate 100′s and get the value to display FSR = temporal + 0×46 ; calcula centenas y obtiene el valor a desplegar temporal = INDF
end if
if pin a4 then ; get display type and activate the digit port a = 0b_0000_0010 ; obtiene el tipo de display y activa el digito
else port a = 0b_1111_1101
end if
port b = temporal ; display 100′s / Despliega centenas
delay 5 microseconds
port b = blanco
temporal = datad / 10 ; Same as previous for 10′s
FSR = temporal + 0×46 ; igual que el anterior pero para decenas
temporal = INDF
if datac = 0 then if temporal = cero then temporal = blanco end if
end if
if pin a4 then port a = 0b_0000_0100
else port a = 0b_1111_1011
end if
port b = temporal ; Display 10′s / despliega decenas
delay 5 microseconds
port b = blanco
temporal = datad % 10 ; Same as previous for 1′s FSR = temporal + 0×46 ; Igual al anterior para unidades
temporal = INDF
if pin a4 then port a = 0b_0000_1000
else port a = 0b_1111_0111
end if
port b = temporal delay 5 microseconds ; Display 1′s / despliega unidades
port b = blanco
end loop ; Main loop / Ciclo principal
[/cc]
Página do José Pino – Clica aqui Todos os direitos autorais do Sr José Pino
