پاسخگویی تماس از طریق حسگر مجاورت

[yagohb 25]

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

#Region  Service Attributes 
#StartAtBoot: True
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region
 
Sub Process_Globals
Dim phone1 As PhoneSensors
Dim answer As AnswerCall
Dim b As Boolean = False
End Sub
 
Sub Service_Create
phone1.Initialize(phone1.TYPE_PROXIMITY)
answer.Initialize("answer")
End Sub
 
Sub Service_Start (StartingIntent As Intent)
phone1.StartListening("phone1")
StartServiceAt("", DateTime.Now + 60000*5,True)
End Sub

Sub phone1_SensorChanged (Values() As Float)
If b = False Then
If Values(0) = 0 Then
answer.AnswerPhone 
b = True
Else If b = True Then
b = False
End If
End If
End Sub
 
Sub Service_Destroy
StartService("")
End Sub

دستور بولین هم بخاطر این تعریف کردم که با دست فقط یک بار تماس جواب داده بشه. ولی برای مرحله دوم نمیشه تماس رو پاسخ داد؟

[yagohb 25]

دوستان لطفا پاسخ بدید