Countdown Timer based on System Clock

Author

Message

ShinyBug

9

Years of Service

User Offline

Joined: 9th Jan 2015

Location: United States

Posted: 9th Jan 2015 23:13

Link

Hey everyone. My mail goal is to be able to create a timer to countdown hours/minutes/seconds based on the system clock AND to have the app save the values of the initial time and the timer to check if the timer finished its countdown while the app was closed.

Basically, I want to start a timer in-game, save all the values, close the game, reopen the game, load values and check if the timer has finished.

I've been trying to solve this problem for days now and I cant even figure out how to even start coding it. I feel like its possible, but I just cant wrap my head around the coding logic just yet.

Any advice?

Back to top

Profile PM Email

JimHawkins

15

Years of Service

User Offline

Joined: 26th Jul 2009

Location: Hull - UK

Posted: 10th Jan 2015 10:25

Link

You would need to make a shared service. That's not possible with AGK.

Onwards and sometimes upwards

Back to top

Profile PM Website

Ched80

14

Years of Service

User Offline

Joined: 18th Sep 2010

Location: Peterborough, UK

Posted: 10th Jan 2015 12:48

Link

You could use "GetCurrentDate()" and "GetCurrentTime()", store these to a local file when the timer starts and then calculate the difference between the saved values and the new values to see if the timer has finished.

Back to top

Profile PM Email

ShinyBug

9

Years of Service

User Offline

Joined: 9th Jan 2015

Location: United States

Posted: 25th Jan 2015 23:27

Link

Ok Thanks guys. I've been pecking at it but theres a strange output where the "getCurrentTime()" stops returning values after about 8 seconds. Im sure its an optimization problem. I think I'll just step away from it for a while and clear my head on it. I'll post the code in case anyone is curious. I set it up to load the last saved time and to display the current time and save it to file on mouse input.

Setvirtualresolution(640,480)
SetPrintSize(25)

Type Time_Info
	iTimerID as Integer
	iDay as Integer
	iMonth as Integer
	iYear as Integer
	iHour as Integer
	iMinute as Integer
	iSecond as Integer
	EndType

Do
	gosub _LoadClock
	CreateText(1,str(Clock.iSecond))
	SetTextPosition(1,50,50)
	SetTextSize(1,20)
	
	if ( GetPointerPressed ( ) = 1 )
        gosub _SetClock
        
    endif
	Print(str(Clock.iHour)+":"+str(Clock.iMinute)+":"+str(Clock.iSecond))

Sync()
Loop

_SetClock:
	result$=GetCurrentDate()
	result2$=GetCurrentTime()
	Clock as Time_Info
	ClockFileName as String
	ClockFileName = "Clock.txt"
	Clock.iTimerID = 1
	Clock.iDay = Val(Mid(result$,9,2))
	Clock.iMonth= Val(Mid(result$,6,2))
	Clock.iYear = Val(Mid(result$,1,4))
	Clock.iHour = Val(Mid(result2$,1,2))
	Clock.iMinute = Val(Mid(result2$,4,2))
	Clock.iSecond = Val(Mid(result2$,7,2))
	WriteClock = OpenToWrite(ClockFileName)
	WriteInteger(WriteClock,Clock.iTimerID)
	WriteInteger(WriteClock,Clock.iDay)
	WriteInteger(WriteClock,Clock.iMonth)
	WriteInteger(WriteClock,Clock.iYear)
	WriteInteger(WriteClock,Clock.iHour)
	WriteInteger(WriteClock,Clock.iMinute)
	WriteInteger(WriteClock,Clock.iSecond)
	CloseFile(WriteClock)	
	return

_LoadClock:
	ClockFileName = "Clock.txt"
	ReadClock = OpenToRead(ClockFileName)
	Clock.iTimerID = ReadInteger(ReadClock)
	Clock.iDay = ReadInteger(ReadClock)
	Clock.iMonth = ReadInteger(ReadClock)
	Clock.iYear = ReadInteger(ReadClock)
	Clock.iHour = ReadInteger(ReadClock)
	Clock.iMinute = ReadInteger(ReadClock)
	Clock.iSecond = ReadInteger(ReadClock)
	Return

+ Code Snippet

Setvirtualresolution(640,480)
SetPrintSize(25)


Type Time_Info
	iTimerID as Integer
	iDay as Integer
	iMonth as Integer
	iYear as Integer
	iHour as Integer
	iMinute as Integer
	iSecond as Integer
	EndType

Do
	gosub _LoadClock
	CreateText(1,str(Clock.iSecond))
	SetTextPosition(1,50,50)
	SetTextSize(1,20)
	
	if ( GetPointerPressed ( ) = 1 )
        gosub _SetClock
        
    endif
	Print(str(Clock.iHour)+":"+str(Clock.iMinute)+":"+str(Clock.iSecond))

	Sync()
Loop

