Diggler86

Been meaning to do this for a while. Primarily so I can switch over to a 4th gen console. The indicator is the main reason I had not already (dont like not seeing what gear Im in - or others that drive it).

So far came up with a single chip solution. Been like 10 years since programmed in assembly language but its not too bad to remember. Anyway, Ive still got to do a few things like optimize the code so that the lights are equal, maximize brightness (I think, although I dont want it too bright for night time either), and probably the toughest part integrate with the shifter. Im going to try some reed switches and hall effect switches which are both non-contact and energized by a magnet.

Here's the first shot at the prototype:
http://www.youtube.com/watch?v=S2a5xVFVrcc

I realize its technically O/D-D-2-1, but trying to make an O/D was looking kindof hokie. Plus, anybody else who drives it only cares about being in D, and I drive it in O/D all the time anyway. May also make the 3 & 2 less curly looking gotta try it out.

Any suggestions welcome...

Diggler86

Im loving these hall effect switches. Nice and tiny little size, so should be easier to mount on shifter than oblong reed switch. Also completely solid state, no moving parts like a reed switch. With the small magnet I have it may be just about the right energizing distance. Only drawback is costs just a bit more.

Demo:
http://www.youtube.com/watch?v=QaNi_JuZCe4

cdoyle

This is pretty cool, subscribing to the post.

Can't wait to see it all installed.

Diggler86

Added some transistors to max out the brightness, its really surprisingly bright, which will be nice in sunlight but I think way to much at night. So I also added a night mode which will connect to the dash lights. When the lights are turned on, it will dim the gear indicator display.

http://www.youtube.com/watch?v=_SrEqjjpN5o

92purplehaze

iTrader: (8)

were you the one with the black ta at sonics? crazy setup you got going on here, im sure the finished product will be as bitchin as your car

84 1LE

iTrader: (9)

Ive had an idea like this for some years now, but too lazy to rig something up.Nice work.

Diggler86

yep thats me, thanks..

85_ZED28

Nice work! Can't wait to see the final product. What chip are you programming? I made something similar, only for my 5 speed manual. I programmed in assembly language as well

Diggler86

Using the PIC16F57.. having figured out the paging of the program memory (with subroutines), but luckily so far everything has fit on page 0. i'd probably have to move to an 18F if my code got larger - no pages. but at least for now the 16F is adequate, and quite cheap. Working on the PCB now...

85_ZED28

I'm used an 18F, more than I needed but it was free Are you etching the pcb yourself?

Diggler86

Nope, using Eagle to design it, then sending it to BatchPCB. Ive used the service before and its pretty awesome to receive a professional looking board that you designed yourself. Costs more than say a proto board but I feel its worth it in decreased troubleshooting and board size.

Diggler86

Got around to mounting all the sensors. Sure hope I marked the positions right it will be a PITA to move them. Almost got the whole shifter at the scrap yard but didnt feel like paying for it. Anyway seems to work pretty well. Tough to see the LED in the vid but they are showing correctly.

http://www.youtube.com/watch?v=2pbT5LUs-dY

Diggler86

Received PCB and soldered components. Fits nicely into project case. Just have to make holes and solder in sensors and display. Pic below.

JTB91RS

Awesome work! I can't wait to see it in the car! Is that a PIC18 or PIC16 series that you used? Would you be willing to post the schematic and parts list sometime?

Diggler86

not a problem...

Diggler86

Assembled today.. I probably could have made a board for the display LED, for easier soldering and for mounting. We will see how I can figure out how to mount it. Could still make a board. Now I just have to locate a console!

http://www.youtube.com/watch?v=wwlfndPkgfE

Diggler86

Finally won a console on ebay lol. Luckily enough it was the type with the TCS switch so I used that to create the display area. Glued in the LED behind a piece of red CD case. I think it will look pretty good. Pics attached.

1ADan

iTrader: (4)

definitely subscribing to this one! got a 4th gen manual console and it would definitely would be nice to know what gear I'm in with my auto....

Diggler86

I had to move all the hall sensors down, and therefore stagger one on top and one on bottom to get enough spacing. I also had to cut the magnet in half. Then you have one half on top and one half on bottom. Pic attached. This does not show but also added some hot glue as insulation to cover these bare wires. Thinner stranded wires would have helped.

Youve also got to remove the front right post on the console that hold the top part on. There is just not much room on that side.

Diggler86

And here is the installed video link. Enjoy It was hard to focus the bright LED but I think you can make it out. 1st gear also takes some convincing but for the once every 5 years I use that gear its not worth my trouble to fix it.

I had some flakey performance this morning, with a few LED lines going away. But this afternoon it worked fine. I hadnt run the car in 3-4 weeks so maybe the alternator was giving out junk power. It could probably use more power conditioning stuff. I got a D in power electronics course in college So I will monitor this for a bit and see if I have any more issues. But Im happy with the progress so far! If all is good I will post details.

http://www.youtube.com/watch?v=Uj6IrWcVmtY

Ramair21

iTrader: (3)

great job!

bradley23150

iTrader: (10)

That is seriously cool.

Awesome job!

Zepher

iTrader: (1)

why is your shifter so stiff? when my car was an auto, shifting through the gears was effortless.
otherwise that is pretty sweet.

Diggler86

Dunno Im just used to it. But do need to have trans looked at. Its not kicking down either. Dont buy a Bowtie!

Diggler86

I put in an additional voltage regulator, with capacitors as noted in the spec sheet, and it looks better no more hiccups recently. I'll monitor it for a couple more weeks and if its fine will post back with the circuit and code.

