Add files via upload

This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions

View file

@ -0,0 +1,31 @@
SUB MAIN
DIM XY, XPOS, YPOS AS INTEGER
DIM LASTX, LASTY AS INTEGER
DIM MSG AS STRING
LASTX = 0
LASTY = 0
MSG = "Touch the Screen (Down)"
GRAPHICS
SETCOLOR 0,0,0
CLS
SETCOLOR 255,255,255
DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
REPAINT
WHILE TRUE
XY = TOUCHDOWN()
IF (XY <> -1) THEN
XPOS = (XY / 65536) & 0x0000ffff
YPOS = XY & 0x0000ffff
SETCOLOR RND(256),RND(256),RND(256)
DRAWLINE LASTX,LASTY,XPOS,YPOS
LASTX = XPOS
LASTY = YPOS
REPAINT
ELSE
SLEEP 10
END IF
END WHILE
END SUB

View file

@ -0,0 +1,39 @@
SUB MAIN
DIM XY, XPOS, YPOS AS INTEGER
DIM LASTX, LASTY AS INTEGER
DIM FLAG AS BOOLEAN
DIM MSG AS STRING
LASTX = -1
LASTY = -1
MSG = "Touch the Screen (Move)"
GRAPHICS
SETCOLOR 0,0,0
CLS
SETCOLOR 255,255,255
DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
REPAINT
SETCOLOR 255,255,0
WHILE TRUE
XY = TOUCHDOWN()
IF (XY <> -1) THEN
LASTX = (XY / 65536) & 0x0000ffff
LASTY = XY & 0x0000ffff
ELSE
XY = TOUCHMOVE()
IF (XY <> -1) THEN
XPOS = (XY / 65536) & 0x0000ffff
YPOS = XY & 0x0000ffff
DRAWLINE LASTX, LASTY, XPOS, YPOS
REPAINT
LASTX = XPOS
LASTY = YPOS
ELSE
SLEEP 10
END IF
END IF
END WHILE
END SUB

View file

@ -0,0 +1,31 @@
SUB MAIN
DIM XY, XPOS, YPOS AS INTEGER
DIM LASTX, LASTY AS INTEGER
DIM MSG AS STRING
LASTX = 0
LASTY = 0
MSG = "Touch the Screen (Up)"
GRAPHICS
SETCOLOR 0,0,0
CLS
SETCOLOR 255,255,255
DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
REPAINT
WHILE TRUE
XY = TOUCHUP()
IF (XY <> -1) THEN
XPOS = (XY / 65536) & 0x0000ffff
YPOS = XY & 0x0000ffff
SETCOLOR RND(256),RND(256),RND(256)
DRAWLINE LASTX,LASTY,XPOS,YPOS
LASTX = XPOS
LASTY = YPOS
REPAINT
ELSE
SLEEP 10
END IF
END WHILE
END SUB