[M3HRSH4D]

اینم که دیر عمل میکنه . باید اهنگ که پلی میکنم تموم بشه بعد اگه باز پلی زدم چیز بشه...

از sound pool استفاده کردم مشکلم حل شد . فقط هی پشت سر هم پلی میشه . ینی کلا لوپینگش روشنه .

از این استفاده کردم اگه یه بار پلی بشه مشکلم کلا حل میشه ....

کد:

Sub Process_Globals
    Dim s As SoundPool
    Dim seda As Int
End Sub

'---------------------

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        s.Initialize(1)
        seda = s.Load(File.DirAssets, "ehem.ogg")
    End If
    
    Activity.LoadLayout("main")
End Sub

'--------------------
sub btn_Click
s.Play(seda, 1, 1, 1, -1, 1)
end sub