SALUDOS
estoy tratando de hacer con una lcd de 16x2 y un16f84 un tacometro para mi corsa
y no puedo hacer que me salgal las RPM como yo quiero .
estoy utilizando el comando COUNT para contar los pulsos, les voy a poster el codigo para que medigan que etoy haciendo mal
Define LOADER_USED 1
include "modedefs.bas"
define osc 4
DEFINE LCD_DREG PORTA ' Setea el port de datos LCD
DEFINE LCD_DBIT 0 ' Setea el bit de comienzo de datos (0 o 4) si el bus es de 4-bit
DEFINE LCD_RSREG PORTB ' Setea el port LCD Register Select
DEFINE LCD_RSBIT 4 ' Setea el bit LCD Register Select
DEFINE LCD_EREG PORTB ' Setea el port LCD Enable
DEFINE LCD_EBIT 5 ' Setea el bit LCD Enable
DEFINE LCD_BITS 4 ' Setea el tamaño del bus LCD (4 o 8 bits)
DEFINE LCD_LINES 2 ' Setea el numero de lineas en el LCD
TRISB = %00000000
contar var word
RPM var word
temperatura var word
contar = 0
LCDOUT $FE,$0
PAUSE 500
lcdout $FE,1, "HOLA"
LCDOUT $FE,$0
pause 1000
LCDOUT $FE,1, "RPM CORSA"
LCDOUT $FE,$C0
loop:
count 4, 1000, contar
rpm = (contar * 60)
lcdout $FE, $C0, DEC (RPM), "RPM"
goto loop
end
