|
|
原帖由 bahmo 于 2009-6-30 10:20 发表 
回報一個問題:
底下是老九寫的功能演示片斷,倒數10秒後會自行關閉視窗
_SUB SetLabelI
CALC T1=%T1%+1
CALC TW=10-%T1%
CALC PW=10*%T1%
ENVI @Pbar1=%PW%
ENVI @LabelK=%LK% %TW%秒
I ...
_SUB SetLabelI
CALC #T1=%T1%+1
CALC #TW=10-%T1%
CALC #PW=10*%T1%
ENVI @Pbar1=%PW%
ENVI @LabelK=%LK% %TW%秒
IFEX $%T1%>9,ENVI @Pbar1=-1
IFEX $%T1%>9,ENVI @Timer1=0
//IFEX $%T1%>9,KILL \%Windows1%
IFEX $%T1%>9,KILL \
_END
_SUB Windows1,W160H80,%WinName%,,%WindowIcon%
PBAR Pbar1,L10T11W100H16,50
ENVI LK=关闭窗口倒计时:
LABE LabelK,L10T42W160H16,%LK%
TIME Timer1,1000,CALL SetLabelI
_END
ENVI WinName=PECMD功能演示(外置脚本方式)
ENVI T1=0
CALL @Windows1
之后的版本CALC有"整数和非整数"之分。
[ 本帖最后由 lxl1638 于 2009-6-30 13:50 编辑 ] |
|