Sub Process_Globals
Dim counter As Int
Dim timer As Timer
End Sub
Sub Service_Create
counter = 10
timer.Initialize("timer",1000)
End Sub
Sub Service_Start (StartingIntent As Intent)
timer2.Enabled = True
StartServiceAt("", DateTime.Now + counter * DateTime.TicksPerSecond, True)
End If
End Sub
Sub Service_Destroy
End Sub
Sub timer2_Tick
counter = counter - 1
If counter = 0 Then
StopService("")
CancelScheduledService("")
timer2.Enabled=False
ToastMessageShow("Stop temporitzador" ,True)
End If
End Sub