Embedded Files
Fecha de publicación: Jan 07, 2017 6:52:18 PM
Comparto nuevamente esta solucion, dado a los reiterativos correos electronicos de amigos y conocidos del offroad.... Bien, veamos; Los usuarios de camionetas 4x4 relativamente modernas, en algunos casos nos vemos con el problema que el control de la doble traccion (4x4), es en algunos casos de gestion electronica y con el uso reiterado del motor de transferencia, estas unidades suelen traernos algun que otro problema. Descartando la problematica del encoder interno y o carbones del motor, hay casos en que el TCU (Unidad de Control de Transferencia), deje de funcionar y no podamos conmutar nuestra caja de cambios... Es totalmente incomodo tener que ir bajo de nuestras camionetas, sacar el motor de transferencia y hacer la conmutacion con una llave francesa... ni hablar si queremos hacer una reforma y colocar el kit mecanico de transferencia....
Les comparto una solucion divina que en su momento me sirvio para mi ex musso 602 y que sirve plenamente en camionetas 4x4 Ford Ranger...
Este circuito, tambien puede servirnos para los casos en que el encoder se deteriora, ya que las pistas de cobre internas del motor de transferencia, tienen una vida util determinada por la cantidad de uso y si nos tomamos el trabajo o no, de sellarlo bien y que no le ingrese agua. Para el caso de tener problemas con el encoder interno, sencillamente tienen que buscar la manera de que internamente el brazo de la selectora, pueda tener tres puntos de contactos y estos deben ir ligados a maza-tierra (GND).
Cualquier consulta o duda, ya saben a quien perguntarle ;)
De las dos versiones que tengo, les paso el codigo de fuente de la primera beta funcional para que puedan reformar y amoldar a sus vehiculos; Tengo entendido que varios vehiculos presentan los mismo problemas. La ultima beta que tengo, esta programado y trabaja solamente con el encoder de las ranger y musso, lo cual, es muy distinto el programa y no creo que les sea util.
'****************************************************************
'* Name : UNTITLED.BAS
'* Author : [Martin A. Torres Fortelli - EduTecInformal]
'* Notice : Copyright (c) 2012 [prof.martintorres@educ.ar]
'* : All Rights Reserved
'* Date : 25/10/2012
'* Version : 1.0
'* Notes :
'* :
'****************************************************************
@ DEVICE xt_osc
define osc 4
define LCD_DREG PORTC
define LCD_DBIT 4
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 2
linea1 con $80
linea2 con $C0
;++++++++++++++++++++++++++++++++++++++++++++++++++++
;++++++++++++++++++++++++++++++++++++++++++++++++++++
Intro:
lcdout $FE,1
lcdout $FE, linea1,"- Club MUSSO -"
LCDOUT $FE,$C3, "Argentina"
pause 1000
lcdout $FE,1
lcdout $FE, linea1," Martin Torres "
LCDOUT $FE,$C3, "TCU MT&F V1.0"
pause 1000
Inicio:
if portb.0 = 0 then
goto FourLOW
endif
if portb.1 = 0 then
goto TwoHIGH
endif
if portb.2 = 0 then
goto FourHIGH
endif
;++++++++++++++++++++++++++++++++++++++++++++++++++++
;+++++++ Programa para selectora en 4x4 Baja ++++++++
;++++++++++++++++++++++++++++++++++++++++++++++++++++
FourLOW:
if portb.3 = 0 then ; 4 low
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x4 Low"
pause 100
goto Inicio
endif
if portb.4 = 0 then ; 2 high
gosub M4L_izquierda
endif
if portb.5 = 0 then ; 4 high
gosub M4L_izquierda
endif
goto inicio
M4L_derecha:
high portb.7
if portb.3 = 0 then ; 4 low
low portb.7
else
goto M4L_derecha
endif
goto Inicio
M4L_izquierda:
high portb.6
pause 100
high portb.7
if portb.3 = 0 then ; 4 low
low portb.7 : low portb.6
else
goto M4L_izquierda
endif
goto Inicio
;++++++++++++++++++++++++++++++++++++++++++++++++++++
;+++++++ Programa para selectora en 4x2 Alta ++++++++
;++++++++++++++++++++++++++++++++++++++++++++++++++++
TwoHIGH:
if portb.3 = 0 then ; 4 low
gosub M2h_derecha
endif
if portb.4 = 0 then ; 2 high
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x2 High"
pause 100
goto Inicio
endif
if portb.5 = 0 then ; 4 high
gosub M2H_izquierda
endif
goto inicio
M2H_derecha:
high portb.7
if portb.4 = 0 then ; 4 low
low portb.7
else
goto M2H_derecha
endif
goto Inicio
M2H_izquierda:
high portb.6
pause 100
high portb.7
if portb.4 = 0 then ; 4 low
low portb.7 : low portb.6
else
goto M2H_izquierda
endif
goto Inicio
;++++++++++++++++++++++++++++++++++++++++++++++++++++
;+++++++ Programa para selectora en 4x4 Alta ++++++++
;++++++++++++++++++++++++++++++++++++++++++++++++++++
FourHIGH:
if portb.5 = 0 then ; 4 high
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x4 High"
pause 100
goto Inicio
endif
if portb.4 = 0 then ; 2 high
gosub M4H_derecha
endif
if portb.3 = 0 then ; 4 low
gosub M4H_izquierda
endif
goto inicio
M4H_derecha:
high portb.7
if portb.5 = 0 then ; 4 high
low portb.7
else
goto M4H_derecha
endif
goto Inicio
M4H_izquierda:
high portb.6
pause 100
high portb.7
if portb.5 = 0 then ; 4 high
low portb.7 : low portb.6
else
goto M4H_izquierda
endif
goto Inicio
END
;++++++++++++++++++++++++++++++++++++++++++++++++++++
;+++++++++++ Fin del programa +++++++++++
;++++++++++++++++++++++++++++++++++++++++++++++++++++
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x4 High"
pause 100
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x4 Low"
pause 100
lcdout $FE,1
lcdout $FE, linea1," Selectora en "
LCDOUT $FE,$C3, "4x2 High"
pause 100
Page updated
Report abuse