[hadi.m]

درود چطور میتونم از سنسور مجاورت یا همون PROXIMITY استفاده کنم؟

میخوام فقط با سنسور مجاورت عدد بشمارم، همون کانتر ساده اما بجای فشار دادن دکمه از سنسور مجاورت استفاده کنه، راهی هست؟

من به جواب این سوالم رسیدم، اینجا بیان میکنم تا مورد استفاده بقیه عزیزان هم قرار بگیره
استفاده از سنسور مجاورت (برای بقیه سنسورها هم کاربرد دارد)

1- تعریف کردن کلی سنسور:


Sub Globals
Dim ps As PhoneSensors
End Sub
2- مشخص کردن نوع سنسور که اینجا سنسور مجاورت مد نظر هست:

Sub Activity_Create(FirstTime As Boolean)
ps.Initialize(ps.TYPE_PROXIMITY)
End Sub

3- فعال کردن سنسور برای اجرای دستور:
Sub Activity_Resume
ps.StartListening("ps")
End Sub

4- نسبت دادن یک رویداد در صورت تغییر در سنسور:
Sub ps_SensorChanged (Values() As Float)
***************
End Sub

به جای ستاره، دستور مورد نظر خود را تایپ کنید
 

با عرض پوزش، من هرچی سعی کردم بازهم نوشته ها به هم ریخته دراومد

 

من طبق متن بالا عمل کردم توی مرحله اول (Dim ps As PhoneSensors) خطا داد. و بعد از اون هرجا که از" ps" استفاده کردم قرمز شد!
اشکالش چیه؟