با کتابخانه Phone و کلاس PhoneSensors به سنسور شتابسنج دسترسی پیدا میکنیم؛ Initialize فقط یکبار در FirstTime انجام میشود و StartListening/StopListening در Resume/Pause قرار میگیرد تا وقتی صفحه فعال نیست سنسور خاموش باشد. رویداد SensorChanged آرایهای سهعنصری میدهد: نیروی واردشده روی سه محور X و Y و Z که lblOut آنها را زنده نمایش میدهد. این پایه ساخت شمارنده قدم، بازی فرمان با کجکردن گوشی و ابزار تراز است. الگوی Start/Stop را حتماً نگه دارید؛ سنسور روشن بزرگترین باتریخوار اپ است.
کتابخانههای مورد نیاز: Phone
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- کتابخانه: Phone
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub Process_Globals
Dim ps As PhoneSensors
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then ps.Initialize(ps.TYPE_ACCELEROMETER)
End Sub
Sub Activity_Resume
ps.StartListening("ps")
End Sub
Sub Activity_Pause(UserClosed As Boolean)
ps.StopListening
End Sub
Sub ps_SensorChanged(Values() As Float)
lblOut.Text = "X: " & Values(0) & CRLF & "Y: " & Values(1) & CRLF & "Z: " & Values(2)
End Sub