این نسخه پایه یک پخشکننده واقعی است: MediaPlayer در Process_Globals تعریف شده تا زنده بماند و Initialize با نام رویداد («mp») انجام میشود تا بتوانیم mp_Complete را بگیریم؛ این رویداد هر وقت فایل beep.mp3 تا آخر پخش شد صدا زده میشود. دکمه btnStart قبل از هر پخش Position را صفر میکند تا همیشه از ابتدا شروع شود. رویداد Complete برای ساخت پلیلیست (رفتن به آهنگ بعد)، روشنکردن دوباره دکمه پخش یا نمایش امتیاز به کاربر کاربرد دارد. فایل صدا را در پوشه Files پروژه کنار کد بگذارید.
کتابخانههای مورد نیاز: 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") ' نام رویداد برای گرفتن mp_Complete لازم است
mp.Load(File.DirAssets, "beep.mp3")
End If
End Sub
Sub btnStart_Click
mp.Position = 0 ' از ابتدا پخش کن (تکرارپذیر)
mp.Play
End Sub
Sub mp_Complete
ToastMessageShow("پخش تمام شد", False)
End Sub