Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim phoneVib As PhoneVibrate
Dim phone As Phone
Dim NMTimer As Timer
Dim sp As SoundPool
.....
Sub Activity_Create(FirstTime As Boolean)
'initialise the pong mp3 sound
sp.Initialize(3)
......
Sub playBeepSound
Dim LoadId As Int = sp.Load(File.DirAssets, "Pong.mp3")
Log("Play Beep Sound. LoadID is " & LoadId)
'LoadID L_Vol(0-1) R_Vol(0-1) Priority Loop(Repeat Cycles) Rate(0-2)
If sp.Play(LoadId,1,1,1,0,1) = 0 Then
Log("Error")
Else
sp.Play(LoadId,1,1,1,0,1)
End If
End Sub