این نسخه کاملتر از یک ویبره ساده است: پرچم hapticOn در Process_Globals نگه داشته میشود و سوییچ تنظیمات (swHaptic) میتواند آن را خاموش/روشن کند؛ کاربرانی که ویبره دوست ندارند کنترل دستی دارند. رویداد دکمه btnStart اول پرچم را چک میکند و اگر خاموش بود بدون هیچ کاری خارج میشود، وگرنه موتور لرزش 1000 میلیثانیه کار میکند. این الگوی «بازخورد قابل تنظیم» را اپهای حرفهای در تنظیمات میگذارند و روی شبیهساز اثری ندارد؛ فقط کتابخانه Phone را تیک بزنید.
کتابخانههای مورد نیاز: Phone
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۴ شهریور ۱۴۰۵ - ۰۳:۵۹ |
| تعداد بازدید | ۰ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- کتابخانه: Phone
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub Process_Globals
Private hapticOn As Boolean = True
End Sub
Sub btnStart_Click
If Not(hapticOn) Then Return ' اگر بازخورد خاموش است، کاری نکن
Dim pv As PhoneVibrate
pv.Vibrate(1000)
ToastMessageShow("با موفقیت انجام شد", False)
End Sub
' سوییچ تنظیمات: کاربر کنترل کند ویبره باشد یا نه
Sub swHaptic_CheckedChange(Checked As Boolean)
hapticOn = Checked
End Sub