How to make a special clock

[Doxie]

Hi,

Is it hard/possible to make a clock that got 4 days within 24 hours?

If i got a clock that need to go 4x the speed as a normal clock, and also

the ability to convert normal time to the faster time.

For example:

Day: 0 - Time: 00:00 = 5th March - 15:00 (realtime)

Day: 0 - Time: 04:00 = 5th March - 16:00

Day: 1 - Time: 00:00 = 5th March - 21:00

etc

So if i enter Day: 5 Time: 16:00 the program would tell me what realtime that is.

And also if i enter realtime it would convert to faster time.

Would appriciate if you could give me some advice how to do this.

Thanks in advance

Edited March 5, 2008 by Doxie

[Monamo]

Hi,

Is it hard/possible to make a clock that got 4 days within 24 hours?

If i got a clock that need to go 4x the speed as a normal clock, and also

the ability to convert normal time to the faster time.

For example:

Day: 0 - Time: 00:00 = 5th March - 15:00 (realtime)

Day: 0 - Time: 04:00 = 5th March - 16:00

Day: 1 - Time: 00:00 = 5th March - 21:00

etc

So if i enter Day: 5 Time: 16:00 the program would tell me what realtime that is.

And also if i enter realtime it would convert to faster time.

Would appriciate if you could give me some advice how to do this.

Thanks in advance

Well, the basic underlying factor is the 4x speed. What I'd do is take my base time (real time, whatever) and break it down into seconds, then multiply the seconds by 4 to track the total number of "Fast seconds" that would have progressed. Then I'd just parse the "Fast seconds" down to determine the "Fast time" reading.

Here's a simple bit to demonstrate the conversion(s). Hopefully it's of some use to you in getting started (example results are written to the console):

CODE

Const $sec = 1

Const $min = 60

Const $hour = 60

Const $day = 24

Const $SecondsPerDay = $sec * $min * $hour * $day

$startSec = "00"

$startMin = "00"

$startHour = "00"

$startDay = "00"

;~ $baseSec = @SEC

;~ $baseMin = @MIN

;~ $baseHour = @HOUR

$baseSec = 00

$baseMin = 00

$baseHour = 06

$fastSec = $baseSec

$fastSec += $baseMin * $min * $sec

$fastSec += $baseHour * $hour * $min * $sec

$fastSec *= 4

_TimeCleanup($fastSec)

Func _TimeCleanup($iSec)

$iMin = 0

$iHour = 0

$iDay = 0

If $iSec >= $min Then

Do

$iSec -= $min

$iMin += 1

Until $iSec < $min

If StringLen($iSec) =1 Then $iSec = "0" &$iSec

EndIf

If $iMin >= $hour Then

Do

$iMin -= $hour

$iHour += 1

Until $iMin < $hour

If StringLen($iMin) =1 Then $iMin = "0" &$iMin

EndIf

If $iHour >= $day Then

Do

$iHour -= $day

$iDay += 1

Until $iHour < $day

If StringLen($iHour) =1 Then $iHour = "0" &$iHour

EndIf

If StringLen($iDay) =1 Then $iDay = "0" &$iDay

ConsoleWrite("Day: " & $iDay & @CRLF)

ConsoleWrite("Hour: " & $iHour & @CRLF)

ConsoleWrite("Minute: " & $iMin & @CRLF)

ConsoleWrite("Second: " & $iSec & @CRLF)

EndFunc ;==>_TimeCleanup