无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 3076|回复: 16

[求助] 用PECMD写的年龄计算器脚本怎么不正常了?

[复制链接]
发表于 2022-5-20 13:09:28 | 显示全部楼层 |阅读模式
想要的结果是这样的
现在没有反应呢!想要用的时候,运行不了了!我记得当时想弄加上天干地支,后来写的时候感觉太麻烦了,主要是对这些也不了解。
但是在原来我发表的贴子上下载的也不能用了,不知道是不是当时就不行了,还是我没有弄对,或者是这个版本的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. _SUB DOW2
  28.     FIND $%Edit1%=鼠,ENVI JJ=1
  29.     FIND $%Edit1%=牛,ENVI JJ=2
  30.     FIND $%Edit1%=虎,ENVI JJ=3
  31.     FIND $%Edit1%=兔,ENVI JJ=4
  32.     FIND $%Edit1%=龙,ENVI JJ=5
  33.     FIND $%Edit1%=蛇,ENVI JJ=6
  34.     FIND $%Edit1%=马,ENVI JJ=7
  35.     FIND $%Edit1%=羊,ENVI JJ=8
  36.     FIND $%Edit1%=猴,ENVI JJ=9
  37.     FIND $%Edit1%=鸡,ENVI JJ=10
  38.     FIND $%Edit1%=狗,ENVI JJ=11
  39.     FIND $%Edit1%=猪,ENVI JJ=12
  40.     ENVI SZ=
  41.     ENVI XH=144
  42.     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%去掉

发表于 2022-5-20 14:08:16 来自手机 | 显示全部楼层
楼主你把字体弄小点,手机一看两行代码满屏了,哈哈
回复

使用道具 举报

发表于 2022-5-20 14:38:12 | 显示全部楼层
NTPC -Q,SJ
换成
DATE SJ

NTPC好像有BUG会卡死的
回复

使用道具 举报

 楼主| 发表于 2022-5-20 18:27:05 | 显示全部楼层
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

谢谢
回复

使用道具 举报

 楼主| 发表于 2022-5-20 18:28:55 | 显示全部楼层
9001 发表于 2022-5-20 14:08
楼主你把字体弄小点,手机一看两行代码满屏了,哈哈

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

使用道具 举报

 楼主| 发表于 2022-5-20 18:32:08 | 显示全部楼层
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

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

使用道具 举报

 楼主| 发表于 2022-5-20 18:34:16 | 显示全部楼层
红毛樱木 发表于 2022-5-20 14:38
NTPC -Q,SJ
换成
DATE SJ

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

使用道具 举报

发表于 2022-5-20 18:39:55 | 显示全部楼层
ge 发表于 2022-5-20 18:32
现在可以出现界面了,但是在输入生肖后再点击计算还是不行,没有结果

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

使用道具 举报

 楼主| 发表于 2022-5-20 18:41:15 | 显示全部楼层
红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧?
_SUB DOW2

我看看
回复

使用道具 举报

 楼主| 发表于 2022-5-20 18:43:16 | 显示全部楼层
红毛樱木 发表于 2022-5-20 18:39
ENVI @MEMO1=%SZ%
你代码都没贴全吧?
_SUB DOW2

谢谢,我又看看,真的有问题
回复

使用道具 举报

 楼主| 发表于 2022-5-20 18:51:42 | 显示全部楼层
本帖最后由 ge 于 2022-5-27 11:23 编辑

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

使用道具 举报

发表于 2022-5-20 19:48:03 | 显示全部楼层
感谢分享
回复

使用道具 举报

发表于 2022-5-21 09:57:58 | 显示全部楼层
我看看
回复

使用道具 举报

 楼主| 发表于 2022-5-27 11:33: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%
改成
    LOOP %XH%>=0,
        {
            CALC BMN=%JS%+%JJ%-%XH%-%CZ%
            CALC JG=%JS%-%BMN%
            CALC XH=%XH%-12
            ENVI SZ= 出生年份:%BMN%  年龄:%JG%\n%SZ%
         }
更好点
回复

使用道具 举报

 楼主| 发表于 2022-5-27 11:35:29 | 显示全部楼层
后面多个空格可以加上    MSTR SZ=-3,0,%SZ%
回复

使用道具 举报

发表于 2022-5-27 11:56:37 | 显示全部楼层

我看看
回复

使用道具 举报

 楼主| 发表于 2022-7-29 11:03:44 | 显示全部楼层

原来没有错,只是系统稳定性不行
NTPC -Q,SJ
换成
DATE SJ

NTPC好像有BUG会卡死的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 18:44

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表