|
本帖最后由 ge 于 2015-6-19 19:40 编辑
这是计算器脚本是我在原来写的基础上,最近修改的,还是有点问题!在没有修改的脚本上也没有发现这个问题!我想简化一下,但没有成功!没有人家做的好看好用!我也下载别人的,打开后有太多我都看不懂!帮忙看一下是什么问题怎么改!谢谢!脚本无法上传!
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1 SET &EM_GETSEL=0x00B0 SET &EM_SETSEL=0x00B1 CALL WIN1 _SUB WIN1,W412H340,计算器, EDIT Edit1,L10T10W386H37,,,,0x000eef,24 ITEM -na ITEMA1,L12T57W30H30 ,1,TEAM ENVI ITEM=1|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA2,L54T57W30H30 ,2,TEAM ENVI ITEM=2|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA3,L96T57W30H30 ,3,TEAM ENVI ITEM=3|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA4,L12T99W30H30 ,4,TEAM ENVI ITEM=4|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA5,L54T99W30H30 ,5,TEAM ENVI ITEM=5|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA6,L96T99W30H30 ,6,TEAM ENVI ITEM=6|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA7,L12T141W30H30 ,7,TEAM ENVI ITEM=7|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA8,L54T141W30H30 ,8,TEAM ENVI ITEM=8|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA9,L96T141W30H30 ,9,TEAM ENVI ITEM=9|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMA0,L12T183W30H30 ,0,TEAM ENVI ITEM=0|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAA,L54T183W30H30 ,.,TEAM ENVI ITEM=.|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAB,L96T183W30H30 ,=,CALL JS, ITEM -na ITEMAC,L138T57W30H30 ,+,TEAM ENVI ITEM=+|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAD,L138T99W30H30 ,-,TEAM ENVI ITEM=-|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAE,L138T141W30H30,×,TEAM ENVI ITEM=*|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAF,L138T183W30H30,÷,TEAM ENVI ITEM=/|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAG,L180T57W30H30 ,sin,TEAM ENVI SJHS=sin|CALL HS ITEM -na ITEMAH,L180T99W30H30 ,cos,TEAM ENVI SJHS=cos|CALL HS ITEM -na ITEMAI,L180T141W30H30,tan,TEAM ENVI SJHS=tan|CALL HS ITEM -na ITEMAJ,L180T183W30H30,ctg,TEAM ENVI SJHS=ctg|CALL HS ITEM -na ITEMAK,L222T57W50H30 ,arcsin,TEAM ENVI FSJHS=arcsin|CALL FHS ITEM -na ITEMAL,L222T99W50H30 ,arccos,TEAM ENVI FSJHS=arccos|CALL FHS ITEM -na ITEMAM,L222T141W50H30,arctan,TEAM ENVI FSJHS=arctan|CALL FHS ITEM -na ITEMAN,L222T183W50H30,arcctg,TEAM ENVI FSJHS=arcctg|CALL FHS ITEM -na ITEMAO,L282T57W30H30 ,(,TEAM ENVI ITEM=(|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAP,L282T99W30H30 ,),TEAM ENVI ITEM=)|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAQ,L282T141W30H30,π,TEAM ENVI ITEM=pi|STRL L=%EDIT1%ZZ|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAR,L282T183W30H30,e,TEAM ENVI ITEM=e|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAS,L322T57W30H30 ,←,SEND #0x08 ITEM -na ITEMAT,L322T99W30H30 ,Xⁿ,TEAM ENVI ITEM=^|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAU,L364T57W30H30 ,C,ENVI @Edit1=, ITEM -na ITEMAV,L364T99W30H30 ,ⁿ√,TEAM ENVI ITEM=^(1/)|STRL L=%EDIT1%ZZZZ|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L12T225W30H30 ,A,TEAM ENVI ITEM=A|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L54T225W30H30 ,B,TEAM ENVI ITEM=B|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L96T225W30H30 ,C,TEAM ENVI ITEM=C|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L12T267W30H30 ,D,TEAM ENVI ITEM=D|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L54T267W30H30 ,E,TEAM ENVI ITEM=E|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% ITEM -na ITEMAV,L96T267W30H30 ,F,TEAM ENVI ITEM=F|STRL L=%EDIT1%Z|ENVI @EDIT1=%EDIT1%%ITEM%|CALL SetPos EDIT1 %L% LIST LIST1,L322T141W52H30,角度|弧度,CALL HJ,角度, LIST LIST2,L322T183W62H30,二进制|八进制|十进制|十六进制,,十进制 _END // SetPos EditName PosStart [PosEnd] _SUB SetPos SET &d2=%~3 FIND $%&d2%=, SET &d2=%~2 ENVI @%1.POSTMSG=%EM_SETSEL%,%~2,%d2% _END _SUB JS FIND $%LIST2%=二进制,ENVI Z=CALC -BASE=2 FIND $%LIST2%=八进制,ENVI Z=CALC -BASE=8 FIND $%LIST2%=十进制,ENVI Z=CALC FIND $%LIST2%=十六进制,ENVI Z=CALC -BASE=16 TEAM %Z% E=%Edit1%#FEG|ENVI @Edit1=%E% _END _SUB HS FIND $%LIST1%=角度,TEAM STRL L=%EDIT1%ZZZZZZZZ|ENVI @EDIT1=%EDIT1%%SJHS%(rad())|CALL SetPos EDIT1 %L%!TEAM STRL L=%EDIT1%ZZZZ|ENVI @EDIT1=%EDIT1%%SJHS%()|CALL SetPos EDIT1 %L% _END _SUB FHS FIND $%LIST1%=角度,TEAM STRL L=%EDIT1%ZZZZZZZZZZZ|ENVI @EDIT1=%EDIT1%deg(%FSJHS%())|CALL SetPos EDIT1 %L%!TEAM STRL L=%EDIT1%ZZZZZZZ|ENVI @EDIT1=%EDIT1%%FSJHS%()|CALL SetPos EDIT1 %L%
_END
|
|