无忧启动论坛

标题: 用PECMD写的年龄计算器脚本怎么不正常了？ [打印本页]
作者: ge    时间: 2022-5-20 13:09
标题: 用PECMD写的年龄计算器脚本怎么不正常了？
想要的结果是这样的
现在没有反应呢！想要用的时候，运行不了了！我记得当时想弄加上天干地支，后来写的时候感觉太麻烦了，主要是对这些也不了解。
但是在原来我发表的贴子上下载的也不能用了，不知道是不是当时就不行了，还是我没有弄对，或者是这个版本的PECMD的问题。这个是上面图片的代码，请大神看看哪有问题
  1. TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
  2. DOW1
  3. _SUB DOW1,W368H388
  4.     LABE LABE1,L12T12W72H24,生肖：,,,18
  5.     EDIT Edit1,L84T12W30H30,,CALL DOW2,,,18
  6.     LABE LABE2,L200T12W120H24,今年是：,,,18
  7.     LABE LABE3,L328T12W72H24,年,,,18
  8.     EDIT Edit2,L288T12W30H30,,,,,18
  9.     ITEM BUTT1,L120T12W72H28,计算年龄,CALL DOW2
  10.     MEMO MEMO1,L18T48W338H300,,,,,18
  11.     NTPC -Q,SJ
  12.     LSTR JS=4,%SJ%
  13.     CALC JN=MOD(%JS%,12)
  14.     IFEX $%JN%=1,TEAM ENVI CZ=10| ENVI @Edit2=鸡
  15.     IFEX $%JN%=2,TEAM ENVI CZ=11| ENVI @%Edit2=狗
  16.     IFEX $%JN%=3,TEAM ENVI CZ=12| ENVI @%Edit2=猪
  17.     IFEX $%JN%=4,TEAM ENVI CZ=1| ENVI @Edit2=鼠
  18.     IFEX $%JN%=5,TEAM ENVI CZ=2| ENVI @Edit2=牛
  19.     IFEX $%JN%=6,TEAM ENVI CZ=3| ENVI @Edit2=虎
  20.     IFEX $%JN%=7,TEAM ENVI CZ=4| ENVI @Edit2=兔
  21.     IFEX $%JN%=8,TEAM ENVI CZ=5| ENVI @Edit2=龙
  22.     IFEX $%JN%=9,TEAM ENVI CZ=6| ENVI @Edit2=蛇
  23.     IFEX $%JN%=10,TEAM ENVI CZ=7| ENVI @Edit2=马
  24.     IFEX $%JN%=11,TEAM ENVI CZ=8| ENVI @Edit2=羊
  25.     IFEX $%JN%=0,TEAM ENVI CZ=9| ENVI @Edit2=猴
  26. _END

  28. _SUB DOW2
  29.     FIND $%Edit1%=鼠,ENVI JJ=1
  30.     FIND $%Edit1%=牛,ENVI JJ=2
  31.     FIND $%Edit1%=虎,ENVI JJ=3
  32.     FIND $%Edit1%=兔,ENVI JJ=4
  33.     FIND $%Edit1%=龙,ENVI JJ=5
  34.     FIND $%Edit1%=蛇,ENVI JJ=6
  35.     FIND $%Edit1%=马,ENVI JJ=7
  36.     FIND $%Edit1%=羊,ENVI JJ=8
  37.     FIND $%Edit1%=猴,ENVI JJ=9
  38.     FIND $%Edit1%=鸡,ENVI JJ=10
  39.     FIND $%Edit1%=狗,ENVI JJ=11
  40.     FIND $%Edit1%=猪,ENVI JJ=12
  41.     ENVI SZ=
  42.     ENVI XH=144
  43.     LOOP %XH%>=0,TEAM CALC BMN=%JS%+%JJ%-%XH%-%CZ%| CALC JG=%JS%-%BMN%| CALC XH=%XH%-12| ENVI SZ=  本命年：%BMN%  年龄：%JG%\n%SZ%
复制代码
后来才发现%JJ%=CZ%,CALC BMN=%JS%+%JJ%-%XH%-%CZ%中可以把+%JJ%-%CZ%去掉

作者: 9001    时间: 2022-5-20 14:08
楼主你把字体弄小点，手机一看两行代码满屏了，哈哈
作者: 红毛樱木    时间: 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ
吧
NTPC好像有BUG会卡死的
作者: ge    时间: 2022-5-20 18:27
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

谢谢
作者: ge    时间: 2022-5-20 18:28
9001 发表于 2022-5-20 14:08
楼主你把字体弄小点，手机一看两行代码满屏了，哈哈

我一开始就是想不改变字体大小了，可是有的老年人就用手机看不到。好像是，反正就是这个意思吧，不知道是在哪看不好了
作者: ge    时间: 2022-5-20 18:32
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

现在可以出现界面了，但是在输入生肖后再点击计算还是不行，没有结果
作者: ge    时间: 2022-5-20 18:34
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

NTPC -Q,SJ
换成
DATE SJ
不是不能用网络时间了？
作者: 红毛樱木    时间: 2022-5-20 18:39
ge 发表于 2022-5-20 18:32
现在可以出现界面了，但是在输入生肖后再点击计算还是不行，没有结果

ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2
里不是少一个MEMO1的设置？
作者: ge    时间: 2022-5-20 18:41
红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2

我看看
作者: ge    时间: 2022-5-20 18:43
红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2

谢谢，我又看看，真的有问题
作者: ge    时间: 2022-5-20 18:51
本帖最后由 ge 于 2022-5-27 11:23 编辑

我又弄错了！
这%JJ%=CZ%,CALC BMN=%JS%+%JJ%-%XH%-%CZ%中+%JJ%-%CZ%不多余
作者: 9527sss    时间: 2022-5-20 19:48
感谢分享
作者: 630    时间: 2022-5-21 09:57
我看看
作者: ge    时间: 2022-5-27 11:33
代码太长了
    LOOP %XH%>=0,TEAM CALC BMN=%JS%+%JJ%-%XH%-%CZ%| CALC JG=%JS%-%BMN%| CALC XH=%XH%-12| ENVI SZ=  本命年：%BMN%  年龄：%JG%\n%SZ%
改成
    LOOP %XH%>=0,
        {
            CALC BMN=%JS%+%JJ%-%XH%-%CZ%
            CALC JG=%JS%-%BMN%
            CALC XH=%XH%-12
            ENVI SZ= 出生年份：%BMN%  年龄：%JG%\n%SZ%
         }
更好点
作者: ge    时间: 2022-5-27 11:35
后面多个空格可以加上    MSTR SZ=-3,0,%SZ%
作者: 断桥烟雨    时间: 2022-5-27 11:56

我看看
作者: ge    时间: 2022-7-29 11:03
断桥烟雨 发表于 2022-5-27 11:56
我看看

原来没有错，只是系统稳定性不行
NTPC -Q,SJ
换成
DATE SJ
吧
NTPC好像有BUG会卡死的



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3