HSPTV!掲示板

クリーナーをつくっていました。

;メモリクリーナー

	screen 0,180,120
	title "メモリクリーナー"
	sysfont 17	;GUIフォント使用
	objmode 1,1	;オブジェクトでGUIフォント使用＆TAB移動許可
	objsize 80,20
	pos 50,90 : button "クリーン",*clean
	mem=10
*mainloop	;メインループ
	redraw 0
	color 192,192,192 : boxf	;灰色に塗りつぶす
	per=sysinfo(33)	;物理メモリ使用率取得（％）
	all=sysinfo(34)	;物理メモリの全体サイズを取得
	vac=sysinfo(35)	;空き物理メモリサイズの取得
	all_i=all/1024/1024	;MBに変換（整数部）
	all_d=all/1024\1024	;小数部
	vac_i=vac/1024/1024	;MBに変換（整数部）
	vac_d=all/1024\1024	;小数部
	color : pos 10,10 : mes "全体物理メモリサイズ "+all_i+"."+all_d+"MB"
	pos 10,30 : mes "空き物理メモリサイズ "+vac_i+"."+vac_d+"MB"
	pos 10,50 : mes "物理メモリ使用率 "+per+"%"
	pos 10,70 : mes "クリーンサイズ（MB)"+mem+"%"
	redraw 1
	stick key,10
	if mem<100-10:if key&2:mem+10
	if mem>10:if key&8:mem-10
	wait 1
	goto *mainloop

*clean	;クリーナー部
	title "クリーン中"
	alloc mem,all/100*(index+1*10)	;メモリ確保
	alloc mem,64	;領域縮小
	title "クリーン終了"
	goto *mainloop

stick命令を使うとこうなりました。
ｴﾗｰが発生しました
対処法を教えてください

mem という変数は、「全体のメモリサイズのうちの、何パーセントをクリーンするか」、
という数字を持つものですよね？
ですが、*clean内で、
>alloc mem,all/100*(index+1*10)
>alloc mem,64 ;領域縮小
と実行していますので、変数memは数字ではなく「文字列」になってしまいます。
文字列といっても空の文字列ですが。

なので、メモリをクリーンしたあとに、
>if mem<100-10:if key&2:mem+10
>if mem>10:if key&8:mem-10
と実行すると、文字列と数を比べる事になり、エラーになります。
　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~~~~
また、クリーンするサイズですが、全体サイズのmemパーセントをクリーンしたいなら、
>all/100*(index+1*10)
ではなく、
all / 100 * mem または all * (0.01 * mem)
とするといいと思います。

なので、

*clean	;クリーナー部
	title "クリーン中"
	alloc buf,all * (0.01 * mem)	;メモリ確保
	alloc buf,64	;領域縮小
	title "クリーン終了"
	goto *mainloop

とするといいと思います。