Como hacer que una Vtec no sea una Vtec.

[frangijon]

muchas gracias v eres UN FENOMENO!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[profinet]

...un circuito que te lo active por encima de las 3-4000 rpm...

Hace algun tiempo que me ronda la idea de poder activar el vtec a mi antojo, tengo pensado hacerlo con un CPM1A que tengo por ahi muerto de risa, ya que con podría aprovecharlo para hacer otros venazos que me rondan la cabeza como indicador de marcha engranada, warning , invertir giro de ventilador en marcha...
Bueno a lo que iba, tengo algunas dudas:  ¿cuantos impulsos por vuelta recibe el tacómetro? ( cables Amarillo/Verde y masa), lo digo por que con el con la entrada de contador rápido y generando interrupciones sólo puedo capturar hasta 1KHz, si recibe un impulso por vuelta no hay problema por que a 13000rpm serian 216,6Hz pero como he comentado antes no se cuantos impulsos recibe.
Tampoco se cuantos impulsos recibe el velocímetro, y esta entrada también la necesitaría para lo del indicador de marcha.

Bueno si hay alguien que me pueda ayudar que se manifieste.
Gracias

[Uve]

Hace algun tiempo que me ronda la idea de poder activar el vtec a mi antojo, tengo pensado hacerlo con un CPM1A que tengo por ahi muerto de risa, ya que con podría aprovecharlo para hacer otros venazos que me rondan la cabeza como indicador de marcha engranada, warning , invertir giro de ventilador en marcha...
Bueno a lo que iba, tengo algunas dudas:  ¿cuantos impulsos por vuelta recibe el tacómetro? ( cables Amarillo/Verde y masa), lo digo por que con el con la entrada de contador rápido y generando interrupciones sólo puedo capturar hasta 1KHz, si recibe un impulso por vuelta no hay problema por que a 13000rpm serian 216,6Hz pero como he comentado antes no se cuantos impulsos recibe.
Tampoco se cuantos impulsos recibe el velocímetro, y esta entrada también la necesitaría para lo del indicador de marcha.

El sensor de rpm manda a la ECU dos pulsos por vuelta asi que a 10.000rpm, te llegan unos 333Hz, por debajo de 1kHz pero con el automata de omron tendrás otros problemas antes, como por ejemplo que su alimentación es a 24V y en la moto lo máximo que puedes conseguir es 12V o que las entradas del mismo suelen ser NPN (Omron) y necesitarás un pequeño circuito acoplador para la débil señal del inductivo y ya no hablamos de espacio, a ver donde lo pones, pero es interesante tu propuesta :wink:.

[profinet]

El sensor de rpm manda a la ECU dos pulsos por vuelta asi que a 10.000rpm, te llegan unos 333Hz, por debajo de 1kHz pero con el automata de omron tendrás otros problemas antes, como por ejemplo que su alimentación es a 24V y en la moto lo máximo que puedes conseguir es 12V.

Gracias por la información, sabiendo que por frecuencia puede hacerse  pondré manos a la obra, lo de la tensión de alimentación creo que lo tengo resuelto porque el circuito interno del cpm1 funciona a 5V , intentaré eliminar la parte alimentación interna y adaptarlo a 12V , otra cosa serán los optoacopladores de las entradas digitales, tengo que estudiar la posibilidad de eliminarlos. También quiero mirar a ver si me es más fácil hacerlo con un GE Fanuc 90 micro que tengo por ahí.

[Uve]

Gracias por la información, sabiendo que por frecuencia puede hacerse  pondré manos a la obra, lo de la tensión de alimentación creo que lo tengo resuelto porque el circuito interno del cpm1 funciona a 5V , intentaré eliminar la parte alimentación interna y adaptarlo a 12V , otra cosa serán los optoacopladores de las entradas digitales, tengo que estudiar la posibilidad de eliminarlos. También quiero mirar a ver si me es más fácil hacerlo con un GE Fanuc 90 micro que tengo por ahí.

Yo también manejo todos los días bichos de esos de TEE, Siemens, Matsushita, ..., pero para esto te aconsejo un microcontrolador por tamaño, es el que he utilizado yo y cuando ponga las fotikis verás que el circuito se ha quedao en un 2x2cm y programar en ensamblador no es tan dificil como parece.

[profinet]

El problema es que hace ya mucho tiempo que estoy bastante alejado de ese mundillo , desde que estudiaba no toco nada de micros y el unico que habia tocado era el 8082 que no sé si todavía existirá eso.
Pero estaria bien que cuando lo acabes pasaras información a ver si lo veo claro.
De momento seguiré intentandolo por la via fácil.

[The_Buho]

Hola a todos de nuevo , estoy probando como va la moto con los arreglillos q le han hecho y la verdad es q bastante contento , con los escapes suena de maravilla y el filtro del aire se nota tan bien ...  tema vtec  me gusta mucho mas , yo diria q la moto es mucho mas agradable en todo el regimen, mas progesiva y no mete ese tiron a las 6800 rpm , como bien decias V , por debajo de las 3000 castañea la valvula de carrete xq seguro q le falta presion de aceite , la prueba en el banco tambien dice q se queda mas justa de gasolina , la solucion es q le pondremos un power commander para el tema de la gasolina y le dara paso directo sin la electrovalvula para q tenga presion de aceite suficiente, aprovecharemos mas adelante cuanto tenga q abrir el motor para cambiar las valvulas de carrete por las tradicionales  , y no tengo ninguna duda de q con 4 valvulas va bastante mejor la moto q con 2 . graciassss , mañana seguimos haciendo unos cuantos km mas por las carreteras de murcia disfrutando del puente...

[Uve]