_SetClock:
	result$=GetCurrentDate()
	result2$=GetCurrentTime()
	Clock as Time_Info
	ClockFileName as String
	ClockFileName = "Clock.txt"
	Clock.iTimerID = 1
	Clock.iDay = Val(Mid(result$,9,2))
	Clock.iMonth= Val(Mid(result$,6,2))
	Clock.iYear = Val(Mid(result$,1,4))
	Clock.iHour = Val(Mid(result2$,1,2))
	Clock.iMinute = Val(Mid(result2$,4,2))
	Clock.iSecond = Val(Mid(result2$,7,2))
	WriteClock = OpenToWrite(ClockFileName)
	WriteInteger(WriteClock,Clock.iTimerID)
	WriteInteger(WriteClock,Clock.iDay)
	WriteInteger(WriteClock,Clock.iMonth)
	WriteInteger(WriteClock,Clock.iYear)
	WriteInteger(WriteClock,Clock.iHour)
	WriteInteger(WriteClock,Clock.iMinute)
	WriteInteger(WriteClock,Clock.iSecond)
	CloseFile(WriteClock)	
	return

_LoadClock:
	ClockFileName = "Clock.txt"
	ReadClock = OpenToRead(ClockFileName)
	Clock.iTimerID = ReadInteger(ReadClock)
	Clock.iDay = ReadInteger(ReadClock)
	Clock.iMonth = ReadInteger(ReadClock)
	Clock.iYear = ReadInteger(ReadClock)
	Clock.iHour = ReadInteger(ReadClock)
	Clock.iMinute = ReadInteger(ReadClock)
	Clock.iSecond = ReadInteger(ReadClock)
	Return

Back to top

Profile PM Email

Tone Dialer

Valued Member

19

Years of Service

User Offline

Joined: 17th Oct 2005

Location: England, well a town in it !

Posted: 26th Jan 2015 08:39 Edited at: 26th Jan 2015 08:40

Link

@ShinyBug

I wanted to do something similar, but I would recommend using UNIX time/date as GetUnixFromDate() gives access to year, month, days, hours, minutes, seconds. Calculating the difference in time between the two is easier. Also I would not use GoSub/Return.

I wrote an example in the AppGameKit help files that you may find useful.

http://www.appgamekit.com/documentation/Reference/File/GetFileExists.htm

// Project: forever time
// Created: 2015-01-17

Setvirtualresolution(640,480)
ResetTimer()

// Check if file exists, if it does then read the stored UNIX time value,
// if not, create it and store current UNIX time/date in the file.

If GetFileExists(\"__timer__\")
        id=OpenToRead(\"__timer__\")
        oldtime=ReadInteger(id)
        CloseFile(Id)

Else
        date$=GetCurrentDate()
        time$=GetCurrentTime()

unix=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))

id=OpenToWrite(\"__timer__\")
        WriteInteger(id,unix)
        CloseFile(id)
        oldtime=unix
        
EndIf

do              
        date$=GetCurrentDate()
        time$=GetCurrentTime()

nowtime=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
        
        test=nowtime-oldtime

sec=Mod(test,60)
        test=Floor(test/60)
        min=Mod(test,60)
        test=Floor(test/60)
        hour=Mod(test,60)

Print(Str(hour)+\" Hour \"+Str(min)+\" Min \"+Str(sec)+\" Sec\")
        Print(\"Since this app was first started\")
        
        Sync()
        
        If Timer()>15 Then Exit
                
Loop

//To delete the timer file, uncomment the following line
//DeleteFile(\"__timer__\")

End

+ Code Snippet

// Project: forever time
// Created: 2015-01-17

Setvirtualresolution(640,480)
ResetTimer()

// Check if file exists, if it does then read the stored UNIX time value,
// if not, create it and store current UNIX time/date in the file.

If GetFileExists(\"__timer__\")
        id=OpenToRead(\"__timer__\")
        oldtime=ReadInteger(id)
        CloseFile(Id)

Else
        date$=GetCurrentDate()
        time$=GetCurrentTime()

        unix=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))

        id=OpenToWrite(\"__timer__\")
        WriteInteger(id,unix)
        CloseFile(id)
        oldtime=unix
        
EndIf

do              
        date$=GetCurrentDate()
        time$=GetCurrentTime()

        nowtime=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
        
        test=nowtime-oldtime

        sec=Mod(test,60)
        test=Floor(test/60)
        min=Mod(test,60)
        test=Floor(test/60)
        hour=Mod(test,60)

        Print(Str(hour)+\" Hour \"+Str(min)+\" Min \"+Str(sec)+\" Sec\")
        Print(\"Since this app was first started\")
        
        Sync()
        
        If Timer()>15 Then Exit
                
Loop

//To delete the timer file, uncomment the following line
//DeleteFile(\"__timer__\")

End

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Countdown Timer based on System Clock