VB.NETでタイマー作成

タイトルのとおり、VB.NETで、指定した時間（分単位）を過ぎたときにアラームをならし、メッセージを出すというアプリを作成しています。
はじめは「Sleep」を使っていたのですが、スリープしている間は操作が利かなくなってしまうため、「Timer」コントロールを使って、数えたいと思っています。
どのようなコードが考えられるでしょうか？教えてください。

No.2 ベストアンサー 回答者： takasebou 回答日時： 2004/11/16 12:59

そのタイマーはどの程度の精度を求められるのでしょうか？

タイマーコントロールはあまり精度がよくないので（他の負荷によってイベントが起きる時間が変わる事がある）、正確なタイマーを求めたいならあまり向きません。だいたいでよければタイマーコントロールでインターバルを指定すればいいかと思われます。

とはいっても、.NETはさわった事がないのですが、
VB 6でしたら、このようなコードが有用です。

dim i as double
dim j as long

j = (指定した分) * 60 '[秒]
i = Timer + j '[秒]

do i > Timer
doEvents
loop

Beep
MsgBox "メッセージ"

Timer関数は０時からの経過時間を秒単位での値を返すステートメントです。実際には倍密度で、コンマ二桁までの値（１０ミリ秒単位）を取得できます。

i の値に現在から秒単位で時間をプラスして、その時間が過ぎるまで　Do While で回す。　doEventsコマンドは他の処理にＣＰＵ処理をあけ渡すコマンドです（これをいれないとSleepと一緒で結局固まります）。

Do Whileを使わずタイマーコントロールを使うなら、50ミリ秒単位くらいでインターバルを指定して、グローバル変数にいれておいた値と比べて……とかすればいいと思います。

以上です。

この回答へのお礼

ありがとうございました。
.NETなので、アドバイスいただいたロジックを.NET用に変えていたのですが、Timer関数はそのままつかえないらしく、いろいろ試したもののだめでした。
まだ工夫が必要なようです。
でもだいぶ参考になりました。ほんとに感謝です☆

お礼日時：2004/11/16 17:13

No.1 回答者： episteme 回答日時： 2004/11/16 11:54

Timerコントロールのintervalを指定し、タイムアウト・イベントに反応してメッセージを表示するだけです。

この回答へのお礼

さっそくありがとうございました。
ただ、具体的にどうやればいいのかがわかりません。
もうちょっと考えて見ます。

お礼日時：2004/11/16 17:10