Hola a todos de nuevo , estoy probando como va la moto con los arreglillos q le han hecho y la verdad es q bastante contento , con los escapes suena de maravilla y el filtro del aire se nota tan bien ...  tema vtec  me gusta mucho mas , yo diria q la moto es mucho mas agradable en todo el regimen, mas progesiva y no mete ese tiron a las 6800 rpm , como bien decias V , por debajo de las 3000 castañea la valvula de carrete xq seguro q le falta presion de aceite , la prueba en el banco tambien dice q se queda mas justa de gasolina , la solucion es q le pondremos un power commander para el tema de la gasolina y le dara paso directo sin la electrovalvula para q tenga presion de aceite suficiente, aprovecharemos mas adelante cuanto tenga q abrir el motor para cambiar las valvulas de carrete por las tradicionales  , y no tengo ninguna duda de q con 4 valvulas va bastante mejor la moto q con 2 . graciassss , mañana seguimos haciendo unos cuantos km mas por las carreteras de murcia disfrutando del puente...

Nada me alegro que te sirva :wink: y procura no demorar mucho lo de abrir el motor que el castañeo ese por debajo de 3000 no me gusta nada y si pasas por tierras M@rssianas, ya sabes .

[Uve]

Pero estaria bien que cuando lo acabes pasaras información a ver si lo veo claro.

Ya llevo unos días probándolo y viendo la manera de minimizar componentes al mínimo. A ver si para el final del puente puedo subir las fotikis que he realizado y os cuento como lo he hecho sin ser muy técnico :wink:. De momento os adelanto que el microcontrolador utilizado es un PIC 16F628.

[Niko]

¿Sin ser muy técnico dices V? Este post es solo para "pofesionales". Cómo os las gastáis jodíos. Hay que tener nivel para poder abrir aquí la boca. Así que yo mejor me callo y escucho con atención. 8O

[profinet]

Ya llevo unos días probándolo y viendo la manera de minimizar componentes al mínimo. A ver si para el final del puente puedo subir las fotikis que he realizado y os cuento como lo he hecho sin ser muy técnico :wink:. De momento os adelanto que el microcontrolador utilizado es un PIC 16F628.

Lo de las fotikis no esta mal, pero lo suyo sería el esquema.

Saludos

[Uve]

Bueno pues como lo prometido es deuda y después de mas de 2000km de pruebas, aquí os dejo el circuitillo y el programa para que funcione el mismo.

Se parte de esto donde se puede observar el circuito inicial con display:




Ahora si lo simplificamos quitando displays y alguna que otra cosa, con el fin de minimizar tamaño, dejamos lo justo y trabajamos de manera analógica se queda finalmente el de abajo, como ya dije un 2x2cm:




El esquema de momento esto es lo que hay, el que he hecho yo a lápiz, cuando tenga tiempo lo pasaré a OrCAD aunque la versión que tengo se lleva mal con el XP, ya veremos, de momento es lo que hay, siento que no se vea mejor.





Y bueno, de momento para las pruebas, lo he colocado encima de la bolsa sobredepósito, queda buscarle un sitio dentro del carenado una vez que ya está todo probado y que sea accesible para cambiar la consigna. Esta casi es la parte mas complicada, pues en la vtec los huecos brillan por su ausencia, ya veremos donde cae.

Las conexiones no tiene mas que irse al mazo de la instalación eléctrica y buscar el cable que activa la electroválvula, el otro la señal de las rpm y luego masa y un positivo de algo que si salta su fusible no sea vital para el funcionamiento del motor. Os aconsejo que las uniones sean soldadas por las vibraciones.

Aquí os dejo el listado del programa en ensamblador del microcontrolador por si algún aventurero quiere probarlo, la variable "Naf_Mariquitilla" :lol: es la que seleccionado para configurar el número de pulsos por vuelta. Perdonar si está descuadrado el texto, cosas del html y las tab. Si se hace muy largo, me lo decís, borro el listado y dejo solamente el .hex.

; Generated by MPASM, (c) Juan Antonio (V) 2006.

          __CONFIG _BODEN_OFF & _CP_OFF & _DATA_CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_OFF & _HS_OSC

           LIST      P=16F84, F=INHX8M
           include "P16F628.inc"


;Registros Adicionales del 16F628, no utilizar como variables

;xxx      EQU   0Ch
;xxx      EQU   0Dh
;xxx      EQU   0Eh
;xxx      EQU   0Fh
;xxx      EQU   10h
;xxx      EQU   11h
;xxx      EQU   12h
;xxx      EQU   13h
;xxx      EQU   14h
;xxx      EQU   15h
;xxx      EQU   16h
;xxx      EQU   17h
;xxx      EQU   18h
;xxx      EQU   19h
;xxx      EQU   1Ah
;xxx      EQU   1Bh
;xxx      EQU   1Ch
;xxx      EQU   1Dh
;xxx      EQU   1Eh
;xxx      EQU   1Fh


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%  Declaración de Variables de usuario %%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


Aux_PC      EQU   20h
Guard_PCLATH   EQU   21h
Guard_FSR   EQU   22h
;xxx      EQU   23h
Conf_Puerta_A   EQU   24h
Conf_Puerta_B   EQU   25h
Disp_Aux   EQU   26h   
Dato_Aux   EQU   27h   
BLANCO      EQU   28h
Reg_Hi      EQU   29h
Reg_Mid      EQU   2Ah
Reg_Low      EQU   2Bh
Nikitor      EQU   2Ch
Travolta   EQU   2Dh
Marica_en_Ruso   EQU   2Eh
K_Espantaviejas   EQU   2Fh
DECENAS      EQU   30h
CENTENAS   EQU   31h
U_MILLAR   EQU   32h
D_MILLAR   EQU   33h
Conf_Reg_OPTION   EQU   34h
;xxx      EQU   35h
;xxx      EQU   36h
;xxx      EQU   37h
;xxx      EQU   38h
;xxx      EQU   39h
;xxx      EQU   3Ah
;xxx      EQU   3Bh
;xxx      EQU   3Ch
;xxx      EQU   3Dh
;xxx      EQU   3Eh
;xxx      EQU   3Fh
Naf_Mariquitilla   EQU   40h
;xxx      EQU   41h
;xxx      EQU   42h
;xxx      EQU   43h
;xxx      EQU   44h
;xxx      EQU   45h
ZERO      EQU   46h
UNO      EQU   47h
DOS      EQU   48h
TRES      EQU   49h
CUATRO      EQU   4Ah
CINCO      EQU   4Bh
SEIS      EQU   4Ch
SIETE      EQU   4Dh
OCHO      EQU   4Eh
NUEVE      EQU   4Fh

