曾经写的PECMD脚本年龄计算器怎么好出错？

ge

版号│☆PECMD v2012.1.88     fix
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
DOW1
_SUB DOW1,W368H388
    LABE LABE1,L12T12W72H24,生肖：,,,18
    EDIT Edit1,L84T12W30H30,,CALL DOW2,,,18
    LABE LABE2,L200T12W120H24,今年是：,,,18
    LABE LABE3,L328T12W72H24,年,,,18
    EDIT Edit2,L288T12W30H30,,,,,18
    ITEM BUTT1,L120T12W72H28,计算年龄,CALL DOW2
    MEMO MEMO1,L18T48W338H300,,,,,18
    DATE SJ
    LSTR JS=4,%SJ%
    CALC JN=MOD(%JS%,12)
    IFEX $%JN%=1,TEAM ENVI CZ=10| ENVI @Edit2=鸡
    IFEX $%JN%=2,TEAM ENVI CZ=11| ENVI @%Edit2=狗
    IFEX $%JN%=3,TEAM ENVI CZ=12| ENVI @%Edit2=猪
    IFEX $%JN%=4,TEAM ENVI CZ=1| ENVI @Edit2=鼠
    IFEX $%JN%=5,TEAM ENVI CZ=2| ENVI @Edit2=牛
    IFEX $%JN%=6,TEAM ENVI CZ=3| ENVI @Edit2=虎
    IFEX $%JN%=7,TEAM ENVI CZ=4| ENVI @Edit2=兔
    IFEX $%JN%=8,TEAM ENVI CZ=5| ENVI @Edit2=龙
    IFEX $%JN%=9,TEAM ENVI CZ=6| ENVI @Edit2=蛇
    IFEX $%JN%=10,TEAM ENVI CZ=7| ENVI @Edit2=马
    IFEX $%JN%=11,TEAM ENVI CZ=8| ENVI @Edit2=羊
    IFEX $%JN%=0,TEAM ENVI CZ=9| ENVI @Edit2=猴
_END

_SUB DOW2
    FIND $%Edit1%=鼠,ENVI JJ=1
    FIND $%Edit1%=牛,ENVI JJ=2
    FIND $%Edit1%=虎,ENVI JJ=3
    FIND $%Edit1%=兔,ENVI JJ=4
    FIND $%Edit1%=龙,ENVI JJ=5
    FIND $%Edit1%=蛇,ENVI JJ=6
    FIND $%Edit1%=马,ENVI JJ=7
    FIND $%Edit1%=羊,ENVI JJ=8
    FIND $%Edit1%=猴,ENVI JJ=9
    FIND $%Edit1%=鸡,ENVI JJ=10
    FIND $%Edit1%=狗,ENVI JJ=11
    FIND $%Edit1%=猪,ENVI JJ=12
    ENVI SZ=
    ENVI XH=144
    LOOP %XH%>=0,TEAM CALC BMN=%JS%+%JJ%-%XH%-%CZ%| CALC JG=%JS%-%BMN%| CALC XH=%XH%-12| ENVI SZ=  本命年：%BMN%  年龄：%JG%\n%SZ%
    ENVI @MEMO1=%SZ%
_END
想要的是在输入框里面输入属相，然后回车就可以在编辑框里面输出多行的是哪年的，多大了。但是结果有的时候就不准确，不知道为什么？

红毛樱木

一瞪眼看   Edit1  没有判断非属相的输入

ge

红毛樱木 发表于 2025-2-17 17:48
一瞪眼看   Edit1  没有判断非属相的输入

謝謝指教！怎樣才能解決呀？

红毛樱木

ge 发表于 2025-2-17 19:42
謝謝指教！怎樣才能解決呀？

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.     DATE JS y
    
12.     CALC JN=MOD(%JS%,12)
    
13.     IFEX $%JN%=1,TEAM ENVI CZ=10| ENVI @Edit2=鸡
    
14.     IFEX $%JN%=2,TEAM ENVI CZ=11| ENVI @%Edit2=狗
    
15.     IFEX $%JN%=3,TEAM ENVI CZ=12| ENVI @%Edit2=猪
    
16.     IFEX $%JN%=4,TEAM ENVI CZ=1| ENVI @Edit2=鼠
    
17.     IFEX $%JN%=5,TEAM ENVI CZ=2| ENVI @Edit2=牛
    
18.     IFEX $%JN%=6,TEAM ENVI CZ=3| ENVI @Edit2=虎
    
19.     IFEX $%JN%=7,TEAM ENVI CZ=4| ENVI @Edit2=兔
    
20.     IFEX $%JN%=8,TEAM ENVI CZ=5| ENVI @Edit2=龙
    
21.     IFEX $%JN%=9,TEAM ENVI CZ=6| ENVI @Edit2=蛇
    
22.     IFEX $%JN%=10,TEAM ENVI CZ=7| ENVI @Edit2=马
    
23.     IFEX $%JN%=11,TEAM ENVI CZ=8| ENVI @Edit2=羊
    
24.     IFEX $%JN%=0,TEAM ENVI CZ=9| ENVI @Edit2=猴
    
25. _END
    
26. 
    
27. _SUB DOW2
    
28.     ENVI JJ=0
    
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.     IFEX #%JJ%>0,
    
42.     {*
    
43.         ENVI SZ=
    
44.         ENVI XH=144
    
45.         LOOP %XH%>=0,TEAM CALC BMN=%JS%+%JJ%-%XH%-%CZ%| CALC JG=%JS%-%BMN%| CALC XH=%XH%-12| ENVI SZ=  本命年：%BMN%  年龄：%JG%\n%SZ%
    
46.         ENVI @MEMO1=%SZ%
    
47.     }!  
    
48.     {*
    
49.         ENVI @MEMO1=请输入正确的属相！！！
    
50.     }
    
51. _END

复制代码

ge

谢谢！我刚才弄错了，以为JJ的值可以不用呢，结果不行

ge

红毛樱木 发表于 2025-2-17 21:30

谢谢！我刚才弄错了，以为JJ的值可以不用呢，结果不行

yyz2191958

能不能弄一个：输入岁数，显示属相的 谢谢

ge

yyz2191958 发表于 2025-3-4 13:15
能不能弄一个：输入岁数，显示属相的 谢谢

這個和我的差不多呀，用計算方法就可以了呀！

yyz2191958

ge 发表于 2025-3-4 18:25
這個和我的差不多呀，用計算方法就可以了呀！

我不晓得，麻烦你弄一个好吗？谢谢

ge

yyz2191958 发表于 2025-3-4 18:30
我不晓得，麻烦你弄一个好吗？谢谢

好的！我當時也都不懂，多看看命令幫助，還有人家的腳本，就學到了一些，現在也有不懂的，但是也學到了，要多看，多動手

ge

yyz2191958 发表于 2025-3-4 18:30
我不晓得，麻烦你弄一个好吗？谢谢

我明天看看

ge

我知道問題了，是限制回復間隔，這是為什麽呢？為什麽要限制？

yyz2191958

ge 发表于 2025-3-4 18:35
我明天看看

好的 谢谢

ge

yyz2191958 发表于 2025-3-4 13:15
能不能弄一个：输入岁数，显示属相的 谢谢

改好了！电脑不好使了，也没有找到问题，才弄好，有的我也忘记了，又找的FIND和IFEX的区别都不知道了，还有单选框是怎么判断状态的

1. TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
   
2. DOW1
   
3. _SUB DOW1,W380H98
   
4.     LABE LABE1,L12T18W152H24,请输入年龄：,,,18
   
5.     EDIT Edit1,L144T16W44H30,,CALL DOW2,,,18
   
6.     RADI Radio1,L196T10W40H20,周岁,CALL DOW2,0
   
7.     RADI Radio2,L196T34W40H20,虚岁,CALL DOW2,1
   
8.     LABE LABE2,L240T18W100H24,属相是：,,,18
   
9.     EDIT Edit2,L328T16W30H30,,,-,,18
   
10. _END
    
11. 
    
12. _SUB DOW2
    
13.     DATE JY y
    
14.     IFEX $%Radio1.Check%=1,ENVI NL=%Edit1%! ENVI NL=%Edit1%+1
    
15.     CALC JS=%JY%-%NL%
    
16.     CALC JN=MOD(%JS%,12)
    
17.     IFEX $%JN%=1,ENVI @Edit2=鸡
    
18.     IFEX $%JN%=2,ENVI @%Edit2=狗
    
19.     IFEX $%JN%=3,ENVI @%Edit2=猪
    
20.     IFEX $%JN%=4,ENVI @Edit2=鼠
    
21.     IFEX $%JN%=5,ENVI @Edit2=牛
    
22.     IFEX $%JN%=6,ENVI @Edit2=虎
    
23.     IFEX $%JN%=7,ENVI @Edit2=兔
    
24.     IFEX $%JN%=8,ENVI @Edit2=龙
    
25.     IFEX $%JN%=9,ENVI @Edit2=蛇
    
26.     IFEX $%JN%=10,ENVI @Edit2=马
    
27.     IFEX $%JN%=11,ENVI @Edit2=羊
    
28.     IFEX $%JN%=0,ENVI @Edit2=猴
    
29. _END

复制代码

yyz2191958

ge 发表于 2025-3-5 11:25
改好了！电脑不好使了，也没有找到问题，才弄好，有的我也忘记了，又找的FIND和IFEX的区别都不知道了，还 ...

非常感谢

yyz2191958

ge 发表于 2025-3-5 11:25
改好了！电脑不好使了，也没有找到问题，才弄好，有的我也忘记了，又找的FIND和IFEX的区别都不知道了，还 ...

有BUG，比如 67、68 虚岁就没有显示，能不能修改一下谢谢

yyz2191958

问题发现了：
IFEX $%JN%=2,ENVI @%Edit2=狗
IFEX $%JN%=3,ENVI @%Edit2=猪

多了：%
=======================
下面就行了：
TEAM ENVI^ ENVIMODE=1| ENVI^ FORCELOCAL=1
DOW1
_SUB DOW1,W380H98
    LABE LABE1,L12T18W152H24,请输入年龄：,,,18
    EDIT Edit1,L144T16W44H30,,CALL DOW2,,,18
    RADI Radio1,L196T10W40H20,周岁,CALL DOW2,1
    RADI Radio2,L196T34W40H20,虚岁,CALL DOW2,0
    LABE LABE2,L240T18W100H24,属相是：,,,18
    EDIT Edit2,L328T16W30H30,,,-,,18
_END

_SUB DOW2
    DATE JY y
    IFEX $%Radio1.Check%=1,ENVI NL=%Edit1%! ENVI NL=%Edit1%+1
    CALC JS=%JY%-%NL%
    CALC JN=MOD(%JS%,12)
    IFEX $%JN%=1,ENVI @Edit2=鸡
    IFEX $%JN%=2,ENVI @Edit2=狗
    IFEX $%JN%=3,ENVI @Edit2=猪
    IFEX $%JN%=4,ENVI @Edit2=鼠
    IFEX $%JN%=5,ENVI @Edit2=牛
    IFEX $%JN%=6,ENVI @Edit2=虎
    IFEX $%JN%=7,ENVI @Edit2=兔
    IFEX $%JN%=8,ENVI @Edit2=龙
    IFEX $%JN%=9,ENVI @Edit2=蛇
    IFEX $%JN%=10,ENVI @Edit2=马
    IFEX $%JN%=11,ENVI @Edit2=羊
    IFEX $%JN%=0,ENVI @Edit2=猴
_END

ge

yyz2191958 发表于 2025-3-5 11:46
有BUG，比如 67、68 虚岁就没有显示，能不能修改一下谢谢

我這正常呀！

ge

yyz2191958 发表于 2025-3-5 12:34
问题发现了：
IFEX $%JN%=2,ENVI @%Edit2=狗
IFEX $%JN%=3,ENVI @%Edit2=猪

好像是多餘的，以前看到了，沒有注意，把%去掉吧

ge

yyz2191958 发表于 2025-3-5 11:35
非常感谢

客氣了！這沒有什麼，多看看幫助和實例就差不多了

ge

yyz2191958 发表于 2025-3-5 12:34
问题发现了：
IFEX $%JN%=2,ENVI @%Edit2=狗
IFEX $%JN%=3,ENVI @%Edit2=猪

67/68是不是屬狗和豬的？在控件名前多了個%就不正常了？

yanhao9

感谢分享