したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

■■■20レス以内で済むF-BASICの質問はこちらへ■■■

670：k5：2016/01/06(水) 11:51:33
こんにちは

昨年はたいへんお世話になりました。

ずっと他の仕事に追いまくられて、F=BASICのイベント型プログラムに取り掛かれません。
もちろん、頭の切り替えができないという情けない現状もあります。

少しだけ時間ができたので、「ON INTERVAL GOSUB」を使ってみました。
INTERVALを5秒くらいにして実行させてみると、1時間で5〜10秒ほどずれました。

cls

interval 5.0 '60秒毎に割り込みます.
on interval gosub *KAKE
interval on
do
loop
interval off
stop
end
'

*KAKE

print date$,time$

return

これでもいいのですが、もう少し何とかならないだろうかと、こんな簡単なプログラムにしました。
（とても稚拙でお恥ずかしい）


cls

KANKAKU=5.0

OWARI = (date*86400+millitime/1000.0)+KANKAKU

do

NOW =(date*86400)+(millitime/1000.0)

if NOW >= OWARI then print date$,time$,millitime:OWARI=NOW+KANKAKU

loop

input AAA$

stop
end

これで実行すると、前よりはましみたいです。
もう少し、頑張ってみますので、
今年もよろしくお願いします。
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板