Option explicit

Dim Last = 0

GUI INTERRUPT PenDown,PenUp



Sub PenDown
Print "Down Touch(X),Touch(LASTX) => ";Touch(X),Touch(LASTX)
Last = Touch(LASTX)
End Sub

Sub PenUp
Print "Touch(LASTX), Last => ";Touch(LASTX),Last
End Sub

Do

Loop

' TassyJim
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
OPTION EXPLICIT
DIM Last = 0, Last1 = 0
GUI INTERRUPT PenDown ' ,PenUp

DO

LOOP
END

SUB PenDown
Last = TOUCH(X)
IF Last > -1 THEN
GUI INTERRUPT 0 ' make sure we don't call again until finished processing
PRINT "Down Touch(X) => ";Last
SETTICK 100, swipe ' check touch position 100 ms later
ENDIF
END SUB

SUB swipe
LOCAL n
SETTICK 0, swipe ' make sure we don't call again until finished processing
FOR n = 1 TO 100 ' keep trying for a positive touch
Last1 = TOUCH(X)
IF Last1 > -1 THEN EXIT FOR
NEXT n

IF Last1 > -1 THEN
IF (Last1 - Last) < -5 THEN ' moved at least 5 pixels
PRINT "Swipe left ";Last1;" < ";Last
ELSEIF (Last1 - Last) > 5 THEN
PRINT "Swipe right ";Last1;" > ";Last
ENDIF
ENDIF
GUI INTERRUPT PenDown ' turn the touch interrupt back on
END SUB

' Example of a GUI setup using horizontal swiping to change pages (screens)
' Written by Rob White with help from TasyJim
'
' This is an example of presenting various pages to the user. No variables
' are actually set.

Option EXPLICIT
GUI DEFAULT HIDDEN
GUI INTERRUPT guiAction

Const MaxWhls = 6
Const MaxPages = 8
Const CtrlColor = RGB(Yellow)
Const BckColor = RGB(Black)
Const CtrlTextColor = RGB(White)

Dim CurrPage As integer = 1
Dim Last As integer = 0
Dim Last1 As integer = 0

CLS
Font 1,2

' NOTE controls for each screen must be ordered (as far as #ref is concerned)
' I believe it could be done better with arrays BUT that would mean getting
' Geoff to change the way GUI SHOW works. - To take an array of #ref numbers
' instead of an optional number of references. The UBOUND(array,dia) would
' also be handy.

' Controls that are on the screen all the time or for more than 1 screen
Const gui0Go = 1
Const gui0Max = 1
GUI BUTTON gui0Go, "GO",265,185,50,50,CtrlColor,RGB(Green)

' Controls for page 1 - Reset counts & Save interval
Const pg1Frm = 10
Const pg1ResetY = 11
Const pg1SaveInt = 12
Const pg1Cap1 = 13
Const pg1Cap2 = 14
Const pg1Max = 14

GUI FRAME pg1Frm, "Setup", 0,13,MM.HRes,MM.VRes,CtrlColor
GUI CAPTION pg1Cap1, "Zero counts",10,60,LT,CtrlTextColor,BckColor
GUI CHECKBOX pg1ResetY, "", 250,50,40,CtrlColor

GUI CAPTION pg1Cap2, "Save freq.",10,130,LT,CtrlTextColor,BckColor
GUI SPINBOX pg1SaveInt, 160,120,150,40,CtrlColor,BckColor,1,1,120

' Controls for page 2 - Set date
Const pg2Frm = 20
Const pg2Yr = 21
Const pg2Mth = 22
Const pg2Day = 23
Const pg2Cap1 = 24
Const pg2Cap2 = 25
Const pg2Cap3 = 26
Const pg2Max = 26

GUI FRAME pg2Frm, "Date", 0,13,MM.HRes,MM.VRes,CtrlColor

GUI CAPTION pg2Cap1, "Day",10,30,LT,CtrlTextColor,BckColor
GUI SPINBOX pg2Day, 150,40,140,40,CtrlColor,BckColor,1,1,31

GUI CAPTION pg2Cap2, "Month",10,90,LT,CtrlTextColor,BckColor
GUI SPINBOX pg2Mth, 150,90,140,40,CtrlColor,BckColor,1,1,12

GUI CAPTION pg2Cap3, "Year",10,140,LT,CtrlTextColor,BckColor
GUI SPINBOX pg2Yr, 150,140,140,40,CtrlColor,BckColor,1,15,30

' Controls for page 3 - Set time
Const pg3Frm = 30
Const pg3Hour = 31
Const pg3Min = 32
Const pg3Cap1 = 33
Const pg3Cap2 = 34
Const pg3Max = 34

GUI FRAME pg3Frm, "Time", 0,13,MM.HRes,MM.VRes,CtrlColor

GUI CAPTION pg3Cap1, "Hour",10,30,LT,CtrlTextColor,BckColor
GUI SPINBOX pg3Hour, 150,40,140,40,CtrlColor,BckColor,1,0,23

GUI CAPTION pg3Cap2, "Minute",10,130,LT,CtrlTextColor,BckColor
GUI SPINBOX pg3Min, 150,130,140,40,CtrlColor,BckColor,1,0,59



' Controls for page 4 - Units

