برای تشخیص تکان، قدرت مجموع نیرو را با ریشه فیثاغورس روی سه محور حساب میکنیم؛ در حالت سکون این عدد حدود ۹.۸ (جاذبه زمین) است و وقتی گوشی تکان میخورد از آن بیشتر میشود. آستانه 15 را تجربی انتخاب کردهایم؛ اگر حساس بود آن را بالا و اگر دیر واکنش نشان داد پایین بیاورید. این الگو برای قابلیت «تکاندن برای بازخورد» یا شافلکردن آهنگ و تاس انداختن در بازیها استفاده میشود. برای جلوگیری از چندبار اجرای پشتسرهم بهتر است بعد از تشخیص یک Sleep(1000) هم اضافه کنید.
کتابخانههای مورد نیاز: Phone
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۲ شهریور ۱۴۰۵ - ۰۱:۵۵ |
| تعداد بازدید | ۱ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- کتابخانه: Phone
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub ps_SensorChanged(Values() As Float)
' قدرت کل نیروی واردشده را با فیثاغورس حساب میکنیم
Dim force As Float = Sqrt(Values(0) * Values(0) + Values(1) * Values(1) + Values(2) * Values(2))
If force > 15 Then
ToastMessageShow("گوشی تکان خورد!", False)
End If
End Sub