.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 时间组件_初始化 () .子程序 时间组件_初始化 .局部变量 i .计次循环首 (24, i) ' 小时’ 时间组件_时.加入项目 (到文本 (i － 1), i － 1) .计次循环尾 () ' ============ www.sanye.cx =============-- ’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx ’三叶资源网官方④群：72857039 ' 投稿邮箱：[email protected] ' ============ =====================-- ’专注易语言，按键精灵等编程源码分享的网站 ’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐， ’版权归原作者所有，仅供学习和研究使用。 ’转载本站提供的资源请勿删除本说明文件。 ' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。 ' ============ www.sanye.cx =============-- ' 本源码来自三叶资源网(www.sanye.cx) .计次循环首 (60, i) ' 分钟 时间组件_分.加入项目 (到文本 (i － 1), i － 1) .计次循环尾 () .计次循环首 (60, i) ' 秒 时间组件_秒.加入项目 (到文本 (i － 1), i － 1) .计次循环尾 () 时间组件_时.现行选中项 ＝ 0 时间组件_分.现行选中项 ＝ 0 时间组件_秒.现行选中项 ＝ 0 .子程序 时间组件_取秒数, 整数型 .局部变量 s, 整数型 s ＝ 时间组件_时.取项目数值 (时间组件_时.现行选中项) × 60 × 60 ＋ 时间组件_分.取项目数值 (时间组件_分.现行选中项) × 60 ＋ 时间组件_秒.取项目数值 (时间组件_秒.现行选中项) 调试输出 (s) 返回 (s) .子程序 时间组件_取分钟, 整数型 .局部变量 m, 整数型 m ＝ 时间组件_时.取项目数值 (时间组件_时.现行选中项) × 60 ＋ 时间组件_分.取项目数值 (时间组件_分.现行选中项) 调试输出 (m) 返回 (m) .子程序 时间组件_取小时, 整数型 .局部变量 h, 整数型 ' ============ www.sanye.cx =============-- ’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx ’三叶资源网官方④群：72857039 ' 投稿邮箱：[email protected] ' ============ =====================-- ’专注易语言，按键精灵等编程源码分享的网站 ’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐， ’版权归原作者所有，仅供学习和研究使用。 ’转载本站提供的资源请勿删除本说明文件。 ' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。 ' ============ www.sanye.cx =============-- ' 本源码来自三叶资源网(www.sanye.cx) h ＝ 时间组件_时.取项目数值 (时间组件_时.现行选中项) 调试输出 (h) 返回 (h) .子程序 _按钮1_被单击 信息框 (“您设置的秒数是：” ＋ 到文本 (时间组件_取秒数 ()) ＋ #换行符 ＋ “您设置的分钟是：” ＋ 到文本 (时间组件_取分钟 ()) ＋ #换行符 ＋ “您设置的小时数是：” ＋ 到文本 (时间组件_取小时 ()), 0, , ) .子程序 时间组件_取当日实际秒数, 整数型 .局部变量 Current, 长整数型, , , 当前时间戳 .局部变量 Current_S, 长整数型, , , 当前余数秒 Current ＝ 到整数 (时间_取现行时间戳 (真)) Current_S ＝ Current ％ 86400 ＋ 8 × 3600 ' 求余数 ' 上面这段代码，因为时间戳是从1970年1月1日8点开始的，所以需要加上之前开始的8小时 ' 现在判断Current_S 和 设置的秒数是不是一样就可以了 调试输出 (Current, Current_S) 返回 (Current_S) .子程序 _按钮2_被单击 .如果 (时间组件_取当日实际秒数 () ＝ 时间组件_取秒数 ()) 调试输出 (“时间一样”) .否则 调试输出 (“时间不一样呢”) .如果结束 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _时钟1_周期事件 _按钮2_被单击 ()