ベストアンサー

プログラムを一定時間とめるコードの際に２４時をまたぐととまらないようにするには？

2006/08/06 21:49

お世話になります。以下のコードだと２４時をまたぐ際にプログラム自体が停止してしまうんでうバグがあるんですよね。ちょっと解決方法がおもいつかないので詳しい方教えて下さい。よろしくお願いします。 st = Timer 　　Do While Timer - st < 3 　　　　DoEvents 　　Loop

mixiho
お礼率41% (251/608)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

BLUEPIXY
ベストアンサー率50% (3003/5914)

2006/08/07 02:55 回答No.1

st = Timer Do past = Timer - st If past < 0 Then past = past + 24 * 3600 DoEvents Loop While past < 3

関連するQ&A

vb2005でプログラムをとめるコードは？

お世話になります。 vb2005でプログラムに５秒間、時間をとめようとおもいます。これだとTimerにエラーがでてしまいます。（'Timer' は型です。有効な式ではありません。）どこをどうなおせばエラーがでなくなるのでしょうか？教えてください。お願いします。 Dim sngSt As Single sngSt = Timer Do While Timer - sngSt < 5 DoEvents() Loop
webbrowserにappendChildでyahooへのリンクを追加させるには？

お世話になります。以下のvb6のコードを見ていただきたいですが bodyタグの中にh1タグしかない簡単なページに <a href="http://www.yahoo.co.jp">ヤフーへ</a> というaタグをウェブブラウザに表示させた際に追加させたいと思っています。その際、href属性とhttp://www.yahoo.co.jpという値をつけくわえるコードがわかりません。｛vb.netだと　elem.SetAttribute("HREF", http://www.yahoo.co.jp) で記述できるみたいですが、vb6だとコンパイルエラーがでてしまいます｝どのようにコーディングすればよろしいでしょうか？教えてください。お願い致します。 Private Sub Command1_Click() WebBrowser1.Navigate ("http://hoho.hiho.jp/") Do While WebBrowser1.Busy = True '何もしないループ（笑） DoEvents Loop Start = Timer Do While Timer - Start < 2 DoEvents Loop Dim elm As IHTMLElement Set elem = WebBrowser1.Document.createElement("A") elem.innerText = "ヤフーへ" WebBrowser1.Document.body.appendChild (elem) End Sub
Excelでタイマーの一時停止するボタンのコードは

Excelでタイマーを作ったけど、一時停止できないとやっぱ面白くないと気づき、一時停止機能を付け加えたいが、まだ勉強し始めたばかりなので自分でコードが書けません。なので、一時停止させるコードがわかる方教えてください。＜タイマーのコード＞ Sub タイマー() Dim EndTime Dim PassTime EndTime = Timer + Range("D5").Value * 60 + Range("F5").Value Do PassTime = Timer Range("D5").Value = (EndTime - PassTime) \ 60 '分 Range("F5").Value = (EndTime - PassTime) Mod 60 '秒 DoEvents Loop Until EndTime - PassTime <= 0 Beep MsgBox "時間です" End Sub
for loop　の処理が途中でプログラムを終えてもつづいてしまうのをやめさせるには？

お世話になります。 for a = 1 to 10000 ～～処理～～ now = Timy While Timy < now + 2 DoEvents Wend loop ～～とコーディングしてるのですが途中でプログラムを終わらしてもコンピューターの方でプログラムが続いてるみたいなのですが終わらすにはどうすればよいでしょうか？
DoEvents

VBSでDoEventsは使えないのでしょうか？ *************************** Dim ObjIE dim i Set ObjIE = CreateObject("InternetExplorer.Application") ObjIE.Navigate "http://oshiete.goo.ne.jp/" ObjIE.Visible = True Do While ObjIE.Busy = True DoEvents Loop Do While ObjIE.Document.ReadyState <> "complete" DoEvents Loop Set ObjIE = Nothing *************************** だと、エラーになりました。 Wscript.sleep 3000 ならエラーにならずにコードは動きました。 VBAならDoEventsは使えるのに VBSで使えない理由を教えてください。
WebBrowserについて

Visual Studio 2008を使っています途中で処理が停止しまい困っていますデバックで一時停止をすると Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop この部分で作業が止まっています何かいい方法はないでしょうか？ソースは下記の通りです WebBrowser1.Navigate(New Uri("http://※※※※※※※※※※※※)) Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Threading.Thread.Sleep(1000)とか入れても止まってしまいます秒数はいろいろ試しましたが駄目でした WebBrowser1.Navigate(New Uri("※※※※※※※※※※※※)) Threading.Thread.Sleep(1000) Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop
Webbrowserで完全にHPを表示させるまで待機したい。

