با سلام و سپاس

 

خدمت کاربران عزیر یاهو ۹۸ YAHOO

 

امروز براتون سورس کد کار با سنسور جلوی گوشی رو مهیا کرده ایم .

 

حتما دیدید وقتی گوشی رو نزدیک گوشتون میکنید صفحه گوشی خاموش میشه .

شما میتونید با کتابخانه phone به راحتی ابن رویداد رو کنترل کنید .

 

اول تیک کتابخانه phone رو میزنیم و بعد :

 

در گلوبال dim زیر رو مینویسیم :

Dim p As PhoneSensors

 

بعد در قسمت Activity_Create dim بالا رو اینیشیالایز میکنیم

 

p.Initialize(p.TYPE_PROXIMITY)
p.StartListening("p")

 

و بعد ساب زیر رو به سورس اضافه می کنیم .

 

Sub p_SensorChanged (Values() As Float)
If Values(0)=0 Then
ToastMessageShow("دست قرار گرفت جلوی سنسور",False)
else if Values(0)=9 Then
ToastMessageShow("برداشته شد",False)
End If
End Sub

 

با سپاس موفق باشید دوستان

 

امید وارم مفید واقع گردد.