این نسخه یک پخشکننده کوچک واقعی میسازد: 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