Aux_PC_2   EQU   7Fh


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%% Fin Declaración de variables
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




       ORG     0x0000

                   GOTO    INICIO


;||||||||||||||||||||||||||||||||||||||
;|||Rutina Servicio Interrupción  |||||
;||||||||||||||||||||||||||||||||||||||

RSI       ORG     0x0004
           ;Guardamos valor de contador de programa.
       ;---------------------
           MOVWF   Aux_PC_2
           SWAPF   STATUS    , W
           CLRF    STATUS
           MOVWF   Aux_PC
           MOVF    PCLATH    , W
           MOVWF   Guard_PCLATH
           CLRF    PCLATH
           MOVF    FSR       , W
           MOVWF   Guard_FSR
           ;---------------------


       MOVF    Reg_Mid   , f
           BTFSC   STATUS    , Z
           DECF    Reg_Hi    , f     ;Decrementa Reg_Hi cuando Reg_Mid=0.
           
           DECFSZ  Reg_Mid   , f     ;Decrementa Reg_Mid y salta cuando es cero.
           GOTO    Termina_INT
           
       MOVF    Reg_Hi    , f
           BTFSS   STATUS    , Z
           GOTO    Termina_INT
              
       
       
       ;Cuando Reg_Hi=0 y Reg_Mid=0 ->Recarga.
       MOVLW   d'19'
           MOVWF   Reg_Hi
           
       MOVLW   d'18'
           MOVWF   Reg_Mid
           
       MOVLW   d'208'
           ADDWF   Reg_Low    , f   ;Le suma 208 cada vez.
           BTFSC   STATUS     , C
           INCF    Reg_Mid    , f   ;Cada 4 veces (4*0.7seg) le incrementa uno.
           
       MOVLW   d'01'
           MOVWF   Nikitor



Termina_INT
       BCF     INTCON    , T0IF               
       ;Recargamos valor del contador de programa.
       ;--------------------
       MOVF    Guard_FSR     , W
           MOVWF   FSR
           
       MOVF    Guard_PCLATH  , W
           MOVWF   PCLATH
           SWAPF   Aux_PC        , W
           MOVWF   STATUS
           SWAPF   Aux_PC_2      , f
           SWAPF   Aux_PC_2      , W
           ;--------------------
       
       RETFIE

;||||||||||||||||||||||||||||||||||||||||||
;|||||| Fin Rutina Servicio Interrupción ||
;||||||||||||||||||||||||||||||||||||||||||




;***********************************************************************
;PROGRAMA PRINCIPAL
;***********************************************************************

;Arranca Visualización Inicial
;y chequeo del display
;-----------------------------
INICIO      
           MOVLW   d'01'
           CALL    Delay_2   ;100ms
           
       CALL    Conf_Comp_Anal
           
       MOVLW   b'00000000'
           CALL    Conf_PORTB      ;Configura toda la Puerta B como Salidas.
           
       MOVLW   b'11100000'
           CALL    Conf_PORTA      ;Configura toda la Puerta A como Entradas y Salidas.
           
              


       ;Inicializa registros de CONTEO para Display Ánodo Común.

D_An_Com_1  MOVLW   b'11111111'
           MOVWF   BLANCO   ;BLANCO

           MOVLW   b'11000000'
           MOVWF   ZERO
           
       MOVLW   b'11111001'
           MOVWF   UNO
           
       MOVLW   b'10100100'
           MOVWF   DOS
           
       MOVLW   b'10110000'
           MOVWF   TRES
           
       MOVLW   b'10011001'
           MOVWF   CUATRO
           
       MOVLW   b'10010010'
           MOVWF   CINCO
           
       MOVLW   b'10000010'
           MOVWF   SEIS
           
       MOVLW   b'11011000'
           MOVWF   SIETE
           
       MOVLW   b'10000000'
           MOVWF   OCHO
           
       MOVLW   b'10010000'
           MOVWF   NUEVE
           

       ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
       ;GOTO    Conf_ARR  ;Saltar la Rutina de Chequeo Inicial.
       ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$


       GOTO    Sigue_ini

       
Sigue_ini    
       ;%%%%%%%%%%%%%%%%%%%%%%%%%
D_An_Com_2  ;Rutina de Chequeo Inicial
       ;%%%%%%%%%%%%%%%%%%%%%%%%%

       ;Decenas de Millar
       MOVLW   b'00000001'   ;Activa el display de las Decenas de Millar
           CALL    Env_Disp
           
       MOVLW   b'00000000'   ;Envia un 8
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay       ;200mS
           

       ;Unidades de Millar
       MOVLW   b'00000010'   ;Activa el display de las Unidades de Millar
           CALL    Env_Disp
           
       MOVLW   b'00000000'   ;Envia un 8
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       ;Centenas
       MOVLW   b'00000100'   ;Activa el display de las Centenas
           CALL    Env_Disp
           
       MOVLW   b'00000000'   ;Envia un 8
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       ;Decenas
       MOVLW   b'00001000'   ;Activa el display de las Decenas
           CALL    Env_Disp
           
       MOVLW   b'00000000'   ;Envia un 8
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    NUEVE      , W   ;Envia un 9
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    OCHO      , W   ;Envia un 8
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    SIETE      , W   ;Envia un 7
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    SEIS      , W   ;Envia un 6
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    CINCO      , W   ;Envia un 5
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    CUATRO      , W   ;Envia un 4
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    TRES      , W   ;Envia un 3
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    DOS      , W   ;Envia un 2
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    UNO      , W   ;Envia un 1
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       MOVF    ZERO      , W   ;Envia un 0
           CALL    Env_Dato
           
       MOVLW   d'02'
           CALL    Delay   ;200mS
           

       GOTO    Conf_ARR

