I try to play .mp3 files on IOS. I use a button, when user choose a language button play different file.
I’ve this code:
Sub BtnPlay_Click
IfMain.sLang = "eng"Then
'MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"i"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "spa"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"s"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "cin"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"c"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "ara"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"a"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
End Sub
But when I click on this button app exit (close app without error)…..I think problem with mediaplayer component…..but I don’t know how to solve it.
I’ve this code:
Sub BtnPlay_Click
IfMain.sLang = "eng"Then
'MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"i"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "spa"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"s"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "cin"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"c"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
IfMain.sLang = "ara"Then
MediaPlayer1.Stop
MediaPlayer1.Volume = 10
MediaPlayer1.Initialize(File.DirAssets,"a"&Main.sFileMP3&".mp3","MediaPlayer1")
MediaPlayer1.Play
EndIf
End Sub
But when I click on this button app exit (close app without error)…..I think problem with mediaplayer component…..but I don’t know how to solve it.