Mental note: read spec sheets!

Diggler86

It's been running just fine lately.

Here is the link to buy the board I designed. I have not tried this exact one, but it is identical except for I did include the two capacitors for the voltage regulator, and cleaned up a few of the traces.
http://www.batchpcb.com/index.php/Products/42592

I'll post the parts list and PIC code when I get home tonight.

Diggler86

Circuit diagram and parts list. You will of course need a means of programming the PIC processor. There are a variety of options on the market.

Diggler86

; CODE



list p=16F57 ; list directive to define processor
#include <p16f5x.inc> ; processor specific variable definitions

__CONFIG _CP_OFF & _WDT_OFF & _HS_OSC

; '__CONFIG' directive is used to embed configuration word within .asm file.
; The lables following the directive are located in the respective .inc file.
; See respective data sheet for additional information on configuration word.




;***** VARIABLE DEFINITIONS
;temp EQU 0x10 ;example variable definition


d1 EQU 0x10
d2 EQU d1+1


;**********************************************************************
ORG 0x7FF ; processor reset vector
errorlevel -306 ; supress page boundary message
goto Start
errorlevel +306 ; enable page boundary message
ORG 0x000


Start


; Initialize ports
movlw 0xFF ;set output to all high
movwf PORTA
movwf PORTB
movlw 0x00 ;set ports A and B to output
tris PORTA
tris PORTB
clrf PORTC ;reset portc
movlw 0xFF ;set port C to input
tris PORTC


; Main Loop
Loop


call BlankA
; bcf STATUS, 2


movlw b'10111111'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Park

; btfss PORTC, 6 ; Test for Park switch
; call Park


movlw b'11011111'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Reverse

; btfss PORTC, 5 ; Test for Reverse switch
; call Reverse


movlw b'11101111'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Neutral

; btfss PORTC, 4 ; Test for Neutral switch
; call Neutral

; btfss PORTC, 3 ; Test for Drive switch
; call Drive

movlw b'11110111'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Drive


movlw b'11111011'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Three

; btfss PORTC, 2 ; Test for Three switch
; call Three

movlw b'11111101'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call Two

; btfss PORTC, 1 ; Test for Two switch
; call Two

movlw b'11111110'
subwf PORTC
btfsc STATUS, 2 ; Test for Two switch
call One

; btfss PORTC, 0 ; Test for One switch
; call One

GOTO Loop


GOTO Start ; Repeat the whole thing.


;--------------------------------------------------------------------------
;Blank
; ;Blank entire display
; movlw 0x00
; movwf PORTB
BlankA
movlw 0x00
movwf PORTA
retlw 0



;---------------------------------------------------------------------------
; Actual delay = 0.001 seconds = 5000 cycles
delay
;4993 cycles
movlw 0xE6
movwf d1
movlw 0x04
movwf d2
goto Delay_0

; Actual delay = 0.002 seconds = 10000 cycles
delay2
;9993 cycles
movlw 0xCE
movwf d1
movlw 0x08
movwf d2

Delay_0
decfsz d1, f
goto $+2
decfsz d2, f
goto Delay_0

;3 cycles
goto $+1
nop

;4 cycles (including call)
retlw 0



;--------------------------------------------------------------------------
Park
;Column 1
call BlankA
movlw b'00000001'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay
call delay
call delay

;Column 2
call BlankA
movlw b'01101110'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'01101110'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'01101110'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'10011110'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0

;--------------------------------------------------------------------------
Reverse
;Column 1
call BlankA
movlw b'00000001'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay
call delay
call delay

;Column 2
call BlankA
movlw b'01101110'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'01100110'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'01101010'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'10011100'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0

;--------------------------------------------------------------------------
Neutral
;Column 1
call BlankA
movlw b'00000001'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay
call delay
call delay

;Column 2
call BlankA
movlw b'11011110'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'11101110'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'11110110'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'00000000'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay
call delay
call delay

retlw 0


;--------------------------------------------------------------------------
Drive
;Column 1
call BlankA
movlw b'00000001'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay
call delay
call delay

;Column 2
call BlankA
movlw b'01111100'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'01111100'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'10111010'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'11000110'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0


;--------------------------------------------------------------------------
Three
;Column 1
call BlankA
movlw b'10111011'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay

;Column 2
call BlankA
movlw b'01111100'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'01101100'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'01101100'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'10010010'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0


;--------------------------------------------------------------------------
Two
;Column 1
call BlankA
movlw b'10111101'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay

;Column 2
call BlankA
movlw b'01111000'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'01110100'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay

;Column 4
call BlankA
movlw b'01101100'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'10011100'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0


;--------------------------------------------------------------------------
One
;Column 1
call BlankA
movlw b'11111111'
movwf PORTB
movlw b'11110000'
movwf PORTA
call delay

;Column 2
call BlankA
movlw b'10111100'
movwf PORTB
movlw b'11111000'
movwf PORTA
call delay

;Column 3
call BlankA
movlw b'00000000'
movwf PORTB
movlw b'11110100'
movwf PORTA
call delay
call delay
call delay

;Column 4
call BlankA
movlw b'11111100'
movwf PORTB
movlw b'11110010'
movwf PORTA
call delay

;Column 5
call BlankA
movlw b'11111110'
movwf PORTB
movlw b'11110001'
movwf PORTA
call delay

retlw 0




END ; directive 'end of program'

Steveh4263

iTrader: (1)

This is so cool. I wish I could have one made for me. They would be to much of a demand for it probably.