文件名称：易语言定时器原码 闹钟原码
文件大小：136KB
文件格式：RAR
更新时间：2015-10-29 02:45:55
易语言 定时器原码 闹钟原码 托盘图标原码
.版本 2 .支持库 xplib .支持库 TrayIcon .程序集 窗口程序集1 .程序集变量 需要倒计的时间, 整数型 .程序集变量 设定的时间, 文本型 .程序集变量 现在的时间, 文本型 .程序集变量 现在的年, 文本型 .程序集变量 现在的月, 文本型 .程序集变量 现在的日, 文本型 .程序集变量 现在的小时, 文本型 .程序集变量 现在的分钟, 文本型 .程序集变量 现在的秒, 文本型 .子程序 __启动窗口_创建完毕 XP风格 (1) 子程序刷新年 () 子程序刷新月 () 子程序刷新日 () 子程序刷新小时 () 子程序刷新分钟 () 哪个选中哪个黑 () 组合框要干什么.现行选中项 ＝ 0 .子程序 子程序刷新年 .局部变量 n1, 整数型 .计次循环首 (5, n1) 组合框年.加入项目 (到文本 (取年份 (取现行时间 ()) ＋ n1 － 1) ＋ “年”, ) .计次循环尾 () 组合框年.现行选中项 ＝ 0 .子程序 子程序刷新月 .局部变量 n1, 整数型 组合框月.清空 () .如果 (组合框年.现行选中项 ＝ 0) .计次循环首 (13 － 取月份 (取现行时间 ()), n1) .如果 (取月份 (取现行时间 ()) ＋ n1 － 1 ＜ 10) 组合框月.加入项目 (“0” ＋ 到文本 (取月份 (取现行时间 ()) ＋ n1 － 1) ＋ “月”, ) .否则 组合框月.加入项目 (到文本 (取月份 (取现行时间 ()) ＋ n1 － 1) ＋ “月”, ) .如果结束 .计次循环尾 () 组合框月.现行选中项 ＝ 0 .否则 .计次循环首 (12, n1) .如果 (n1 ＜ 10) 组合框月.加入项目 (“0” ＋ 到文本 (n1) ＋ “月”, ) .否则 组合框月.加入项目 (到文本 (n1) ＋ “月”, ) .如果结束 .计次循环尾 () 组合框月.现行选中项 ＝ 取月份 (取现行时间 ()) － 1 .如果结束 .子程序 子程序刷新日 .局部变量 n1, 整数型 .局部变量 n2, 整数型 组合框日.清空 () .如果 (组合框年.现行选中项 ＝ 0 且 组合框月.现行选中项 ＝ 0) .计次循环首 (取某月天数 (到数值 (组合框年.内容), 到数值 (组合框月.内容)) － 取日 (取现行时间 ()) ＋ 1, n2) .如果 (取日 (取现行时间 ()) ＋ n2 － 1 ＜ 10) 组合框日.加入项目 (“0” ＋ 到文本 (取日 (取现行时间 ()) ＋ n2 － 1) ＋ “日”, ) .否则 组合框日.加入项目 (到文本 (取日 (取现行时间 ()) ＋ n2 － 1) ＋ “日”, ) .如果结束 .计次循环尾 () 组合框日.现行选中项 ＝ 0 .否则 .计次循环首 (取某月天数 (到数值 (组合框年.内容), 组合框月.现行选中项 ＋ 1), n1) .如果 (n1 ＜ 10) 组合框日.加入项目 (“0” ＋ 到文本 (n1) ＋ “日”, ) .否则 组合框日.加入项目 (到文本 (n1) ＋ “日”, ) .如果结束 .计次循环尾 () 组合框日.现行选中项 ＝ 取日 (取现行时间 ()) － 1 .如果结束 .子程序 子程序刷新小时 .局部变量 n1, 整数型 组合框小时.清空 () .如果 (组合框年.现行选中项 ＝ 0 且 组合框月.现行选中项 ＝ 0 且 组合框日.现行选中项 ＝ 0) .计次循环首 (24 － 取小时 (取现行时间 ()), n1) .如果 (取小时 (取现行时间 ()) ＋ n1 － 1 ＜ 10) 组合框小时.加入项目 (“0” ＋ 到文本 (取小时 (取现行时间 ()) ＋ n1 － 1) ＋ “点”, ) .否则 组合框小时.加入项目 (到文本 (取小时 (取现行时间 ()) ＋ n1 － 1) ＋ “点”, ) .如果结束 .计次循环尾 () 组合框小时.现行选中项 ＝ 0 .否则 .计次循环首 (24, n1) .如果 (n1 ＜ 11) 组合框小时.加入项目 (“0” ＋ 到文本 (n1 － 1) ＋ “点”, ) .否则 组合框小时.加入项目 (到文本 (n1 － 1) ＋ “点”, ) .如果结束 .计次循环尾 () 组合框小时.现行选中项 ＝ 取小时 (取现行时间 ()) .如果结束 .子程序 子程序刷新分钟 .局部变量 n1, 整数型 组合框分.清空 () .如果 (组合框年.现行选中项 ＝ 0 且 组合框月.现行选中项 ＝ 0 且 组合框日.现行选中项 ＝ 0 且 组合框小时.现行选中项 ＝ 0) .计次循环首 (60 － 取分钟 (取现行时间 ()), n1) .如果 (取分钟 (取现行时间 ()) ＋ n1 － 1 ＜ 10) 组合框分.加入项目 (“0” ＋ 到文本 (取分钟 (取现行时间 ()) ＋ n1 － 1) ＋ “分”, ) .否则 组合框分.加入项目 (到文本 (取分钟 (取现行时间 ()) ＋ n1 － 1) ＋ “分”, ) .如果结束 .计次循环尾 () 组合框分.现行选中项 ＝ 0 .否则 .计次循环首 (60, n1) .如果 (n1 ＜ 11) 组合框分.加入项目 (“0” ＋ 到文本 (n1 － 1) ＋ “分”, ) .否则 组合框分.加入项目 (到文本 (n1 － 1) ＋ “分”, ) .如果结束 .计次循环尾 () 组合框分.现行选中项 ＝ 取分钟 (取现行时间 ()) .如果结束 .子程序 _按钮最小化_被单击 _启动窗口.可视 ＝ 假 托盘图标1.托盘信息框 (“Win定时器”, “哈楼！我在这呢”, 1, 1000) .子程序 哪个选中哪个黑 .如果 (单选框定时模式.选中 ＝ 真) 组合框年.禁止 ＝ 假 组合框月.禁止 ＝ 假 组合框日.禁止 ＝ 假 组合框小时.禁止 ＝ 假 组合框分.禁止 ＝ 假 .否则 组合框年.禁止 ＝ 真 组合框月.禁止 ＝ 真 组合框日.禁止 ＝ 真 组合框分.禁止 ＝ 真 组合框小时.禁止 ＝ 真 .如果结束 .如果 (单选框倒计时模式.选中 ＝ 真) 单选框小时分钟.禁止 ＝ 假 单选框分钟.禁止 ＝ 假 .否则 单选框小时分钟.禁止 ＝ 真 单选框分钟.禁止 ＝ 真 .如果结束 .如果 (单选框倒计时模式.选中 ＝ 真 且 单选框小时分钟.选中 ＝ 真) 编辑框小时.禁止 ＝ 假 编辑框分钟.禁止 ＝ 假 标签小时.文本颜色 ＝ #黑色 标签分钟.文本颜色 ＝ #黑色 调节器小时.禁止 ＝ 假 调节器分钟.禁止 ＝ 假 .否则 编辑框小时.禁止 ＝ 真 编辑框分钟.禁止 ＝ 真 标签小时.文本颜色 ＝ #灰色 标签分钟.文本颜色 ＝ #灰色 调节器分钟.禁止 ＝ 真 调节器小时.禁止 ＝ 真 .如果结束 .如果 (单选框倒计时模式.选中 ＝ 真 且 单选框分钟.选中 ＝ 真) 编辑框好多分钟.禁止 ＝ 假 标签好多分钟.文本颜色 ＝ #黑色 调节器好多分钟.禁止 ＝ 假 .否则 编辑框好多分钟.禁止 ＝ 真 标签好多分钟.文本颜色 ＝ #灰色 调节器好多分钟.禁止 ＝ 真 .如果结束 .如果 (组合框要干什么.现行选中项 ＝ 2) 编辑框路径.可视 ＝ 真 .否则 编辑框路径.可视 ＝ 假 .如果结束 .子程序 _编辑框小时_获得焦点 .如果 (编辑框小时.内容 ＝ “0”) 编辑框小时.内容 ＝ “” .否则 .如果结束 .子程序 _编辑框小时_失去焦点 .如果 (编辑框小时.内容 ＝ “”) 编辑框小时.内容 ＝ “0” .否则 .如果结束 .子程序 _编辑框分钟_内容被改变 .如果 (到数值 (编辑框分钟.内容) ≥ 60) 编辑框分钟.内容 ＝ “59” .否则 .如果 (到数值 (编辑框分钟.内容) ＜ 0) 编辑框分钟.内容 ＝ “” .否则 .如果结束 .如果结束 .子程序 _编辑框分钟_获得焦点 .如果 (编辑框分钟.内容 ＝ “0”) 编辑框分钟.内容 ＝ “” .否则 .如果结束 .子程序 _编辑框分钟_失去焦点 .如果 (编辑框分钟.内容 ＝ “”) 编辑框分钟.内容 ＝ “0” .否则 .如果结束 .子程序 _按钮计时_被单击 .如果 (组合框要干什么.现行选中项 ＝ 2) .如果 (编辑框路径.内容 ＝ “”) 信息框 (“什么文件都不打开么？”, 0, ) 返回 () .否则 .如果结束 .否则 .如果结束 .如果 (单选框定时模式.选中 ＝ 真) 获得设定的时间 () 获得现在的时间 () 需要倒计的时间 ＝ 到长整数 (取时间间隔 (到时间 (设定的时间), 到时间 (现在的时间), #秒)) .如果 (到长整数 (设定的时间) ≤ 到长整数 (现在的时间)) 信息框 (“设置的时间段不符合规范”, 0, ) 返回 () .否则 时钟1.时钟周期 ＝ 1000 锁住窗口 () .如果结束 .否则 .如果 (单选框倒计时模式.选中 ＝ 真 且 单选框小时分钟.选中 ＝ 真) 需要倒计的时间 ＝ 到数值 (编辑框小时.内容) × 60 × 60 ＋ 到数值 (编辑框分钟.内容) × 60 .如果 (需要倒计的时间 ≤ 50) 信息框 (“设置的时间段不符合规范”, 0, ) 返回 () .否则 时钟1.时钟周期 ＝ 1000 锁住窗口 () .如果结束 .否则 .如果 (单选框倒计时模式.选中 ＝ 真 且 单选框分钟.选中 ＝ 真) 需要倒计的时间 ＝ 到数值 (编辑框好多分钟.内容) × 60 .如果 (需要倒计的时间 ≤ 50) 信息框 (“设置的时间段不符合规范”, 0, ) 返回 () .否则 时钟1.时钟周期 ＝ 1000 锁住窗口 () .如果结束 .否则 .如果结束 .如果结束 .如果结束 .子程序 _单选框定时模式_被单击 哪个选中哪个黑 () .子程序 _单选框倒计时模式_被单击 哪个选中哪个黑 () .子程序 _单选框小时分钟_被单击 哪个选中哪个黑 () .子程序 _单选框分钟_被单击 哪个选中哪个黑 () .子程序 _编辑框好多分钟_获得焦点 .如果 (编辑框好多分钟.内容 ＝ “0”) 编辑框好多分钟.内容 ＝ “” .否则 .如果结束 .子程序 _编辑框好多分钟_失去焦点 .如果 (编辑框好多分钟.内容 ＝ “”) 编辑框好多分钟.内容 ＝ “0” .否则 .如果结束 .子程序 _组合框要干什么_列表项被选择 .如果 (组合框要干什么.现行选中项 ＝ 2) 通用对话框1.打开 () 编辑框路径.内容 ＝ 通用对话框1.文件名 编辑框路径.可视 ＝ 真 .否则 编辑框路径.可视 ＝ 假 .如果结束 .子程序 _组合框年_列表项被选择 子程序刷新月 () 子程序刷新日 () 子程序刷新小时 () 子程序刷新分钟 () .子程序 _组合框月_列表项被选择 子程序刷新日 () 子程序刷新小时 () 子程序刷新分钟 () .子程序 _组合框日_列表项被选择 子程序刷新小时 () 子程序刷新分钟 () .子程序 _组合框小时_列表项被选择 子程序刷新分钟 () .子程序 _时钟1_周期事件 需要倒计的时间 ＝ 需要倒计的时间 － 1 _启动窗口.标题 ＝ 到文本 (需要倒计的时间) ＋ “秒后” ＋ 组合框要干什么.内容 .如果 (需要倒计的时间 ＝ 0) 时钟1.时钟周期 ＝ 0 时间到 () .否则 .如果结束 .子程序 获得设定的时间 设定的时间 ＝ 到文本 (到数值 (组合框年.内容)) ＋ 取文本左边 (组合框月.内容, 2) ＋ 取文本左边 (组合框日.内容, 2) ＋ 取文本左边 (组合框小时.内容, 2) ＋ 取文本左边 (组合框分.内容, 2) ＋ “00” .子程序 获得现在的时间 现在的年 ＝ 到文本 (取年份 (取现行时间 ())) .如果 (取月份 (取现行时间 ()) ＜ 10) 现在的月 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ())) .否则 现在的月 ＝ 到文本 (取月份 (取现行时间 ())) .如果结束 .如果 (取日 (取现行时间 ()) ＜ 10) 现在的日 ＝ “0” ＋ 到文本 (取日 (取现行时间 ())) .否则 现在的日 ＝ 到文本 (取日 (取现行时间 ())) .如果结束 .如果 (取小时 (取现行时间 ()) ＜ 10) 现在的小时 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ())) .否则 现在的小时 ＝ 到文本 (取小时 (取现行时间 ())) .如果结束 .如果 (取分钟 (取现行时间 ()) ＜ 10) 现在的分钟 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ())) .否则 现在的分钟 ＝ 到文本 (取分钟 (取现行时间 ())) .如果结束 .如果 (取秒 (取现行时间 ()) ＜ 10) 现在的秒 ＝ “0” ＋ 到文本 (取秒 (取现行时间 ())) .否则 现在的秒 ＝ 到文本 (取秒 (取现行时间 ())) .如果结束 现在的时间 ＝ 现在的年 ＋ 现在的月 ＋ 现在的日 ＋ 现在的小时 ＋ 现在的分钟 ＋ 现在的秒 .子程序 时间到 _按钮取消_被单击 () _启动窗口.可视 ＝ 假 载入 (窗口1, , 真) .子程序 锁住窗口 单选框定时模式.禁止 ＝ 真 单选框倒计时模式.禁止 ＝ 真 单选框分钟.禁止 ＝ 真 单选框小时分钟.禁止 ＝ 真 组合框年.禁止 ＝ 真 组合框月.禁止 ＝ 真 组合框日.禁止 ＝ 真 组合框小时.禁止 ＝ 真 组合框分.禁止 ＝ 真 组合框要干什么.禁止 ＝ 真 编辑框路径.禁止 ＝ 真 编辑框分钟.禁止 ＝ 真 编辑框小时.禁止 ＝ 真 编辑框好多分钟.禁止 ＝ 真 标签到点执行.文本颜色 ＝ #灰色 按钮计时.禁止 ＝ 真 标签分钟.文本颜色 ＝ #灰色 标签小时.文本颜色 ＝ #灰色 标签好多分钟.文本颜色 ＝ #灰色 .子程序 _按钮取消_被单击 时钟1.时钟周期 ＝ 0 按钮计时.禁止 ＝ 假 单选框定时模式.禁止 ＝ 假 单选框倒计时模式.禁止 ＝ 假 编辑框路径.禁止 ＝ 假 标签到点执行.文本颜色 ＝ #黑色 组合框要干什么.禁止 ＝ 假 哪个选中哪个黑 () _启动窗口.标题 ＝ “Win定时器” .子程序 _显示主窗体_被选择 _启动窗口.可视 ＝ 真 .子程序 _退出计时器_被选择 .如果 (信息框 (“确定要退出吗”, #确认取消钮 ＋ #询问图标, “Win定时器”) ＝ 0) _启动窗口.销毁 () .否则 .如果结束 .子程序 __启动窗口_可否被关闭, 逻辑型 .如果 (信息框 (“确定要退出吗”, #确认取消钮 ＋ #询问图标, “Win定时器”) ＝ 0) _启动窗口.销毁 () .否则 返回 (假) .如果结束 .子程序 _托盘图标1_托盘图标被右击 _启动窗口.弹出托盘菜单 (托盘菜单) .子程序 _托盘图标1_托盘图标被双击 .如果 (_启动窗口.可视 ＝ 真) _启动窗口.可视 ＝ 假 .否则 _启动窗口.可视 ＝ 真 .如果结束 .子程序 _关于计时器_被选择 托盘图标1.托盘信息框 (“作者信息”, “本程序由东方城电脑提供” ＋ #换行符 ＋ “程序终身免费，感谢您的” ＋ #换行符 ＋ “支持”, 1, 2000) .子程序 _调节器好多分钟_调节钮被按下 .参数 按钮值, 整数型 .如果 (按钮值 ＝ 1) 编辑框好多分钟.内容 ＝ 到文本 (到数值 (编辑框好多分钟.内容) ＋ 1) .否则 .如果 (按钮值 ＝ -1 且 到数值 (编辑框好多分钟.内容) ＞ 0) 编辑框好多分钟.内容 ＝ 到文本 (到数值 (编辑框好多分钟.内容) － 1) .否则 .如果结束 .如果结束 .子程序 _调节器小时_调节钮被按下 .参数 按钮值, 整数型 .如果 (按钮值 ＝ 1) .如果 (到数值 (编辑框小时.内容) ＞ 998) 编辑框小时.内容 ＝ “0” .否则 编辑框小时.内容 ＝ 到文本 (到数值 (编辑框小时.内容) ＋ 1) .如果结束 .否则 .如果 (按钮值 ＝ -1) .如果 (到数值 (编辑框小时.内容) ＜ 1) 编辑框小时.内容 ＝ “999” .否则 编辑框小时.内容 ＝ 到文本 (到数值 (编辑框小时.内容) － 1) .如果结束 .否则 .如果结束 .如果结束 .子程序 _编辑框小时_内容被改变 .如果 (到数值 (编辑框小时.内容) ＞ 999) 编辑框小时.内容 ＝ “999” .否则 .如果 (到数值 (编辑框小时.内容) ＜ 0) 编辑框小时.内容 ＝ “0” .否则 .如果结束 .如果结束 .子程序 _调节器分钟_调节钮被按下 .参数 按钮值, 整数型 .如果 (按钮值 ＝ 1) .如果 (到数值 (编辑框分钟.内容) ＞ 58) 编辑框分钟.内容 ＝ “0” .否则 编辑框分钟.内容 ＝ 到文本 (到数值 (编辑框分钟.内容) ＋ 1) .如果结束 .否则 .如果 (按钮值 ＝ -1) .如果 (到数值 (编辑框分钟.内容) ＜ 1) 编辑框分钟.内容 ＝ “59” .否则 编辑框分钟.内容 ＝ 到文本 (到数值 (编辑框分钟.内容) － 1) .如果结束 .否则 .如果结束 .如果结束
【文件预览】：
TrayIcon.fne
定时器3.0.e
TrayIcon_static.lib