|
|
|
|
uwsc ペイント おえかき 斜め線 |
| | ACW(GETID("無題 - ペイント","MSPaintApp"),248,2,464,766,0)
dim px = 330, py = 200, r = 300, s = r / 2
for 回数 = 1 to 20 BTN(LEFT,DOWN,px,py,10)
MMV(px+300,py-100,10) if GETKEYSTATE(VK_SPACE) then exit // SPACEキーで終了 px=330 py=py+20 next
BTN(LEFT,UP,px+300,py-100,10) sleep(1)
GETTIME() TIME = G_TIME_HH2 + "時" + G_TIME_NN2 + "分" + G_TIME_SS2 + "秒" + G_TIME_ZZ2 + "ミリ秒" Print TIME
| |
|
| | 2015年5月20日(水)21:59 | トラックバック(0) | コメント(0) | フリーソフト | 管理
|
|
uwsc 年輪 うずまき |
| | ACW(GETID("無題 - ペイント","MSPaintApp"),0,0,1200,900,10)
dim px = 500, py = 500, r = 300, s = r / 2
While True
if GETKEYSTATE(VK_ESC) then exit // ESCキーで終了
for i= 0 to s t = 3.14 * 2 * i / s x = cos(t) * r + px y = sin(t) * r + py if i = 0 then BTN(LEFT,DOWN,x, y) else MMV(x, y,5)
next
BTN(LEFT, up)
r=r-5
Wend
| |
| 2015年5月20日(水)18:44 | トラックバック(0) | コメント(0) | フリーソフト | 管理
|
(1/1ページ)
|
|
|