فروشگاه یاهو ۹۸

کد کاربردی B4A — پخش فایل صوتی با رویداد اتمام (Complete)

این نسخه پایه یک پخش‌کننده واقعی است: MediaPlayer در Process_Globals تعریف شده تا زنده بماند و Initialize با نام رویداد («mp») انجام می‌شود تا بتوانیم mp_Complete را بگیریم؛ این رویداد هر وقت فایل ring٫mp3 تا آخر پخش شد صدا زده می‌شود. دکمه btnStart قبل از هر پخش Position را صفر می‌کند تا همیشه از ابتدا شروع شود. رویداد Complete برای ساخت پلی‌لیست (رفتن به آهنگ بعد)، روشن‌کردن دوباره دکمه پخش یا نمایش امتیاز به کاربر کاربرد دارد. فایل صدا را در پوشه Files پروژه کنار کد بگذارید.

رایگان
مشاهده صفحه محصول و راه‌های دریافت

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

این نسخه پایه یک پخش‌کننده واقعی است: MediaPlayer در Process_Globals تعریف شده تا زنده بماند و Initialize با نام رویداد («mp») انجام می‌شود تا بتوانیم mp_Complete را بگیریم؛ این رویداد هر وقت فایل ring٫mp3 تا آخر پخش شد صدا زده می‌شود. دکمه btnStart قبل از هر پخش Position را صفر می‌کند تا همیشه از ابتدا شروع شود. رویداد Complete برای ساخت پلی‌لیست (رفتن به آهنگ بعد)، روشن‌کردن دوباره دکمه پخش یا نمایش امتیاز به کاربر کاربرد دارد. فایل صدا را در پوشه Files پروژه کنار کد بگذارید. کتابخانه‌های مورد نیاز این نمونه: Audio.

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

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

Sub Process_Globals
    Private mp As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        mp.Initialize("mp")   ' نام رویداد برای گرفتن mp_Complete لازم است
        mp.Load(File.DirAssets, "ring.mp3")
    End If
End Sub

Sub btnStart_Click
    mp.Position = 0   ' از ابتدا پخش کن (تکرارپذیر)
    mp.Play
End Sub

Sub mp_Complete
    ToastMessageShow("پخش تمام شد", False)
End Sub