;------------------------------------------
;Fin ARRANQUE inicial y chequeo del display.



;Ahora sigue cargando la Configuración cuando
;arranca por primera vez.
;--------------------------------------------
Conf_ARR    
       ;Inicialia registros del 29h al 33h
       ;-------------------------------------
       MOVLW   d'19'   ;19d
           MOVWF   Reg_Hi
           
          MOVLW   d'18'   ;18d     (Registros de temporización)
           MOVWF   Reg_Mid
           
          MOVLW   d'208'   ;208d          
           MOVWF   Reg_Low
           
          CLRF    Nikitor
           CLRF    Travolta
           CLRF    K_Espantaviejas
           CLRF    DECENAS       ;(Registros de Valor)
           CLRF    CENTENAS
           CLRF    U_MILLAR
           CLRF    D_MILLAR
           ;--------------------------------------

       CALL    Banco_1
           ;-----------------------
       MOVLW   b'10000000'      ;Deshabilitas las Res Pull-up y prescaler a 1:2
           CALL    Conf_OPTION      
           BSF     INTCON    , GIE   ;Permiso General Interrupciones
           BSF     INTCON    , T0IE   ;Permiso Interrupción del Timer
           ;-----------------------
       CALL    Banco_0


       ;Configura los pulsos por vuelta y lo carga en la varible 20h.
       ;Número de imanes o agujeros del detector.
       ;--------------------------------
       movlw  d'01'  ;(6 Pulsos por vuelta)      
       movwf  Naf_Mariquitilla
       ;--------------------------------
            


       GOTO    CONTEO_0      ;Se va al bucle principal de exploración.




CONTEO_0    BTFSC   PORTA     , 05
           GOTO    No_pulso_0
           
Pulso_0       MOVF    Travolta      , W     ;Si hay pulso de conteo
           SUBLW   d'01'
           BTFSS   STATUS    , Z
           GOTO    Sigue_0      ;Si Travolta no es 1.
           
       CLRF    Travolta
               ;Pulsos por vuelta.
       ;MOVLW   d'01'      ;Lo configura el valor de la variable 40h -> Naf_Mariquitilla.
           MOVF    Naf_Mariquitilla,W
       ADDWF   DECENAS      , f
           
       MOVF    DECENAS      , W
           SUBLW   d'99'
           
       BTFSC   STATUS    , C
           GOTO    Sigue_0
           
       INCF    CENTENAS      , f   ;Si la variable 30h llega a mas de 99, incrementa la variable 31h.
           
       MOVLW   d'100'
           SUBWF   DECENAS      , W   ;y pone a cero la variable 30h
           MOVWF   DECENAS

Sigue_0     GOTO    Sigue_00

No_pulso_0  MOVLW   d'01'             ;Si no hay pulso de conteo pone a uno la var Travolta
           MOVWF   Travolta


Sigue_00    MOVF    Nikitor      , W    
           SUBLW   d'01'
           BTFSS   STATUS    , Z
           GOTO    Sigue_000      ;Si Nikitor no es 1.
           
       CLRF    Nikitor      ;Si Nikitor es 1.
           
       MOVF    DECENAS      , W    
           MOVWF   U_MILLAR
           
       MOVF    CENTENAS      , W   ;Si la Variable Nikitor=1  ->  32h=30h y 33h=31h y después se borran 30h y 31h.
           MOVWF   D_MILLAR
           
       CLRF    CENTENAS
           CLRF    DECENAS

Sigue_000   MOVF    D_MILLAR      , W   ;Si Nikitor no es 1.
           MOVWF   0x36
           
       MOVLW   d'10'
           MOVWF   0x37
           CALL    Resta_A      ;38h se queda con las unidades de dif entre 37h-36h
           
       MOVF    0x38      , W
           MOVWF   0x34
           
       MOVF    0x34      , W
           MOVWF   Marica_en_Ruso
           
       MOVF    Marica_en_Ruso      , W
           ADDLW   d'70'      .Indirecto a partir de la dir 46h
           MOVWF   FSR
           MOVF    INDF      , W
           MOVWF   Marica_en_Ruso      ;Numero a representar de cero a nueve
           
       MOVF    Marica_en_Ruso      , W
           SUBWF   ZERO      , W
           BTFSS   STATUS    , Z   ;
           GOTO    Sigue_0000      ;
               ;Si es 0 borra las D.MILLAR
       MOVF    BLANCO      , W   ;
           MOVWF   Marica_en_Ruso      ;

Sigue_0000  
           ;Ánodo común      
       MOVLW   b'00000001'         
           CALL    Env_Disp
           
           
       MOVF    Marica_en_Ruso      , W
           CALL    Env_Dato
           
       MOVLW   d'01'
           CALL    Ret_Visu_Disp
           
       MOVF    BLANCO      , W
           CALL    Env_Dato
         




CONTEO_1    BTFSC   PORTA     , 05     ;Explora entrada de pulsos.
           GOTO    No_pulso_1

Pulso_1       MOVF    Travolta      , W
           SUBLW   d'01'
           BTFSS   STATUS    , Z
           GOTO    Sigue_1
           CLRF    Travolta
           
                   ;Pulsos por vuelta.
       ;MOVLW   d'01'      ;Lo configura el valor de la variable 40h -> Naf_Mariquitilla.
           MOVF    Naf_Mariquitilla,W
       ADDWF   DECENAS      , f


           MOVF    DECENAS      , W
           SUBLW   d'99'
           BTFSC   STATUS    , C
           GOTO    Sigue_1
           INCF    CENTENAS      , f
           MOVLW   d'100'
           SUBWF   DECENAS      , W
           MOVWF   DECENAS
Sigue_1     GOTO    Sigue_11

No_pulso_1  MOVLW   d'01'
           MOVWF   Travolta

