精易论坛

标题: 求能否继续精简 初学2 [打印本页]

---

作者: a154038274    时间: 2019-2-2 01:41
标题: 求能否继续精简 初学2


如图是否还能精简  或者其他办法实现代码精简

想求一个网络时间的网址    大伙可有    我做成网络的     初学    练手     别喷  谢谢    请指教

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
星座	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时间处理 ()
启动线程 (&实时时间, , )
气球提示框1.关联组件 (组合框1, “农历”, -1, , , 组合框1.高度, 组合框1.宽度)
气球提示框1.关联组件 (组合框2, “农历”, -1, , , 组合框2.高度, 组合框2.宽度)
气球提示框1.关联组件 (编辑框1, “实时时间”, -1, , , 编辑框1.高度, 编辑框1.宽度)
气球提示框1.关联组件 (编辑框6, “星座”, -1, , , 编辑框6.高度, 编辑框6.宽度)
气球提示框1.关联组件 (编辑框4, “生日倒计时”, -1, , , 编辑框4.高度, 编辑框4.宽度)
气球提示框1.关联组件 (编辑框5, “本年生日所属公历”, -1, , , 编辑框5.高度, 编辑框5.宽度)

子程序名	返回值类型	公开	备 注
实时时间	子程序指针

编辑框1.内容 ＝ 到文本 (取现行时间 ())
延时 (950)
返回 (实时时间 ())

子程序名	返回值类型	公开	备 注
时间处理	日期时间型

变量名	类 型	静态	数组	备 注
时间	日期时间型
年	整数型
月	整数型
日	整数型
sss	逻辑型

公历转农历 (取现行时间 (), 年, 月, 日, sss)
时间 ＝ 到时间 (到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “月” ＋ 到文本 (日) ＋ “日”)
返回 (时间)

子程序名	返回值类型	公开	备 注
_组合框2_列表项被选择

变量名	类 型	静态	数组	备 注
生日	日期时间型
公历	日期时间型

