HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
1215
急行1分遅れstick命令が使えない1未解決


急行1分遅れ

リンク

2007/12/15(Sat) 11:26:54|NO.12807

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

;メモリクリーナー 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命令を使うとこうなりました。
エラーが発生しました
対処法を教えてください



この記事に返信する


begriff -いくす-

リンク

2007/12/15(Sat) 13:20:19|NO.12809

alloc のところで mem がstr型になってしまい
if mem<100-101 がstr型とint型を比較してしまうため

多分ここのところだと思いますが



ONION software Copyright 1997-2018(c) All rights reserved.