Italian [B4X] Suonare un piccolissimo mp3

[Aldo's]

Buon pomeriggio a tutti.
Devo far suonare un tic ed un tac tramite timer.
Ho usato un modo che ho già utilizzato in passato ed ho scritto questo codice:

Private Sub bttPlay_Click
    dTic=60000/iVelo
    Dim iTic As Int = Normalizza(dTic)
    Mp.Initialize
    Mp.Load(File.DirAssets,"1.mp3")
    Mr.Initialize
    Mr.Load(File.DirAssets,"2.mp3")
    Timer1.Initialize("Timer1",iTic)
    Timer1.Enabled=True   
End Sub

Quando lo mando in debug mi restituisce questo errore:
Error occurred on line: 80 (TicTac)
java.io.IOException: Prepare failed.: status=0x1
at android.media.MediaPlayer._prepare(Native Method)
at android.media.MediaPlayer.prepare(MediaPlayer.java:1323)
at anywheresoftware.b4a.objects.MediaPlayerWrapper.loadAfterReset(MediaPlayerWrapper.java:101)
at anywheresoftware.b4a.objects.MediaPlayerWrapper.loadAfterReset(MediaPlayerWrapper.java:72)
at anywheresoftware.b4a.objects.MediaPlayerWrapper.Load(MediaPlayerWrapper.java:66)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.shell.Shell.runVoidMethod(Shell.java:777)
at anywheresoftware.b4a.shell.Shell.raiseEventImpl(Shell.java:354)
at anywheresoftware.b4a.shell.Shell.raiseEvent(Shell.java:255)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.ShellBA.raiseEvent2(ShellBA.java:157)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:201)
at anywheresoftware.b4a.objects.ViewWrapper$1.onClick(ViewWrapper.java:80)
at android.view.View.performClick(View.java:7558)
at android.view.View.performClickInternal(View.java:7534)
at android.view.View.-$$Nest$mperformClickInternal(Unknown Source:0)
at android.view.View$PerformClick.run(View.java:29661)
at android.os.Handler.handleCallback(Handler.java:942)
at android.os.Handler.dispatchMessage(Handler.java:99)
at android.os.Looper.loopOnce(Looper.java:240)
at android.os.Looper.loop(Looper.java:351)

Quella che li chiama Line 80 corrisponde a:

    Mp.Load(File.DirAssets,"1.mp3")

Il file è sicuramente nella cartella File del progetto.

Cosa sbaglio?
Esiste un metodo migliore per eseguire questi mp3 (durano circa 1 decimo di secondo) l'uno e si suonano alternativamente.
Grazie

 

[Fulvio75]

Non ho il progetto sottomano io l'ho fatto controlla l'oggetto MP che hai dichiarato e vedrai un evento di termine suono, quando termina carica l'altro suono e funziona

 

[Sagenut]

Per suoni brevi forse conviene usare il SoundPool

 

[Aldo's]

Per suoni brevi forse conviene usare il SoundPool

Sto guardando proprio quello.

 

[Sagenut]

Se hai bisogno allega i 2 suoni così proviamo a fare un esempio.

 

[Sagenut]

Se ti và prova questo

 

[Aldo's]

Se ti và prova questo

Visto, l'unica cosa è che non posso utilizzarlo in B4I perchè non c'è la libreria Audio.
Giusto?

 

[Filippo]

Ciao @Aldo's

prova in questo modo.

Sub Process_Globals
    Private mp As MediaPlayer
End Sub

Private Sub Application_Start (Nav As NavigationController)
'...
    mp.Initialize(File.DirAssets, "1.mp3", "")
'...
End Sub

Private Sub bttPlay_Click
    mp.Play
End Sub

 

[Filippo]

O meglio ancora:

Sub Process_Globals
    Private mp(2) As MediaPlayer
    Private Timer1 As Timer
    Private dTic As Int
    Private count As Int
End Sub

Private Sub Application_Start (Nav As NavigationController)
'...
    mp(0).Initialize(File.DirAssets, "1.mp3", "")
    mp(1).Initialize(File.DirAssets, "2.mp3", "")
    
    dTic=60000/iVelo
    Timer1.Initialize("Timer1", dTic)
'...
End Sub

Private Sub bttPlay_Click
    count = 0
    Timer1.Enabled = True 
End Sub

Private Sub Timer1_Tick
    mp(count).Play
    count = count + 1
    If count > 1 Then
        Timer1.Enabled = False
    End If
End Sub

 

[Sagenut]

Visto, l'unica cosa è che non posso utilizzarlo in B4I perchè non c'è la libreria Audio.
Giusto?

Non sapevo che ti servisse cross platform.
Nel titolo ho visto B4A e credevo fosse limitato a questa piattaforma.

 

[Aldo's]

Non sapevo che ti servisse cross platform.

Hai ragione, ho messo B4A nel titolo del post...chiedo scusa.
Ora cambio.

 

[Sagenut]

Hai ragione, ho messo B4A nel titolo del post...chiedo scusa.
Ora cambio.

Non c'è bisogno di scusarsi.
L'importante è capire cosa uno cerca e la soluzione arriva, forse è già arrivata grazie a @Filippo .