简化代码及窗口

wufan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口4
变量名	类 型	数组	备 注
年数	整数型
月数	整数型
天数	整数型
时数	整数型
分数	整数型
秒数	整数型

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

编辑框_指定时间1_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间2_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间3_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间4_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间5_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间6_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间7_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间8_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间9_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间10_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间11_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间12_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间13_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间14_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间15_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间16_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间17_1.内容 ＝ 到文本 (时间_取北京时间 ())
编辑框_指定时间18_1.内容 ＝ 到文本 (时间_取北京时间 ())

子程序名	返回值类型	公开	备 注
时间计算	文本型		过渡程序
参数名	类 型	参考	可空	数组	备 注
编辑框_指定时间1内容	文本型

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
时间间隔	整数型
目的时间	日期时间型
输出间隔时间	文本型

目的时间 ＝ 指定时间 (取年份 (到时间 (编辑框_指定时间1内容)), 取月份 (到时间 (编辑框_指定时间1内容)), 取日 (到时间 (编辑框_指定时间1内容)), 取小时 (到时间 (编辑框_指定时间1内容)), 取分钟 (到时间 (编辑框_指定时间1内容)), 取秒 (到时间 (编辑框_指定时间1内容)))
当前时间 ＝ 时间_取北京时间 ()
如果 (到整数 (取时间间隔 (目的时间, 当前时间, #日 )) ＞ 0)
返回 (到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #日 ))) ＋ “天” ＋ 到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #小时 )) － 到整数 (取时间间隔 (目的时间, 当前时间, #日 )) × 24) ＋ “小时” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #分钟 ) － 取时间间隔 (目的时间, 当前时间, #小时 ) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒 ) － 取时间间隔 (目的时间, 当前时间, #分钟 ) × 60) ＋ “秒”)
如果 (到整数 (取时间间隔 (目的时间, 当前时间, #小时 )) － 到整数 (取时间间隔 (目的时间, 当前时间, #日 )) × 24 ＞ 0)
返回 (到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #小时 )) － 到整数 (取时间间隔 (目的时间, 当前时间, #日 )) × 24) ＋ “小时” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #分钟 ) － 取时间间隔 (目的时间, 当前时间, #小时 ) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒 ) － 取时间间隔 (目的时间, 当前时间, #分钟 ) × 60) ＋ “秒”)
如果 (取时间间隔 (目的时间, 当前时间, #分钟 ) － 取时间间隔 (目的时间, 当前时间, #小时 ) × 60 ＞ 0)
返回 (到文本 (取时间间隔 (目的时间, 当前时间, #分钟 ) － 取时间间隔 (目的时间, 当前时间, #小时 ) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒 ) － 取时间间隔 (目的时间, 当前时间, #分钟 ) × 60) ＋ “秒”)
如果 (取时间间隔 (目的时间, 当前时间, #秒 ) ＞ 0)
返回 (到文本 (取时间间隔 (目的时间, 当前时间, #秒 )) ＋ “秒”)
返回 (“时间已到！”)

子程序名	返回值类型	公开	备 注
到指定时间	日期时间型		过渡程序
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型
内容	文本型

变量名	类 型	静态	数组	备 注
指定时间	日期时间型
名称年	文本型
名称月	文本型
名称天	文本型
名称时	文本型
名称分	文本型
名称秒	文本型

如果 (文本_寻找文本 (内容, “年”, , ) ≥ 0)
名称年 ＝ “年”
名称年 ＝ “”

如果 (文本_寻找文本 (内容, “月份”, , ) ≥ 0)
名称月 ＝ “月份”
如果 (文本_寻找文本 (内容, “月”, , ) ≥ 0)
名称月 ＝ “月”
名称月 ＝ “”


如果 (文本_寻找文本 (内容, “天”, , ) ≥ 0)
名称天 ＝ “天”
如果 (文本_寻找文本 (内容, “日”, , ) ≥ 0)
名称天 ＝ “日”
名称天 ＝ “”


如果 (文本_寻找文本 (内容, “小时”, , ) ≥ 0)
名称时 ＝ “小时”
如果 (文本_寻找文本 (内容, “时”, , ) ≥ 0)
名称时 ＝ “时”
名称时 ＝ “”


如果 (文本_寻找文本 (内容, “分钟”, , ) ≥ 0)
名称分 ＝ “分钟”
如果 (文本_寻找文本 (内容, “分”, , ) ≥ 0)
名称分 ＝ “分”
名称分 ＝ “”


如果 (文本_寻找文本 (内容, “秒”, , ) ≥ 0)
名称秒 ＝ “秒”
名称秒 ＝ “”

年数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称年, , ) － 1)))  ' 取年数
如果 (名称年 ≠ “” 且 名称月 ≠ “”)
月数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称年, , ) ＋ 取文本长度 (名称年), 文本_寻找文本 (内容, 名称月, , ) － 文本_寻找文本 (内容, 名称年, , ) － 取文本长度 (名称年))))  ' 取月数
如果 (名称月 ≠ “”)
月数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称月, , ) － 1)))  ' 取月数
月数 ＝ 0  ' 取月数


如果 (名称月 ≠ “” 且 名称天 ≠ “”)
天数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称月, , ) ＋ 取文本长度 (名称月), 文本_寻找文本 (内容, 名称天, , ) － 文本_寻找文本 (内容, 名称月, , ) － 取文本长度 (名称月))))  ' 取天数
如果 (名称天 ≠ “”)
天数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称天, , ) － 1)))  ' 取天数
天数 ＝ 0  ' 取天数


