Italian problema con mSoundPool

zamb

Active Member
Licensed User
Buongiorno a tutti. Sto lavorando ad una piccola app in BA4 che dovrebbe riprodurre un brano musicale della durata di circa 7 minuti quando premo un pulsante e che si deve ripetere in loop fino a quando non ripremo lo stesso pulsante.

Questi i punti salienti del codice:

sub Process_Globals:
Private mSoundPool As SoundPool
.
.
end sub

sub activity_create:
mSoundPool.Initialize(1)
ciaomamiID = mSoundPool.Load(File.DirAssets, "Tutto.ogg")
.
.
end sub

Private Sub PlaySound(SoundID As Int)
mSoundPool.Play(SoundID, 1, 1, 100, -1, 1)
End Sub

Sub btnMusic_Click
If btnStop.Text <> "Stop musica" Then
btnStop.Text = "Stop musica"
PlaySound(ciaomamiID)
Else
btnStop.Text = "Musica"
PlaySound(silenzioID)
End If
end sub

Apparentemente funziona ma riproduce solo i primi 10-12 sec e poi riparte.
Avete qualche consiglio?

Grazie molte. E' una app cui tengo moltissimo perchè è un ricordo per la mia mamma recentemente scomparsa.....

Pier
 

Sagenut

Expert
Licensed User
Longtime User
This is the International part of the forum and it's needed to write in English.
If you want we wait for You in the Italian section.
My warmest condolence.

Questa è la parte Internazionale del Forum.
Se vuoi ti aspettiamo nella sezione Italiana per aiutarti.
Le mie più sentite condoglianze.
 
Upvote 1
Top