TheGameCreators - CodeBase - Speedometer/tachometer demo

Category: Basic 3D

Version: 1.0

Information

Uploaded: 10th Aug 2009 20:22

Modified: 23rd Oct 2009 22:42

Author: Visigoth

Summary

simple 3d speedometer and tachometer demo. Tweakable for different transmission gear ratios, final drive ratios, and tire sizes. Works for motorcycles with primary reduction, or cars.

Full Description

eventually, this will be my dashboard for my motorcycle sim. I think I will make a custom data type instead of all the globals, and add an engine on/off and idle feature. It is actually very close to the real performance of the ST1300 I own, except for maybe the timing of the accelleration...still have to tweak that.<br /> Requires a simple .x file, included.<br />

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Project: stdash, by Visigoth

REM simple tachometer and speedometer demo

REM free to use or modify, credit please :)

REM Created: 8/10/2009

REM

REM ***** Main Source File *****

REM

autocam off

set display mode 800,600,32

sync on

sync rate 60

position camera 10,25,0

point camera 10,0,0

//data is for 2005 Honda ST1300 motorcycle

global gear_0# = 0.0    //neutral

global gear_1# = 2.5714  //1st gear ratio

global gear_2# = 1.7222  //2nd gear ratio

global gear_3# = 1.2857  //3rd gear ratio, etc.

global gear_4# = 1.0416

global gear_5# = 0.8621

global gear_reduction# = 1.7857 //amount engine rpm is reduced before transmission

global wheel_circum# = 6.5532

global final_drive# = 2.833

global cur_gear = 0        //what gear we are in

global gear_val# = 0       //holds current gear ratio

global mph# = 0            // keep track of speed, in mph

global rpm# = 0            // keep track of rpm

global inc_rpm# = 200.0     // how fast we can rev the engine

global dec_rpm# = 150.0     // how fast the engine slows back down

global tach_offset_angle# = 0.0  // base position of tach pointer

global max_tach_circ# = 245.0    // maximum range of rotation of tach pointer

global max_rpm# = 10500.0        // maximum rpm range of engine

global tach_ang# = 0.0           // current angle of tach pointer rotation

global mph_offset_angle# = 40.0   // same as tach, but for speedo

global max_mph_circ# = 300.0     // same as tach, but for speedo

global max_mph# = 180.0          // same as tach, but for speedo

global mph_ang# = 0.0            // same as tach, but for speedo

load object "pointer.x",1 //tach

clone object 2,1  // speedo

position object 2,20,0,0

/////////////////////////////////////////////////

display_text()

rotate_pointer(1,2)

keypressedup = change_gear_up(keypressedup)

keypresseddn = change_gear_dn(keypresseddn)

sync

loop

////////////////////////////////////////////////

function display_text()

text 10,10,"RPM : " + str$(rpm#)  //10,000 rpm max

text 10,20,"MPH : " + str$(mph#)

text 10,30,"Current Gear : " + str$(cur_gear)

text 10,40,"Current Gear ratio : " + str$(gear_val#)

text 10,50,"Keyboard 1 for throttle"

text 10,60,"Keyboard 2 for gear up"

text 10,70,"keyboard 3 for gear down"

text 10,80,"Tacho/speedo demo by Visigoth"

endfunction

function rotate_pointer(id1,id2)

if keystate(2) = 1

inc rpm#,inc_rpm#

tach_ang# = ((rpm# / max_rpm#) * max_tach_circ#) + tach_offset_angle#

mph# = calc_mph(rpm#,gear_reduction#,wheel_circum#,gear_val#,final_drive#)

mph_ang# = ((mph# / max_mph#) * max_mph_circ#) + mph_offset_angle#

yrotate object id1,(tach_ang#)  //tach

yrotate object id2,(mph_ang#)   //speedo

if rpm# > max_rpm# //rev limiter

rpm# = max_rpm# - 500.0

endif

if keystate(2) = 0

dec rpm#,dec_rpm#

if rpm# <= 0.0

rpm# = 0.0

endif

tach_ang# = ((rpm# / max_rpm#) * max_tach_circ#) + tach_offset_angle#

mph# = calc_mph(rpm#,gear_reduction#,wheel_circum#,gear_val#,final_drive#)

mph_ang# = ((mph# / max_mph#) * max_mph_circ#) + mph_offset_angle#

yrotate object id1,(tach_ang#)  //tach

yrotate object id2,(mph_ang#)   //speedo

endif

endfunction

function change_gear_up(keypressedup)

if keystate(3) = 1 and keypressedup = 0

keypressedup = 1

inc cur_gear,1

if cur_gear = 6

cur_gear = 5

endif

gear_val(cur_gear)

rpm# = calc_rpm(mph#,gear_reduction#,wheel_circum#,gear_val#,final_drive#)

endif

if keystate(3) = 0

keypressedup = 0

endif

endfunction keypressedup

function change_gear_dn(keypresseddn)

if keystate(4) = 1 and keypresseddn = 0

keypresseddn = 1

dec cur_gear,1

if cur_gear < 0

cur_gear = 0

endif

gear_val(cur_gear)

rpm# = calc_rpm(mph#,gear_reduction#,wheel_circum#,gear_val#,final_drive#)

endif

if keystate(4) = 0

keypresseddn = 0

endif

endfunction keypresseddn

function gear_val(cur_gear)

select cur_gear

case 0

gear_val# = gear_0#

inc_rpm# = 200.0 //change these values for how fast to accellerate in each gear

dec_rpm# = 150.0

endcase

case 1

gear_val# = gear_1#

inc_rpm# = 80.0

dec_rpm# = 20.0

endcase

case 2

gear_val# = gear_2#

inc_rpm# = 50.0

dec_rpm# = 30.0

endcase

case 3

gear_val# = gear_3#

inc_rpm# = 30.0

dec_rpm# = 10.0

endcase

case 4

gear_val# = gear_4#

inc_rpm# = 25.0

dec_rpm# = 10.0

endcase

case 5

gear_val# = gear_5#

inc_rpm# = 10.0

dec_rpm# = 5.0

endcase

endselect

endfunction

function calc_mph(in_rpm#,reduction#,circ#,gear#,f_gear#)

result# = ((in_rpm# / reduction#) * circ#) / ((gear# * f_gear#) * 88.0)

endfunction result#

function calc_rpm(in_mph#,reduction#,circ#,gear#,f_gear#)

result# = ((in_mph# * gear# * f_gear# * 88.0) / circ#) * reduction#

endfunction result#

Download

Please login to download

Comments

No comments yet.

Author Name:	Visigoth
CodeBase Entries:	18

CodeBase - Speedometer/tachometer demo

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments