Рисовалка

basic
  1. SUB MAIN
  2.     DIM XY, XPOS, YPOS AS INTEGER
  3.     DIM LASTX, LASTY AS INTEGER
  4.     DIM FLAG AS BOOLEAN
  5.     DIM MSG AS STRING
  6.  
  7.     LASTX = -1
  8.     LASTY = -1
  9.     MSG = "Touch the Screen (Move)"
  10.  
  11.     GRAPHICS
  12.     SETCOLOR 0,0,0
  13.     CLS  
  14.     SETCOLOR 255,255,255
  15.     DRAWSTRING MSG,(SCREENWIDTH()-STRINGWIDTH(MSG))/2, SCREENHEIGHT()/2
  16.     REPAINT
  17.  
  18.     SETCOLOR 255,255,0
  19.  
  20.     WHILE TRUE
  21.         XY = TOUCHDOWN()
  22.         IF (XY <> -1) THEN
  23.             LASTX = (XY / 65536) & 0x0000ffff
  24.             LASTY = XY & 0x0000ffff
  25.         ELSE
  26.             XY = TOUCHMOVE()
  27.             IF (XY <> -1) THEN
  28.                 XPOS = (XY / 65536) & 0x0000ffff
  29.                 YPOS = XY & 0x0000ffff
  30.                 DRAWLINE LASTX, LASTY, XPOS, YPOS
  31.                 REPAINT
  32.                 LASTX = XPOS
  33.                 LASTY = YPOS
  34.             ELSE
  35.                 SLEEP 10
  36.             END IF
  37.         END IF
  38.     END WHILE
  39. END SUB
Этот код позволяет движением вашего пальца по экрану телефона - рисовать. Запускать только на сенсорном экране!
Назад

Реклама

Мы в соцсетях

tw tg yt gt