Sigue_11    MOVF    D_MILLAR      , f
           BTFSS   STATUS    , Z   ;
           GOTO    Sigue_111      ;
               ;Si es 0 borra el digito U.MILLAR
       MOVF    BLANCO      , W   ;
           MOVWF   Marica_en_Ruso      ;
           GOTO    Sigue_1111      ;

Sigue_111   MOVF    D_MILLAR      , W
           MOVWF   0x37
           
       MOVLW   d'10'
           MOVWF   0x38
           CALL    Resta_B      ;39h se queda con las unidades de dif entre 38h-37h
           
       MOVF    0x39      , W
           MOVWF   0x35
           
       MOVF    0x35      , W
           MOVWF   Marica_en_Ruso
           
       MOVF    Marica_en_Ruso      , W
           ADDLW   d'70'      .Indirecto a partir de la dir 46h
           MOVWF   FSR
           MOVF    INDF      , W
           MOVWF   Marica_en_Ruso

Sigue_1111  
           ;Ánodo común
       MOVLW   b'00000010'      ;Display Centenas
           CALL    Env_Disp
           
           
       MOVF    Marica_en_Ruso      , W
           CALL    Env_Dato
           
       MOVLW   d'01'
           CALL    Ret_Visu_Disp
           
       MOVF    BLANCO      , W
           CALL    Env_Dato
         

CONTEO_2    BTFSC   PORTA     , 05
           GOTO    No_pulso_2

Pulso_2     MOVF    Travolta      , W
           SUBLW   d'01'
           BTFSS   STATUS    , Z
           GOTO    Sigue_2
           CLRF    Travolta
           
                   ;Pulsos por vuelta.
       ;MOVLW   d'01'      ;Lo configura el valor de la variable 40h -> Naf_Mariquitilla.
           MOVF    Naf_Mariquitilla,W
       ADDWF   DECENAS      , f
           
       
       MOVF    DECENAS      , W
           SUBLW   d'99'
           BTFSC   STATUS    , C
           GOTO    Sigue_2
           INCF    CENTENAS      , f
           MOVLW   d'100'
           SUBWF   DECENAS      , W
           MOVWF   DECENAS
Sigue_2     GOTO    Sigue_22


No_pulso_2  MOVLW   d'01'
           MOVWF   Travolta


Sigue_22    MOVF    U_MILLAR      , W
           MOVWF   0x36
           
       MOVLW   d'10'
           MOVWF   0x37
           CALL    Resta_A      ;38h se queda con las unidades de dif entre 37h-36h
           
       MOVF    0x38      , W
           MOVWF   0x35
           
       MOVF    0x35      , W
           MOVWF   Marica_en_Ruso
           
       MOVF    Marica_en_Ruso      , W
           ADDLW   d'70'      .Indirecto a partir de la dir 46h
           MOVWF   FSR
           MOVF    INDF      , W
           MOVWF   Marica_en_Ruso
           
       MOVF    D_MILLAR      , f
           BTFSS   STATUS    , Z
           GOTO    Sigue_222
           MOVF    Marica_en_Ruso      , W
           
       SUBWF   ZERO      , W   ;
           BTFSS   STATUS    , Z   ;
           GOTO    Sigue_222      ;
               ;Si es 0 borra el dígito CENTENAS
       MOVF    BLANCO      , W   ;
           MOVWF   Marica_en_Ruso      ;


Sigue_222              
       ;Anodo común
       MOVLW   b'00000100'      ;Unidades de Millar
           CALL    Env_Disp
           
           
       MOVF    Marica_en_Ruso      , W
           CALL    Env_Dato
           
       MOVLW   d'01'
           CALL    Ret_Visu_Disp
           
       MOVF    BLANCO      , W
           CALL    Env_Dato
 

CONTEO_3    BTFSC   PORTA     , 05
           GOTO    No_pulso_3

Pulso_3       MOVF    Travolta      , W
           SUBLW   d'01'
           BTFSS   STATUS    , Z
           GOTO    Sigue_3
           CLRF    Travolta
           
       
                   ;Pulsos por vuelta.
       ;MOVLW   d'01'      ;Lo configura el valor de la variable 40h -> Naf_Mariquitilla.
           MOVF    Naf_Mariquitilla,W
       ADDWF   DECENAS      , f
           
       
       MOVF    DECENAS      , W
           SUBLW   d'99'
           BTFSC   STATUS    , C
           GOTO    Sigue_3
           INCF    CENTENAS      , f
           MOVLW   d'100'
           SUBWF   DECENAS      , W
           MOVWF   DECENAS
Sigue_3     GOTO    Sigue_33

No_pulso_3  MOVLW   d'01'
           MOVWF   Travolta

Sigue_33    MOVF    U_MILLAR      , W
           MOVWF   0x37
           
       MOVLW   d'10'
           MOVWF   0x38
           CALL    Resta_B      ;39h se queda con las unidades de dif entre 38h-37h
           
       MOVF    0x39      , W
           MOVWF   0x36
           
       MOVF    0x36      , W
           MOVWF   Marica_en_Ruso      ;En Marica_en_Ruso -> valor a visualizar de cero a nueve
           
       MOVF    Marica_en_Ruso      , W
           ADDLW   d'70'      .Indirecto a partir de la dir 46h
           MOVWF   FSR
           MOVF    INDF      , W
           MOVWF   Marica_en_Ruso
           
                          
       ;Ánodo común
       MOVLW   b'00001000'      ;Decenas de Millar
           CALL    Env_Disp
           
           
       MOVF    Marica_en_Ruso      , W
           CALL    Env_Dato
           
       MOVLW   d'01'
           CALL    Ret_Visu_Disp
           
       MOVF    BLANCO      , W
           CALL    Env_Dato
           
       
       
       GOTO    CONTEO_0          ;Vuelve a explorar la patilla PORTA,05
;--------------------------------



;*****************************************************
;********** FIN PROGRAMA PRINCIPAL *******************
;*****************************************************







;/////////////////////////////////////////////////////
;////////////  RUTINAS  //////////////////////////////
;/////////////////////////////////////////////////////



