iOS Tutorial T3 - The Timer Tutorial

Discussion in 'iOS Tutorials' started by Mark Turney, Mar 26, 2015.

  1. Mark Turney

    Mark Turney Active Member Licensed User

    During the creation of Callosum, I used 7 different timer for everything from level transitions to the level countdown and overall count up timers.

    Here's a simple summary of the steps to create and use a timer:

    1) Declare the timer in Sub Process_Globals (Private timer1 as timer).
    2) Initialize the timer with the time in ms you want for the "tick" in Private Sub Application_Start. In the case of a countdown timer, I set it to 1000, which is 1 second (timer1.Initialize("Timer1", 1000)).
    3) Enable / Disable the timer when you want it to run / turn off respectively - this is done throughout the app as needed (timer1.enabled = true (or false for off)).
    4) Whatever code is in the timer_tick subroutine runs only while the timer is enabled and at the interval of the tick ... in the case of the timer1 example, 1 sec (1000 ms).

    Here's code for a level countdown timer:
    Sub Timer1_Tick                                                    'Game timer
       timeCnt = timeCnt - 1                                                    'Countdown 1s for each tick
       pcScore.Text = timeCnt                                                  'Display the countdown as a label
       If timeCnt = 0 Then                                                        'When countdown hits 0, turn off this and overall count up timers, plus some other stuff for my app ;-)
    Msgbox2("Try""""L E V E L " & levelcnt & " not completed! Would you like to try again?"Array("Yes""No"))
    'levelcnt = 0 'score = 0
           timeCnt = 240 - ((levelcnt-1) * 20)
           timer1.Enabled = 
           timer7.Enabled = 
           totScore.TextColor = 
    End If
    End Sub
    Once the user proceeds to the next level, I set timer1.enabled = true, and overall timer text color to a dark green totScore.TextColor = Colors.RGB(0,100,0). Note the overall timer (7) is a dark red (100,0,0) in the code above while it is stopped.

    Hope this helps!
    Last edited: Mar 28, 2015
    carchek and Erel like this.
  2. carchek

    carchek Member Licensed User

    What do you build messagebox with?
  3. Mark Turney

    Mark Turney Active Member Licensed User

    You mean for instance where it say Msgbox2 ("Try ..... ?

    Here is the code for the "Try" subroutine:
    Sub Try_click(ButtonText As String)                                'Try over subroutine
        If ButtonText = "Yes" Then
            score = levelcnt
            timeCnt = 
    240 - ((levelcnt-1) * 30)
            C = 3
            timer4.Enabled = 
    'tm.ToastMessageShow("Good luck next time!", True)
            timer1.Enabled = False
    End If
    End Sub
    Hope this helps!
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice