66 lines
1,007 B
QBasic
66 lines
1,007 B
QBasic
|
SUB MAIN
|
||
|
|
|
||
|
|
DIM W, H AS INTEGER
|
||
|
|
DIM SIZE AS INTEGER
|
||
|
|
DIM ANGL AS INTEGER
|
||
|
|
DIM PCTS AS STRING
|
||
|
|
DIM BTNW AS INTEGER
|
||
|
|
DIM BTNH AS INTEGER
|
||
|
|
DIM X, Y AS INTEGER
|
||
|
|
DIM TXY, TX, TY AS INTEGER
|
||
|
|
DIM WAIT AS BOOLEAN
|
||
|
|
|
||
|
|
GRAPHICS
|
||
|
|
|
||
|
|
WAIT = TRUE
|
||
|
|
W = SCREENWIDTH()
|
||
|
|
H = SCREENHEIGHT()
|
||
|
|
SIZE = 300
|
||
|
|
|
||
|
|
FOR ANGL=0 TO 360
|
||
|
|
|
||
|
|
SETCOLOR 40,41,70
|
||
|
|
CLS
|
||
|
|
|
||
|
|
SETCOLOR 255,255,255
|
||
|
|
DRAWARC W/2-SIZE/2, H/2-SIZE/2, SIZE, SIZE, -90, ANGL
|
||
|
|
|
||
|
|
PCTS = STR$(INTEGER(DOUBLE(ANGL)/3.6))+"%"
|
||
|
|
|
||
|
|
SETFONT "MONOSPACE", 35
|
||
|
|
DRAWSTRING PCTS, W/2-STRINGWIDTH(PCTS)/2, H/2-STRINGHEIGHT(PCTS)/2
|
||
|
|
|
||
|
|
REPAINT
|
||
|
|
SLEEP 33
|
||
|
|
|
||
|
|
END FOR
|
||
|
|
|
||
|
|
BTNW = 100
|
||
|
|
BTNH = 50
|
||
|
|
X = W/2-BTNW/2
|
||
|
|
Y = H/2+SIZE/2+50
|
||
|
|
|
||
|
|
SETCOLOR 255,255,255
|
||
|
|
FILLROUNDRECT X, Y, BTNW, BTNH, 5, 5
|
||
|
|
|
||
|
|
SETCOLOR 40, 41, 70
|
||
|
|
SETFONT "SANS-SERIF", 30
|
||
|
|
|
||
|
|
DRAWSTRING "OK", X+BTNW/2-20, Y+BTNH/2+10
|
||
|
|
|
||
|
|
REPAINT
|
||
|
|
|
||
|
|
WHILE WAIT
|
||
|
|
|
||
|
|
TXY = TOUCHDOWN()
|
||
|
|
TX = (TXY / 65536) & 0x0000ffff
|
||
|
|
TY = TXY & 0x0000ffff
|
||
|
|
|
||
|
|
IF TX > X AND TX < (X+BTNW) AND TY > Y AND TY < (Y+BTNH) THEN
|
||
|
|
WAIT = FALSE
|
||
|
|
END IF
|
||
|
|
|
||
|
|
END WHILE
|
||
|
|
|
||
|
|
END SUB
|