;--------------------------------
Delay       MOVWF   Reg_Hi      ;200mS
           
       MOVF    Reg_Hi      , W      ;Reg_Hi = 19d
           MOVWF   Reg_Mid         ;Reg_Mid = 18d
                  ;Reg_Low = 208d
       MOVLW   d'100'   ;100d
           MOVWF   Reg_Low
           
       MOVLW   d'20'
           GOTO    Sigue_Del

Delay_2     MOVWF   Reg_Hi      ;100mS
           
       MOVF    Reg_Hi      , W
           MOVWF   Reg_Mid
           
       MOVLW   d'100'
           MOVWF   Reg_Low
           
       MOVLW   d'10'
           GOTO    Sigue_Del

Sigue_Del   MOVWF   Nikitor
           
       MOVLW   d'255'
           MOVWF   Travolta

Bucle_Del_3 MOVF    Reg_Low      , W
           MOVWF   K_Espantaviejas

Bucle_Del_2 MOVF    Reg_Mid      , W
           MOVWF   Marica_en_Ruso

Bucle_Del_1 MOVLW   d'23'
Bucle_Del_0 ADDWF   Travolta      , W
           BTFSC   STATUS    , C
           GOTO    Bucle_Del_0
           DECFSZ  Marica_en_Ruso      , f
           GOTO    Bucle_Del_1
           DECFSZ  K_Espantaviejas      , f
           GOTO    Bucle_Del_2
           DECFSZ  Nikitor      , f
           GOTO    Bucle_Del_3
           RETURN
;--------------------------------



;--------------------------------
Ret_Visu_Disp    ;En Acumulador W nos llega d'01'

       MOVWF   0x37
           
       MOVF    0x37      , W
           CALL    Sigue_X
           
       MOVF    0x37      , W
           CALL    Sigue_X
           
       MOVF    0x37      , W
           CALL    Sigue_X
           
       MOVF    0x37      , W
           CALL    Sigue_X
           
       MOVF    0x37      , W
           GOTO    Sigue_X


Sigue_X       MOVWF   0x38   ;0x38=01
           
       MOVLW   d'244'   ;244d
           MOVWF   0x39
           
       MOVLW   d'252'   ;252d
           MOVWF   0x3A
           
       MOVF    0x38      , W
           ADDWF   0x39      , W   
           BTFSS   STATUS    , C   ;256-244=16
           RETLW   d'00'

Bucle_X     ADDWF   0x3A      , W   ;
           BTFSC   STATUS    , C   ;Cuenta 4
           GOTO    Bucle_X      ;
           RETURN
;---------------------------------




;Configura el Comparador Analógico
;---------------------------------
Conf_Comp_Anal
       MOVLW   b'00000111'      ;Desactiva todas las comparaciones
           MOVWF   CMCON
           CALL    Banco_1
           BCF     CMCON      , VROE   ;VREF es desconectado para el pin 2 de la PuertaA.
           GOTO    Banco_0
;---------------------------------


;---------------------------------
Env_Dato    MOVWF   Dato_Aux
           GOTO    Env_PORTB

Env_Disp    MOVWF   Disp_Aux
           GOTO    Env_PORTA


;Envía Valores a PORTB
;--------------------------------
Env_PORTB   MOVF    Dato_Aux      , W
           MOVWF   PORTB
           RETURN
;---------------------------------

;Envía Valores a PORTA
;--------------------------------
Env_PORTA   MOVF    Disp_Aux      , W
           MOVWF   PORTA
           RETURN
;--------------------------------




;/////////////////////////////////

;Configura el Registro PORTB
;--------------------------------
Conf_PORTB  
           TRIS    PORTB
           RETURN
;--------------------------------

;Configura el Registro PORTA
;--------------------------------
Conf_PORTA  
           TRIS    PORTA
           RETURN
;/////////////////////////////////





;Configura el Registro OPTION
;--------------------------------
Conf_OPTION
           OPTION
           RETURN
;--------------------------------





;Pasamos a Banco 1
;----------------------------------
Banco_1     BSF     STATUS    , RP0
           BCF     STATUS    , RP1      
           RETURN
;----------------------------------




;Volvemos a Banco 0
;----------------------------------
Banco_0     BCF     STATUS    , RP0
           BCF     STATUS    , RP1
           RETURN
;----------------------------------




;--------------------------------
Resta_B     MOVF    0x38      , f
           BTFSC   STATUS    , Z
           GOTO    Label_003D
Label_003F  MOVF    0x38      , W
           SUBWF   0x37      , W
           BTFSC   STATUS    , C
           GOTO    Label_003E           ;39h se queda con las unidades de dif entre 38h-37h
           GOTO    Label_003D
Label_003E  MOVF    0x38      , W
           SUBWF   0x37      , W
           MOVWF   0x37
           GOTO    Label_003F
Label_003D  MOVF    0x37      , W
           MOVWF   0x39
           RETURN
;--------------------------------




;--------------------------------
Resta_A     CLRF    0x39
           MOVF    0x37      , f
           BTFSC   STATUS    , Z
           GOTO    Label_0040
Label_0042  MOVF    0x37      , W
           SUBWF   0x36      , W
           BTFSC   STATUS    , C
           GOTO    Label_0041
           GOTO    Label_0040                    ;38h se queda con las unidades de dif entre 37h-36h
Label_0041  MOVF    0x37      , W
           SUBWF   0x36      , W
           MOVWF   0x36
           INCF    0x39      , f
           GOTO    Label_0042
Label_0040  MOVF    0x39      , W
           MOVWF   0x38
           RETURN
;--------------------------------





;//////////////////////////////////////////////////////////
;/////////////  FIN DE SUBRUTINAS  ////////////////////////
;//////////////////////////////////////////////////////////








;##########################################################
       END      ;FIN DE PROGRAMA
;##########################################################

Y este el programa ya compilado .hex listo para volcar al microcontrolador:

