[Amin_Mansouri]

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

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

این یه سمپله کمکت میکنه:

کد:

Sub Process_Globals
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
    If FirstTime Then
        Dim ps As PhoneSensors 'This object is only used to access the type constants.
        Log("Accel="&ps.TYPE_ACCELEROMETER)
Msgbox(ps.TYPE_ACCELEROMETER,"Accelerometer")
'These appear to return 1 for the Value of TYPE_ACCELEROMETER
        ps.Initialize(ps.TYPE_ACCELEROMETER)
'This is basically what happens in the AddSensor Sub in the example program
        ps.StartListening("Sensor")
'Starts listening to the accelerometer
    End If
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Sensor_SensorChanged (Values() As Float)
    Dim ps As PhoneSensors
    ps=Sender
'ps has a constant for TYPE_ACCELEROMETER, but how do I read what TYPE the sender is?
    Log(Sender)
    Msgbox(Sender,ps.TYPE_ACCELEROMETER)
End Sub