تشخیص جهت کشیدن توسط کاربر

[amirsafari 116]

سلام میخوام توی برنامه بتونم حرکت دست کاربر روی صفحه رو تشخیص بدم و بدونم به کدوم سمت لمس میکنه 

لطفا راهنمایی کنید 
مرسی

[محمدرضا شاهپیری 5,493]

سرچ میکردین پیدا میکردین عزیز

Sub Process_Globals
Dim MOVEMENT_THRESHOLD As Int
   MOVEMENT_THRESHOLD = 50dip
End Sub

Sub Globals
	 Dim StartX As Int
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float) 
	Select Action
      Case Activity.ACTION_DOWN
         StartX = X
      Case Activity.ACTION_UP
         If Abs(X - StartX) > MOVEMENT_THRESHOLD Then
            Swipe(X < StartX)
         End If
   End Select

End Sub
Sub Swipe(Left As Boolean)
   If Left Then Msgbox("Left", "") Else Msgbox("Right", "")
End Sub