Chronometre

[manu62300]

I seek an example for to post with the screen a chronometre with the real time ...
It can be is necessary to be useful of DSLua.Hour() or DSLua.VBlankCount() etc... for to catch a real time and made Countdown visible with the screen .
I will test like this but if somebody has an existing example that it lets it to me know .

Or i put this but it s very speed

Code:

t = 0

while true do
t = t + 1
BGBotText:PrintXY( 0,1, "Time :" .. t )
end

Thanks...

[Jeremysr]

On the DS there's exactly 60 VBlanks in a second (60 VBlanks = 1 second). So try this code:

Code:

t = 0

while true do
t = t + 1
BGBotText:PrintXY( 0,1, "Time :" .. t )
for wait = 1, 60 do Screen.WaitForVBL() end
end

[manu62300]

Yep a good exemple for chronometre :

Code:

SCREEN_BOTTOM   = 0
BGBotText = Screen.LoadTextBG()
Screen.Initialize( SCREEN_BOTTOM, BGBotText )

s = 0
d = 0
m = 0
t = 0

while true do
s = s + 1
for wait = 1, 60 do Screen.WaitForVBL() end
if s > 9 then d = d + 1 s = 0 end
if d > 5 then m = m + 1 d = 0 end
if m > 9 then t = t + 1 m = 0 end
BGBotText:PrintXY( 3,1, ""..t )
BGBotText:PrintXY( 4,1, ""..m )
BGBotText:PrintXY( 5,1, ":" )
BGBotText:PrintXY( 6,1, ""..d )
BGBotText:PrintXY( 7,1, ""..s )
end

When i put this code ,my movement sprite is slows down 

[manu62300]

New idea :

Code:

SCREEN_BOTTOM   = 0
BGBotText = Screen.LoadTextBG()
Screen.Initialize( SCREEN_BOTTOM, BGBotText )

mon_compteur = 0;

while true do
      mon_compteur = mon_compteur + 1;
      secondes = mon_compteur/59.8;
      BGBotText:PrintXY( 7,2, ""..secondes )         -- my real seconde --
      BGBotText:PrintXY( 7,3, ""..DSLua.Sec() )      -- for verify --
      Screen.WaitForVBL()
end

Good synchronisation ,now my secondes are with decimals ex : x,xxxxxxxxx secondes ,I will not a decimal in my chrono  how to make a whole number?

[manu62300]

and this :

Code:

SCREEN_BOTTOM   = 0
BGBotText = Screen.LoadTextBG()
Screen.Initialize( SCREEN_BOTTOM, BGBotText )

Timer = DSLua

function Timer.Do()
      mon_compteur = mon_compteur + 1
      secondes = mon_compteur/59.8
      Screen.WaitForVBL()
end

mon_compteur = 0
t = 0

while true do
t = t + 1
BGBotText:PrintXY( 0,1, "Time :" .. t )
for wait = 1, 60 do Timer.Do() end
end