Consulté con el mecánico de cabera de la ratanave el porque no tenía el condenado termostato y me explicó que debido a la salinidad y la temperatura de esta zona, lo que hace es traer problemas como quedarse pegado y sobre calentar innecesariamente el motor, además con la temperatura promedio de acá que no baja de 30°C es medio absurdo tener algún dispositivo que ayude al motor a calentar
Consulté con el mecánico de cabera de la ratanave el porque no tenía el condenado termostato y me explicó que debido a la salinidad y la temperatura de esta zona, lo que hace es traer problemas como quedarse pegado y sobre calentar innecesariamente el motor, además con la temperatura promedio de acá que no baja de 30°C es medio absurdo tener algún dispositivo que ayude al motor a calentar
//***************************************************//
// Panel de instrumentos digital para vehículos //
// Versión 5.2 //
// Este sistema consta de: //
// *Velocímetro //
// *Medidor de presión de aceite //
// *Medidor de temperatura //
// *Medidor de tensión //
// *Detección de palanca de cambios (T. Automática) //
//***************************************************//
// Este programa ha sido creado por: Carlos Alvarez //
// (Ratmayor) //
//***************************************************//
#include <16F877A.h>
#device adc=8
#FUSES NOWDT //No Watch Dog Timer
#FUSES HS //High speed Osc (> 4mhz for PCM/PCH) (>10mhz for PCD)
#FUSES NOPUT //No Power Up Timer
#FUSES NOPROTECT //Code not protected from reading
#FUSES NODEBUG //No Debug mode for ICD
#FUSES NOBROWNOUT //No brownout reset
#FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
#FUSES NOCPD //No EE protection
#FUSES NOWRT //Program memory not write protected
#use delay(clock=8000000)
#include <LCD420.C>
#ZERO_RAM
//Inicio de variables
int a, b, sensor, temper, oil, psi, fuel, dis, shift, alt, fail[6], unit, decs, cent, od;
int16 adc=0, speed, volt;
unsigned char segunit[10] = {0b00000100,0b00001100,0b01000100,0b01001100,0b00100100,0b00101100,0b01100100,0b01101100,0b00010100,0b00011100};
unsigned char segdecs[10] = {0b00000010,0b00001010,0b01000010,0b01001010,0b00100010,0b00101010,0b01100010,0b01101010,0b00010010,0b00011010};
unsigned char segcent[10] = {0b00000001,0b00001001,0b01000001,0b01001001,0b00100001,0b00101001,0b01100001,0b01101001,0b00010001,0b00011001};
void main(){
setup_adc_ports(ALL_ANALOG);
setup_adc(ADC_CLOCK_INTERNAL);
setup_psp(PSP_DISABLED);
setup_spi(SPI_SS_DISABLED);
setup_timer_0(RTCC_INTERNAL|RTCC_DIV_1);
setup_timer_1(T1_DISABLED);
setup_timer_2(T2_DISABLED,0,1);
setup_comparator(NC_NC_NC_NC);
setup_vref(FALSE);
//Inicio de display
lcd_init();
output_c(0x00);
//Iniciamos el sistema
output_high(PIN_B3); //LCD Backlight.
output_high(PIN_D5); //Cinturones de seguridad.
//Presentación
lcd_gotoxy(1,1);
printf(lcd_putc " RatNET ");
lcd_gotoxy(1,2);
printf(lcd_putc " ElectroGears ");
delay_ms(3000);
lcd_putc("\f");
output_low(PIN_D5);
for(;;){
//Los valores se actualizan cada 100mS
if(adc == 0){
//Lectura de ADCs
set_adc_channel(0);
delay_us(2);
sensor = read_adc();
temper = (1.97 * sensor);
set_adc_channel(1);
delay_us(2);
volt = read_adc();
set_adc_channel(2);
delay_us(2);
psi = read_adc();
oil = (1.76 * psi);
set_adc_channel(3);
delay_us(2);
shift = read_adc();
set_adc_channel(4);
delay_us(2);
speed = read_adc();
set_adc_channel(5);
delay_us(2);
fuel = read_adc();
set_adc_channel(6);
delay_us(2);
alt = read_adc();
}
//Detección de fallas, si se detecta algún problema, se guarda en una posición del Array.
if(temper > 100){fail[0]=1;}else{fail[0]=0;}
if(oil < 8){fail[1]=1;}else{fail[1]=0;}
if(fuel < 16){fail[2]=1;}else{fail[2]=0;}
if(volt > 200){fail[3]=1;}else{fail[3]=0;}
if(volt < 100){fail[4]=1;}else{fail[4]=0;}
if(alt > 60){fail[5]=1;}else{fail[5]=0;}
//Actualiza los valores de los ADC
if(adc>30){adc=0;}else{adc=adc+1;}
//Detecta si el motor está encendido
if(!input(PIN_D3)){
lcd_gotoxy(1,1);
printf(lcd_putc " ");
lcd_gotoxy(1,2);
printf(lcd_putc " Stop Engine ");
}
//Activa el directorio de fallas en caso de haber alguna
else if((fail[0] == 1 || fail[1] == 1 || fail[2] == 1 || fail[3] == 1 || fail[4] == 1 || fail[5] == 1)){
switch(b){
case 0:
if(fail[0]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %d%CC ",temper,0xDF);
lcd_gotoxy(1,2);
printf(lcd_putc "HIGH TEMPERATURE");
}
break;
case 1:
if(fail[1]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %d PSI ",oil);
lcd_gotoxy(1,2);
printf(lcd_putc "LOW OIL PRESSURE");
output_high(PIN_D7);
}
else{
output_low(PIN_D7);
}
break;
case 2:
if(fail[2]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %d%C ",fuel,0x25);
lcd_gotoxy(1,2);
printf(lcd_putc " LOW LEVEL FUEL ");
output_high(PIN_D4);
}
else{
output_low(PIN_D4);
}
break;
case 3:
if(fail[3]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %lu%lu.%luV ",(volt/100),((volt % 100) / 10),(volt % 10));
lcd_gotoxy(1,2);
printf(lcd_putc " OVER TENSION ");
}
break;
case 4:
if(fail[4]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %lu%lu.%luV ",(volt/100),((volt % 100) / 10),(volt % 10));
lcd_gotoxy(1,2);
printf(lcd_putc " OVER LOAD ");
}
break;
case 5:
if(fail[5]==1){
lcd_gotoxy(1,1);
printf(lcd_putc " %lu%lu.%luV ",(volt/100),((volt % 100) / 10),(volt % 10));
lcd_gotoxy(1,2);
printf(lcd_putc " Alt Failure ");
output_high(PIN_D6);
}
else{
output_low(PIN_D6);
}
break;
}
//Recorre el directorio de fallas
if(a>100){a=0; if(b>6){b=0;}else{b=b+1;}}else{a=a+1;}
//Hace parpadear el backlight de la LCD para captar la atención del conductor
if((a%50)==0){output_toggle(PIN_B3);}
}
//Activa el modo de indicador de posición de la palanca de cambios
else if(input(PIN_A4)){
lcd_gotoxy(1,1);
if(shift >= 10 && shift <= 25){
printf(lcd_putc " Reverse ");
output_high(PIN_D0);
}
else if(shift >= 26 && shift <= 36){
printf(lcd_putc " Neutral ");
output_low(PIN_D0);
}
else if(shift >= 37 && shift <= 47){
printf(lcd_putc " Drive ");
output_high(PIN_D0);
}
else if(shift >= 48 && shift <= 58){
printf(lcd_putc " Lower 2 ");
output_high(PIN_D0);
}
else if(shift > 60){
printf(lcd_putc " Lower 1 ");
output_high(PIN_D0);
}
else{
printf(lcd_putc " Parking ");
output_low(PIN_D0);
}
lcd_gotoxy(1,2);
printf(lcd_putc " ");
}
//Modo de descanso
else{
lcd_gotoxy(1,1);
printf(lcd_putc "%d%CC %lu%lu.%luV %d ",temper,0xDF,(volt/100),((volt % 100) / 10),(volt % 10),oil);
lcd_gotoxy(1,2);
printf(lcd_putc "Temp Volts Oil");
output_high(PIN_B3);
output_low(PIN_D4);
output_low(PIN_D6);
output_low(PIN_D7);
}
//Velocímetro / Multiplexación de displays
dis = dis+1;
delay_ms(2);
//Usando un switch para asignar cada display, controlamos mejor la multiplexación y evitamos sobre cargar el micro
switch(dis){
case 1:
if(speed > 99){
cent = speed / 100;
output_c(segcent[cent]);
}
break;
case 2:
if(speed > 9){
decs = (speed % 100) / 10;
output_c(segdecs[decs]);
}
break;
case 3:
unit = speed % 10;
output_c(segunit[unit]);
break;
}
if(dis>2){dis=0;}
//Divisor de pulsos para el odómetro
if(input(PIN_D2)){od=od+1;}
if(od>150){output_high(PIN_D1); od=0;}
else{output_low(PIN_D1);}
}
}//***************************************************//
// Panel de instrumentos digital para vehículos //
// Versión 4.0 //
// Este sistema consta de: //
// *Odómetro, contador de recorrido. //
//***************************************************//
// Este programa ha sido creado por: Carlos Alvarez //
// (Ratmayor) Bajo la licencia GNU GPL. //
//***************************************************//
#include <16F628A.h>
#FUSES NOWDT //No Watch Dog Timer
#FUSES HS //High speed Osc (> 4mhz for PCM/PCH) (>10mhz for PCD)
#FUSES NOPUT //No Power Up Timer
#FUSES NOPROTECT //Code not protected from reading
#FUSES NOBROWNOUT //No brownout reset
#FUSES NOMCLR //Master Clear pin used for I/O
#FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
#FUSES NOCPD //No EE protection
#use delay(clock=4000000)
#zero_ram
#include <LCD420.C>
int km0, km1, km2, km3, km4, km5, od0, od1, od2, od3, a=0, b=0;
void main(){
lcd_init();
//Leemos los datos guardados en memoria para comenzar.
km0 = read_eeprom (0x01);
km1 = read_eeprom (0x02);
km2 = read_eeprom (0x03);
km3 = read_eeprom (0x04);
km4 = read_eeprom (0x05);
km5 = read_eeprom (0x06);
od0 = read_eeprom (0x07);
od1 = read_eeprom (0x08);
od2 = read_eeprom (0x09);
od3 = read_eeprom (0x10);
for(;;){
//Mostramos los datos cargados.
lcd_gotoxy(1,1);
printf(lcd_putc "%d%d%d%d%d%dKm",km5,km4,km3,km2,km1,km0);
lcd_gotoxy(1,2);
printf(lcd_putc "Tp %d%d%d.%d",od3,od2,od1,od0);
//Reinicia contador (Reset).
if(input(PIN_A2)){
od0 = 0; od1 = 0; od2 = 0; od3 = 0;
}
//Reinicio general de los contadores (Hard reset).
if(input(PIN_A2) && input(PIN_A4)){
delay_ms(100);
if(b==5){
km0 = 0; km1 = 0; km2 = 0; km3 = 0; km4 = 0; km5 = 0; od0 = 0; od1 = 0; od2 = 0; od3 = 0;
}
b=b+1;
}
//Contador, requiere de la habilitación del micro principal para evitar conteos erróneos.
if(input(PIN_A3)){
//La variable a funciona como anti-rebotes.
if(input(PIN_A1) && a==0){
od0=od0+1;
a=1;
}
else{
a=0;
//Terminado el conteo, se guardan los datos en la memoria interna del micro.
write_eeprom (0x01, km0);
write_eeprom (0x02, km1);
write_eeprom (0x03, km2);
write_eeprom (0x04, km3);
write_eeprom (0x05, km4);
write_eeprom (0x06, km5);
write_eeprom (0x07, od0);
write_eeprom (0x08, od1);
write_eeprom (0x09, od2);
write_eeprom (0x10, od3);
}
}
//Manejamos cada cifra por separado para no sobrecargar el PIC.
//Además ayuda a la presentación.
if(od0>9){od0=0; od1=od1+1;}
if(od1>9){od1=0; od2=od2+1; km0=km0+1;}
if(od2>9){od2=0; od3=od3+1;}
if(od3>9){od3=0;}
if(km0>9){km0=0; km1=km1+1;}
if(km1>9){km1=0; km2=km2+1;}
if(km2>9){km2=0; km3=km3+1;}
if(km3>9){km3=0; km4=km4+1;}
if(km4>9){km4=0; km5=km5+1;}
if(km5>9){km5=0;}
}
}
Sip, uno de el del nivel de gasolina y el otro es el nivel de aceite, esos los puse con un par de LM3914...
Podría colocar una lámina oscura sobre esa, así los LEDs no me encandilarían
Sip, uno de el del nivel de gasolina y el otro es el nivel de aceite, esos los puse con un par de LM3914...
Podría colocar una lámina oscura sobre esa, así los LEDs no me encandilarían
http://www.taringa.net/post/ciencia-educacion/17156343/El-fraude-y-estafa-del-HHO.htmlLa presión de los dos turbos ? ,
Y la presión del HHO ?
La solución principal fue pensar en un solo PIC para todo...
// As defined in the following structure the pin connection is as follows:
// B0 rs
// B1 rw
// B2 enb1
// B2 enb2
// B4 D4
// B5 D5
// B6 D6
// B7 D7
//
// LCD pins D0-D3 are not used.
struct lcd_pin_map { // This structure is overlayed
BOOLEAN rs; // on to an I/O port to gain
BOOLEAN rw; // access to the LCD pins.
BOOLEAN enb1; // The bits are allocated from
BOOLEAN enb2; // low order up. ENABLE will
int data : 4; // be pin B1 and B2.
} lcd;
#locate lcd = getenv("SFR:PORTB") // This puts the entire structure
// on to port B
#define lcd_type 2 // 0=5x7, 1=5x10, 2=2 lines
BYTE const LCD_INIT_STRING[4] = {0x20 | (lcd_type << 2), 0xc, 1, 6};
// These bytes need to be sent to the LCD
// to start it up.
// The following are used for setting
// the I/O port direction register.
struct lcd_pin_map const LCD_WRITE = {0,0,0,0,0}; // For write mode all pins are out
struct lcd_pin_map const LCD_READ = {0,0,0,0,15}; // For read mode data pins are in
BYTE lcdline;
BYTE lcd_read_byte(BYTE m) {
BYTE low,high;
set_tris_b(LCD_READ);
lcd.rw = 1;
delay_cycles(1);
if(!m){lcd.enb1 = 1;}else{lcd.enb2 = 1;}
delay_cycles(1);
high = lcd.data;
if(!m){lcd.enb1 = 0;}else{lcd.enb2 = 0;}
delay_cycles(1);
if(!m){lcd.enb1 = 1;}else{lcd.enb2 = 1;}
delay_us(1);
low = lcd.data;
if(!m){lcd.enb1 = 0;}else{lcd.enb2 = 0;}
set_tris_b(LCD_WRITE);
return( (high<<4) | low);
}
void lcd_send_nibble( BYTE n, BYTE m ) {
lcd.data = n;
delay_cycles(1);
if(!m){lcd.enb1 = 1;}else{lcd.enb2 = 1;}
delay_us(2);
if(!m){lcd.enb1 = 0;}else{lcd.enb2 = 0;}
}
void lcd_send_byte( BYTE address, BYTE n, BYTE m ) {
lcd.rs = 0;
while ( bit_test(lcd_read_byte(m),7) ) ;
lcd.rs = address;
delay_cycles(1);
lcd.rw = 0;
delay_cycles(1);
if(!m){lcd.enb1 = 0;}else{lcd.enb2 = 0;}
lcd_send_nibble(n >> 4,m);
lcd_send_nibble(n & 0xf,m);
}
void lcd_init1() {
BYTE i;
set_tris_b(LCD_WRITE);
lcd.rs = 0;
lcd.rw = 0;
lcd.enb1 = 0;
delay_ms(15);
for(i=1;i<=3;++i) {
lcd_send_nibble(3,0);
delay_ms(5);
}
lcd_send_nibble(2,0);
for(i=0;i<=3;++i)
lcd_send_byte(0, LCD_INIT_STRING[i],0);
}
void lcd_init2() {
BYTE i;
set_tris_b(LCD_WRITE);
lcd.rs = 0;
lcd.rw = 0;
lcd.enb2 = 0;
delay_ms(15);
for(i=1;i<=3;++i) {
lcd_send_nibble(3,1);
delay_ms(5);
}
lcd_send_nibble(2,1);
for(i=0;i<=3;++i)
lcd_send_byte(0, LCD_INIT_STRING[i],1);
}
void lcd_gotoxy1( BYTE x, BYTE y) {
BYTE address;
switch(y) {
case 1 : address=0x80;break;
case 2 : address=0xc0;break;
case 3 : address=0x94;break;
case 4 : address=0xd4;break;
}
address+=x-1;
lcd_send_byte(0,address,0);
}
void lcd_gotoxy2( BYTE x, BYTE y) {
BYTE address;
switch(y) {
case 1 : address=0x80;break;
case 2 : address=0xc0;break;
case 3 : address=0x94;break;
case 4 : address=0xd4;break;
}
address+=x-1;
lcd_send_byte(0,address,1);
}
void lcd_putc1( char c) {
switch (c) {
case '\f' : lcd_send_byte(0,1,0);
lcdline=1;
delay_ms(2);
break;
case '\n' : lcd_gotoxy1(1,++lcdline); break;
case '\b' : lcd_send_byte(0,0x10,0); break;
default : lcd_send_byte(1,c,0); break;
}
}
void lcd_putc2( char c) {
switch (c) {
case '\f' : lcd_send_byte(0,1,1);
lcdline=1;
delay_ms(2);
break;
case '\n' : lcd_gotoxy2(1,++lcdline); break;
case '\b' : lcd_send_byte(0,0x10,1); break;
default : lcd_send_byte(1,c,1); break;
}
}
char lcd_getc1( BYTE x, BYTE y) {
char value;
lcd_gotoxy1(x,y);
lcd.rs=1;
value = lcd_read_byte(0);
lcd.rs=0;
return(value);
}
char lcd_getc2( BYTE x, BYTE y) {
char value;
lcd_gotoxy2(x,y);
lcd.rs=1;
value = lcd_read_byte(1);
lcd.rs=0;
return(value);
}
. La solución fue usar este pequeño circuito que resetea el PIC mientras el motor de arranque está encendido...
Ahora con energía podré explicar mejor como va la cosa... Pero primero, la nueva PCB de la controladora 
Como ven, en el display en el modo de servicio, aparecen 2 valores "DIV" e "IN" donde IN son los pulsos que está enviando el rotary encoder al PIC y DIV son las veces que el micro debe dividir los pulsos para interpretarlo como 100 metros recorridos, para esto debemos saber cuando mide la rueda de transmisión, por ejemplo en mi caso mide 3,25M y en una vuelta da 30 pulsos, eso quiere decir que debo poner el DIV en 923 para que lo interprete como 100M . El software permite dividir hasta 1000, ya que dependiendo el tamaño de la rueda y la relación de caja puede variar la división...
pero la verdad quedó muy bien Y ahora les presento el código nuevo #include <18F4550.h>
#device adc=8
#FUSES NOWDT //No Watch Dog Timer
#FUSES HS //High speed Osc (> 4mhz for PCM/PCH) (>10mhz for PCD)
#FUSES NOPUT //No Power Up Timer
#FUSES NOPROTECT //Code not protected from reading
#FUSES NODEBUG //No Debug mode for ICD
#FUSES NOBROWNOUT //No brownout reset
#FUSES NOLVP //No low voltage prgming, B3(PIC16) or B5(PIC18) used for I/O
#FUSES NOCPD //No EE protection
#FUSES NOWRT //Program memory not write protected
#use delay(clock=8000000)
#include <LCD421.C>
#ZERO_RAM
//Inicio de variables
int a, j, k, z, temper, fuel, shift, stick=1, alt, fail[6], vacio=0, dis, unit, decs, cent, mils, degs, km0, km1, km2, km3, km4, km5, od0, od1, od2, od3;
int16 timer=0, speed, rpm, volt, oil, div=0, cal;
byte valor, pos=0b11111111, posb, value[4];
byte const bitMask[8]={1,2,4,8,16,32,64,128};
//Arreglos generan los caracteres de los dígitos de los displays multilplexados
unsigned char segunit[10] = {0b00000001,0b10000001,0b00010001,0b10010001,0b00100001,0b10100001,0b00110001,0b10110001,0b01000001,0b11000001};
unsigned char segdecs[10] = {0b00000010,0b10000010,0b00010010,0b10010010,0b00100010,0b10100010,0b00110010,0b10110010,0b01000010,0b11000010};
unsigned char segcent[10] = {0b00000100,0b10000011,0b00010011,0b10010011,0b00100111,0b10100011,0b00110011,0b10110011,0b01000011,0b11000011};
unsigned char segmils[10] = {0b00000100,0b10000100,0b00010100,0b10011100,0b00100100,0b10100100,0b00110100,0b10110100,0b01000100,0b11000100};
unsigned char degmils[10] = {0b00000101,0b10000101,0b00010101,0b10011101,0b00100101,0b10100101,0b00110101,0b10110101,0b01000101,0b11000101};
void main(){
//Inhabilitamos funciones del micro que no necesitamos
setup_spi(SPI_SS_DISABLED);
setup_comparator(NC_NC_NC_NC);
setup_vref(FALSE);
//Leemos los datos guardados en memoria para comenzar.
km0 = read_eeprom (0x01);
km1 = read_eeprom (0x02);
km2 = read_eeprom (0x03);
km3 = read_eeprom (0x04);
km4 = read_eeprom (0x05);
km5 = read_eeprom (0x06);
od0 = read_eeprom (0x07);
od1 = read_eeprom (0x08);
od2 = read_eeprom (0x09);
od3 = read_eeprom (0x10);
//Configuramos los puertos analógicos
setup_adc_ports(AN0_TO_AN7);
setup_adc(ADC_CLOCK_DIV_64);
//Inicio de los displays LCD
lcd_init1();
lcd_init2();
//Iniciamos los puertos de salida en 0
output_c(0x00);
output_d(0x00);
shift = stick;
for(k=0;k<8;k++){
output_low(PIN_C4);
output_bit(PIN_C5,pos&bitMask[k]);
output_high(PIN_C4);
}
//Iniciamos el sistema
output_high(PIN_C2); //LCD Backlight.
//Presentación
lcd_gotoxy1(1,1);
printf(lcd_putc1 " RatNET ");
lcd_gotoxy1(1,2);
printf(lcd_putc1 " ElectroGears ");
delay_ms(3000);
lcd_putc1("\f");
for(;;){
//Mostramos los datos cargados del odómetro.
lcd_gotoxy2(1,1);
printf(lcd_putc2 "%d%d%d%d%d%dKm",km5,km4,km3,km2,km1,km0);
lcd_gotoxy2(1,2);
printf(lcd_putc2 "Tp %d%d%d.%d",od3,od2,od1,od0);
//Reinicia contador (Reset).
if(input(PIN_C1)){
od0 = 0; od1 = 0; od2 = 0; od3 = 0;
}
//Reinicio general de los contadores (Hard reset).
else if(input(PIN_C0) && input(PIN_C1)){
if((timer % 10) == 0){
km0 = 0; km1 = 0; km2 = 0; km3 = 0; km4 = 0; km5 = 0; od0 = 0; od1 = 0; od2 = 0; od3 = 0;
lcd_putc2("\f");
}
}
//La variable z funciona como anti-rebotes.
if(input(PIN_A4) && z==0){
div=div+1;
z=1;
}
else if(!input(PIN_A4) && z==1){
z=0;
}
//Este condicional, permite calibrar la relación de recorrido enviado por el sensor de la caja
if(div > read_eeprom (0xA0)){
//Terminada la división, aumentamos el valor del odómetro
od0=od0+1;
//Terminado el conteo, se guardan los datos en la memoria interna del micro.
write_eeprom (0x01, km0);
write_eeprom (0x02, km1);
write_eeprom (0x03, km2);
write_eeprom (0x04, km3);
write_eeprom (0x05, km4);
write_eeprom (0x06, km5);
write_eeprom (0x07, od0);
write_eeprom (0x08, od1);
write_eeprom (0x09, od2);
write_eeprom (0x10, od3);
div=0;
}
//Manejamos cada cifra por separado para no sobrecargar el PIC, además mejora la presentación.
if(od0>9){od0=0; od1=od1+1;}
if(od1>9){od1=0; od2=od2+1;}
if(od2>9){od2=0; od3=od3+1;}
if(od3>9){od3=0; km0=km0+1;}
if(km0>9){km0=0; km1=km1+1;}
if(km1>9){km1=0; km2=km2+1;}
if(km2>9){km2=0; km3=km3+1;}
if(km3>9){km3=0; km4=km4+1;}
if(km4>9){km4=0; km5=km5+1;}
if(km5>9){km5=0;}
//Los valores de los timer se actualizan cada 100mS
if((timer % 100) == 0){
//Lectura de ADCs
set_adc_channel(0);
delay_ms(1);
temper = (1.97 * read_adc());
set_adc_channel(1);
delay_ms(1);
volt = read_adc();
set_adc_channel(2);
delay_ms(1);
oil = (1.76 * read_adc());
set_adc_channel(3);
delay_ms(1);
shift = read_adc();
set_adc_channel(4);
delay_ms(1);
speed = read_adc();
set_adc_channel(5);
delay_ms(1);
rpm = (3.1416 * read_adc());
set_adc_channel(6);
delay_ms(1);
fuel = (1.67 * read_adc());
set_adc_channel(7);
delay_ms(1);
alt = read_adc();
}
//Detección de fallas, si se detecta algún problema, se guarda en una posición del Array.
if(temper > 100){fail[0]=1;}else{fail[0]=0;}
if(oil < 11){fail[1]=1;}else{fail[1]=0;}
if(fuel < 16){fail[2]=1;}else{fail[2]=0;}
if(volt > 200){fail[3]=1;}else{fail[3]=0;}
if(volt < 100){fail[4]=1;}else{fail[4]=0;}
if(alt > 100 || alt < 10){fail[5]=1;}else{fail[5]=0;}
//Menú interno de calibración del odómetro
if(input(PIN_D3)){
/*El pin D3 dehabilita la lectura de los ADC según el timer
por eso llamamos al ADC 3 sólo para esta función */
set_adc_channel(3);
delay_ms(1);
shift = read_adc();
//Cargamos último valor guardado en memoria
cal = read_eeprom (0xA0);
//Aumenta el número divisor y guarda en memoria
if(shift > 86){
if(cal < 1000){
cal = cal + 1;
delay_ms(500);
write_eeprom (0xA0, cal);
}
}
//Disminuye el número divisor y guarda en memoria
else if(shift > 29 && shift < 32){
if(cal > 1){
cal = cal - 1;
delay_ms(500);
write_eeprom (0xA0, cal);
}
}
//Muestra la división en pantalla
lcd_gotoxy1(1,1);
printf(lcd_putc1 " Calibration ");
lcd_gotoxy1(1,2);
printf(lcd_putc1 "Div: %lu In: %lu ",cal,div);
}
//Detecta si el motor está encendido
else if(rpm < 50){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " ");
lcd_gotoxy1(1,2);
printf(lcd_putc1 " Stop Engine ");
valor = 64; //Cinturones de seguridad.
for(j=0;j<8;j++){
output_low(PIN_C7);
output_bit(PIN_C6,valor&bitMask[j]);
output_high(PIN_C7);
}
vacio=0;
}
//Activa el directorio de fallas en caso de haber alguna
else if((fail[0] == 1 || fail[1] == 1 || fail[2] == 1 || fail[3] == 1 || fail[4] == 1 || fail[5] == 1)){
switch(a){
case 0:
if(fail[0]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %d%CC ",temper,0xDF);
lcd_gotoxy1(1,2);
printf(lcd_putc1 "HIGH TEMPERATURE");
value[3] = 8;
}
break;
case 1:
if(fail[1]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %lu PSI ",oil);
lcd_gotoxy1(1,2);
printf(lcd_putc1 "LOW OIL PRESSURE");
value[0] = 1;
value[3] = 8;
}
else{value[0] = 0;}
break;
case 2:
if(fail[2]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %d%C ",fuel,0x25);
lcd_gotoxy1(1,2);
printf(lcd_putc1 " LOW LEVEL FUEL ");
value[1] = 2;
}
else{value[1] = 0;}
break;
case 3:
if(fail[3]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %lu%lu.%luV ",(volt/100),((volt % 100) / 10),(volt % 10));
lcd_gotoxy1(1,2);
printf(lcd_putc1 " OVER TENSION ");
}
break;
case 4:
if(fail[4]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %lu%lu.%luV ",(volt/100),((volt % 100) / 10),(volt % 10));
lcd_gotoxy1(1,2);
printf(lcd_putc1 " OVER LOAD ");
}
break;
case 5:
if(fail[5]==1){
lcd_gotoxy1(1,1);
printf(lcd_putc1 " %d%d.%dA ",(alt/100),((alt % 100) / 10),(alt % 10));
lcd_gotoxy1(1,2);
printf(lcd_putc1 " Alt Failure ");
value[2] = 4;
value[3] = 8;
}
else{value[2] = 0;}
break;
}
//Envía información al registro de desplazamiento para los indicadores externos
valor = value[0]+value[1]+value[2]+value[3];
//El condicional evita el sobre envío de datos al registro de desplazamiento
if(valor != vacio){
for(j=0;j<8;j++){
output_low(PIN_C7);
output_bit(PIN_C6,valor&bitMask[j]);
output_high(PIN_C7);
}
}
//Recorre el directorio de fallas
if((timer % 200)==0){if(a>6){a=0;}else{a=a+1;}}
//Hace parpadear el backlight de la LCD para captar la atención del conductor
if((timer % 100)==0){output_toggle(PIN_C2);}
//Se igualan las variables para que el registro deje de actualizarce innecesariamente
vacio = valor;
}
//Activa el modo de indicador de posición de la palanca de cambios
else if(shift != stick){
lcd_gotoxy1(1,1);
if(shift >= 10 && shift <= 35){
printf(lcd_putc1 " Reverse ");
pos = 0b00110010;
}
else if(shift >= 36 && shift <= 61){
printf(lcd_putc1 " Neutral ");
pos = 0b00100010;
}
else if(shift >= 62 && shift <= 87){
printf(lcd_putc1 " Drive ");
pos = 0b00000101;
}
else if(shift >= 88 && shift <= 113){
printf(lcd_putc1 " Lower 2 ");
pos = 0b00010001;
}
else if(shift > 114 && shift <= 139){
printf(lcd_putc1 " Lower 1 ");
pos = 0b01100111;
}
else{
printf(lcd_putc1 " Parking ");
pos = 0b00110000;
}
lcd_gotoxy1(1,2);
printf(lcd_putc1 " ");
//Envía información al registro de desplazamiento para el display de posición de la palanca de cambios
if(pos != posb){
for(k=0;k<8;k++){
output_low(PIN_C4);
output_bit(PIN_C5,pos&bitMask[k]);
output_high(PIN_C4);
}
}
//Compara las variables de cambio de velocidad hasta igualarlas, solo para que aparezcan unos segundos en el display
posb = pos;
if((timer % 256) == 0){stick = shift;}
}
//Modo de descanso (Funcionamiento normal del automovil)
else{
if(timer < 1024){
lcd_gotoxy1(1,1);
printf(lcd_putc1 "%d%CC %lu%lu.%luV %lu ",temper,0xDF,(volt/100),((volt % 100) / 10),(volt % 10),oil);
lcd_gotoxy1(1,2);
printf(lcd_putc1 "Temp Volts Oil");
}
else{
lcd_gotoxy1(1,1);
printf(lcd_putc1 "%lu0 %d%d.%d %d%C ",rpm,(alt/100),((alt % 100) / 10),(alt % 10),fuel,0x25);
lcd_gotoxy1(1,2);
printf(lcd_putc1 "RPM Amps Fuel");
}
output_high(PIN_C7);
//Vacía la variable de errores.
value[0] = 0;
value[1] = 0;
value[2] = 0;
value[3] = 0;
valor = 0;
for(j=0;j<8;j++){
output_low(PIN_C7);
output_bit(PIN_C6,valor&bitMask[j]);
output_high(PIN_C7);
}
}
if(!input(PIN_D3)){
//Velocímetro-Tacómetro / Multiplexación de displays LED
dis = dis+1;
//Usando un switch para asignar cada display, controlamos mejor la multiplexación y evitamos sobre cargar el micro
switch(dis){
case 1:
if(speed > 99){
cent = speed / 100;
output_d(segcent[cent]);
}
break;
case 2:
if(speed > 9){
decs = (speed % 100) / 10;
output_d(segdecs[decs]);
}
break;
case 3:
unit = speed % 10;
output_d(segunit[unit]);
break;
case 4:
mils = rpm / 100;
output_d(segmils[mils]);
break;
case 5:
degs = (rpm % 100) / 10;
output_d(degmils[degs]);
break;
}
if(dis>4){dis=0;}
/* Contador interno para sincronizar el código, así evitamos el uso de delays
que alteren el correcto funcionamiento de los displays multiplexados */
if(timer>2048){timer=0;}else{timer=timer+1;}
}
else{
//Mientras esté activo el menú de calibración, bloqueamos los puertos de salida
timer = 0;
output_d(0x00);
}
}
}
27 obamas??? :loco: justo a RAT queres hacerle gastar plata?! si los compras aca en argentina, no baja de los rangos 100-200 obamas 
