用PECMD写的年龄计算器脚本怎么不正常了？

ge

想要的结果是这样的
现在没有反应呢！想要用的时候，运行不了了！我记得当时想弄加上天干地支，后来写的时候感觉太麻烦了，主要是对这些也不了解。
但是在原来我发表的贴子上下载的也不能用了，不知道是不是当时就不行了，还是我没有弄对，或者是这个版本的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
    
27. 
    
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

楼主你把字体弄小点，手机一看两行代码满屏了，哈哈

红毛樱木

NTPC -Q,SJ
换成
DATE SJ
吧
NTPC好像有BUG会卡死的

ge

红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

谢谢

ge

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

我一开始就是想不改变字体大小了，可是有的老年人就用手机看不到。好像是，反正就是这个意思吧，不知道是在哪看不好了

ge

红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

现在可以出现界面了，但是在输入生肖后再点击计算还是不行，没有结果

ge

红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

NTPC -Q,SJ
换成
DATE SJ
不是不能用网络时间了？

红毛樱木

ge 发表于 2022-5-20 18:32
现在可以出现界面了，但是在输入生肖后再点击计算还是不行，没有结果

ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2
里不是少一个MEMO1的设置？

ge

红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2

我看看

ge

红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧？
_SUB DOW2

谢谢，我又看看，真的有问题

ge

我又弄错了！
这%JJ%=CZ%,CALC BMN=%JS%+%JJ%-%XH%-%CZ%中+%JJ%-%CZ%不多余

9527sss

感谢分享

630

我看看

ge

代码太长了
    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

后面多个空格可以加上    MSTR SZ=-3,0,%SZ%

断桥烟雨

我看看

ge

断桥烟雨 发表于 2022-5-27 11:56
我看看

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