Electronic Projects, forums and more.

Go Back   Electronic Circuits Projects Diagrams Free > Electronics Categories > Micro Controllers


Micro Controllers Discuss all aspects of micro controllers - building them, coding them, etc. All controllers are welcome - PIC, BASIC, Z8 Encore!, etc.

Reply
 
Tools
Old 29th May 2007, 07:41 AM   #121
Default

Quote:
Originally Posted by Nigel Goodwin
Try this friend my mine's site http://www.taximania.net/
URL given by Nigel has been changed to http://myweb.tiscali.co.uk/taximania/elecs.html.. Really good stuff
mvadu is offline  
Old 31st May 2007, 06:08 PM   #122
Default

Thanks!! That worked!!

Im using FastLCD to make graphics, but the code format is incorrect. Did you have to manually convert the code or is there an automatic converter you used?
Sputnik is offline  
Old 31st May 2007, 09:16 PM   #123
Default

Quote:
Originally Posted by Sputnik
Thanks!! That worked!!

Im using FastLCD to make graphics, but the code format is incorrect. Did you have to manually convert the code or is there an automatic converter you used?
I used GLCDtodopic (attached) to make the splash screen.

Rgds
Attached Files
File Type: zip GLCD TODOPICEN.zip (14.4 KB, 68 views)
Kiko is offline  
Old 31st May 2007, 11:20 PM   #124
Default

Quote:
Originally Posted by Kiko
I used GLCDtodopic (attached) to make the splash screen.

Rgds
BTW, it has a built in font converter.

Last edited by Kiko; 31st May 2007 at 11:25 PM.
Kiko is offline  
Old 1st June 2007, 06:35 PM   #125
Default

Thank you!!
Sputnik is offline  
Old 18th November 2007, 09:20 PM   #126
Default

I re-created the Gear Position Indicator schematic (see attached) and it works great while on the bench. As soon as I put it on the bike it screwes up the signal coming from the Gear Position Switch to the ECU. It seems like voltage divider drops the voltage required by the ECU. Is there any way around it?

Is there a way to output certain voltage from PIC?

Here is my code:

Code:
Device 16F876A
DEFINE XTAL 20
ALL_DIGITAL=TRUE
DECLARE ADIN_RES 10
DECLARE ADIN_TAD FRC
DECLARE ADIN_STIME 50 
PORTB_PULLUPS True
Dim Result As Word
Dim Total As Float
Dim X As Word
Dim ErrCount As Byte
SYMBOL seg1=PORTC.0
SYMBOL seg2=PORTC.1
SYMBOL seg3=PORTC.2
SYMBOL seg4=PORTC.3
SYMBOL seg5=PORTC.4
SYMBOL seg6=PORTC.5
SYMBOL seg7=PORTC.6
Delayms 500
TRISA=%0000001
ADCON1=%10000000
high PORTC 'Display segment test
Delayms 1000
low PORTC
ErrCount=0

Start:
Result=0
Total=0
X=0
Repeat
        Delayms 1
        Result=ADIN 0
        Result=Result*2
        Total=Total+Result
        Inc X
Until X=20
Total=Total/20
Total=Total*5/1023
'Delayms 10
Select Total
        Case 1.000 to 2.025 '1st gear
                low seg1
                high seg2
                high seg3
                low seg4
                low seg5
                low seg6
                low seg7
                ErrCount=0
        Case 2.026 to 2.700 '2nd gear
                high seg1
                high seg2
                low seg3
                high seg4
                high seg5
                low seg6
                high seg7
                ErrCount=0
        Case 2.701 to 3.329 '3rd gear
                high seg1
                high seg2
                high seg3
                high seg4
                low seg5
                low seg6
                high seg7
                ErrCount=0
        Case 3.330 to 3.700 '4th gear
                low seg1
                high seg2
                high seg3
                low seg4
                low seg5
                high seg6
                high seg7
                ErrCount=0
        Case 3.699 to 4.190 '5th gear
                high seg1
                low seg2
                high seg3
                high seg4
                low seg5
                high seg6
                high seg7
                ErrCount=0
        Case 4.191 to 4.470 '6th gear
                high seg1
                low seg2
                high seg3
                high seg4
                high seg5
                high seg6
                high seg7
                ErrCount=0
        Case 4.471 to 5.500 'Neutral
                high seg1
                high seg2
                high seg3
                high seg4
                high seg5
                high seg6
                low seg7
                ErrCount=0
        Case Else 'ERROR (NO VOLTAGE)
	If ErrCount > 50 Then            				
                        high seg1
                        low seg2
                        low seg3
                        high seg4
                        high seg5
                        high seg6
                        high seg7 
	Else
	           low seg1
                        low seg2
                        low seg3
                        low seg4
                        low seg5
                        low seg6
                        low seg7  
                        Inc ErrCount
	EndIf
        EndSelect