:020000002928AD
:08000800FF00030E8301A000BC
:100010000A08A1008A010408A200AA080319A9037A
:10002000AA0B1F28A908031D1F281330A90012308E
:10003000AA00D030AB070318AA0A0130AC000B119C
:100040002208840021088A00200E8300FF0E7F0E04
:10005000090001306E219F210030AE21E030B02137
:10006000FF30A800C030C600F930C700A430C80077
:10007000B030C9009930CA009230CB008230CC0039
:10008000D830CD008030CE009030CF0047280130EE
:10009000A6210030A421023067210230A6210030C1
:1000A000A421023067210430A6210030A4210230AF
:1000B00067210830A6210030A421023067214F08B3
:1000C000A421023067214E08A421023067214D0887
:1000D000A421023067214C08A421023067214B087B
:1000E000A421023067214A08A4210230672149086F
:1000F000A421023067214808A42102306721470863
:10010000A421023067214608A421023067218828F3
:100110001330A9001230AA00D030AB00AC01AD0101
:10012000AF01B001B101B201B301B4218030B221FD
:100130008B178B16B7210130C0009E28851AB02876
:100140002D08013C031DAF28AD014008B007300861
:10015000633C0318AF28B10A64303002B000B22803
:100160000130AD002C08013C031DBD28AC01300856
:10017000B2003108B300B101B0013308B6000A3053
:10018000B700C9213808B4003408AE002E08463E36
:1001900084000008AE002E084602031DD12828085E
:1001A000AE000130A6212E08A421013087212808A5
:1001B000A421851AEB282D08013C031DEA28AD0176
:1001C0004008B0073008633C0318EA28B10A6430DD
:1001D0003002B000ED280130AD00B308031DF32854
:1001E0002808AE0001293308B7000A30B800BA2148
:1001F0003908B5003508AE002E08463E84000008D8
:10020000AE000230A6212E08A42101308721280843
:10021000A421851A1B292D08013C031D1A29AD01B3
:100220004008B0073008633C03181A29B10A64304B
:100230003002B0001D290130AD003208B6000A308E
:10024000B700C9213808B5003508AE002E08463E73
:1002500084000008AE00B308031D34292E084602AE
:10026000031D34292808AE000430A6212E08A4213D
:10027000013087212808A421851A4E292D08013C28
:10028000031D4D29AD014008B0073008633C031839
:100290004D29B10A64303002B00050290130AD0060
:1002A0003208B7000A30B800BA213908B60036085B
:1002B000AE002E08463E84000008AE000830A6219D
:1002C0002E08A421013087212808A4219E28A900F6
:1002D0002908AA006430AB0014307529A900290848
:1002E000AA006430AB000A307529AC00FF30AD00C5
:1002F0002B08AF002A08AE0017302D0703187D2900
:10030000AE0B7C29AF0B7A29AC0B78290800B7001B
:100310003708922137089221370892213708922115
:1003200037089229B800F430B900FC30BA00380818
:100330003907031C00343A0703189B2908000730CB
:100340009F00B4211F13B729A700A829A600AB2935
:1003500027088600080026088500080066000800B7
:10036000650008006200080083160313080083126A
:1003700003130800B8080319C62938083702031800
:10038000C229C62938083702B700BD293708B90085
:100390000800B901B7080319D7293708360203182E
:1003A000D229D72937083602B600B90ACD2939082B
:0403B000B800080089
:02400E00023F6F
:00000001FF

Bueno y que es lo que hace el programilla, pues algo tan simple como dar una salida a las rpm que nosotros le configuremos. Pero hace algo mas, una vez activada la misma crea una histéresis, de manera que si seleccionamos que se active por ejemplo a las 6000rpm, podemos configurar también las rpm a las cuales se desactiva, es decir, si le damos una histéresis de 1000rpm, hasta que no baja por debajo de las 5000rpm no pasa a 2V, esto es interesante y una mejora con respecto a la vtec 02-05 que tiene una histéresis de 100-200rpm, se activa a las 6800 y apaga a las 6600rpm, lo que provoca titubeos y vibraciones sobre todo las primeras veces (rateo al llegar a la zona umbral). A partir del 2006 se ha mejorado algo, activa a las 6600rpm y apaga a las 6100rpm, aumentan la histéresis a 500rpm, y como ya digo con el circuito se puede aumentar esta hasta 3000rpm, o incluso mas, pero 1000 ya está bien.

Otra función que realiza que no hace la ECU de serie es dar un breve pulso poco antes de activarse (lo justo para cebar sin llegar a activar la válvula), de manera que ceba el circuito y hace la transición mas suave, esto ya lo comenté mensajes atrás.

Funcionamiento:

Bueno la primera restricción es limitar la activación de las 4V siempre por encima de las 3000rpm, por lo del aceite, a partir de ahí cualquiera. Como curiosidad reseñar que con la ECU y programación original, la zona óptima de activar el vtec no parece que sea a las 6800rpm si no un poco antes sobre las 6000rpm sería lo mejor según las pruebas realizadas, la zona de las 6000 a las 7000, tira y sube mejor a 4V que a 2V, le cuesta un poco mas. Luego por ejemplo desactivando a las 5000, o mejor a las 4000, puedes curvear todo el rato con el vtec activado no dejándola caer por debajo de esas en el paso por curva, así va divina y cuando te metes en autovía en sexta a 140 km vas por encima de 4000, así que no hay problema. El único inconveniente es que al llevar mas rato el vtec activado ahora que ya he hecho mas km sí parece que suba algo el consumo, un 5-10%, tampoco lo he mirado mucho.

Otra cosa que estaréis pensando es la programación de la ECU, que está diseñada para que el vtec se active a las 6800, pero también tener en cuenta que la misma sabe la cantidad de masa de aire que entra al motor (a traves del MAP sensor, el de temperatura  y posición de la mariposa de gas) y si hay mayor flujo de aire a 4V, la ECU sabe que tiene que aportar mas gasolina por lo que no aparecen tirones y ni defectos apreciables significativos.