Const pg4Frm = 40
Const pg4Counts = 41
Const pg4Revs = 42
Const pg4Distance = 43
Const pg4Cap1 = 44
Const pg4Cap2 = 45
Const pg4Cap3 = 46
Const pg4Max = 46

GUI FRAME pg4Frm, "Units", 0,13,MM.HRes,MM.VRes,CtrlColor

GUI CAPTION pg4Cap1, "Counts",10,40,LT,CtrlTextColor,BckColor
GUI RADIO pg4Counts, "", 200,40,40,CtrlColor

GUI CAPTION pg4Cap2, "Revs",10,90,LT,CtrlTextColor,BckColor
GUI RADIO pg4Revs, "", 200,90,40,CtrlColor

GUI CAPTION pg4Cap3, "Distance",10,140,LT,CtrlTextColor,BckColor
GUI RADIO pg4Distance, "m", 200,140,40,CtrlColor

' Controls for page 5 - Colours
Const pg5Red = 50
Const pg5Green = 51
Const pg5Blue = 52
Const pg5Wheel = 53
Const pg5Frm = 54
Const pg5Cap1 = 55
Const pg5Cap2 = 56
Const pg5Cap3 = 57
Const pg5Cap4 = 58
Const pg5Max = 58

GUI FRAME pg5Frm, "Graph colours", 0,13,MM.HRes,MM.VRes,CtrlColor

GUI CAPTION pg5Cap1, "Red",10,40,LT,CtrlTextColor,BckColor
GUI SPINBOX pg5Red, 100,40,140,40,CtrlColor,BckColor,5,0,255

GUI CAPTION pg5Cap2, "Blue",10,90,LT,CtrlTextColor,BckColor
GUI SPINBOX pg5Blue, 100,90,140,40,CtrlColor,BckColor,5,0,255

GUI CAPTION pg5Cap3, "Green",10,140,LT,CtrlTextColor,BckColor
GUI SPINBOX pg5Green, 100,140,140,40,CtrlColor,BckColor,5,0,255

GUI CAPTION pg5Cap4, "Wheel",10,190,LT,CtrlTextColor,BckColor
GUI SPINBOX pg5Wheel, 100,190,140,40,CtrlColor,BckColor,1,1,MaxWhls



' Controls for page 6 - Totals graph
Const pg6Frm = 60
Const pg6Max = 60

GUI FRAME pg6Frm, "Totals graph", 0,13,MM.HRes,MM.VRes,CtrlColor

' Controls for page 7 - 24 hour Graph
Const pg7Frm = 70
Const pg7Max = 70

GUI FRAME pg7Frm, "24 Hour graph", 0,13,MM.HRes,MM.VRes,CtrlColor

' Controls for page 8 - Stop
Const pg8Frm = 80
Const pg8stop = 81 ' Stop button - close down
Const pg8Max = 81

GUI FRAME pg8Frm, "Exit program", 0,13,MM.HRes,MM.VRes,CtrlColor
GUI BUTTON pg8stop,"Stop",(MM.HRes/2)-25,(MM.VRes/2)-25,50,50,CtrlColor,BckColor


'''''''''''''''''''''''' MAIN LINE ''''''''''''''''''''''''''''''''''''''''
Do


Loop


' Swipe code by TassyJim
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub guiAction
Last = Touch(X)
If Last > -1 Then
GUI INTERRUPT 0 ' make sure we don't call again until finished processing
'Print "Down Touch(X) => ";Last
SetTick 100, swipe ' check touch position 100 ms later
' 100 ms delay seems to work OK but should experiment with this.
EndIf
End Sub

Sub swipe
Local n
SetTick 0, swipe ' make sure we don't call again until finished processing
For n = 1 To 100 ' keep trying for a positive touch
Last1 = Touch(X)
If Last1 > -1 Then Exit For
Next n

If Last1 > -1 Then
If (Last1 - Last) < -5 Then ' moved at least 5 pixels
'Print "Swipe left ";Last1;" < ";Last
CurrPage = CurrPage -1
If CurrPage < 1 Then Currpage = MaxPages
ElseIf (Last1 - Last) > 5 Then
'Print "Swipe right ";Last1;" > ";Last
CurrPage = CurrPage + 1
If CurrPage > MaxPages Then Currpage = 1
EndIf
EndIf

''''''''''' Code below added by me to redraw pages
Print "CurrPage = ";CurrPage
GUI HIDE ALL
' Show Ctrls which appear on all screens
For n = 1 To gui0Max
GUI SHOW n
Next

' Now show Ctrls specific to a page.
Select Case CurrPage
Case 1
For n = 10 To pg1Max
GUI SHOW n
Next
Case 2
For n = 20 To pg2Max
GUI SHOW n
Next
Case 3
For n = 30 To pg3Max
GUI SHOW n
Next
Case 4
For n = 40 To pg4Max
GUI SHOW n
Next
Case 5
For n = 50 To pg5Max
GUI SHOW n
Next
Case 6
For n = 60 To pg6Max
GUI SHOW n
Next
Case 7
For n = 70 To pg7Max
GUI SHOW n
Next
Case 8
For n = 80 To pg8Max
GUI SHOW n
Next

End Select
GUI INTERRUPT guiAction ' turn the touch interrupt back on
End Sub