Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private n As Notification
Private phone1 As Phone
Public mPlayer As MediaPlayer
Public plyVolume As Float
Public oldVolume As Int
Private beep As MediaPlayer
End Sub
Sub Service_Create
n.Initialize
n.Icon = "icon_36_36"
n.SetInfo(Main.AppName,"",Main)
n.Sound = False
n.Vibrate = False
'Initiallisiere beeper
beep.Initialize
beep.Load(File.DirAssets,"beep.mp3")
'Mediaplayer initiallisieren
mPlayer.Initialize2("mPlayer")
oldVolume=phone1.GetVolume(phone1.VOLUME_MUSIC)
End Sub