GoTo Start
Attached Thumbnails
Speedometer-schema.jpg  

Last edited by MrSpock; 18th November 2007 at 10:08 PM.
MrSpock is offline  
Old 18th November 2007, 11:44 PM   #127
Default

Quote:
Originally Posted by gramo
Just on that, this GLCD is $19 from www.futurlec.com Part# BLUE128X64LCD



http://www.futurlec.com/LED/BLUE128X64LCD.shtml
For a few dollars more you add Touchscreen also and eliminate buttons.

http://www.circuit-ed.com/128x64-GLC...en-P146C8.aspx

In late December we will also have the same GLCD with true RGB backlight and the Touchscreen built into the back PCB with a single 25-pin (2.54mm) at the top.
wschroeder is offline  
Old 19th November 2007, 03:14 AM   #128
Default

Quote:
Originally Posted by MrSpock
I re-created the Gear Position Indicator schematic (see attached) and it works great while on the bench. As soon as I put it on the bike it screwes up the signal coming from the Gear Position Switch to the ECU. It seems like voltage divider drops the voltage required by the ECU. Is there any way around it?

Is there a way to output certain voltage from PIC?

Here is my code:

Code:
Device 16F876A
DEFINE XTAL 20
ALL_DIGITAL=TRUE
DECLARE ADIN_RES 10
DECLARE ADIN_TAD FRC
DECLARE ADIN_STIME 50 
PORTB_PULLUPS True
Dim Result As Word
Dim Total As Float
Dim X As Word
Dim ErrCount As Byte
SYMBOL seg1=PORTC.0
SYMBOL seg2=PORTC.1
SYMBOL seg3=PORTC.2
SYMBOL seg4=PORTC.3
SYMBOL seg5=PORTC.4
SYMBOL seg6=PORTC.5
SYMBOL seg7=PORTC.6
Delayms 500
TRISA=%0000001
ADCON1=%10000000
high PORTC 'Display segment test
Delayms 1000
low PORTC
ErrCount=0

Start:
Result=0
Total=0
X=0
Repeat
        Delayms 1
        Result=ADIN 0
        Result=Result*2
        Total=Total+Result
        Inc X
Until X=20
Total=Total/20
Total=Total*5/1023
'Delayms 10
Select Total
        Case 1.000 to 2.025 '1st gear
                low seg1
                high seg2
                high seg3
                low seg4
                low seg5
                low seg6
                low seg7
                ErrCount=0
        Case 2.026 to 2.700 '2nd gear
                high seg1
                high seg2
                low seg3
                high seg4
                high seg5
                low seg6
                high seg7
                ErrCount=0
        Case 2.701 to 3.329 '3rd gear
                high seg1
                high seg2
                high seg3
                high seg4
                low seg5
                low seg6
                high seg7
                ErrCount=0
        Case 3.330 to 3.700 '4th gear
                low seg1
                high seg2
                high seg3
                low seg4
                low seg5
                high seg6
                high seg7
                ErrCount=0
        Case 3.699 to 4.190 '5th gear
                high seg1
                low seg2
                high seg3
                high seg4
                low seg5
                high seg6
                high seg7
                ErrCount=0
        Case 4.191 to 4.470 '6th gear
                high seg1
                low seg2
                high seg3
                high seg4
                high seg5
                high seg6
                high seg7
                ErrCount=0
        Case 4.471 to 5.500 'Neutral
                high seg1
                high seg2
                high seg3
                high seg4
                high seg5
                high seg6
                low seg7
                ErrCount=0
        Case Else 'ERROR (NO VOLTAGE)
	If ErrCount > 50 Then            				
                        high seg1
                        low seg2
                        low seg3
                        high seg4
                        high seg5
                        high seg6
                        high seg7 
	Else
	           low seg1
                        low seg2
                        low seg3
                        low seg4
                        low seg5
                        low seg6
                        low seg7  
                        Inc ErrCount
	EndIf
        EndSelect
GoTo Start
Try to change the 10K resistor (R2) in the circuit you have attached for a 100NF capacitor.
Kiko is offline  
Old 19th November 2007, 08:38 AM   #129
Default

Quote:
Originally Posted by Kiko
Try to change the 10K resistor (R2) in the circuit you have attached for a 100NF capacitor.
Nope. Doesn't work. The divider won't make 1/2 ot the input voltage...
MrSpock is offline  
Old 19th November 2007, 02:53 PM   #130
Default spedometer

i whant make speedometer with distance meter any body have sechmatec and mcu softwaer
tahirmaqsood20 is offline  
Old 22nd November 2007, 04:48 AM   #131
Default

Hi people,

first of all, congratulations for this great forum,
second, sorry for my bad english....

