掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
時計が遅れないようにするには？ (ID：74711)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
入力された時間を一秒ずつ Beep を鳴らしながらカウントしていくプログラムなんですが，走らせているうちにパソコンの時計がずれるんです． (.frm) For I = 0 to text1.text Call Pause(1000) Beep Next I (.bas) Public Sub Pause(Pausetime as Long) Call Sleep(1000) DoEvents End Sub または， Public Sub Pause(Pausetime as Long) Dim Start as Double Start = GetTickCount Do While GetTickCount < Start + Pausetime DoEvents Loop End Sub これでなぜ時計がずれるんでしょう？ DoEventsのせいかな？でもDoEventsが無いと途中で止めれれないし...
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.