#Region Project Attributes
#ApplicationLabel: ContinuableCircleCountDownView
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private cccdv1 As ContinuableCircleCountDownView
Private cccdv2 As ContinuableCircleCountDownView
Private cccdv3 As ContinuableCircleCountDownView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("main")
cccdv1.INNER_COLOR = Colors.Green
cccdv1.OUTER_COLOR = Colors.Blue
cccdv1.PROGRESS_COLOR = Colors.Yellow
cccdv1.TEXT_COLOR = Colors.Black
cccdv1.Timer_1 = 120000
cccdv1.startFrom(0, True)
cccdv1.RATE = 15
cccdv1.TextSize = 20
cccdv1.start
cccdv2.INNER_COLOR = Colors.Yellow
cccdv2.OUTER_COLOR = Colors.Green
cccdv2.PROGRESS_COLOR = Colors.Blue
cccdv2.TEXT_COLOR = Colors.Red
cccdv2.Timer_1 = 60000
cccdv2.startFrom(0, True)
cccdv2.RATE = 10
cccdv2.TextSize = 25
cccdv2.start
cccdv3.INNER_COLOR = Colors.Blue
cccdv3.OUTER_COLOR = Colors.Yellow
cccdv3.PROGRESS_COLOR = Colors.Green
cccdv3.TEXT_COLOR = Colors.White
cccdv3.Timer_1 = 180000
cccdv3.startFrom(0, True)
cccdv3.RATE = 6
cccdv3.TextSize = 15
cccdv3.start
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub cccdv1_tick(ticks As Long)
Log("cccdv1 " & ticks)
End Sub
Sub cccdv1_completed
Log("cccdv1 COMPLETED")
End Sub
Sub cccdv2_tick(ticks As Long)
Log("cccdv2 " & ticks)
End Sub
Sub cccdv2_completed
Log("cccdv2 COMPLETED")
End Sub
Sub cccdv3_tick(ticks As Long)
Log("cccdv3 " & ticks)
End Sub
Sub cccdv3_completed
Log("cccdv3 COMPLETED")
End Sub
