iOS Question Detect finger swipe

tufanv

tufanv

Expert
Licensed User
Longtime User
hello i need to detect finger swipe to right left down and up. Is it possible with b4i ?

Ty
 
Sort by date Sort by votes
ilan

ilan

Expert
Licensed User
Longtime User
try this ( i have not checked it out, it may work)

B4X: 
Sub Process_Globals
    'These global variables will be declared once when the application starts.
'....
    Dim startx As Float
    Dim starty As Float
End Sub

'......

Sub Panel1_Touch(Action As Int, X As Float, Y As Float)
  
    Select Action
        Case Panel1.ACTION_DOWN
            startx = X
            starty = Y
        Case Panel1.ACTION_MOVE
            Log("moving")
        Case Panel1.ACTION_UP
            If Abs(Y - starty) > 20%y Then Return
            If X - startx > 30%x  Then 'right
                Msgbox("Moved to the right","")
            Else If startx - X > 30%x  Then ' left
                Msgbox("Moved to the left","")
            End If
    End Select
  
End Sub
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
Will check it out . Thank you Ilan !
ilan12041981 said:
try this ( i have not checked it out, it may work)

B4X: 
Sub Process_Globals
    'These global variables will be declared once when the application starts.
'....
    Dim startx As Float
    Dim starty As Float
End Sub

'......

Sub Panel1_Touch(Action As Int, X As Float, Y As Float)
 
    Select Action
        Case Panel1.ACTION_DOWN
            startx = X
            starty = Y
        Case Panel1.ACTION_MOVE
            Log("moving")
        Case Panel1.ACTION_UP
            If Abs(Y - starty) > 20%y Then Return
            If X - startx > 30%x  Then 'right
                Msgbox("Moved to the right","")
            Else If startx - X > 30%x  Then ' left
                Msgbox("Moved to the left","")
            End If
    End Select
 
End Sub
Click to expand...
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
Ilan , I just checked it . It is ok with the right move but it does not display moved to the left.

ilan12041981 said:
try this ( i have not checked it out, it may work)

B4X: 
Sub Process_Globals
    'These global variables will be declared once when the application starts.
'....
    Dim startx As Float
    Dim starty As Float
End Sub

'......

Sub Panel1_Touch(Action As Int, X As Float, Y As Float)
 
    Select Action
        Case Panel1.ACTION_DOWN
            startx = X
            starty = Y
        Case Panel1.ACTION_MOVE
            Log("moving")
        Case Panel1.ACTION_UP
            If Abs(Y - starty) > 20%y Then Return
            If X - startx > 30%x  Then 'right
                Msgbox("Moved to the right","")
            Else If startx - X > 30%x  Then ' left
                Msgbox("Moved to the left","")
            End If
    End Select
 
End Sub
Click to expand...
 
Upvote 0
S

sorex

Expert
Licensed User
Longtime User
maybe it works like this?

B4X: 
If x>startx and X - startx > 30%x  Then 'right
 Msgbox("Moved to the right","")
Else If x<startx and startx - X > 30%x  Then ' left
  Msgbox("Moved to the left","")
End If
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
sorex said:
maybe it works like this?

B4X: 
If x>startx and X - startx > 30%x  Then 'right
Msgbox("Moved to the right","")
Else If x<startx and startx - X > 30%x  Then ' left
  Msgbox("Moved to the left","")
End If
Click to expand...

tried it but still only shows right . :/
 
Upvote 0
ilan

ilan

Expert
Licensed User
Longtime User
try this

B4X: 
'....
If X - startx > 20%x  Then Msgbox("Moved to the right","") 'right
If startx - X > 20%x  Then  Msgbox("Moved to the left","") ' left
'...
 
Upvote 0
klaus

klaus

Expert
Licensed User
Longtime User
I tried ilans' code.
The principle is OK but sometimes it doesn't wotk properly, it seems that the Msgbox method introduces some trouble.
Replace the MsgBox lines by Log and it works properly.
You might perhaps reduce the 30%x value.
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
ah okay . i was going crazy with the code :) will try logs ty Klaus ! and also thank you for the great "beginners guide"
klaus said:
I tried ilans' code.
The principle is OK but sometimes it doesn't wotk properly, it seems that the Msgbox method introduces some trouble.
Replace the MsgBox lines by Log and it works properly.
You might perhaps reduce the 30%x value.
Click to expand...
 
Upvote 0
S

sorex

Expert
Licensed User
Longtime User
klaus said:
The principle is OK
Click to expand...

are you sure, Klaus?

calculating a distance doesn't tell you which direction it went, does it?

or is that 20%x not the minimum distance for the swipe but the center point?

B4X: 
If x>startx  Then 'right
Msgbox("Moved to the right","")
Else If x<startx  Then ' left
  Msgbox("Moved to the left","")
End If
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
klaus said:
I tried ilans' code.
The principle is OK but sometimes it doesn't wotk properly, it seems that the Msgbox method introduces some trouble.
Replace the MsgBox lines by Log and it works properly.
You might perhaps reduce the 30%x value.
Click to expand...

with log , it still not showing left swipe Klaus
 
Upvote 0
klaus

klaus

Expert
Licensed User
Longtime User
If you look carefully at the code you'll see that once it is:
X - startx
and in the second it is:
startx - X

X - startx is positive for a right swipe and negative for a left swipe
startx - X is positive for a left swipe and negative for a right swipe

This code works, I tested it before posting !
B4X: 
Private Sub pnlPage1_Touch(Action As Int, X As Float, Y As Float)
    Select Action
    Case pnlPage1.ACTION_DOWN
        startx = X
        starty = Y
    Case pnlPage1.ACTION_MOVE