如果真 (组合框1.内容 ≠ “”)
如果真 (组合框2.内容 ≠ “”)
生日 ＝ 到时间 (到文本 (取时间部分 (取现行时间 (), #年份 )) ＋ “年” ＋ 组合框1.内容 ＋ “月” ＋ 组合框2.内容 ＋ “日”)
编辑框4.内容 ＝ 到文本 (取时间间隔 (生日, 时间处理 (), #日 ))
农历转公历 (取时间部分 (取现行时间 (), #年份 ), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)
编辑框5.内容 ＝ 到文本 (公历)
编辑框6.内容 ＝ 子文本替换 (系统_取星座 (公历), “ ”, “”, , , 真)
星座 ＝ 系统_取星座 (公历)
概述.选中 ＝ 真
如果真 (星座 ＝ “金牛座”)
图片框1.图片 ＝ #金牛
星座信息.标题 ＝ #金牛1
如果真 (星座 ＝ “白羊座”)
图片框1.图片 ＝ #白羊
星座信息.标题 ＝ #白羊1
如果真 (星座 ＝ “双子座”)
图片框1.图片 ＝ #双子
星座信息.标题 ＝ #双子1
如果真 (星座 ＝ “巨蟹座”)
图片框1.图片 ＝ #巨蟹
星座信息.标题 ＝ #巨蟹1
如果真 (星座 ＝ “狮子座”)
图片框1.图片 ＝ #狮子
星座信息.标题 ＝ #狮子1
如果真 (星座 ＝ “处女座”)
图片框1.图片 ＝ #处女
星座信息.标题 ＝ #处女1
如果真 (星座 ＝ “天秤座”)
图片框1.图片 ＝ #天枰
星座信息.标题 ＝ #天枰1
如果真 (星座 ＝ “天蝎座”)
图片框1.图片 ＝ #天蝎
星座信息.标题 ＝ #天蝎1
如果真 (星座 ＝ “射手座”)
图片框1.图片 ＝ #射手
星座信息.标题 ＝ #射手1
如果真 (星座 ＝ “魔羯座”)
图片框1.图片 ＝ #摩羯
星座信息.标题 ＝ #摩羯1
如果真 (星座 ＝ “水瓶座”)
图片框1.图片 ＝ #水瓶
星座信息.标题 ＝ #水瓶1
如果真 (星座 ＝ “双鱼座”)
图片框1.图片 ＝ #双鱼
星座信息.标题 ＝ #双鱼1

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

_组合框2_列表项被选择 ()

子程序名	返回值类型	公开	备 注
_女生_被单击

概述.选中 ＝ 假
如果真 (星座 ＝ “金牛座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #金牛女
如果真 (星座 ＝ “白羊座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #白羊女
如果真 (星座 ＝ “双子座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #双子女
如果真 (星座 ＝ “巨蟹座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #巨蟹女
如果真 (星座 ＝ “狮子座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #狮子女
如果真 (星座 ＝ “处女座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #处女女
如果真 (星座 ＝ “天秤座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #天枰女
如果真 (星座 ＝ “天蝎座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #天蝎女
如果真 (星座 ＝ “射手座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #射手女
如果真 (星座 ＝ “魔羯座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #摩羯女
如果真 (星座 ＝ “水瓶座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #水瓶女
如果真 (星座 ＝ “双鱼座”)
星座信息.文本颜色 ＝ #桃红
星座信息.标题 ＝ #双鱼女

子程序名	返回值类型	公开	备 注
_男生_被单击

概述.选中 ＝ 假
如果真 (星座 ＝ “金牛座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #金牛男
如果真 (星座 ＝ “白羊座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #白羊男
如果真 (星座 ＝ “双子座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #双子男
如果真 (星座 ＝ “巨蟹座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #巨蟹男
如果真 (星座 ＝ “狮子座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #狮子男
如果真 (星座 ＝ “处女座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #处女男
如果真 (星座 ＝ “天秤座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #天枰男
如果真 (星座 ＝ “天蝎座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #天蝎男
如果真 (星座 ＝ “射手座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #射手男
如果真 (星座 ＝ “魔羯座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #摩羯男
如果真 (星座 ＝ “水瓶座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #水瓶男
如果真 (星座 ＝ “双鱼座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #双鱼男

子程序名	返回值类型	公开	备 注
_概述_被单击

概述.选中 ＝ 真
如果真 (星座 ＝ “金牛座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #金牛1
如果真 (星座 ＝ “白羊座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #白羊1
如果真 (星座 ＝ “双子座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #双子1
如果真 (星座 ＝ “巨蟹座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #巨蟹1
如果真 (星座 ＝ “狮子座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #狮子1
如果真 (星座 ＝ “处女座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #处女1
如果真 (星座 ＝ “天秤座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #天枰1
如果真 (星座 ＝ “天蝎座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #天蝎1
如果真 (星座 ＝ “射手座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #射手1
如果真 (星座 ＝ “魔羯座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #摩羯1
如果真 (星座 ＝ “水瓶座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #水瓶1
如果真 (星座 ＝ “双鱼座”)
星座信息.文本颜色 ＝ #天蓝
星座信息.标题 ＝ #双鱼1

i支持库列表	支持库注释
EThread	多线程支持库
iext5	扩展界面支持库五
spec	特殊功能支持库
CnCalendar	农历日期支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext5<br /> .支持库 spec<br /> .支持库 CnCalendar<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 星座, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时间处理 ()<br /> 启动线程 (&实时时间, , )<br /> 气球提示框1.关联组件 (组合框1, “农历”, -1, , , 组合框1.高度, 组合框1.宽度)<br /> 气球提示框1.关联组件 (组合框2, “农历”, -1, , , 组合框2.高度, 组合框2.宽度)<br /> 气球提示框1.关联组件 (编辑框1, “实时时间”, -1, , , 编辑框1.高度, 编辑框1.宽度)<br /> 气球提示框1.关联组件 (编辑框6, “星座”, -1, , , 编辑框6.高度, 编辑框6.宽度)<br /> 气球提示框1.关联组件 (编辑框4, “生日倒计时”, -1, , , 编辑框4.高度, 编辑框4.宽度)<br /> 气球提示框1.关联组件 (编辑框5, “本年生日所属公历”, -1, , , 编辑框5.高度, 编辑框5.宽度)<br /> <br /> .子程序 实时时间, 子程序指针<br /> <br /> 编辑框1.内容 ＝ 到文本 (取现行时间 ())<br /> 延时 (950)<br /> 返回 (实时时间 ())<br /> <br /> .子程序 时间处理, 日期时间型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 sss, 逻辑型<br /> <br /> 公历转农历 (取现行时间 (), 年, 月, 日, sss)<br /> 时间 ＝ 到时间 (到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “月” ＋ 到文本 (日) ＋ “日”)<br /> 返回 (时间)<br /> <br /> .子程序 _组合框2_列表项被选择<br /> .局部变量 生日, 日期时间型<br /> .局部变量 公历, 日期时间型<br /> <br /> .如果真 (组合框1.内容 ≠ “”)<br />     .如果真 (组合框2.内容 ≠ “”)<br />         生日 ＝ 到时间 (到文本 (取时间部分 (取现行时间 (), #年份)) ＋ “年” ＋ 组合框1.内容 ＋ “月” ＋ 组合框2.内容 ＋ “日”)<br />         编辑框4.内容 ＝ 到文本 (取时间间隔 (生日, 时间处理 (), #日))<br />         农历转公历 (取时间部分 (取现行时间 (), #年份), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)<br />         编辑框5.内容 ＝ 到文本 (公历)<br />         编辑框6.内容 ＝ 子文本替换 (系统_取星座 (公历), “ ”, “”, , , 真)<br />         星座 ＝ 系统_取星座 (公历)<br />         概述.选中 ＝ 真<br />         .如果真 (星座 ＝ “金牛座”)<br />             图片框1.图片 ＝ #金牛<br />             星座信息.标题 ＝ #金牛1<br />         .如果真结束<br />         .如果真 (星座 ＝ “白羊座”)<br />             图片框1.图片 ＝ #白羊<br />             星座信息.标题 ＝ #白羊1<br />         .如果真结束<br />         .如果真 (星座 ＝ “双子座”)<br />             图片框1.图片 ＝ #双子<br />             星座信息.标题 ＝ #双子1<br />         .如果真结束<br />         .如果真 (星座 ＝ “巨蟹座”)<br />             图片框1.图片 ＝ #巨蟹<br />             星座信息.标题 ＝ #巨蟹1<br />         .如果真结束<br />         .如果真 (星座 ＝ “狮子座”)<br />             图片框1.图片 ＝ #狮子<br />             星座信息.标题 ＝ #狮子1<br />         .如果真结束<br />         .如果真 (星座 ＝ “处女座”)<br />             图片框1.图片 ＝ #处女<br />             星座信息.标题 ＝ #处女1<br />         .如果真结束<br />         .如果真 (星座 ＝ “天秤座”)<br />             图片框1.图片 ＝ #天枰<br />             星座信息.标题 ＝ #天枰1<br />         .如果真结束<br />         .如果真 (星座 ＝ “天蝎座”)<br />             图片框1.图片 ＝ #天蝎<br />             星座信息.标题 ＝ #天蝎1<br />         .如果真结束<br />         .如果真 (星座 ＝ “射手座”)<br />             图片框1.图片 ＝ #射手<br />             星座信息.标题 ＝ #射手1<br />         .如果真结束<br />         .如果真 (星座 ＝ “魔羯座”)<br />             图片框1.图片 ＝ #摩羯<br />             星座信息.标题 ＝ #摩羯1<br />         .如果真结束<br />         .如果真 (星座 ＝ “水瓶座”)<br />             图片框1.图片 ＝ #水瓶<br />             星座信息.标题 ＝ #水瓶1<br />         .如果真结束<br />         .如果真 (星座 ＝ “双鱼座”)<br />             图片框1.图片 ＝ #双鱼<br />             星座信息.标题 ＝ #双鱼1<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> _组合框2_列表项被选择 ()<br /> <br /> .子程序 _女生_被单击<br /> <br /> 概述.选中 ＝ 假<br /> .如果真 (星座 ＝ “金牛座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #金牛女<br /> .如果真结束<br /> .如果真 (星座 ＝ “白羊座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #白羊女<br /> .如果真结束<br /> .如果真 (星座 ＝ “双子座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #双子女<br /> .如果真结束<br /> .如果真 (星座 ＝ “巨蟹座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #巨蟹女<br /> .如果真结束<br /> .如果真 (星座 ＝ “狮子座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #狮子女<br /> .如果真结束<br /> .如果真 (星座 ＝ “处女座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #处女女<br /> .如果真结束<br /> .如果真 (星座 ＝ “天秤座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #天枰女<br /> .如果真结束<br /> .如果真 (星座 ＝ “天蝎座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #天蝎女<br /> .如果真结束<br /> .如果真 (星座 ＝ “射手座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #射手女<br /> .如果真结束<br /> .如果真 (星座 ＝ “魔羯座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #摩羯女<br /> .如果真结束<br /> .如果真 (星座 ＝ “水瓶座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #水瓶女<br /> .如果真结束<br /> .如果真 (星座 ＝ “双鱼座”)<br />     星座信息.文本颜色 ＝ #桃红<br />     星座信息.标题 ＝ #双鱼女<br /> .如果真结束<br /> <br /> <br /> .子程序 _男生_被单击<br /> <br /> 概述.选中 ＝ 假<br /> .如果真 (星座 ＝ “金牛座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #金牛男<br /> .如果真结束<br /> .如果真 (星座 ＝ “白羊座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #白羊男<br /> .如果真结束<br /> .如果真 (星座 ＝ “双子座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #双子男<br /> .如果真结束<br /> .如果真 (星座 ＝ “巨蟹座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #巨蟹男<br /> .如果真结束<br /> .如果真 (星座 ＝ “狮子座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #狮子男<br /> .如果真结束<br /> .如果真 (星座 ＝ “处女座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #处女男<br /> .如果真结束<br /> .如果真 (星座 ＝ “天秤座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #天枰男<br /> .如果真结束<br /> .如果真 (星座 ＝ “天蝎座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #天蝎男<br /> .如果真结束<br /> .如果真 (星座 ＝ “射手座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #射手男<br /> .如果真结束<br /> .如果真 (星座 ＝ “魔羯座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #摩羯男<br /> .如果真结束<br /> .如果真 (星座 ＝ “水瓶座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #水瓶男<br /> .如果真结束<br /> .如果真 (星座 ＝ “双鱼座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #双鱼男<br /> .如果真结束<br /> <br /> <br /> .子程序 _概述_被单击<br /> <br /> 概述.选中 ＝ 真<br /> .如果真 (星座 ＝ “金牛座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #金牛1<br /> .如果真结束<br /> .如果真 (星座 ＝ “白羊座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #白羊1<br /> .如果真结束<br /> .如果真 (星座 ＝ “双子座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #双子1<br /> .如果真结束<br /> .如果真 (星座 ＝ “巨蟹座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #巨蟹1<br /> .如果真结束<br /> .如果真 (星座 ＝ “狮子座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #狮子1<br /> .如果真结束<br /> .如果真 (星座 ＝ “处女座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #处女1<br /> .如果真结束<br /> .如果真 (星座 ＝ “天秤座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #天枰1<br /> .如果真结束<br /> .如果真 (星座 ＝ “天蝎座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #天蝎1<br /> .如果真结束<br /> .如果真 (星座 ＝ “射手座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #射手1<br /> .如果真结束<br /> .如果真 (星座 ＝ “魔羯座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #摩羯1<br /> .如果真结束<br /> .如果真 (星座 ＝ “水瓶座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #水瓶1<br /> .如果真结束<br /> .如果真 (星座 ＝ “双鱼座”)<br />     星座信息.文本颜色 ＝ #天蓝<br />     星座信息.标题 ＝ #双鱼1<br /> .如果真结束

简单生日倒计时换算.rar

2019-2-2 02:12 上传

点击文件名下载附件

571.64 KB, 下载次数: 13

---

作者: 汉族    时间: 2019-2-2 02:07
大神啊！支持一个

---

作者: a154038274    时间: 2019-2-2 02:15

汉族 发表于 2019-2-2 02:07
大神啊！支持一个

我才学   我这是在找大神学习      刚才改了一条      减少了CPU占用问题    从百分之30   减到百分之1不到

---

作者: a154038274    时间: 2019-2-2 02:21

汉族 发表于 2019-2-2 02:07
大神啊！支持一个

哥我才学     我还在请教大神

---

作者: 启梦    时间: 2019-2-2 03:56

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时间处理 ()
启动线程 (&实时时间, , )
气球提示框1.关联组件 (组合框1, “农历”, -1, , , 组合框1.高度, 组合框1.宽度)
气球提示框1.关联组件 (组合框2, “农历”, -1, , , 组合框2.高度, 组合框2.宽度)
气球提示框1.关联组件 (编辑框1, “实时时间”, -1, , , 编辑框1.高度, 编辑框1.宽度)
气球提示框1.关联组件 (编辑框6, “星座”, -1, , , 编辑框6.高度, 编辑框6.宽度)
气球提示框1.关联组件 (编辑框4, “生日倒计时”, -1, , , 编辑框4.高度, 编辑框4.宽度)
气球提示框1.关联组件 (编辑框5, “本年生日所属公历”, -1, , , 编辑框5.高度, 编辑框5.宽度)
[attach]855632[/attach]

子程序名	返回值类型	公开	备 注
实时时间	子程序指针

编辑框1.内容 ＝ 到文本 (取现行时间 ())
延时 (950)
返回 (实时时间 ())

子程序名	返回值类型	公开	备 注
时间处理	日期时间型

变量名	类 型	静态	数组	备 注
时间	日期时间型
年	整数型
月	整数型
日	整数型
sss	逻辑型

公历转农历 (取现行时间 (), 年, 月, 日, sss)
时间 ＝ 到时间 (到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “月” ＋ 到文本 (日) ＋ “日”)
返回 (时间)

子程序名	返回值类型	公开	备 注
_组合框2_列表项被选择

变量名	类 型	静态	数组	备 注
生日	日期时间型
公历	日期时间型

如果真 (组合框1.内容 ≠ “”)
如果真 (组合框2.内容 ≠ “”)
生日 ＝ 到时间 (到文本 (取时间部分 (取现行时间 (), #年份 )) ＋ “年” ＋ 组合框1.内容 ＋ “月” ＋ 组合框2.内容 ＋ “日”)
编辑框4.内容 ＝ 到文本 (取时间间隔 (生日, 时间处理 (), #日 ))
农历转公历 (取时间部分 (取现行时间 (), #年份 ), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)
编辑框5.内容 ＝ 到文本 (公历)
编辑框6.内容 ＝ 子文本替换 (系统_取星座 (公历), “ ”, “”, , , 真)
星座 ＝ 系统_取星座 (公历)
子程序_信息显示 ()

子程序名	返回值类型	公开	备 注
子程序_信息显示
参数名	类 型	参考	可空	数组	备 注
参_男	整数型
参_女	整数型

变量名	类 型	静态	数组	备 注
星座	整数型

如果 (是否为空 (参_男) 且 是否为空 (参_女))
概述.选中 ＝ 真
概述.选中 ＝ 假
判断 (星座 ＝ “金牛座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #金牛, #金牛1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #金牛女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #金牛男, , )


判断 (星座 ＝ “白羊座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #白羊, #白羊1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #白羊女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #白羊男, , )


判断 (星座 ＝ “双子座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #双子, #双子1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #双子女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #双子男, , )


判断 (星座 ＝ “巨蟹座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #巨蟹, #巨蟹1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #巨蟹女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #巨蟹男, , )


判断 (星座 ＝ “狮子座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #狮子, #狮子1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #狮子女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #狮子男, , )


判断 (星座 ＝ “处女座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #处女, #处女1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #处女女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #处女男, , )


判断 (星座 ＝ “天秤座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #天秤, #天秤1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #天秤女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #天秤男, , )


判断 (星座 ＝ “天蝎座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #天蝎, #天蝎1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #天蝎女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #天蝎男, , )


判断 (星座 ＝ “射手座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #射手, #射手1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #射手女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #射手男, , )


判断 (星座 ＝ “魔羯座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #魔羯, #魔羯1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #魔羯女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #魔羯男, , )


判断 (星座 ＝ “水瓶座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #水瓶, #水瓶1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #水瓶女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #水瓶男, , )


判断 (星座 ＝ “双鱼座”)
如果 (概述.选中=真)
子程序_标题设置 (, , , , #双鱼, #双鱼1 )
如果真 (参_女 ＝ 1)
子程序_标题设置 (, 参_女, #桃红, #双鱼女, , )
如果真 (参_男 ＝ 1)
子程序_标题设置 (, 参_女, #天蓝, #双鱼男, , )

子程序名	返回值类型	公开	备 注
子程序_标题设置
参数名	类 型	参考	可空	数组	备 注
参_男	整数型
参_女	整数型
参_文本颜色	整数型
参_标题	文本型
参_图片	字节集
参_标题2	文本型

图片框1.图片 ＝ 参_图片
星座信息.标题 ＝ 参_标题2
如果真 (参_女 ＝ 1)
星座信息.文本颜色 ＝ 参_文本颜色
星座信息.标题 ＝ 参_标题
如果真 (参_男 ＝ 1)
星座信息.文本颜色 ＝ 参_文本颜色
星座信息.标题 ＝ 参_标题

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

_组合框2_列表项被选择 ()

子程序名	返回值类型	公开	备 注
_女生_被单击

子程序_信息显示 (, 1)

子程序名	返回值类型	公开	备 注
_男生_被单击

子程序_信息显示 (1, )

子程序名	返回值类型	公开	备 注
_概述_被单击

子程序_信息显示 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时间处理 ()<br /> 启动线程 (&实时时间, , )<br /> 气球提示框1.关联组件 (组合框1, “农历”, -1, , , 组合框1.高度, 组合框1.宽度)<br /> 气球提示框1.关联组件 (组合框2, “农历”, -1, , , 组合框2.高度, 组合框2.宽度)<br /> 气球提示框1.关联组件 (编辑框1, “实时时间”, -1, , , 编辑框1.高度, 编辑框1.宽度)<br /> 气球提示框1.关联组件 (编辑框6, “星座”, -1, , , 编辑框6.高度, 编辑框6.宽度)<br /> 气球提示框1.关联组件 (编辑框4, “生日倒计时”, -1, , , 编辑框4.高度, 编辑框4.宽度)<br /> 气球提示框1.关联组件 (编辑框5, “本年生日所属公历”, -1, , , 编辑框5.高度, 编辑框5.宽度)<br /> [attach]855632[/attach]<br /> .子程序 实时时间, 子程序指针<br /> <br /> 编辑框1.内容 ＝ 到文本 (取现行时间 ())<br /> 延时 (950)<br /> 返回 (实时时间 ())<br /> <br /> .子程序 时间处理, 日期时间型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 sss, 逻辑型<br /> <br /> 公历转农历 (取现行时间 (), 年, 月, 日, sss)<br /> 时间 ＝ 到时间 (到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “月” ＋ 到文本 (日) ＋ “日”)<br /> 返回 (时间)<br /> <br /> .子程序 _组合框2_列表项被选择<br /> .局部变量 生日, 日期时间型<br /> .局部变量 公历, 日期时间型<br /> <br /> .如果真 (组合框1.内容 ≠ “”)<br />     .如果真 (组合框2.内容 ≠ “”)<br />         生日 ＝ 到时间 (到文本 (取时间部分 (取现行时间 (), #年份)) ＋ “年” ＋ 组合框1.内容 ＋ “月” ＋ 组合框2.内容 ＋ “日”)<br />         编辑框4.内容 ＝ 到文本 (取时间间隔 (生日, 时间处理 (), #日))<br />         农历转公历 (取时间部分 (取现行时间 (), #年份), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)<br />         编辑框5.内容 ＝ 到文本 (公历)<br />         编辑框6.内容 ＝ 子文本替换 (系统_取星座 (公历), “ ”, “”, , , 真)<br />         星座 ＝ 系统_取星座 (公历)<br />         子程序_信息显示 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 子程序_信息显示<br /> .参数 参_男, 整数型, 可空<br /> .参数 参_女, 整数型, 可空<br /> .局部变量 星座, 整数型<br /> <br /> .如果 (是否为空 (参_男) 且 是否为空 (参_女))<br />     概述.选中 ＝ 真<br /> .否则<br />     概述.选中 ＝ 假<br /> .如果结束<br /> .判断开始 (星座 ＝ “金牛座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #金牛, #金牛1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #金牛女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #金牛男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “白羊座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #白羊, #白羊1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #白羊女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #白羊男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “双子座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #双子, #双子1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #双子女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #双子男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “巨蟹座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #巨蟹, #巨蟹1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #巨蟹女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #巨蟹男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “狮子座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #狮子, #狮子1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #狮子女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #狮子男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “处女座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #处女, #处女1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #处女女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #处女男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “天秤座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #天秤, #天秤1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #天秤女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #天秤男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “天蝎座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #天蝎, #天蝎1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #天蝎女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #天蝎男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “射手座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #射手, #射手1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #射手女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #射手男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “魔羯座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #魔羯, #魔羯1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #魔羯女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #魔羯男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “水瓶座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #水瓶, #水瓶1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #水瓶女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #水瓶男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断 (星座 ＝ “双鱼座”)<br />     .如果 (概述.选中=真)<br />         子程序_标题设置 (, , , , #双鱼, #双鱼1)<br />     .否则<br />         .如果真 (参_女 ＝ 1)<br />             子程序_标题设置 (, 参_女, #桃红, #双鱼女, , )<br />         .如果真结束<br />         .如果真 (参_男 ＝ 1)<br />             子程序_标题设置 (, 参_女, #天蓝, #双鱼男, , )<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 子程序_标题设置<br /> .参数 参_男, 整数型, 可空<br /> .参数 参_女, 整数型, 可空<br /> .参数 参_文本颜色, 整数型, 可空<br /> .参数 参_标题, 文本型, 可空<br /> .参数 参_图片, 字节集<br /> .参数 参_标题2, 文本型<br /> <br /> 图片框1.图片 ＝ 参_图片<br /> 星座信息.标题 ＝ 参_标题2<br /> .如果真 (参_女 ＝ 1)<br />     星座信息.文本颜色 ＝ 参_文本颜色<br />     星座信息.标题 ＝ 参_标题<br /> .如果真结束<br /> .如果真 (参_男 ＝ 1)<br />     星座信息.文本颜色 ＝ 参_文本颜色<br />     星座信息.标题 ＝ 参_标题<br /> .如果真结束<br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> _组合框2_列表项被选择 ()<br /> <br /> .子程序 _女生_被单击<br /> <br /> 子程序_信息显示 (, 1)<br /> <br /> .子程序 _男生_被单击<br /> <br /> 子程序_信息显示 (1, )<br /> <br /> <br /> .子程序 _概述_被单击<br /> <br /> 子程序_信息显示 ()

---

作者: sweether    时间: 2019-2-2 08:52
感谢分享，大神修改，现场感受，新手受教

---

作者: a154038274    时间: 2019-2-2 09:50


谢谢大神    我试试

---

作者: a154038274    时间: 2019-2-2 09:51


谢谢大神    有个小问题  改了     附上  改了的源码

.版本 2
.支持库 EThread
.支持库 iext5
.支持库 CnCalendar

.程序集 窗口程序集_启动窗口
.程序集变量 星座, 文本型

.子程序 __启动窗口_创建完毕

时间处理 ()
启动线程 (&实时时间, , )
气球提示框1.关联组件 (组合框1, “农历”, -1, , , 组合框1.高度, 组合框1.宽度)
气球提示框1.关联组件 (组合框2, “农历”, -1, , , 组合框2.高度, 组合框2.宽度)
气球提示框1.关联组件 (编辑框1, “实时时间”, -1, , , 编辑框1.高度, 编辑框1.宽度)
气球提示框1.关联组件 (编辑框6, “星座”, -1, , , 编辑框6.高度, 编辑框6.宽度)
气球提示框1.关联组件 (编辑框4, “生日倒计时”, -1, , , 编辑框4.高度, 编辑框4.宽度)
气球提示框1.关联组件 (编辑框5, “本年生日所属公历”, -1, , , 编辑框5.高度, 编辑框5.宽度)

.子程序 实时时间, 子程序指针

编辑框1.内容 ＝ 到文本 (取现行时间 ())
延时 (1000)
返回 (实时时间 ())

.子程序 时间处理, 日期时间型
.局部变量 时间, 日期时间型
.局部变量 年, 整数型
.局部变量 月, 整数型
.局部变量 日, 整数型
.局部变量 sss, 逻辑型

公历转农历 (取现行时间 (), 年, 月, 日, sss)
时间 ＝ 到时间 (到文本 (年) ＋ “年” ＋ 到文本 (月) ＋ “月” ＋ 到文本 (日) ＋ “日”)
返回 (时间)

.子程序 _组合框2_列表项被选择
.局部变量 生日, 日期时间型
.局部变量 公历, 日期时间型

.如果真 (组合框1.内容 ≠ “”)
    .如果真 (组合框2.内容 ≠ “”)
        生日 ＝ 到时间 (到文本 (取时间部分 (取现行时间 (), #年份)) ＋ “年” ＋ 组合框1.内容 ＋ “月” ＋ 组合框2.内容 ＋ “日”)
        编辑框4.内容 ＝ 到文本 (取时间间隔 (生日, 时间处理 (), #日))
        农历转公历 (取时间部分 (取现行时间 (), #年份), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)
        编辑框5.内容 ＝ 到文本 (公历)
        编辑框6.内容 ＝ 系统_取星座 (公历)
        星座 ＝ 系统_取星座 (公历)
        男生.选中 ＝ 假
        女生.选中 ＝ 假
        子程序_信息显示 ()
    .如果真结束

.如果真结束


.子程序 子程序_信息显示
.参数 参_男, 整数型, 可空
.参数 参_女, 整数型, 可空

.如果 (是否为空 (参_男) 且 是否为空 (参_女))
    概述.选中 ＝ 真
.否则
    概述.选中 ＝ 假
.如果结束
.判断开始 (星座 ＝ “金牛座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #金牛, #金牛1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #金牛女, #金牛, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #金牛男, #金牛, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “白羊座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #白羊, #白羊1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #白羊女, #白羊, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #白羊男, #白羊, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “双子座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #双子, #双子1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #双子女, #双子, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #双子男, #双子, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “巨蟹座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #巨蟹, #巨蟹1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #巨蟹女, #巨蟹, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #巨蟹男, #巨蟹, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “狮子座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #狮子, #狮子1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #狮子女, #狮子, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #狮子男, #狮子, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “处女座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #处女, #处女1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #处女女, #处女, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #处女男, #处女, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “天秤座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #天秤, #天秤1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #天秤女, #天秤, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #天秤男, #天秤, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “天蝎座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #天蝎, #天蝎1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #天蝎女, #天蝎, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #天蝎男, #天蝎, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “射手座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #射手, #射手1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #射手女, #射手, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #射手男, #射手, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “魔羯座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #魔羯, #魔羯1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #魔羯女, #魔羯, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #魔羯男, #魔羯, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “水瓶座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #水瓶, #水瓶1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #水瓶女, #水瓶, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #水瓶男, #水瓶, )
        .如果真结束

    .如果结束

.判断 (星座 ＝ “双鱼座”)
    .如果 (概述.选中 ＝ 真)
        子程序_标题设置 (, , , , #双鱼, #双鱼1)
    .否则
        .如果真 (参_女 ＝ 1)
            子程序_标题设置 (, 参_女, #桃红, #双鱼女, #双鱼, )
        .如果真结束
        .如果真 (参_男 ＝ 1)
            子程序_标题设置 (, 参_男, #天蓝, #双鱼男, #双鱼, )
        .如果真结束

    .如果结束

.默认

.判断结束


.子程序 子程序_标题设置
.参数 参_男, 整数型, 可空
.参数 参_女, 整数型, 可空
.参数 参_文本颜色, 整数型, 可空
.参数 参_标题, 文本型, 可空
.参数 参_图片, 字节集
.参数 参_标题2, 文本型, 可空

图片框1.图片 ＝ 参_图片
星座信息.标题 ＝ 参_标题2
.如果真 (参_女 ＝ 1)
    星座信息.文本颜色 ＝ 参_文本颜色
    星座信息.标题 ＝ 参_标题
.如果真结束
.如果真 (参_男 ＝ 1)
    星座信息.文本颜色 ＝ 参_文本颜色
    星座信息.标题 ＝ 参_标题
.如果真结束


.子程序 _组合框1_列表项被选择

_组合框2_列表项被选择 ()

.子程序 _女生_被单击

子程序_信息显示 (, 1)

.子程序 _男生_被单击

子程序_信息显示 (1, )

.子程序 _概述_被单击

子程序_信息显示 ()

---

作者: 浩蛋    时间: 2019-2-2 13:14
很简洁了啊

---

作者: a154038274    时间: 2019-2-2 13:48

浩蛋 发表于 2019-2-2 13:14
很简洁了啊

说是用数组  能精简到10行   我试了不知道怎么做  

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4