CPU使用率100％を回避するには

やまと 2005-09-08 18:43:03 No: 92157 IP: [192.*.*.*]

shellコマンドでバックでＩＥを開いてその内容を配列に
入れるプログラムを走らせていますがＩＥを開いて処理するのに１０秒
かかりその間ＣＰＵ使用率が100％になり画面がロックしてしまいます。

処理に３０秒くらいかかっても構わないのでＣＰＵ使用率を30％位に
押さえる手段はないでしょうか

編集削除

KG 2005-09-08 19:58:09 No: 92158 IP: [192.*.*.*]

配列に入れるのはループさせてるのかな？

ならばループ内にSleepなりDoEventsなり入れるとよいかも。

ただ30%ぐらいに押さえるわけではなくて、画面のロックは
解消されると思います。

#環境書いてないから,とりあえずVB6での回答で、、、

編集削除

通ってみた 2005-09-08 20:18:33 No: 92159 IP: [192.*.*.*]

処理がWindowsに帰らないからCPUを独占してしまうわけで
ということは、処理をWindowsに帰してやればいいわけだから

DoEvents

という便利なものを使うといいらしい

※どう使うかわからない場合はすぐに聞かずにまず調べてね

編集削除

通ってみた 2005-09-08 20:20:17 No: 92160 IP: [192.*.*.*]

あーでも「IEが開くまで」ということであれば、それはIE側が初期化処理とかしてるからなるもので、仕方ないけどね

編集削除

我龍院忠太 2005-09-08 20:30:44 No: 92161 IP: [192.*.*.*]

VBのバージョンは何かな？
VB.NETならマルチスレッドにすると言う手も有るが。
ＣＰＵ使用率は変わらないと思うけど、中断は受け付けるかも。

編集削除

やまと 2005-09-09 00:26:11 No: 92162 IP: [192.*.*.*]

VB6.0です。とりあえず配列にdoeventを入れると
かなり早くなりました。あとFORMに負担をかけないようにと
SHELLコマンドで別ジョブを立ち上げてますがプログラムを
2つに分けると色々と面倒ですし、よくよく考えると2つにする
必要はないのかなと思ったりして。ご教授よろしくお願いします。

編集削除

やまと 2005-09-09 00:40:07 No: 92163 IP: [192.*.*.*]

書き忘れたんですがShellコマンドは10秒後ごとのタイマーを
使用しています。タイマーは起動に時間がかかったりするので
しょうか。FORMの一番上のタイトルバーが反転しFORMのカーソルが
4、5秒間一瞬消えます。

編集削除

ガッ 2005-09-09 01:21:10 No: 92164 IP: [192.*.*.*]

横から失礼します。
> とりあえず配列にdoeventを入れるとかなり早くなりました。
??配列にdoevent??
あと、イベントによって呼び出されたプロシージャ(Timer1_Timer()など)
の内部に、イベントを発生させるようなもの(DoEventsとか)を不用意にいれると、
イベントが再帰的に呼び出されてスタックオーバフロー例外が発生することがあります。

※たとえば…
  テキストボックス:Text1 を貼り付けた Form に
Private Sub Text1_Change()
    Text1.Text = Text1.Text + "a"
End Sub
  と書いて実行し、テキストボックスに何か書くと…

> あとFORMに負担をかけないようにと
> SHELLコマンドで別ジョブを立ち上げてますがプログラムを
> 2つに分けると色々と面倒ですし、よくよく考えると2つにする
> 必要はないのかなと思ったりして。
> ご教授よろしくお願いします。
状況は分かりませんが、現在のShellで呼び出すプログラムと、
自プログラム内部に処理を移行したプログラムを比較してみてはどうでしょう？

> 書き忘れたんですがShellコマンドは10秒後ごとのタイマーを
> 使用しています。
> タイマーは起動に時間がかかったりするのでしょうか。
数ミリ秒の差異はありますが、
イベント待ち状態だったりDoEventsを適切に呼び出している状態なら、
人が分かるようなズレはまず起こらないと思います。

> FORMの一番上のタイトルバーが反転しFORMのカーソルが
> 4、5秒間一瞬消えます。
もしかしてその現象はShellを呼んでプログラムを起動しているときに起こりませんか？
→遅いＰＣで動作させているなら、環境変えてテストするしかないですねぇ…

※ウチのWin95だと時々なりますし…

編集削除

KG 2005-09-09 12:53:21 No: 92165 IP: [192.*.*.*]

Shellのところにブレークポイントを設定してから、
ステップインしてみて4,5秒かかるようなら、
それが原因の可能性大ですね。

編集削除

ヤマ 2005-11-08 21:31:05 No: 92166 IP: [192.*.*.*]

Doevents'基本的に自プログラム対象です。
Sleep 10'APIビューアで見つけてください

これで解決しませんか？

編集削除

ヤマ 2005-11-09 05:29:09 No: 92167 IP: [192.*.*.*]

補足
shellをタイマーで呼び出すと
ガッさんがいうようにオーバーフローになる可能性があるので

shellの終了を待って、
http://www.bcap.co.jp/hanafusa/VBHLP/tap_PrgEnd.htm
ここにシェルの終了待ち処理がのっています。

Do while true
Dim a as long
a=shell(???)
shellend(a)
doevents
sleep 5
Loop

インデントしてなくて申し訳ないです。
こんなのはどうですか？

編集削除