' Nell'activity
Sub Button1_Click
StartServiceAt(svr,DateTime.TicksPerSecond*30,False)
Activity.Finish
End Sub
Sub AlertBeep
Dim B As Beeper
B.Initialize(300,300)
B.Beep
B.Release
if Msgbox2("Vuoi un altro avviso","ALERT","Si","","No",Null)=Dialogresponse.Positive Then
' Fai ripartire il pannello con la scelta del tempo
End If
End Sub
'Nel Service
Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
End Sub
Sub Service_Start (StartingIntent As Intent)
' Se vuoi gestire
CallSub(Main,"AlertBeep")
End Sub