Hello, I need all your help. please Test these code and tell me what appears in the screen
and what is your processor speed and your RAM memory??
Thanks a lot!!!!
for DB pro:
dim lastTime()
dim gamespeed#()
sync on
sync rate 30
do
rem main loop here
gamespeed()
cls
Text 0,0,"Vel= "+Str$(gameSpeed#())
sync
loop
function gameSpeed()
time=timer()
gameSpeed#()=time-lastTime()
lastTime()=time
endfunction
For DB classic
dim lastTime(1)
dim gamespeed#(1)
`sync on
`sync rate 30
do
cls
set cursor 0,0
rem main loop here
gamespeed()
print "Vel= ";Str$(gameSpeed#(1))
`sync
loop
function gameSpeed()
time=timer()
gameSpeed#(1)=time-lastTime(1)
lastTime(1)=time
endfunction