トップページ⇒tech
7コメント2KB

一生役立つスレ(タイマー問題)

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2008/04/15(火) 15:16:48
Dim WaitTime As Single
Dim FirstTime As Single
Dim NowTime As Single
WaitTime = 30
FirstTime = Timer()
Do
NowTime = Timer()
DoEvents
Loop While (NowTime - FirstTime < WaitTime)

ループ中に日付がかわっちゃうと無限ループしちゃうので何とかしてください。
0002デフォルトの名無しさん2008/04/15(火) 15:31:31
釣れますか？
0003デフォルトの名無しさん2008/04/16(水) 01:18:17
>>1
嘘を書かないように。
ループ中に日付けが変わっても永久ループにはならない。高々1日余計に回るだけだ。
0004デフォルトの名無しさん2008/04/21(月) 04:48:37
これか？

http://homepage1.nifty.com/rucio/main/technique/point.htm

>最後に一つ問題点を指摘しておきます。Timer関数は午前０時からの経過秒を返す関数なので、このWait関数の実行が日をまたぐとやばいことになります（永遠にループすることになります）。
0005デフォルトの名無しさん2008/04/26(土) 18:53:47
>>4
そのページ見たけど、

>>そんなとき、私は次のようなWait関数を使っています。この関数は私が作った物です。
>>使用したい場合はこれと同じように記述してください。

なにこれ
0006デフォルトの名無しさん2008/04/26(土) 21:15:15
ダメプログラムを増殖させたい工作員なんでしょうかね。
0007デフォルトの名無しさん2008/04/26(土) 23:29:28
.NETのタイマーコントロールをつかうのとDoeventsどっちが体にやさしいんだ
■ このスレッドは過去ログ倉庫に格納されています