راه‌اندازی پخش/توقف موسیقی با یک دکمه (Play-Pause) — کامل و تست‌شده

رایگان

توضیحات محصول

این نسخه یک پخش‌کننده کوچک واقعی می‌سازد: MediaPlayer در Process_Globals تعریف شده تا بین صفحات هم زنده بماند و با FirstTime فقط یک‌بار لود می‌شود. رویداد دکمه btnSubmit با IsPlaying وضعیت فعلی را می‌سنجد؛ اگر در حال پخش است Pause می‌زند وگرنه ادامه می‌دهد و لیبل وضعیت را بروز می‌کند. نکته مهم این است که Pause صدا را از همان نقطه ادامه می‌دهد و ریست نمی‌کند؛ اگر خواستید از ابتدا شروع شود قبل از Play بنویسید mp٫Position = 0. کتابخانه Audio را هم در IDE تیک بزنید.

کتابخانه‌های مورد نیاز: Audio

این قطعه‌کد به‌صورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکراری‌نبودن بررسی شده است. برای دیدن تکه‌کدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه می‌شود.

ویژگی‌های کلیدی

کد B4A آماده استفاده
توضیح کامل فارسی
کاملاً رایگان
کتابخانه: Audio

کد نمونه رایگان

Sub Process_Globals
    Private mp As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        mp.Initialize
        mp.Load(File.DirAssets, "melody1.mp3")
    End If
End Sub

Sub btnSubmit_Click
    If mp.IsPlaying Then
        mp.Pause
        lblStatus.Text = "متوقف شد"
    Else
        mp.Play
        lblStatus.Text = "در حال پخش..."
    End If
End Sub