ＳＲＣ質問掲示板Mk2 [One Topic All View / 御礼 / Page: 0]

ＳＲＣ質問掲示板Mk2
(現在過去ログ16 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■2802 / inTopicNo.1)

　無限ループと脱出の方法

□投稿者/ 小一郎 -(2002/04/05(Fri) 05:48:55)

こんにちは小一郎です。｢PaintPicture｣コマンドを使ってアニメーションを
表示させようとしているのですが、クリックさせるまで無限ループで表示
出来ないかと悩んでいます。

ヘルプを参考に

Do While (i < 12)

PaintPicture Sakura_01.png 0 0 透過
Refresh
ClearPicture
PaintPicture Sakura_02.png 30 30 透過
Refresh
ClearPicture
PaintPicture Sakura_03.png 30 60 透過
Refresh
ClearPicture

Loop

…と、無限ループで表示させる事は出来ましたが、脱出方法が分かりません。

Wait Click をすれば Break を実行させれば良いと思うのですがどのような
条件式で良いのか試行錯誤しております。ですので今の所妥協策として

i = 0
Do While (i < 12)
Incr i

～省略～

Loop

と言う形で一定数処理が繰り返されたら終了するようにして制御しています。
無限ループから脱出させる方法をご存知でしたらどうぞ御教授ください。

小一郎

引用返信/返信削除キー/

■2803 / inTopicNo.2)

　Re[1]: 無限ループと脱出の方法

▲▼■

□投稿者/ 深那　優 -(2002/04/05(Fri) 11:19:51)
http://51038.com/users/tu/src/src.htm

開発版でなら、以下のやり方で多分出来ると思います。

Do While (i < 12)

PaintPicture Sakura_01.png 0 0 透過
Refresh
ClearPicture
PaintPicture Sakura_02.png 30 30 透過
Refresh
ClearPicture
PaintPicture Sakura_03.png 30 60 透過
Refresh
ClearPicture

If KeyState(1) = 1 Then
Break
EndIf

Loop

これで、左クリックをした時にループが終るはずです。
………多分(汗)

引用返信/返信削除キー/

■2817 / inTopicNo.3)

　御礼

▲▼■

□投稿者/ 小一郎 -(2002/04/06(Sat) 03:28:19)

こんにちは小一郎です。

早速の御返答ありがとうございます m(_ _)m

開発版では教授して頂いた方法でループから脱出させる事が出来ました。
イメージ通りにするために

Do While (i < 12)

PaintPicture Sakura_01.png 0 0 透過
Refresh
ClearPicture

If KeyState(1) = 1 Then
Break
EndIf

PaintPicture Sakura_02.png 30 30 透過
Refresh
ClearPicture

If KeyState(1) = 1 Then
Break
EndIf

PaintPicture Sakura_03.png 30 60 透過
Refresh
ClearPicture

If KeyState(1) = 1 Then
Break
EndIf

Loop

…と言う具合に、それぞれのコマンドの下に Break を設定しました。

ただ、安定版での制作を…とテストプレイヤーさんから言われているので
この方法を採用するかどうか悩んでおりますが(^^；

小一郎

引用返信/返信削除キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

HOME HELP 新規作成新着記事トピック表示検索新着情報過去ログ

- Child Tree -
- Antispam Version -