易语言选择当天时间组件 - 组合框拼接源码

.版本 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_被单击 ()

@浅浅`