TimerによるCPU使用率の増加

未返信トピック | 最近のトピック

掲示板トップ » »

全ての表示時間は UTC+09:00 です

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 1

[ 8 件の記事 ]

印刷ビュー

１つ前のトピックへ | 次のトピックへ

作成者

メッセージ

shinshin

記事の件名: TimerによるCPU使用率の増加

投稿記事Posted: 2008年4月22日(火) 09:24

active basic初心者です。
Timer関数を利用して下記のようなカウンタ表示を作ったのですが、しばらくするとメモリの使用量とCPU使用率が上昇して、カウンタ表示のカウントアップのタイミングが遅くなってしまいます。
Timerを使用してもCPU使用率が上がらなくきちんと定期的にカウントアップしてくれる方法をどなたか教えてください。

コード:

Sub MainWnd_CommandButton1_Click()
    SetTimer(hMainWnd, 0, 10, 0)
End Sub

Sub MainWnd_Timer(TimerID As DWord)    
    i = i + 1  
    SetWindowText(GetDlgItem(hMainWnd, EditBox1), Str$(i))
End Sub

通報する

ページトップ

引用付きで返信する

記事の件名: Re: TimerによるCPU使用率の増加

投稿記事Posted: 2008年4月22日(火) 18:54

オフライン

登録日時: 2005年5月31日(火) 18:51
記事: 473
お住まい: 新潟県

> Timerを使用してもCPU使用率が上がらなくきちんと定期的にカウントアップしてくれる方法をどなたか教えてください。
SetTimer()関数を使ってもCPU使用率が上がらない方法は分かりませんが、SetTimer()関数を使わないで済ませる方法を考えました。
コマンドボタン1を押すとスタート、もう一回押すとエンドです。
コード自体問題ありそうですし、ソフトウェアを終了する時もスレッドがどうなってるかとか把握しなきゃですし、初心者の方には向かないんですけどね...。
※終了時、スレッドがどうなってるか調べる部分は書いておりませんです

[ここをクリックすると内容が表示されます]

コード:

TypeDef THREADPROC = *Function(ByVal lpParameter As VoidPtr) As DWord

Dim hThread As HANDLE
Dim bThread As BOOL

Function TimerThread(ByVal lpParameter As VoidPtr) As DWord
Dim i=0 As Long
	While bThread
		i++
		SetWindowText(GetDlgItem(hMainWnd,EditBox1),Str$(i))
		Sleep(10)
	Wend
	CloseHandle(hThread)
	hThread=NULL
End Function

Sub MainWnd_CommandButton1_Click()
Dim dwThreadID As DWord
	If bThread Then
		SetDlgItemText(hMainWnd,CommandButton1,"スタート")
	Else
		hThread=CreateThread(
			ByVal NULL,0,
			AddressOf(TimerThread) As THREADPROC,
			NULL,0,VarPtr(dwThreadID))
		SetDlgItemText(hMainWnd,CommandButton1,"エンド")
	End If
	bThread Xor= TRUE
End Sub

通報する

ページトップ

プロフィール

引用付きで返信する

ゲスト

記事の件名:

投稿記事Posted: 2008年4月22日(火) 19:47

よくわかりませんが、１０ｍＳｅｃごとにテキストを書き換えると処理が間に合わずにイベントキューが溜まって行き、メモリが不足してスワップしだすのでＣＰＵ負荷が増して行くのでは無いでしょうか？

タイマーイベント１０回中に１回SetWindowTextを行う等の軽量化を行うしかないと思います。

通報する

ページトップ

引用付きで返信する

konisi

記事の件名:

投稿記事Posted: 2008年4月23日(水) 05:18

オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市

この場合、Str$にも問題があると思います。

コード:

Sub MainWnd_Timer(TimerID As DWord)
    Dim buf[255] As Byte
    i = i + 1  
    wsprintf(buf,"%d",i)
    SetWindowText(GetDlgItem(hMainWnd, EditBox1), buf)
End Sub

＃ところでプログラミング質問板のトピック数が丁度1000になるところを見れて少し嬉しかったりします。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

通報する

ページトップ

プロフィール

引用付きで返信する

shinshin

記事の件名:

投稿記事Posted: 2008年5月03日(土) 19:15

みなさんありがとうございました。

Str$を使わない方法を試したら、メモリ使用量もあがらず安定してカウントしてくれました。
しかし、なんでStr$が問題かわかりません。また、教えていただいたプログラムに関しても細かく教えていただきたいのですが。。。。。
よろしくお願いいたします。

通報する

ページトップ

引用付きで返信する

MML

記事の件名:

投稿記事Posted: 2008年5月09日(金) 18:44

オフライン

登録日時: 2006年5月02日(火) 16:27
記事: 154

横から、すいません。

> Str$を使わない方法を試したら、メモリ使用量もあがらず安定してカウントしてくれました。
> しかし、なんでStr$が問題かわかりません。また、教えていただいたプログラムに関しても細かく教えていただきたいのですが。。。。。
> よろしくお願いいたします。
Str$ってけっこう動作が重いんですよ。
そのため、CPU使用量が上がっているのではないかと。

通報する

ページトップ

プロフィール

引用付きで返信する

konisi

記事の件名:

投稿記事Posted: 2008年5月09日(金) 20:36

オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市

メモリの使用量に関しては、String型周りでメモリリークが発生しているためだと思われます。
詳しく調べてませんが。

少なくともこの場合はStr$(i)の戻り値を一度ローカル変数に格納し、StrPtrで変換して渡したほうがいいように見えます。

wsprintf関数は、ざっと調べたところ
http://winofsql.jp/VA003334/cmaterial040601205757.htm
に具体例が、
http://www2.ocn.ne.jp/~cbmaho/homepage/ ... printf.htm
に詳しい解説が載ってます。

通報する

ページトップ

プロフィール

引用付きで返信する

shinshin

記事の件名:

投稿記事Posted: 2008年5月14日(水) 21:39

みなさんありがとうございました！！

通報する

ページトップ

引用付きで返信する

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 1

[ 8 件の記事 ]

掲示板トップ » »

全ての表示時間は UTC+09:00 です

オンラインデータ

このフォーラムを閲覧中のユーザー: なし＆ゲスト[12人]

トピック投稿: 可
返信投稿: 可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可