ab.com コミュニティ

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

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

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

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

横から、すいません。

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

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

Str$を使わない方法を試したら、メモリ使用量もあがらず安定してカウントしてくれました。
しかし、なんで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

この場合、Str$にも問題があると思います。[code]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[/code]

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

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

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

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

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

[hide][code]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[/code][/hide]

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

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

[code]
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[/code]