出力の一時停止と再開
Posted feedbacks - BASIC
スレッド？ そりゃ食いもんか？
BASIC の INKEY$ はブロッキングしないので、ゲームとか作るのに便利です。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 100 *Init '*** 初期化 ***
110 cls
120 t$=time$
130 active=1 ' タイマー実行中フラグ
140 *MainLoop '*** メインループ ***
150 ' キー入力を１文字読み込む
160 c$=inkey$
170 ' ｑで終了、ｐで停止／再開
180 if c$="q" then end
190 if c$="p" then active=1-active
200 ' time$ (=hh:mm:ss) が変化したらタイマー発動
210 if t$=time$ then goto *MainLoop
220 t$=time$
230 if active=1 then gosub *OnTimer
240 goto *MainLoop
250 *OnTimer '*** タイマーイベントハンドラ ***
260 print "a"
270 return
|
nobsun
#6346()
Rating3/3=1.00
起動すると、標準出力に1秒毎に'a'の1文字を出力し続けるプログラムで、 以下の条件を満たすものを「どう書く？」
[ reply ]