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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
1116
pooh.残り時間表示1未解決


pooh.

リンク

2007/11/16(Fri) 01:42:30|NO.12417

現在、ストップウォッチを作っています。
時間をセットするのは分かったのですが、
経過時間を表示させる方法が分からないです。
残り0.21.222みたいな感じでやりたいんです。

/* mod_counttimer.hsp サンプルプログラム システムに対する負荷を押さえつつ長い時間を正確に待つ。 */ #include "mod_counttimer.hsp" make_timer t // タイマーの準備。 f = 0 t0 = 1 // 待ち時間(秒) mes "待ち時間(秒)" input t0 button gosub "start", *start stop *start if ( f ) : return mes "start" f = 1 reset_count t t1 = double( t0 * 1000 ) // 目標カウント(ミリ秒) // 大雑把に待つ。 repeat get_count t // 現在のカウント取得。 // 目標カウントまで 0.1 秒以内になったらループを抜ける。 if ( ( t1 - refdval ) <= 100.0 ) : break wait limit( int( t1 - refdval ) / 2, 50, 0x7FFFFFFF ) / 10 loop // 細かく待つ。 repeat get_count t if ( ( t1 - refdval ) <= 0.0 ) : break wait 0 loop mes "end" f = 0 return



この記事に返信する


pizza

リンク

2007/11/18(Sun) 03:29:39|NO.12478

mod_counttimer.hspは使っていませんが、こんな感じで。



#include "winmm.as" timeGetTime start = stat waitTime = 3000 // 三秒待つ *main await 1 timeGetTime t = waitTime - (stat - start) // 残り時間 m = t / 60000 // 分 s = t / 1000 \ 60 // 秒 ms= t \ 1000 // ミリ秒 title "残り"+m+"."+s+"."+ms if t <= 0 : end goto *main



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