新しく発言する EXIT インデックスへ
移動
　　移動 たかし 2005/07/12 22:30:02 
　　└↑↓→←キーが押されているかどうかのテス... 白石　和夫 2005/07/13 09:05:17 
　　　└100LETx=0 白石　和夫 2005/07/13 09:22:37 
　　　　└返事が送れてすみません。 たかし 2005/07/14 19:59:48 

　　移動 たかし 2005/07/12 22:30:02  ツリーへ

移動 返事を書く
たかし 2005/07/12 22:30:02
外部絵定義で設定した「tenn」(下のプログラム)

external picture tenn
set area color 3
plot area :0,0 ;0,0.5;0.5,0.5;0.5,0
end picture

を↑↓→←キーで移動させることが可能となるプログラムを作ることはできるのでしょうか。
プログラム例をお教えください。 

　　└↑↓→←キーが押されているかどうかのテス... 白石　和夫 2005/07/13 09:05:17  ツリーへ

Re: 移動 返事を書く
白石　和夫 2005/07/13 09:05:17
↑↓→←キーが押されているかどうかのテストは独自拡張（Win32 API互換）のGetKeyState(n)でできます。
図形の移動は，
http://hp.vector.co.jp/authors/VA008683/QA6.htm
を参考にしてください。
 

　　　└100LETx=0 白石　和夫 2005/07/13 09:22:37  ツリーへ

Re: ↑↓→←キーが押されているかどうかのテス... 返事を書く
白石　和夫 2005/07/13 09:22:37
100 LET x=0
110 LET y=0
120 SET WINDOW -10,10,-10,10
130 DO
140 WAIT DELAY 0.01 ! 0.01秒待機する
150 IF GetKeyState(27)<0 THEN EXIT DO ! ESCを押すと終了
160 IF GetKeyState(37)<0 THEN LET x=x-0.1
170 IF GetKeyState(38)<0 THEN LET y=y+0.1
180 IF GetKeyState(39)<0 THEN LET x=x+0.1
190 IF GetKeyState(40)<0 THEN LET y=y-0.1
200 SET DRAW MODE HIDDEN
210 CLEAR
220 DRAW tenn WITH SHIFT(x,y)
230 SET DRAW MODE EXPLICIT
240 LOOP
250 END
260 EXTERNAL PICTURE tenn
270 SET AREA COLOR 3
280 PLOT AREA :0,0 ;0,0.5;0.5,0.5;0.5,0
290 END PICTURE
 

　　　　└返事が送れてすみません。 たかし 2005/07/14 19:59:48  ツリーへ

Re: 100LETx=0 返事を書く
たかし 2005/07/14 19:59:48
返事が送れてすみません。
おかげで「迷路ゲーム」ができました。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。