| uwsc ななめ SPACEキーで終了 ペイント |
|
|
dim px = 320, py = 150
for 回数 = 1 to 20
BTN(LEFT,DOWN,px,py,1)
MMV(px+320,py+50,1)
MMV(px+320,py-50,1)
BTN(LEFT,UP,px+50,py+50,1)
BTN(LEFT,DOWN,px,py+5,1)
if GETKEYSTATE(VK_SPACE) then exit // SPACEキーで終了
px=330
py=py+20
next
BTN(LEFT,UP,px,py+5,1)
sleep(0.1)
GETTIME()
TIME = G_TIME_HH2 + "時" + G_TIME_NN2 + "分" + G_TIME_SS2 + "秒" + G_TIME_ZZ2 + "ミリ秒"
Print TIME
| |
|
2015年6月3日（水）02:03 | トラックバック(0) | コメント(0) | フリーソフト | 管理
|
フォトログ表示