I have a Suzuki gsxr 750 from 1996 that has the GPS sensor and i've found the correct wire.

Now i am trying to use tho code made by KIKO and GRAMO:

Quote:
Device 16F877A
declare xtal 20

Config XT_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , CPD_OFF, CP_OFF , DEBUG_OFF

Declare LCD_TYPE 0
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
Declare LCD_RSPIN PORTB.2
Declare LCD_INTERFACE 4
Declare LCD_LINES 2

Dim KMH As Float
Dim Temp_Float As Float
Dim KMHT As DWord
Dim KMH_Last As DWord

Dim Result As Word
Dim Total As Float
Dim Last_Result As Float
Dim X As Byte

Symbol _1_Min = 1.243
Symbol _1_Max = 2.355

Symbol _2_Min = 2.356
Symbol _2_Max = 3.194

Symbol _3_Min = 3.195
Symbol _3_Max = 3.709

Symbol _4_Min = 3.710
Symbol _4_Max = 4.307

Symbol _5_Min = 4.308
Symbol _5_Max = 4.674

Symbol _6_Min = 4.675
Symbol _6_Max = 4.810

Symbol _N_Min = 4.811
Symbol _N_Max = 5.245

TRISC.0 = 1

DelayMS 1000
Cls

Print At 1,5, "KM/Hr"
KMHT = 0

TRISA.0 = 1
ADCON1 = %10000000 ' Set analogue input, Vref is Vdd

Start:

Result = 0
Total = 0
X = 0

Repeat

Result = ADIN 0
Result = Result * 2
Total = Total + Result

Inc X

Until X = 15

Total = Total / 15

Total = Total * 5 / 1023

Select Total
Case _1_Min To _1_Max
Print At 2, 1, "1st Gear ", DEC3 Total, "V"
Case _2_Min To _2_Max
Print At 2, 1, "2nd Gear ", DEC3 Total, "V"
Case _3_Min To _3_Max
Print At 2, 1, "3rd Gear ", DEC3 Total, "V"
Case _4_Min To _4_Max
Print At 2, 1, "4th Gear ", DEC3 Total, "V"
Case _5_Min To _5_Max
Print At 2, 1, "5th Gear ", DEC3 Total, "V"
Case _6_Min To _6_Max
Print At 2, 1, "6th Gear ", DEC3 Total, "V"
Case _N_Min To _N_Max
Print At 2, 1, "Neutral ", DEC3 Total, "V"
Case Else
Print At 2, 1, "Unknown ", DEC3 Total, "V"
EndSelect

KMHT = Counter PORTC.0, 250

If KMHT = 0 Then Goto Display

Temp_Float = KMHT
Temp_Float = Temp_Float * 4 * 7.2
KMH = Temp_Float / 1000
KMHT = KMH

Display:

If KMH_Last <> KMHT Then
Print At 1, 1, DEC3 KMHT
KMH_Last = KMHT
EndIf

GoTo Start
and i am using the same schematic of http://w.box.net/public/npssr2ijfj (gramo)

I've tested in Proteus and it seems to work ok, but i cant makt it work in proteus with a external xtal of 20Mhz.

I am not using the LM LCD.... I am using a "POWERTIP pc1602F B" and the best tadasheet that i've found from it is http://w.cec-mc.ru/comp/lcd/powertip...U-FWA-H-YV.pdf

Does this lcd work with "our" schematic?

I cant get the circuit working....

Can sameone give me a help?

Thanks.

Edit..... I've read some things about this and the problem is that this lcd has not an "interpretator" (i think) it is form HD44780 family..... can anyone please help to use it with Gramo's schematic (video)?

Last edited by NOKIAS; 23rd November 2007 at 04:34 AM.
NOKIAS is offline  
Old 29th November 2007, 06:33 PM   #132
Default speedometer

i whant make a speedometer with 89c2051 plz any body send me code
Attached Thumbnails
Speedometer-hud.gif  
tahirmaqsood20 is offline  
Reply

Tags
speedometer

Thread Tools
Display Modes


Similar
Title Starter Forum Replies Latest
digital speedometer using AT90S2313 fever Micro Controllers 57 29th January 2008 07:45 PM
Speedometer Project Help ADAM117 Electronic Projects Design/Ideas/Reviews 2 8th December 2006 06:00 PM
Pulse divider for a Speedometer spestis Electronic Projects Design/Ideas/Reviews 3 25th July 2006 03:17 AM
Tachometer and Speedometer replies Kiko Micro Controllers 0 26th April 2004 01:57 AM
Electronic Speedometer using stepper motor roryp General Electronics Chat 6 10th April 2003 01:06 PM



All times are GMT. The time now is 11:52 AM.


Electronic Circuits  |  Learning Electronics
eXTReMe Tracker