如果 (名称天 ≠ “” 且 名称时 ≠ “”)
时数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称天, , ) ＋ 取文本长度 (名称天), 文本_寻找文本 (内容, 名称时, , ) － 文本_寻找文本 (内容, 名称天, , ) － 取文本长度 (名称天))))  ' 取时数
如果 (名称时 ≠ “”)
时数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称时, , ) － 1)))  ' 取时数
时数 ＝ 0  ' 取时数


如果 (名称时 ≠ “” 且 名称分 ≠ “”)
分数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称时, , ) ＋ 取文本长度 (名称时), 文本_寻找文本 (内容, 名称分, , ) － 文本_寻找文本 (内容, 名称时, , ) － 取文本长度 (名称时))))  ' 取分数
如果 (名称分 ≠ “”)
分数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称分, , ) － 1)))  ' 取分数
分数 ＝ 0  ' 取分数


如果 (名称分 ≠ “” 且 名称秒 ≠ “”)
秒数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称分, , ) ＋ 取文本长度 (名称分), 文本_寻找文本 (内容, 名称秒, , ) － 文本_寻找文本 (内容, 名称分, , ) － 取文本长度 (名称分))))  ' 取秒数
如果 (名称秒 ≠ “”)
秒数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称秒, , ) － 1)))  ' 取秒数
秒数 ＝ 0  ' 取秒数


