HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2010
0507
ひつじーマン一時停止9未解決


ひつじーマン

リンク

2010/5/7(Fri) 17:06:02|NO.32512

■■■教えてほしいです■■■

リアルタイムで一時停止をして、ボタンで再開させるソースを、
教えてください。



この記事に返信する


check

リンク

2010/5/7(Fri) 17:32:38|NO.32513

リアルタイムでというのがよく分からんが、waitかawaitでF1Help検索。



ひつじーマン

リンク

2010/5/7(Fri) 17:38:38|NO.32514

投稿ありがとうございます

「一定の時間で」じゃなくて、
ボタンを押したら再開にしたいです。



ESZET

リンク

2010/5/7(Fri) 18:59:20|NO.32515

>ソースを、教えてください。
この質問の仕方は良くないと。。。

で、F10キーでポーズ・再開出来たと思う。



hatter

リンク

2010/5/7(Fri) 20:42:07|NO.32518

以下を参考にしてみては?
http://hsp.tv/play/pforum.php?mode=all&num=31888



backdrop

リンク

2010/5/7(Fri) 21:07:12|NO.32519


;クリック待ちなのでstopは使えない repeat onclick goto *aaa await 10 loop *aaa ;あとの処理
このぐらい自分でもできるんじゃないですか?



backdrop

リンク

2010/5/7(Fri) 21:07:52|NO.32520

まあstopしてもいいけど、「リアルタイム」なので、、、



774

リンク

2010/5/8(Sat) 13:07:53|NO.32532

ウインドウモードなら特別なことしなくてもAltキーを押せば一時停止になる。
再開はもう一度おせばいいだけ。



u

リンク

2010/5/8(Sat) 14:41:37|NO.32534

何でもかんでも最後に教えてくださいを付ければ質問になるというわけでもありませんよ。
ソースは教えるものではありませんから。

こんな方法はいかがでしょうか。

title "何らかのキーまたはクリックで停止します" onkey *teisi onclick *teisi button "再開",*main *main repeat color 255,255,255:boxf:color pos 0,50:mes count count++ wait 1 loop *teisi stop



M

リンク

2010/5/8(Sat) 16:38:57|NO.32538

プログラマにしろ、トンカツ屋にしろ、ソースの中身は教えたくないものである。

サンプルをひとつ。
ポイントは、キーをトリガーとして取得していることと、ポーズ中であるかないかをトグルとして保持していること。
スペースキーで、止まったり再開したりします。


flg=-1 ;フラグ・・というかトグルスイッチ。-1で通常 1でポーズ中 ;初期状態を-1、あるいは1にしておくことがポイント dim k,2 ;キー情報を格納しておく為の配列。k(0)=現在のキー情報 k(1)=前回のキー情報 repeat await 20 gosub *PauseCheck if flg=1:continue ;とりあえず、ポーズ状態ならループの先頭へもどることにした ;ここから下に、ポーズ中に止まってほしい処理を書く gosub *SubRoutine loop *PauseCheck ;スペースキーの状態を調べ、押されるたびに、フラグを反転する getkey k(0),32 ;現在のキー情報が「押されている」であり、前回のキー情報と違っていたら、フラグを反転 ;押した瞬間の状態をトリガーとして取得したいので、こんな処理になっている if (k(0)=1)and(k(0)!k(1)){ flg*=-1 ;flgに-1を掛ける。掛けるたびに、1か-1になる。 -1*-1=1 1*-1=-1 } k(1)=k(0) ;前回のキー情報を更新 return *SubRoutine ;適当に円を描く color rnd(255),rnd(255),rnd(255) x=rnd(640):y=rnd(480) circle x-20,y-20,x+20,y+20 return

お味はいかが?



ONION software Copyright 1997-2018(c) All rights reserved.