Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim rm As RingtoneManager
Dim mp As MediaPlayer
dim NombreSonido as String
Dim BotonSonido As Button
' ..........
' ..........
Sub Activity_Create(FirstTime As Boolean)
mp.Initialize2 ("")
NombreSonido= rm.GetDefault(rm.TYPE_ALARM) ' pon el tipo de sonido que quieras cambiando rm.TYPE_ALARM
' ..........
' ..........
Sub BotonSonido_Click
if mp.IsPlaying then
ParoSonido
Else
MarchaSonido
End if
end sub
Sub MarchaSonido
Try
mp.Load(rm.GetContentDir, NombreSonido)
mp.Looping = True ' hará que el sonido no pare
mp.Play
Catch
Log("Error marcha Sonido")
End Try
End Sub
Sub ParoSonido
Try
mp.Stop
Catch
Log("Error paro Sonido")
End Try
End Sub