VB6.0を使っています。 Webbrowserを使いまして HPの表示を完了するまで待機するようにしようと思いました。しかし表示前に”読み取り終了”になってしまいます。表示するまで待機させるにはどうすればいいのでしょうか？どうかお願いいたします。 Label1.Caption = "読み取り中" WebBrowser1.Navigate "http://www.yahoo.co.jp" Do While WebBrowser1.Busy = True DoEvents Loop Do While WebBrowser1.Document.ReadyState <> "complete" DoEvents Loop Label1.Caption = "読み取り終了" あと、基本的な操作なのですがプロジェクトを読み込んだすぐにはコードもオブジェクトも表示されません。一度実行してからコードを出さざるを得ないのですがこれはどうすればいいのでしょうか？
Or 　And 　確実に表示させるにはどちらを？

http://okwave.jp/qa/q5586837.html を見て思ったのですが、ブラウザを表示させるまで待つ場合、 Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop と Do While objIE.Busy = True And objIE.readyState <> 4 DoEvents Loop ではどちらを使ったほうがいいのでしょうか？どちらもサイトを表示できてますが、確実に表示されるのはどちらなのか教えてください。
WebBrowserにてsubmitの前にnavigateしてしまう

いつもお世話になっております。ＶＢ2005ユーザーです。 WebBrowser内の"submit"を押したあと、違うページに行きたいのですが、 "submit"を押す前に"Navigate"で指定しているページに行ってしまいます。このようなコードを書いています。 With WebBrowser1 .Navigate("最初のＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Document.Forms(0).InvokeMember("submit") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop .Navigate("次の指定ＵＲＬ") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop 「指定ＵＲＬ」は"submit"により新しいＨＴＭＬが生まれるので、その後の作業のためにどうしても"submit"を押したいのですが、上のようなコードですと先に「指定ＵＲＬ」に行ってしまいます。 "submit"をクリックせず、無視してしまうのです。 Navigate("次の指定ＵＲＬ")を外せばクリックしてくれるのですが・・・。 WebBrowserを完全に待機させる方法などが必要なのでしょうか？宜しくご教授のほどお願い致します。
VBAで指定時刻まで一時停止するコード

VBA初心者です。業務で使用するため、VBAで指定時刻まで一時停止するコードを作りたいのですが、うまくいきません。設定したい条件は (1)当日の午前9時から実行 (2)記述しているコードの実行が終了したら、当日の午後6時まで一時停止 (このとき他の業務でExcelを使用するので、Excelの動作を止めないためにDoEventsと記述してOSに制御を移しています) (3)当日午後6時になったら、コードの実行を再開する以上です。今のところ、午後6時まで動作が停止せず、すぐに午後6時以降に実行したいコードが実行されてしまいます。どういうコードを記述すればいいでしょうか？教えてください。 ------------------------------------------------------------------------------------------------------------------ ～（中略）～ Dim PauseTime As Single Dim Start As Variant Dim Finish As Date Dim TotalTime As Variant Start = Now() Do PauseTime = Start + TimeValue("08:59:20") DoEvents Loop While Now() < Finish Finish = TimeValue("18:00:03") ～（中略）～ ------------------------------------------------------------------------------------------------------------------
『Do ～ Until (0)』の『Until (0)』

他の人が書いたプログラムを読んでいるのですが、そのなかで、 Do DoEvents 処理 Loop Until (0) というDo文がありました。この(0)というのはどのような意味なのでしょうか？どのような状態になるまでLoopし続けるのでしょうか？よろしくお願いいたします。
オブジェクト変数または With ブロック変数が設定されていません。

下記の様に組みましたが、下記の★印の所で止まる様な事があります。毎回止まるわけではないのですが、止まる時に「オブジェクト変数または With ブロック変数が設定されていません。」と表示されますが、原因は何か？どの様にすればいいのか？など詳しく教えてください。よろしくお願いします。 Sub test() Dim objIE As Object Dim strCOMMENT As String Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://" While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop 'データをセットする 'htmlドキュメントフォーム(0番目) アイテムに転記(代入)する objIE.Document.forms(0).Item("username").Value = "11111" objIE.Document.forms(0).Item("password").Value = "11111" While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop objIE.Document.all.subm.Click While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop For Each link In objIE.Document.Links If link.href = "http://" Then link.Click End If Next While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop 'タイトル・コメントの読み込み strtitle = Sheets("sheet1").Range("k7") strCOMMENT = Sheets("sheet1").Range("k9") Application.WindowState = xlMinimized While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop objIE.Document.forms(0).Item("title").Value = strtitle objIE.Document.forms(0).Item("comment").Value = strCOMMENT While objIE.readystate <> 4 While objIE.busy = True DoEvents ' Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop objIE.Document.all.submit.Click While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop 'フォーム(0番目)を .Submit(確認) する objIE.Document.forms(0).getElementsByTagName("input")(11).Click '←★この部分で止まる時があります。 While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 6, Now()) Do While Now() < Wait_Time DoEvents Loop For Each link In objIE.Document.Links If link.href = "http://" Then link.Click End If Next While objIE.readystate <> 4 While objIE.busy = True DoEvents Wend Wend Wait_Time = DateAdd("s", 7, Now()) Do While Now() < Wait_Time DoEvents Loop objIE.Quit '.Quitで閉じる End Sub
Doevents をご教授ください。

VBでシリアルプリンタを制御するアプリケーションを開発しています。プリンタに状態(ヘッドが開いているとかリボンがないとか)を問い合わせる関数をTimer1_Timer()で呼び出しています。その関数内、プリンタに問い合わせてからの応答待ちにDo～Loopを使っています。そのループ内にDoeventsがあります。プリンタとPCを繋げていると起こらないのですが、繋げてないと、 (1)アプリケーションを終了してもタスクマネージャを覗くとプロセスが残っている (2)デバグしてみるとform.unload()時にTimer1.enabled=falseにしているのにform.unload()が終わるとTimer1.enabled=trueになってしまう (3)(2)の後、Timer1_Timer()に記述したプリンタの状態チェックする関数内のDoeventsに移動して無限ループになってしまうというような現象が起こります。多分Doeventsの使い方が悪いと思われます。これを回避する方法を教えてください。
終了してもプログラムが実行したまま（VB）

非常に時間のかかる繰り返し処理を行なうプログラムを作りました。どのくらい、プログラムが進行しているのかわかりやすくするため、 Progress.Show でProgressという名前のフォームを表示し、そこに、プログラムが何％終わったのか表示するようにしました。プログラムはDo Loop文が使ってあるので、何％終わったのかを表示するためにLoopした回数を取得して、それをフォームに表示することにしましたが、どこかで調べたら機械は、Do Loopのあいだはフォーム上に文字を表示するのに手が回らないからDoEventsを使ってイベントを実行させなさい、といわれました。そこまではうまくいきました。プログラムを実行すると、プログラムが実行されて何％終わったかもちゃんと表示できるようになりました。ところが、プログラムの実行中にフォームの右上の×ボタンを押したところ、フォームは画面から消え、プログラムが終了したように見えるのに、VB Editorでは[実行中]となっており、終わってくれません。ずっとDo Loopが実行されたままです。 Private Sub Form_Terminate() のところに Unload Progress と書いても、「Unloadメソッドは使えません」などというエラー・メッセージが出ます。（フォーム上にボタンを置き、そこをクリックするとUnloadするようにしてみましたがやはり同じことを言われました。）原因は何でしょうか？フォームをUnloadする、ということの意味をちゃんと理解していないのでいけないのだと思うのですが、調べてもよく言っていることがわかりません。よろしくお願いします。
Timer()

申し訳ございません。 VB6の質問です。 ↓例のTimer()を使用したサンプルコードがございましたら見せていただけないでしょうか? そして、頻繁に使用したいのでTimer()、タイマーをクリア??して使用したいです。宜しくお願い致します。 Do 'Timer()を使用して、5秒経過したらExit Doでこの処分 Loop
タイムストッププログラム

お世話になります。コマンドボタン２をおしてもタイムがとまらないんですが・・・なぜでしょうか？ Private Sub Command1_Click() Dim k As Integer Dim NOW As Long For k = 1 To 1000 Text1.Text = k NOW = Timer While Timer < NOW + 1 '1秒間待機する DoEvents Wend If Command2.Value = True Then Exit For Next k End Sub
無限ループ　VBA　IE操作

VBAです。とあるサイトで Sub IE_wait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.readyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub が無限ループに陥ります。中断して Exit Sub を入れてみましたが、抜けれません。ページは既に表示済みです。なぜ無限ループが抜けられないのか、なぜページが表示されているのにこのコードが繰り返されるのか何かわかる方よろしくお願いします。
特定のキーを押すまでループさせるにはどうすればよいですか。

たとえば、ESCキーとか、Qキーを押すまで、一定のことを繰り返し行わせるためには、具体的にどのようなコードを書けばよいでしょうか。 Do While...LoopやDo...Loop Whileを使えばよいのは分かるんですが、キー入力を取ってきて、そのキー入力がESCかどうかの比較をする部分などがよくわかりません。具体的なコードを見せていただけると助かります。よろしくお願いします。
一定時間でPostBackさせたい（ASP.NET C#）

いつもお世話になっております。おそらく簡単なことなので自力で解決しようとしているのですが、4時間ほど悩んでいますので、お力をお貸し下さい。 VS2003 C# ASP.NET Webアプリケーションある画面を一定時間毎に切り替えたいと考えています。同じ画面で引数を変えて表示を変えるので、PostBackさせれば良いかと思っています。そこで、以下のようなコードを書きました。 private void Page_Load(object sender, System.EventArgs e) { // ページを初期化するユーザーコードをここに挿入します。 if (!IsPostBack) { Timer timTest = new Timer(); timTest.Elapsed += new ElapsedEventHandler(OnTimedEvent); timTest.Interval = 2000; timTest.Enabled = true; timTest.AutoReset = true; lblOnOff.Text = timTest.Enabled.ToString(); timTest.Start(); } } private void OnTimedEvent(object source, ElapsedEventArgs e) { ＊＊＊＊＊＊＊＊＊＊＊ } この「＊＊＊＊＊＊＊＊＊＊＊」の部分で処理とPostBackをしたいのですが、何を書けばうまくPostBackできるのかが分かりません。ご存知の方がいらっしゃいましたら、教えてください。宜しくお願いいたします。
フリーズしてしまいます。

アクセスでWebBrowserコントロールを使ってIE操作をしているのですがフリーズしてしまいます。フォームに、WebBrowser0を配置して、 ---------------------------------- Private Sub Form_Load() Me.WebBrowser0.Navigate "http://login.yahoo.co.jp/config/login?logout=1" Call wait 省略・・・ End Sub ---------------------------------- Sub wait() Const READYSTATE_COMPLETE As Long = 4 Do Until Me.WebBrowser0.ReadyState = READYSTATE_COMPLETE Loop Do While Me.WebBrowser0.Busy = True DoEvents Loop End Sub ---------------------------------- を実行すると必ずフリーズします。 ---------------------------------- Sub wait() Do While Me.WebBrowser0.Busy = True DoEvents Loop End Sub ---------------------------------- にしたら問題なく表示されます。でもこれだけだと、表示し終わりません。表示されてないのに次のコードへ進んでしまいます。そもそもなぜフリーズするのでしょうか？アクセス２００７です。ご回答よろしくお願いします。

プログラムを一定時間とめるコードの際に２４時をまたぐととまらないようにするには？

質問者が選んだベストアンサー

関連するQ&A

vb2005でプログラムをとめるコードは？

webbrowserにappendChildでyahooへのリンクを追加させるには？

Excelでタイマーの一時停止するボタンのコードは

for loop　の処理が途中でプログラムを終えてもつづいてしまうのをやめさせるには？

DoEvents

WebBrowserについて

Webbrowserで完全にHPを表示させるまで待機したい。

Or 　And 　確実に表示させるにはどちらを？

WebBrowserにてsubmitの前にnavigateしてしまう

VBAで指定時刻まで一時停止するコード

『Do ～ Until (0)』の『Until (0)』

オブジェクト変数または With ブロック変数が設定されていません。

Doevents をご教授ください。

終了してもプログラムが実行したまま（VB）

Timer()

タイムストッププログラム

無限ループ　VBA　IE操作

特定のキーを押すまでループさせるにはどうすればよいですか。

一定時間でPostBackさせたい（ASP.NET C#）

フリーズしてしまいます。

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

プログラムを一定時間とめるコードの際に２４時をまたぐととまらないようにするには？

質問者が選んだベストアンサー

関連するQ&A

vb2005でプログラムをとめるコードは？

webbrowserにappendChildでyahooへのリンクを追加させるには？

Excelでタイマーの一時停止するボタンのコードは

for loop の処理が途中でプログラムを終えてもつづいてしまうのをやめさせるには？

DoEvents

WebBrowserについて

Webbrowserで完全にHPを表示させるまで待機したい。

Or And 確実に表示させるにはどちらを？

WebBrowserにてsubmitの前にnavigateしてしまう

VBAで指定時刻まで一時停止するコード

『Do ～ Until (0)』の『Until (0)』

オブジェクト変数または With ブロック変数が設定されていません。

Doevents をご教授ください。

終了してもプログラムが実行したまま（VB）

Timer()

タイムストッププログラム

無限ループ VBA IE操作

特定のキーを押すまでループさせるにはどうすればよいですか。

一定時間でPostBackさせたい（ASP.NET C#）

フリーズしてしまいます。

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

for loop　の処理が途中でプログラムを終えてもつづいてしまうのをやめさせるには？

Or 　And 　確実に表示させるにはどちらを？

無限ループ　VBA　IE操作

カテゴリ
一覧

専門家に質問してみよう
専門家登録