'        Log("moving")
    Case pnlPage1.ACTION_UP
        If Abs(Y - starty) > 20%y Then Return
        If X - startx > 20%x  Then 'right
            Log("Moved to the right")
        Else If startx - X > 20%x  Then ' left
            Log("Moved to the left")
        End If
    End Select  
End Sub

Logs:
Application_Start
Application_Active
Moved to the right
Moved to the left
Moved to the right
Moved to the left
Moved to the right
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
ilan12041981 said:
try this

B4X: 
'....
If X - startx > 20%x  Then Msgbox("Moved to the right","") 'right
If startx - X > 20%x  Then  Msgbox("Moved to the left","") ' left
'...
Click to expand...

this shows right up and down as right
but not left

sorex said:
try the code I added in my previous post
Click to expand...

this shows all directions as right

sorex said:
maybe it works like this?

B4X: 
If x>startx and X - startx > 30%x  Then 'right
Msgbox("Moved to the right","")
Else If x<startx and startx - X > 30%x  Then ' left
  Msgbox("Moved to the left","")
End If
Click to expand...

this shows right as right , up and down also as right
but not left again
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
i copied and pasted your code and got that result. İ will now try again
klaus said:
If you look carefully at the code you'll see that once it is:
X - startx
and in the second it is:
startx - X

X - startx is positive for a right swipe and negative for a left swipe
startx - X is positive for a left swipe and negative for a right swipe

This code works, I tested it before posting !
B4X: 
Private Sub pnlPage1_Touch(Action As Int, X As Float, Y As Float)
    Select Action
    Case pnlPage1.ACTION_DOWN
        startx = X
        starty = Y
    Case pnlPage1.ACTION_MOVE
'        Log("moving")
    Case pnlPage1.ACTION_UP
        If Abs(Y - starty) > 20%y Then Return
        If X - startx > 20%x  Then 'right
            Log("Moved to the right")
        Else If startx - X > 20%x  Then ' left
            Log("Moved to the left")
        End If
    End Select 
End Sub

Logs:
Application_Start
Application_Active
Moved to the right
Moved to the left
Moved to the right
Moved to the left
Moved to the right
Click to expand...
 
Upvote 0
tufanv

tufanv

Expert
Licensed User
Longtime User
klaus said:
If you look carefully at the code you'll see that once it is:
X - startx
and in the second it is:
startx - X

X - startx is positive for a right swipe and negative for a left swipe
startx - X is positive for a left swipe and negative for a right swipe

This code works, I tested it before posting !
B4X: 
Private Sub pnlPage1_Touch(Action As Int, X As Float, Y As Float)
    Select Action
    Case pnlPage1.ACTION_DOWN
        startx = X
        starty = Y
    Case pnlPage1.ACTION_MOVE
'        Log("moving")
    Case pnlPage1.ACTION_UP
        If Abs(Y - starty) > 20%y Then Return
        If X - startx > 20%x  Then 'right
            Log("Moved to the right")
        Else If startx - X > 20%x  Then ' left
            Log("Moved to the left")
        End If
    End Select 
End Sub

Logs:
Application_Start
Application_Active
Moved to the right
Moved to the left
Moved to the right
Moved to the left
Moved to the right
Click to expand...

this workd fine now thank you. I was using dim startx and starty in panel panel touch event , when i moved it to globals it is fixed . Thank you all for the help !
 
Upvote 0
ilan

ilan

Expert
Licensed User
Longtime User
tufanv said:
this workd fine now thank you. I was using dim startx and starty in panel panel touch event , when i moved it to globals it is fixed . Thank you all for the help !
Click to expand...

now everything is clear... :rolleyes:

i wrote in my answer that you need to decleare it in process globals...

if you do it in panel_touch event the when action_down is raised the parameters will be created and the position will be set to them and then by action_up they will be created again !!!
 
Upvote 0
ilan

ilan

Expert
Licensed User
Longtime User
sorex said:
maybe it works like this?

B4X: 
If x>startx and X - startx > 30%x  Then 'right
Msgbox("Moved to the right","")
Else If x<startx and startx - X > 30%x  Then ' left
  Msgbox("Moved to the left","")
End If
Click to expand...


if x - startx > 30%x then x must be > then startx

you dont need to ask twice

its like to ask if my son is younger the me and my age - my son age is bigger then 5 ....

if my age - my son age is bigger then 5 then ofcourse my son is younger then me...
 
Upvote 0
S

sorex

Expert
Licensed User
Longtime User
klaus said:
X - startx is positive for a right swipe and negative for a left swipe
startx - X is positive for a left swipe and negative for a right swipe
Click to expand...

I get that part, so that 20%x is the minimal swipe distance which is not really required?
 
Upvote 0
You must log in or register to reply here.

Similar Threads

MitchBu
  • Question
iOS Question Could not detect pinch with Gesture Recognizer from narek adonts
Replies
2
Views
922
MitchBu
MitchBu
I
  • Question
iOS Question (Solved)Unlock Pin/Fingerprint scanner
Replies
2
Views
2K
iCAB
I
Cadenzo
  • Question
iOS Question How to detect the touch down moment?
Replies
7
Views
1K
techknight
techknight
C
  • Question
iOS Question swipe to left ,right, top , bottom
Replies
1
Views
933
Erel
Erel
Gijsen
  • Question
iOS Question wkWebView + Swipe
Replies
2
Views
1K
Gijsen
Gijsen
Top