5 replies to this topic

[Steve Paradis]

Does anyone has the time to make me a sub that can format time (min:sec) properly?

I actually just use a timer to calculate the time :


Dim incrementTime
incrementTime=120

sub myTimer_expired()
if incrementTime>0
incrementTime=incrementTime-1
TimeDisplay.Text=incrementTime
myTimer.Set true ,1000
end sub

but what I'd like to show is : 01:25 (0 before first digit included)

Thx!


Steve

[ruckage]

Hi Steve,

Shouldn't be a problem, I can do that for you if you like.

[Steve Paradis]

Hi Steve,

Shouldn't be a problem, I can do that for you if you like.

send t to me when done

[Steve Paradis]

got your message ruckage but there is an important part of the time formating who is missing
and that's mostly the part I don't know how to implement. the semiColon ":" that separate minutes from seconds
that's is why It need to be a 5digits segment.

---------------------------------------------------------------------------
Dim incrementTime
Dim timeformat

incrementTime=65


sub myTimer_expired()

if incrementTime>0 then
incrementTime=incrementTime-1

timeformat=""

if incrementTime<600 then timeformat=timeformat&"0" end if
timeformat=timeformat&cstr(int(incrementTime/60))
'timeformat=timeformat&"."
if incrementTime mod 60<10 then timeformat=timeformat&"0" end if
timeformat=timeformat&cstr(incrementTime mod 60)

TimeDisplay.Text=timeformat
myTimer.Set true ,1000
end if

end sub

[ruckage]

Unfortunately it isn't possible to display a semicolon on a gas segment display. The options are to either use a dmd instead or we can fake it.
First of all we need a 5 segment display and change the line of code that inserts a "." to instead insert a space " "

CODE

Dim incrementTime
Dim timeformat

incrementTime=65


sub myTimer_expired()

if incrementTime>0 then
incrementTime=incrementTime-1

timeformat=""

if incrementTime<600 then timeformat=timeformat&"0" end if
timeformat=timeformat&cstr(int(incrementTime/60))
timeformat=timeformat&" " 'Now inserting a space instead of a "."
if incrementTime mod 60<10 then timeformat=timeformat&"0" end if
timeformat=timeformat&cstr(incrementTime mod 60)

TimeDisplay.Text=timeformat
myTimer.Set true ,1000
end if

end sub

[pinballwizard02]

I made a demo table that has a hurry up function and display to "count down" until it reaches zero or you get the ball in a kicker. I used only three timers for it. (One for the hurry up, the others for the kicker). Are you using the displays for a hurry up function?

Edited by pinballwizard02, 20 July 2010 - 08:29 AM.