指定时间 ＝ 增减时间 (时间, #年份, 年数)
指定时间 ＝ 增减时间 (指定时间, #月份, 月数)
指定时间 ＝ 增减时间 (指定时间, #日, 天数)
指定时间 ＝ 增减时间 (指定时间, #小时, 时数)
指定时间 ＝ 增减时间 (指定时间, #分钟, 分数)
指定时间 ＝ 增减时间 (指定时间, #秒, 秒数)
返回 (指定时间)

子程序名	返回值类型	公开	备 注
_播放音乐提醒

播放MP3 (到整数 (到文本 (取字节集中间 (到字节集 (标签_播放音乐次数.标题), 文本_寻找文本 (标签_播放音乐次数.标题, “：”, , ) ＋ 2, 文本_寻找文本 (标签_播放音乐次数.标题, “次”, , ) － 文本_寻找文本 (标签_播放音乐次数.标题, “：”, , ) － 2))), 到文本 (取字节集中间 (到字节集 (标签_音乐地址.标题), 文本_寻找文本 (标签_音乐地址.标题, “：”, , ) ＋ 2, 文本_寻找文本 (标签_音乐地址.标题, “.mp3”, , ) － 文本_寻找文本 (标签_音乐地址.标题, “：”, , ) ＋ 3)))

子程序名	返回值类型	公开	备 注
_时钟_总_周期事件

窗口4.标题 ＝ “    北京时间：” ＋ 到文本 (时间_取北京时间 ())
如果 (选择框_指定时间1.选中 ＝ 真)
时钟_指定时间1.时钟周期 ＝ 1000
标签_指定时间1.文本颜色 ＝ #红色
标签_指定时间1.背景颜色 ＝ -16777216
时钟_指定时间1.时钟周期 ＝ 0

如果 (选择框_指定时间2.选中 ＝ 真)
时钟_指定时间2.时钟周期 ＝ 1000
标签_指定时间2.文本颜色 ＝ #红色
标签_指定时间2.背景颜色 ＝ -16777216
时钟_指定时间2.时钟周期 ＝ 0

如果 (选择框_指定时间3.选中 ＝ 真)
时钟_指定时间3.时钟周期 ＝ 1000
标签_指定时间3.文本颜色 ＝ #红色
标签_指定时间3.背景颜色 ＝ -16777216
时钟_指定时间3.时钟周期 ＝ 0

如果 (选择框_指定时间4.选中 ＝ 真)
时钟_指定时间4.时钟周期 ＝ 1000
标签_指定时间4.文本颜色 ＝ #红色
标签_指定时间4.背景颜色 ＝ -16777216
时钟_指定时间4.时钟周期 ＝ 0

如果 (选择框_指定时间5.选中 ＝ 真)
时钟_指定时间5.时钟周期 ＝ 1000
标签_指定时间5.文本颜色 ＝ #红色
标签_指定时间5.背景颜色 ＝ -16777216
时钟_指定时间5.时钟周期 ＝ 0

如果 (选择框_指定时间6.选中 ＝ 真)
时钟_指定时间6.时

.版本 2<br /> <br /> .程序集 窗口程序集_窗口4<br /> .程序集变量 年数, 整数型<br /> .程序集变量 月数, 整数型<br /> .程序集变量 天数, 整数型<br /> .程序集变量 时数, 整数型<br /> .程序集变量 分数, 整数型<br /> .程序集变量 秒数, 整数型<br /> <br /> .子程序 _窗口4_创建完毕<br /> <br /> 编辑框_指定时间1_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间2_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间3_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间4_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间5_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间6_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间7_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间8_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间9_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间10_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间11_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间12_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间13_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间14_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间15_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间16_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间17_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> 编辑框_指定时间18_1.内容 ＝ 到文本 (时间_取北京时间 ())<br /> <br /> .子程序 时间计算, 文本型, , 过渡程序<br /> .参数 编辑框_指定时间1内容, 文本型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 时间间隔, 整数型<br /> .局部变量 目的时间, 日期时间型<br /> .局部变量 输出间隔时间, 文本型<br /> <br /> 目的时间 ＝ 指定时间 (取年份 (到时间 (编辑框_指定时间1内容)), 取月份 (到时间 (编辑框_指定时间1内容)), 取日 (到时间 (编辑框_指定时间1内容)), 取小时 (到时间 (编辑框_指定时间1内容)), 取分钟 (到时间 (编辑框_指定时间1内容)), 取秒 (到时间 (编辑框_指定时间1内容)))<br /> 当前时间 ＝ 时间_取北京时间 ()<br /> .如果 (到整数 (取时间间隔 (目的时间, 当前时间, #日)) ＞ 0)<br />     返回 (到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #日))) ＋ “天” ＋ 到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #小时)) － 到整数 (取时间间隔 (目的时间, 当前时间, #日)) × 24) ＋ “小时” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #分钟) － 取时间间隔 (目的时间, 当前时间, #小时) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒) － 取时间间隔 (目的时间, 当前时间, #分钟) × 60) ＋ “秒”)<br /> .否则<br />     .如果 (到整数 (取时间间隔 (目的时间, 当前时间, #小时)) － 到整数 (取时间间隔 (目的时间, 当前时间, #日)) × 24 ＞ 0)<br />         返回 (到文本 (到整数 (取时间间隔 (目的时间, 当前时间, #小时)) － 到整数 (取时间间隔 (目的时间, 当前时间, #日)) × 24) ＋ “小时” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #分钟) － 取时间间隔 (目的时间, 当前时间, #小时) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒) － 取时间间隔 (目的时间, 当前时间, #分钟) × 60) ＋ “秒”)<br />     .否则<br />         .如果 (取时间间隔 (目的时间, 当前时间, #分钟) － 取时间间隔 (目的时间, 当前时间, #小时) × 60 ＞ 0)<br />             返回 (到文本 (取时间间隔 (目的时间, 当前时间, #分钟) － 取时间间隔 (目的时间, 当前时间, #小时) × 60) ＋ “分” ＋ 到文本 (取时间间隔 (目的时间, 当前时间, #秒) － 取时间间隔 (目的时间, 当前时间, #分钟) × 60) ＋ “秒”)<br />         .否则<br />             .如果 (取时间间隔 (目的时间, 当前时间, #秒) ＞ 0)<br />                 返回 (到文本 (取时间间隔 (目的时间, 当前时间, #秒)) ＋ “秒”)<br />             .否则<br />                 返回 (“时间已到！”)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 到指定时间, 日期时间型, , 过渡程序<br /> .参数 时间, 日期时间型<br /> .参数 内容, 文本型<br /> .局部变量 指定时间, 日期时间型<br /> .局部变量 名称年, 文本型<br /> .局部变量 名称月, 文本型<br /> .局部变量 名称天, 文本型<br /> .局部变量 名称时, 文本型<br /> .局部变量 名称分, 文本型<br /> .局部变量 名称秒, 文本型<br /> <br /> .如果 (文本_寻找文本 (内容, “年”, , ) ≥ 0)<br />     名称年 ＝ “年”<br /> .否则<br />     名称年 ＝ “”<br /> .如果结束<br /> <br /> .如果 (文本_寻找文本 (内容, “月份”, , ) ≥ 0)<br />     名称月 ＝ “月份”<br /> .否则<br />     .如果 (文本_寻找文本 (内容, “月”, , ) ≥ 0)<br />         名称月 ＝ “月”<br />     .否则<br />         名称月 ＝ “”<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (文本_寻找文本 (内容, “天”, , ) ≥ 0)<br />     名称天 ＝ “天”<br /> .否则<br />     .如果 (文本_寻找文本 (内容, “日”, , ) ≥ 0)<br />         名称天 ＝ “日”<br />     .否则<br />         名称天 ＝ “”<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (文本_寻找文本 (内容, “小时”, , ) ≥ 0)<br />     名称时 ＝ “小时”<br /> .否则<br />     .如果 (文本_寻找文本 (内容, “时”, , ) ≥ 0)<br />         名称时 ＝ “时”<br />     .否则<br />         名称时 ＝ “”<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (文本_寻找文本 (内容, “分钟”, , ) ≥ 0)<br />     名称分 ＝ “分钟”<br /> .否则<br />     .如果 (文本_寻找文本 (内容, “分”, , ) ≥ 0)<br />         名称分 ＝ “分”<br />     .否则<br />         名称分 ＝ “”<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (文本_寻找文本 (内容, “秒”, , ) ≥ 0)<br />     名称秒 ＝ “秒”<br /> .否则<br />     名称秒 ＝ “”<br /> .如果结束<br /> <br /> 年数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称年, , ) － 1)))  ' 取年数<br /> .如果 (名称年 ≠ “” 且 名称月 ≠ “”)<br />     月数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称年, , ) ＋ 取文本长度 (名称年), 文本_寻找文本 (内容, 名称月, , ) － 文本_寻找文本 (内容, 名称年, , ) － 取文本长度 (名称年))))  ' 取月数<br /> .否则<br />     .如果 (名称月 ≠ “”)<br />         月数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称月, , ) － 1)))  ' 取月数<br />     .否则<br />         月数 ＝ 0  ' 取月数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (名称月 ≠ “” 且 名称天 ≠ “”)<br />     天数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称月, , ) ＋ 取文本长度 (名称月), 文本_寻找文本 (内容, 名称天, , ) － 文本_寻找文本 (内容, 名称月, , ) － 取文本长度 (名称月))))  ' 取天数<br /> .否则<br />     .如果 (名称天 ≠ “”)<br />         天数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称天, , ) － 1)))  ' 取天数<br />     .否则<br />         天数 ＝ 0  ' 取天数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (名称天 ≠ “” 且 名称时 ≠ “”)<br />     时数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称天, , ) ＋ 取文本长度 (名称天), 文本_寻找文本 (内容, 名称时, , ) － 文本_寻找文本 (内容, 名称天, , ) － 取文本长度 (名称天))))  ' 取时数<br /> .否则<br />     .如果 (名称时 ≠ “”)<br />         时数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称时, , ) － 1)))  ' 取时数<br />     .否则<br />         时数 ＝ 0  ' 取时数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (名称时 ≠ “” 且 名称分 ≠ “”)<br />     分数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称时, , ) ＋ 取文本长度 (名称时), 文本_寻找文本 (内容, 名称分, , ) － 文本_寻找文本 (内容, 名称时, , ) － 取文本长度 (名称时))))  ' 取分数<br /> .否则<br />     .如果 (名称分 ≠ “”)<br />         分数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称分, , ) － 1)))  ' 取分数<br />     .否则<br />         分数 ＝ 0  ' 取分数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> .如果 (名称分 ≠ “” 且 名称秒 ≠ “”)<br />     秒数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 文本_寻找文本 (内容, 名称分, , ) ＋ 取文本长度 (名称分), 文本_寻找文本 (内容, 名称秒, , ) － 文本_寻找文本 (内容, 名称分, , ) － 取文本长度 (名称分))))  ' 取秒数<br /> .否则<br />     .如果 (名称秒 ≠ “”)<br />         秒数 ＝ 到整数 (到文本 (取字节集中间 (到字节集 (内容), 0, 文本_寻找文本 (内容, 名称秒, , ) － 1)))  ' 取秒数<br />     .否则<br />         秒数 ＝ 0  ' 取秒数<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 指定时间 ＝ 增减时间 (时间, #年份, 年数)<br /> 指定时间 ＝ 增减时间 (指定时间, #月份, 月数)<br /> 指定时间 ＝ 增减时间 (指定时间, #日, 天数)<br /> 指定时间 ＝ 增减时间 (指定时间, #小时, 时数)<br /> 指定时间 ＝ 增减时间 (指定时间, #分钟, 分数)<br /> 指定时间 ＝ 增减时间 (指定时间, #秒, 秒数)<br /> 返回 (指定时间)<br /> <br /> .子程序 _播放音乐提醒<br /> <br /> 播放MP3 (到整数 (到文本 (取字节集中间 (到字节集 (标签_播放音乐次数.标题), 文本_寻找文本 (标签_播放音乐次数.标题, “：”, , ) ＋ 2, 文本_寻找文本 (标签_播放音乐次数.标题, “次”, , ) － 文本_寻找文本 (标签_播放音乐次数.标题, “：”, , ) － 2))), 到文本 (取字节集中间 (到字节集 (标签_音乐地址.标题), 文本_寻找文本 (标签_音乐地址.标题, “：”, , ) ＋ 2, 文本_寻找文本 (标签_音乐地址.标题, “.mp3”, , ) － 文本_寻找文本 (标签_音乐地址.标题, “：”, , ) ＋ 3)))<br /> <br /> .子程序 _时钟_总_周期事件<br /> <br /> 窗口4.标题 ＝ “    北京时间：” ＋ 到文本 (时间_取北京时间 ())<br /> .如果 (选择框_指定时间1.选中 ＝ 真)<br />     时钟_指定时间1.时钟周期 ＝ 1000<br />     标签_指定时间1.文本颜色 ＝ #红色<br />     标签_指定时间1.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间1.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间2.选中 ＝ 真)<br />     时钟_指定时间2.时钟周期 ＝ 1000<br />     标签_指定时间2.文本颜色 ＝ #红色<br />     标签_指定时间2.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间2.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间3.选中 ＝ 真)<br />     时钟_指定时间3.时钟周期 ＝ 1000<br />     标签_指定时间3.文本颜色 ＝ #红色<br />     标签_指定时间3.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间3.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间4.选中 ＝ 真)<br />     时钟_指定时间4.时钟周期 ＝ 1000<br />     标签_指定时间4.文本颜色 ＝ #红色<br />     标签_指定时间4.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间4.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间5.选中 ＝ 真)<br />     时钟_指定时间5.时钟周期 ＝ 1000<br />     标签_指定时间5.文本颜色 ＝ #红色<br />     标签_指定时间5.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间5.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间6.选中 ＝ 真)<br />     时钟_指定时间6.时

新手   自己一行一行敲出来的  太累了  还容易错   
一、请问这个怎么用  计次循环   或者  其他循环  编写？
二、我以前见过一个大神  窗口组件一个都没画   都是用代码生成的     能不能通过  _启动窗口    编辑框的数量生成   窗口4  里面的所有组件？


范例.rar (1.22 MB, 下载次数: 4)

2021-8-5 00:23 上传

点击文件名下载附件



补充内容 (2021-8-5 00:27):
希望大神能百忙之中抽空看下范例    帮我修改一下  我 慢慢摸索

帅气与大侠

wufan 发表于 2021-8-5 12:07

  

子程序名	返回值类型	公开	备 注
_时钟_总_周期事件

[/quote]
[e=1].版本 2

子程序名	返回值类型	公开	备 注
_时钟_总_周期事件

变量名	类 型	静态	数组	备 注
选择框组件句柄	整数型
选择框数量	整数型
i	整数型
选择框	选择框
标签组件句柄	整数型
标签	标签
时钟组件句柄	整数型
时钟	时钟

选择框组件句柄 ＝ 寻找组件 (_启动窗口, “选择框_指定时间”, “选择框”, , )
标签组件句柄 ＝ 寻找组件 (_启动窗口, “标签_指定时间”, “标签”, , )
时钟组件句柄 ＝ 寻找组件 (_启动窗口, “时钟_指定时间”, “时钟”, , )
选择框数量 ＝ 取找到组件数目 (选择框组件句柄)
计次循环首 (选择框数量, i)
选择框 ＝ 取所找到组件 (选择框组件句柄, i － 1)
标签 ＝ 取所找到组件 (标签组件句柄, i － 1)
时钟 ＝ 取所找到组件 (时钟组件句柄, i － 1)
时钟.时钟周期 ＝ 选择 (选择框.选中, 1000, 0)
标签.文本颜色 ＝ 选择 (选择框.选中, #红色, #绿色 )
标签.背景颜色 ＝ 选择 (选择框.选中, -16777216, #默认色 )
计次循环尾 ()
清除组件寻找句柄 (选择框组件句柄)
清除组件寻找句柄 (时钟组件句柄)
清除组件寻找句柄 (标签组件句柄)

.版本 2<br /> <br /> .子程序 _时钟_总_周期事件</blockquote></div><br /> [e=1].版本 2<br /> <br /> .子程序 _时钟_总_周期事件<br /> .局部变量 选择框组件句柄, 整数型<br /> .局部变量 选择框数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 选择框, 选择框<br /> .局部变量 标签组件句柄, 整数型<br /> .局部变量 标签, 标签<br /> .局部变量 时钟组件句柄, 整数型<br /> .局部变量 时钟, 时钟<br /> <br /> 选择框组件句柄 ＝ 寻找组件 (_启动窗口, “选择框_指定时间”, “选择框”, , )<br /> 标签组件句柄 ＝ 寻找组件 (_启动窗口, “标签_指定时间”, “标签”, , )<br /> 时钟组件句柄 ＝ 寻找组件 (_启动窗口, “时钟_指定时间”, “时钟”, , )<br /> <br /> 选择框数量 ＝ 取找到组件数目 (选择框组件句柄)<br /> <br /> <br /> .计次循环首 (选择框数量, i)<br />     选择框 ＝ 取所找到组件 (选择框组件句柄, i － 1)<br />     标签 ＝ 取所找到组件 (标签组件句柄, i － 1)<br />     时钟 ＝ 取所找到组件 (时钟组件句柄, i － 1)<br /> <br />     时钟.时钟周期 ＝ 选择 (选择框.选中, 1000, 0)<br />     标签.文本颜色 ＝ 选择 (选择框.选中, #红色, #绿色)<br />     标签.背景颜色 ＝ 选择 (选择框.选中, -16777216, #默认色)<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (选择框组件句柄)<br /> 清除组件寻找句柄 (时钟组件句柄)<br /> 清除组件寻找句柄 (标签组件句柄)

帅气与大侠

  

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

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

变量名	类 型	静态	数组	备 注
组件寻找句柄	整数型
组件数量	整数型
i	整数型
编辑框	编辑框
北京时间	文本型

' 可以通过寻找组件来取出窗口上所有的编辑框组件，然后就可以通过循环命令来循环处理，极大程度解放双手，其它地方的代码也可以通过这种方式来处理
' 由于你的代码太多了，不方便一一举例给你，你可以自行参考下，希望对你有帮助
' 如果你刚接触易语言不久，对易语言有那些命令不知道的，可以到支持库看看，推荐先将【系统核心支持库】全部看完，了解下有那些命令，都可以做什么
组件寻找句柄 ＝ 寻找组件 (_启动窗口, “编辑框_指定时间”, “编辑框”, , )
组件数量 ＝ 取找到组件数目 (组件寻找句柄)
北京时间=到文本 (时间_取北京时间 ())’获取北京时间是联网的，获取一次就可以了，连续获取多次影响速度
计次循环首 (组件数量, i)
编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)
编辑框.内容 ＝ 北京时间
计次循环尾 ()
清除组件寻找句柄 (组件寻找句柄)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 组件寻找句柄, 整数型<br /> .局部变量 组件数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 编辑框, 编辑框<br /> .局部变量 北京时间, 文本型<br /> <br /> ' 可以通过寻找组件来取出窗口上所有的编辑框组件，然后就可以通过循环命令来循环处理，极大程度解放双手，其它地方的代码也可以通过这种方式来处理<br /> ' 由于你的代码太多了，不方便一一举例给你，你可以自行参考下，希望对你有帮助<br /> ' 如果你刚接触易语言不久，对易语言有那些命令不知道的，可以到支持库看看，推荐先将【系统核心支持库】全部看完，了解下有那些命令，都可以做什么<br /> 组件寻找句柄 ＝ 寻找组件 (_启动窗口, “编辑框_指定时间”, “编辑框”, , )<br /> 组件数量 ＝ 取找到组件数目 (组件寻找句柄)<br /> 北京时间=到文本 (时间_取北京时间 ())’获取北京时间是联网的，获取一次就可以了，连续获取多次影响速度<br /> .计次循环首 (组件数量, i)<br />     编辑框 ＝ 取所找到组件 (组件寻找句柄, i － 1)<br />     编辑框.内容 ＝ 北京时间<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组件寻找句柄)

帅气与大侠

Sir928

有一种数据类型叫做 组件   编辑框可以是变量 然后数组   然后计次循环

wh1234567

确实需要优化。。。

冰棍好烫啊

连续赋值

wufan

aqwvwv 发表于 2021-8-5 00:55

  

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

[/quote]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
_时钟_总_周期事件

如果 (选择框_指定时间1.选中 ＝ 真)
时钟_指定时间1.时钟周期 ＝ 1000
标签_指定时间1.文本颜色 ＝ #红色
标签_指定时间1.背景颜色 ＝ -16777216
时钟_指定时间1.时钟周期 ＝ 0

如果 (选择框_指定时间2.选中 ＝ 真)
时钟_指定时间2.时钟周期 ＝ 1000
标签_指定时间2.文本颜色 ＝ #红色
标签_指定时间2.背景颜色 ＝ -16777216
时钟_指定时间2.时钟周期 ＝ 0

如果 (选择框_指定时间3.选中 ＝ 真)
时钟_指定时间3.时钟周期 ＝ 1000
标签_指定时间3.文本颜色 ＝ #红色
标签_指定时间3.背景颜色 ＝ -16777216
时钟_指定时间3.时钟周期 ＝ 0

如果 (选择框_指定时间4.选中 ＝ 真)
时钟_指定时间4.时钟周期 ＝ 1000
标签_指定时间4.文本颜色 ＝ #红色
标签_指定时间4.背景颜色 ＝ -16777216
时钟_指定时间4.时钟周期 ＝ 0

如果 (选择框_指定时间5.选中 ＝ 真)
时钟_指定时间5.时钟周期 ＝ 1000
标签_指定时间5.文本颜色 ＝ #红色
标签_指定时间5.背景颜色 ＝ -16777216
时钟_指定时间5.时钟周期 ＝ 0

如果 (选择框_指定时间6.选中 ＝ 真)
时钟_指定时间6.时钟周期 ＝ 1000
标签_指定时间6.文本颜色 ＝ #红色
标签_指定时间6.背景颜色 ＝ -16777216
时钟_指定时间6.时钟周期 ＝ 0

如果 (选择框_指定时间7.选中 ＝ 真)
时钟_指定时间7.时钟周期 ＝ 1000
标签_指定时间7.文本颜色 ＝ #红色
标签_指定时间7.背景颜色 ＝ -16777216
时钟_指定时间7.时钟周期 ＝ 0

如果 (选择框_指定时间8.选中 ＝ 真)
时钟_指定时间8.时钟周期 ＝ 1000
标签_指定时间8.文本颜色 ＝ #红色
标签_指定时间8.背景颜色 ＝ -16777216
时钟_指定时间8.时钟周期 ＝ 0

如果 (选择框_指定时间9.选中 ＝ 真)
时钟_指定时间9.时钟周期 ＝ 1000
标签_指定时间9.文本颜色 ＝ #红色
标签_指定时间9.背景颜色 ＝ -16777216
时钟_指定时间9.时钟周期 ＝ 0

如果 (选择框_指定时间10.选中 ＝ 真)
时钟_指定时间10.时钟周期 ＝ 1000
标签_指定时间10.文本颜色 ＝ #红色
标签_指定时间10.背景颜色 ＝ -16777216
时钟_指定时间10.时钟周期 ＝ 0

如果 (选择框_指定时间11.选中 ＝ 真)
时钟_指定时间11.时钟周期 ＝ 1000
标签_指定时间11.文本颜色 ＝ #红色
标签_指定时间11.背景颜色 ＝ -16777216
时钟_指定时间11.时钟周期 ＝ 0

如果 (选择框_指定时间12.选中 ＝ 真)
时钟_指定时间12.时钟周期 ＝ 1000
标签_指定时间12.文本颜色 ＝ #红色
标签_指定时间12.背景颜色 ＝ -16777216
时钟_指定时间12.时钟周期 ＝ 0

如果 (选择框_指定时间13.选中 ＝ 真)
时钟_指定时间13.时钟周期 ＝ 1000
标签_指定时间13.文本颜色 ＝ #红色
标签_指定时间13.背景颜色 ＝ -16777216
时钟_指定时间13.时钟周期 ＝ 0

如果 (选择框_指定时间14.选中 ＝ 真)
时钟_指定时间14.时钟周期 ＝ 1000
标签_指定时间14.文本颜色 ＝ #红色
标签_指定时间14.背景颜色 ＝ -16777216
时钟_指定时间14.时钟周期 ＝ 0

如果 (选择框_指定时间15.选中 ＝ 真)
时钟_指定时间15.时钟周期 ＝ 1000
标签_指定时间15.文本颜色 ＝ #红色
标签_指定时间15.背景颜色 ＝ -16777216
时钟_指定时间15.时钟周期 ＝ 0

如果 (选择框_指定时间16.选中 ＝ 真)
时钟_指定时间16.时钟周期 ＝ 1000
标签_指定时间16.文本颜色 ＝ #红色
标签_指定时间16.背景颜色 ＝ -16777216
时钟_指定时间16.时钟周期 ＝ 0

如果 (选择框_指定时间17.选中 ＝ 真)
时钟_指定时间17.时钟周期 ＝ 1000
标签_指定时间17.文本颜色 ＝ #红色
标签_指定时间17.背景颜色 ＝ -16777216
时钟_指定时间17.时钟周期 ＝ 0

如果 (选择框_指定时间18.选中 ＝ 真)
时钟_指定时间18.时钟周期 ＝ 1000
标签_指定时间18.文本颜色 ＝ #红色
标签_指定时间18.背景颜色 ＝ -16777216
时钟_指定时间18.时钟周期 ＝ 0

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> [e=0].版本 2<br /> <br /> .子程序 _时钟_总_周期事件<br /> <br /> <br /> .如果 (选择框_指定时间1.选中 ＝ 真)<br />     时钟_指定时间1.时钟周期 ＝ 1000<br />     标签_指定时间1.文本颜色 ＝ #红色<br />     标签_指定时间1.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间1.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间2.选中 ＝ 真)<br />     时钟_指定时间2.时钟周期 ＝ 1000<br />     标签_指定时间2.文本颜色 ＝ #红色<br />     标签_指定时间2.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间2.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间3.选中 ＝ 真)<br />     时钟_指定时间3.时钟周期 ＝ 1000<br />     标签_指定时间3.文本颜色 ＝ #红色<br />     标签_指定时间3.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间3.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间4.选中 ＝ 真)<br />     时钟_指定时间4.时钟周期 ＝ 1000<br />     标签_指定时间4.文本颜色 ＝ #红色<br />     标签_指定时间4.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间4.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间5.选中 ＝ 真)<br />     时钟_指定时间5.时钟周期 ＝ 1000<br />     标签_指定时间5.文本颜色 ＝ #红色<br />     标签_指定时间5.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间5.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间6.选中 ＝ 真)<br />     时钟_指定时间6.时钟周期 ＝ 1000<br />     标签_指定时间6.文本颜色 ＝ #红色<br />     标签_指定时间6.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间6.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间7.选中 ＝ 真)<br />     时钟_指定时间7.时钟周期 ＝ 1000<br />     标签_指定时间7.文本颜色 ＝ #红色<br />     标签_指定时间7.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间7.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间8.选中 ＝ 真)<br />     时钟_指定时间8.时钟周期 ＝ 1000<br />     标签_指定时间8.文本颜色 ＝ #红色<br />     标签_指定时间8.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间8.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间9.选中 ＝ 真)<br />     时钟_指定时间9.时钟周期 ＝ 1000<br />     标签_指定时间9.文本颜色 ＝ #红色<br />     标签_指定时间9.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间9.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间10.选中 ＝ 真)<br />     时钟_指定时间10.时钟周期 ＝ 1000<br />     标签_指定时间10.文本颜色 ＝ #红色<br />     标签_指定时间10.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间10.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间11.选中 ＝ 真)<br />     时钟_指定时间11.时钟周期 ＝ 1000<br />     标签_指定时间11.文本颜色 ＝ #红色<br />     标签_指定时间11.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间11.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间12.选中 ＝ 真)<br />     时钟_指定时间12.时钟周期 ＝ 1000<br />     标签_指定时间12.文本颜色 ＝ #红色<br />     标签_指定时间12.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间12.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间13.选中 ＝ 真)<br />     时钟_指定时间13.时钟周期 ＝ 1000<br />     标签_指定时间13.文本颜色 ＝ #红色<br />     标签_指定时间13.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间13.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间14.选中 ＝ 真)<br />     时钟_指定时间14.时钟周期 ＝ 1000<br />     标签_指定时间14.文本颜色 ＝ #红色<br />     标签_指定时间14.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间14.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间15.选中 ＝ 真)<br />     时钟_指定时间15.时钟周期 ＝ 1000<br />     标签_指定时间15.文本颜色 ＝ #红色<br />     标签_指定时间15.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间15.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间16.选中 ＝ 真)<br />     时钟_指定时间16.时钟周期 ＝ 1000<br />     标签_指定时间16.文本颜色 ＝ #红色<br />     标签_指定时间16.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间16.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间17.选中 ＝ 真)<br />     时钟_指定时间17.时钟周期 ＝ 1000<br />     标签_指定时间17.文本颜色 ＝ #红色<br />     标签_指定时间17.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间17.时钟周期 ＝ 0<br /> .如果结束<br /> <br /> .如果 (选择框_指定时间18.选中 ＝ 真)<br />     时钟_指定时间18.时钟周期 ＝ 1000<br />     标签_指定时间18.文本颜色 ＝ #红色<br />     标签_指定时间18.背景颜色 ＝ -16777216<br /> .否则<br />     时钟_指定时间18.时钟周期 ＝ 0

这个怎么简化代码呢？  因为所有都一样    只是组件的名称不一样

wufan

wh1234567 发表于 2021-8-5 01:35
确实需要优化。。。

汗    是想简化 但是不会  所以提问的  你这回答没谁来

wufan

Sir928 发表于 2021-8-5 00:57
有一种数据类型叫做 组件   编辑框可以是变量 然后数组   然后计次循环

大哥   能不能帮我范例里的    （ _时钟_指定时间1_周期事件      _按钮1_被单击     _编辑框_指定时间1_2_按下某键）这三个种类子程序  我每个都写了18次   你能不能就帮一个简化一下   剩下两个我自己学习改