Otra cosa es que ahora quien activa el vtec es el circuito y no la ECU por tanto hay que añadir algo mas en el circuito para simular la tensión de prueba de la misma (2Voltios) y que no se encienda el piloto FI, pues hay un código de fallo asociado a la activación del vtec.

Otra configuración que he probado es a circular sin Vtec, es decir, subir tanto la consigna que siempre se va a 2V (desactivándolo), de esta forma, a partir de las 6000 rpm, se nota que el motor le cuesta un poco mas subir de vueltas y para que llegue a 10.000rpm hay que apretar un poco mas el gas, pero al rojo llega sin problema y tiene su punto, tenemos un par motor aceptable, totalmente lineal, menos nerviosa y mas controlable a partir de las 7000rpm. Aún así en torno a las 7300rpm cambia el mapeado preprogramado de encendido y saca algo de mala leche a lo kawa, no es para ir saco pues se pierde algo de potencia, sino mas bien ir curveando a ritmo suave sin estirar mas allá de las 9000 y es especialmente interesante en viajes largos por autovía, sin el vtec de por medio y sorprendentemente se obtienen unos consumos muy bajos (he llegado a hacer de esta forma unos 350km quedando una raya).

Se podría incluso añadir una botonera con tres interruptores, uno sin vtec para "conducción tranquila", poco ruido y bajo consumo, otro para "conducción normal" activándolo sobre las 6000 o por ahí y un tercero "modo pique" para ir despegando pegatinas a lo loco :lol:.

Yo me he fabricado el circuitillo de manera casera y sobre todo por razones de espacio, pero el mismo puede ser sustituido por ejemplo, por un relé tacométrico que realice la misma función o un pequeño autómata como comentaba "profinet" y sería igualmente válido siempre que el espacio del mismo lo permita.

Y bueno eso es todo, no quiero alargarme mas, pero como veis se puede activar el vtec a voluntad, la moto hasta va mejor o por lo menos a gusto del que la lleva :wink:.

[profinet]

OLE TUS WEBOS!!!

Te felicito por el excelente trabajo realizado, y me alegro de saber que no soy el único al que se le va la pinza pensando dónde ni como liarla.

lo dicho:

OLE TUS WEBOS!!!

[VFRBOY]

Tan solo hace una semana que tengo la moto y todos estos arreglos son para mi  como si hablarais en chino pero no me pierdo ni uno,esto parece un culebron,comienzas a leer y no te puedes desenganchar.

[The_Buho]

van pasando los km y cada vez me gusta mas como se comporta el motor ahora q la llevo siempre a 4 valvulas , aparte de ese cambio de sonido con los escapes akrapovic nuevos..

[carmeloco]

Sinceramente, estoy flipando. V, eres un crack tío, no sé que haces que no estás currando de mecánico en motogp.

Yo la verdad, es que probé la Vtec 2006 y me gustó tal y como viene de serie, y es la que me quiero comprar en un futuro, pero ese circuitillo, abre un abanico de posibilidades bestial.

Si quieres un consejo, paténtalo pero ya, porque me parece un invento genial.

Y para los moderadores, creo que el tema se merece un post-it.

Olé V, tendríamos que juntarnos todos los que nos va la mecánica y montar un equipo de formula extreme para el CEV jajajajajajajjajaja

[Vfrlopez]

Hola, no he querido intervenir hasta ver a donde llegabas, y tio, te felicito, tienes nivel, mucho nivel. Yo soy del gremio de la electronica tambien y te puedo contar que hay un sistema que leyendo la señal analogica que le llega a "map sensor"(cable Y/R) que viene a su vez del "TP sensor" y que comparandola con una tension  fija,(ajustable  a voluntad) obtienes resultados excelentes ( siempre con la map del 2006 que ya tiene una histeresis de 500 vueltas programada) , me parece mucho mas elaborado tu sistema, aunque con el otro no hay que programar nada.
un saludo

[Uve]

Gracias a todos pero es que yo me lo tomo como hobbie :wink:.

Hola, no he querido intervenir hasta ver a donde llegabas, y tio, te felicito, tienes nivel, mucho nivel. Yo soy del gremio de la electronica tambien y te puedo contar que hay un sistema que leyendo la señal analogica que le llega a "map sensor"(cable Y/R) que viene a su vez del "TP sensor" y que comparandola con una tension  fija,(ajustable  a voluntad) obtienes resultados excelentes ( siempre con la map del 2006 que ya tiene una histeresis de 500 vueltas programada) , me parece mucho mas elaborado tu sistema, aunque con el otro no hay que programar nada.
un saludo

No, si eso del sensor también lo he estudiado a ver como se comporta y si aumentamos algo la señal que manda a la ECU, le dice a esta que le entra algo mas de aire y por tanto aporta algo mas de combustible, se ganan algunos CV (sobre todo en la V por cumplir tanta norma anticontaminación y estar tan ajustada estequiométricamente) y par, a costa de consumo claro, pero si no anulas los sensores de oxígeno a la salida poco haces. También se puede hacer mas fácil y cómodo retocando los sensores de temperatura en la manera adecuada, si a la ECU se le dice que el aire se encuentra mas frío de lo que es, al tener mas oxígeno, aporta mas gasolina. La cuestión está en hacerlo bien sin pasarse y respetando el arranque en frío para no tener problemas. Y alguno que otro que también he mirado, ya que la inyección no podemos reprogramarla, se puede alterar la infomación que llega a la misma para dejarla a nuestro gusto y no tiene siempre que ser aumentar potencia, también se puede enfocar en disminuir consumo por ejemplo, pero esto lo dejamos pendiente para el siguiente puente :wink:.

[Luis]

Tio, eres una fiera.

Me compré una del 2005 y desde que la estrené he estado desquiciado con el puñetero tirón del VTEC, que es la leche cuando te entra a media curva.
Ahora la llevo sin catalizador, con escapes Leovince y un par de retoques y he conseguido andar agusto por fin!!!
Te lo has currado un montón, voy a releer todo otra vez que ¡¡¡YA ME HE CALENTADO CON EL TEMA!!!! :twisted: