.版本 2 .支持库 xplib .支持库 eGrid .支持库 shellEx .支持库 iext .支持库 RegEx .支持库 eAPI .程序集 窗口程序集1 .程序集变量 数据库, 文本型 .程序集变量 配置文件, 文本型 .程序集变量 当前位置, 整数型 .程序集变量 星期几, 文本型, , "7" .程序集变量 正在运行, 逻辑型 .程序集变量 运行记时, 小数型 .程序集变量 天值, 整数型 .程序集变量 复制的数据, 文本型, , "2,40" .程序集变量 可否复制, 逻辑型 .程序集变量 是否保存, 逻辑型 .程序集变量 编辑行号, 整数型 .程序集变量 编辑列号, 整数型 .程序集变量 选择的文件, 文本型 .程序集变量 是否覆盖, 逻辑型 .程序集变量 打铃数据, 文本型, , "2,40" .程序集变量 皮肤颜色集, 整数型, , "3" .程序集变量 是否已打铃, 逻辑型 .子程序 __启动窗口_创建完毕 .局部变量 变量, 整数型 XP风格 (3) ' _启动窗口.移动 (, , 600, 600) _启动窗口.标题 ＝ #程序名 星期几 [1] ＝ “星期日” 星期几 [2] ＝ “星期一” 星期几 [3] ＝ “星期二” 星期几 [4] ＝ “星期三” 星期几 [5] ＝ “星期四” 星期几 [6] ＝ “星期五” 星期几 [7] ＝ “星期六” ' 画表格 ' *** 缩略程序块 *** 高级表格1.列数 ＝ 3 高级表格1.行数 ＝ 42 高级表格1.置列宽 (1, 100) 高级表格1.置列宽 (2, 400) 高级表格1.置对齐方式 (0, 0, 30, 2, #表格常量.居中对齐) 高级表格1.置对齐方式 (1, 2, 30, 2, #表格常量.左对齐) 高级表格1.置数据 (0, 1, #表格常量.文本型, “时间”) 高级表格1.置数据 (0, 2, #表格常量.文本型, “播放音乐”) 高级表格1.置数据 (0, 3, #表格常量.文本型, “时间”) 高级表格1.置数据 (1, 0, #表格常量.文本型, “第一次上”) 高级表格1.置数据 (2, 0, #表格常量.文本型, “第一次下”) 高级表格1.置数据 (3, 0, #表格常量.文本型, “第二次上”) 高级表格1.置数据 (4, 0, #表格常量.文本型, “第二次下”) 高级表格1.置数据 (5, 0, #表格常量.文本型, “第三次上”) 高级表格1.置数据 (6, 0, #表格常量.文本型, “第三次下”) 高级表格1.置数据 (7, 0, #表格常量.文本型, “第四次上”) 高级表格1.置数据 (8, 0, #表格常量.文本型, “第四次下”) 高级表格1.置数据 (9, 0, #表格常量.文本型, “第五次上”) 高级表格1.置数据 (10, 0, #表格常量.文本型, “第五次下”) 高级表格1.置数据 (11, 0, #表格常量.文本型, “第六次上”) 高级表格1.置数据 (12, 0, #表格常量.文本型, “第六次下”) 高级表格1.置数据 (13, 0, #表格常量.文本型, “第七次上”) 高级表格1.置数据 (14, 0, #表格常量.文本型, “第七次下”) 高级表格1.置数据 (15, 0, #表格常量.文本型, “第八次上”) 高级表格1.置数据 (16, 0, #表格常量.文本型, “第八次下”) 高级表格1.置数据 (17, 0, #表格常量.文本型, “第九次上”) 高级表格1.置数据 (18, 0, #表格常量.文本型, “第九次下”) 高级表格1.置数据 (19, 0, #表格常量.文本型, “第十次上”) 高级表格1.置数据 (20, 0, #表格常量.文本型, “第十次下”) 高级表格1.置数据 (21, 0, #表格常量.文本型, “十一次上”) 高级表格1.置数据 (22, 0, #表格常量.文本型, “十一次下”) 高级表格1.置数据 (23, 0, #表格常量.文本型, “十二次上”) 高级表格1.置数据 (24, 0, #表格常量.文本型, “十二次下”) 高级表格1.置数据 (25, 0, #表格常量.文本型, “十三次上”) 高级表格1.置数据 (26, 0, #表格常量.文本型, “十三次下”) 高级表格1.置数据 (27, 0, #表格常量.文本型, “十四次上”) 高级表格1.置数据 (28, 0, #表格常量.文本型, “十四次下”) 高级表格1.置数据 (29, 0, #表格常量.文本型, “十五次上”) 高级表格1.置数据 (30, 0, #表格常量.文本型, “十五次下”) 高级表格1.置数据 (31, 0, #表格常量.文本型, “十六次上”) 高级表格1.置数据 (32, 0, #表格常量.文本型, “十六次下”) 高级表格1.置数据 (33, 0, #表格常量.文本型, “十七次上”) 高级表格1.置数据 (34, 0, #表格常量.文本型, “十七次下”) 高级表格1.置数据 (35, 0, #表格常量.文本型, “十八次上”) 高级表格1.置数据 (36, 0, #表格常量.文本型, “十八次下”) 高级表格1.置数据 (37, 0, #表格常量.文本型, “十九次上”) 高级表格1.置数据 (38, 0, #表格常量.文本型, “十九次下”) 高级表格1.置数据 (39, 0, #表格常量.文本型, “二十次上”) 高级表格1.置数据 (40, 0, #表格常量.文本型, “二十次下”) ' _启动窗口.置托盘图标 (_启动窗口.图标, #程序名) ' 打开数据库和处理一些可能性问题 配置文件 ＝ 取运行目录 () ＋ “\系统配置.ini” .如果真 (文件是否存在 (配置文件) ＝ 假) 写到文件 (配置文件, 到字节集 (#配置文本)) .如果真结束 组合框_皮肤.现行选中项 ＝ 到整数 (读配置项 (配置文件, “程序皮肤”, “A”, )) .如果 (读配置项 (配置文件, “自动启动”, “A”, ) ＝ “1”) 选择框_自动启动.选中 ＝ 真 .否则 选择框_自动启动.选中 ＝ 假 .如果结束 数据库 ＝ 取运行目录 () ＋ “\Database.edb” .如果真 (读配置项 (配置文件, “是否出错”, “A”, ) ＝ “1”) 删除文件 (数据库) 写配置项 (配置文件, “是否出错”, “A”, “0”) .如果真结束 .如果真 (文件是否存在 (数据库) ＝ 假) 写到文件 (数据库, #默认数据库) .如果真结束 .如果真 (打开 (数据库, , , , , , ) ＝ 假) 信息框 (“数据库打开失败！” ＋ #换行符 ＋ #换行符 ＋ “ 建议：” ＋ #换行符 ＋ “ 1、请重启本软件” ＋ #换行符 ＋ “ 2、查检本用户权限” ＋ #换行符 ＋ “ 3、重新安装本系统！”, #错误图标, #程序名 ＋ “ 提示您...”) 写配置项 (配置文件, “是否出错”, “A”, “1”) 结束 () .如果真结束 .如果真 (取记录数 () ＜ 280) 信息框 (“数据库打开失败！” ＋ #换行符 ＋ #换行符 ＋ “ 建议：” ＋ #换行符 ＋ “ 1、请重启本软件” ＋ #换行符 ＋ “ 2、查检本用户权限” ＋ #换行符 ＋ “ 3、重新安装本系统！”, #错误图标, #程序名 ＋ “ 提示您...”) 写配置项 (配置文件, “是否出错”, “A”, “1”) 结束 () .如果真结束 添加提示 (按钮_复制.取窗口句柄 (), “复制当前打铃设置”, 真, 假) 添加提示 (按钮_粘贴.取窗口句柄 (), “把当前天设置成目标样式”, 真, 假) 添加提示 (按钮_运行.取窗口句柄 (), “程序正在运行中...”, 真, 假) 添加提示 (按钮_清除.取窗口句柄 (), “清除本天的设置数据”, 真, 假) 添加提示 (按钮_保存.取窗口句柄 (), “保存设置”, 真, 假) 变量 ＝ 取星期几 (取现行时间 ()) 工具条1.加入状态 (变量, 1) 当前位置 ＝ 变量 读配置 (变量) 美化子程序 () 高级表格1.置列类型 (2, #表格常量.列表型) 高级表格1.插入下拉列表项 (2, “上课铃声”) 高级表格1.插入下拉列表项 (2, “下课铃声”) 高级表格1.插入下拉列表项 (2, “放学铃声”) 高级表格1.插入下拉列表项 (2, “课间操”) 高级表格1.插入下拉列表项 (2, “眼保操”) 高级表格1.插入下拉列表项 (2, “中华人民共和国国歌”) 高级表格1.插入下拉列表项 (2, “团结友谊进行曲”) 高级表格1.插入下拉列表项 (2, “播放”) 高级表格1.插入下拉列表项 (2, “选择...”) 编辑框_帮助.内容 ＝ #帮助 时钟1.时钟周期 ＝ 200 ' 半秒钟 正在运行 ＝ 真 .子程序 美化子程序 .局部变量 类型, 整数型 类型 ＝ 到整数 (读配置项 (配置文件, “程序皮肤”, “A”, )) ' 皮肤设置 ' *** 缩略程序块 *** .判断开始 (到整数 (类型) ＝ 0) 皮肤颜色集 [1] ＝ #白色 皮肤颜色集 [2] ＝ #默认色 皮肤颜色集 [3] ＝ #默认色 XP风格 (到整数 (类型)) .判断 (到整数 (类型) ＝ 1) 皮肤颜色集 [1] ＝ #蓝前景色 皮肤颜色集 [2] ＝ #蓝背景色一 皮肤颜色集 [3] ＝ #蓝背景色二 XP风格 (到整数 (类型)) .判断 (到整数 (类型) ＝ 2) 皮肤颜色集 [1] ＝ #金色年华一 皮肤颜色集 [2] ＝ #金色年华二 皮肤颜色集 [3] ＝ #金色年华三 XP风格 (到整数 (类型)) .判断 (到整数 (类型) ＝ 3) 皮肤颜色集 [1] ＝ #银前景色 皮肤颜色集 [2] ＝ #银背景色一 皮肤颜色集 [3] ＝ #银背景色二 XP风格 (到整数 (类型)) .判断 (到整数 (类型) ＝ 4) 皮肤颜色集 [1] ＝ #彩虹出轴一 皮肤颜色集 [2] ＝ #彩虹出轴二 皮肤颜色集 [3] ＝ #彩虹出轴三 XP风格 (3) .判断 (到整数 (类型) ＝ 5) 皮肤颜色集 [1] ＝ #孔雀开屏一 皮肤颜色集 [2] ＝ #孔雀开屏二 皮肤颜色集 [3] ＝ #孔雀开屏三 XP风格 (3) .判断 (到整数 (类型) ＝ 6) 皮肤颜色集 [1] ＝ #溥雾浓云一 皮肤颜色集 [2] ＝ #溥雾浓云二 皮肤颜色集 [3] ＝ #溥雾浓云三 XP风格 (3) .判断 (到整数 (类型) ＝ 7) 皮肤颜色集 [1] ＝ #熊熊火焰一 皮肤颜色集 [2] ＝ #熊熊火焰二 皮肤颜色集 [3] ＝ #熊熊火焰三 XP风格 (3) .判断 (到整数 (类型) ＝ 8) 皮肤颜色集 [1] ＝ #雨后初晴一 皮肤颜色集 [2] ＝ #雨后初晴二 皮肤颜色集 [3] ＝ #雨后初晴三 XP风格 (3) .默认 .判断结束 高级表格1.背景颜色 ＝ 皮肤颜色集 [1] _启动窗口.底色 ＝ 皮肤颜色集 [2] 工具条1.背景颜色 ＝ 皮肤颜色集 [2] 分组框1.背景颜色 ＝ 皮肤颜色集 [2] 分组框2.背景颜色 ＝ 皮肤颜色集 [2] 选择框_自动启动.背景颜色 ＝ 皮肤颜色集 [2] 标签18.背景颜色 ＝ 皮肤颜色集 [2] 状态条1.背景颜色 ＝ 皮肤颜色集 [3] .子程序 __启动窗口_尺寸被改变 选择夹1.移动 (1, 56, _启动窗口.宽度 － 2, _启动窗口.高度 － 150) 高级表格1.移动 (2, 1, 选择夹1.宽度 － 4, 选择夹1.高度) 分组框1.移动 (2, 1, 选择夹1.宽度 － 10, 选择夹1.高度 － 5) 分组框2.移动 (2, 1, 选择夹1.宽度 － 10, 选择夹1.高度 － 5) .子程序 __启动窗口_将被销毁 关闭 (数据库) .子程序 _工具条1_被单击 .参数 按钮索引, 整数型 .如果真 (正在运行 且 按钮索引 ＜ 12) .如果真 (信息框 (“要设置请先停止程序运行！” ＋ #换行符 ＋ #换行符 ＋ “是否停止程序运行？”, #是否钮, #程序名 ＋ “ 提示您...”) ＝ #是钮) _按钮_运行_被单击 () .如果真结束 .如果真结束 .判断开始 (按钮索引 ＝ 1) ' 星期日 .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (1) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 1 .判断 (按钮索引 ＝ 2) ' 星期一 .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (2) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 2 .判断 (按钮索引 ＝ 3) .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (3) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 3 .判断 (按钮索引 ＝ 4) .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (4) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 4 .判断 (按钮索引 ＝ 5) .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (5) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 5 .判断 (按钮索引 ＝ 6) .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (6) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 6 .判断 (按钮索引 ＝ 7) .如果真 (是否保存) _按钮_保存_被单击 () .如果真结束 选择夹1.现行子夹 ＝ 0 读配置 (7) 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 7 .判断 (按钮索引 ＝ 9) 选择夹1.现行子夹 ＝ 1 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 9 .判断 (按钮索引 ＝ 10) 选择夹1.现行子夹 ＝ 2 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 10 .判断 (按钮索引 ＝ 12) 结束 () .默认 .判断结束 .子程序 读配置 .参数 参数一, 整数型 .局部变量 行 .局部变量 列 .局部变量 文本1, 文本型, , "3" .局部变量 文本2, 文本型, , "3" 跳到 (参数一 × 40 － 39) .计次循环首 (40, 行) 高级表格1.置数据 (行, 1, #表格常量.文本型, 读 (2)) 打铃数据 [1] [行] ＝ 读 (2) 高级表格1.置数据 (行, 2, #表格常量.文本型, 读 (3)) 打铃数据 [2] [行] ＝ 读 (3) 跳过 (1) .计次循环尾 () .子程序 _按钮_保存_被单击 .局部变量 行, 整数型 .局部变量 列, 整数型 跳到 (当前位置 × 40 － 39) .计次循环首 (40, 行) 写 (2, 到文本 (高级表格1.取数据 (行, 1))) 写 (3, 到文本 (高级表格1.取数据 (行, 2))) 跳过 (1) .计次循环尾 () 是否保存 ＝ 假 读配置 (当前位置) .子程序 _高级表格1_列表项被选择 .参数 行号, 整数型 .参数 列号, 整数型 .参数 被选择文本, 文本型 .局部变量 音乐文件, 文本型 选择的文件 ＝ “” 是否覆盖 ＝ 假 .如果真 (被选择文本 ＝ “选择...”) 选择的文件 ＝ 高级表格1.取数据 (编辑行号, 编辑列号) .如果真 (通用对话框1.打开 ()) 选择的文件 ＝ 通用对话框1.文件名 ' 高级表格1.置数据 (行号, 列号, #表格常量.文本型, 通用对话框1.文件名) ' 不知道为什么没有效 是否覆盖 ＝ 真 .如果真结束 .如果真结束 .如果真 (被选择文本 ＝ “播放”) 音乐文件 ＝ 高级表格1.取数据 (编辑行号, 编辑列号) 选择的文件 ＝ 音乐文件 是否覆盖 ＝ 真 .如果真 (音乐文件 ＝ “上课铃声”) 音乐文件 ＝ 取运行目录 () ＋ #上课铃声 .如果真结束 .如果真 (音乐文件 ＝ “下课铃声”) 音乐文件 ＝ 取运行目录 () ＋ #下课铃声 .如果真结束 .如果真 (音乐文件 ＝ “放学铃声”) 音乐文件 ＝ 取运行目录 () ＋ #放学铃声 .如果真结束 .如果真 (音乐文件 ＝ “课间操”) 音乐文件 ＝ 取运行目录 () ＋ #课间操 .如果真结束 .如果真 (音乐文件 ＝ “眼保操”) 音乐文件 ＝ 取运行目录 () ＋ #眼保操 .如果真结束 .如果真 (音乐文件 ＝ “中华人民共和国国歌”) 音乐文件 ＝ 取运行目录 () ＋ #国歌 .如果真结束 .如果真 (音乐文件 ＝ “团结友谊进行曲”) 音乐文件 ＝ 取运行目录 () ＋ #团结友谊进行曲 .如果真结束 播放MP3 (, 音乐文件) .如果真结束 .子程序 _按钮_运行_被单击 .如果 (正在运行 ＝ 真) 按钮_运行.标题 ＝ “开始运行” 添加提示 (按钮_运行.取窗口句柄 (), “程序已停止运行”, 真, 假) 停止播放 () .否则 按钮_运行.标题 ＝ “运行中...” 添加提示 (按钮_运行.取窗口句柄 (), “程序正在运行中...”, 真, 假) .如果结束 正在运行 ＝ 取反 (正在运行) .子程序 _时钟1_周期事件 .局部变量 当前时间, 文本型 .局部变量 时, 文本型 .局部变量 分, 文本型 .局部变量 秒, 文本型 .局部变量 a, 整数型 .局部变量 音乐文件, 文本型 时 ＝ 到文本 (取小时 (取现行时间 ())) .如果真 (取文本长度 (时) ＝ 1) 时 ＝ “0” ＋ 时 .如果真结束 分 ＝ 到文本 (取分钟 (取现行时间 ())) .如果真 (取文本长度 (分) ＝ 1) 分 ＝ “0” ＋ 分 .如果真结束 秒 ＝ 到文本 (取秒 (取现行时间 ())) .如果真 (取文本长度 (秒) ＝ 1) 秒 ＝ “0” ＋ 秒 .如果真结束 当前时间 ＝ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 .如果真 (正在运行) .如果真 (取星期几 (取现行时间 ()) ≠ 当前位置) ' 时间过了一天 工具条1.去除状态 (当前位置, 1) 当前位置 ＝ 取星期几 (取现行时间 ()) 工具条1.加入状态 (当前位置, 1) 选择夹1.现行子夹 ＝ 0 读配置 (当前位置) .如果真结束 运行记时 ＝ 运行记时 ＋ 0.2 .如果真 (运行记时 ＞ 86400) ' 满一天就减去，也算是减轻CPU计算量吧 运行记时 ＝ 运行记时 － 86400 天值 ＝ 天值 ＋ 1 .如果真结束 状态条1.置文本 (4, 到时间格式 (运行记时)) ' 以下是核心代码 .计次循环首 (40, a) .如果真 (打铃数据 [1] [a] ≠ “”) .如果真 (打铃数据 [1] [a] ＝ 当前时间 且 是否已打铃 ＝ 假) ' *** 缩略程序块 *** 音乐文件 ＝ 打铃数据 [2] [a] .如果真 (打铃数据 [2] [a] ＝ “上课铃声”) 音乐文件 ＝ 取运行目录 () ＋ #上课铃声 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “下课铃声”) 音乐文件 ＝ 取运行目录 () ＋ #下课铃声 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “放学铃声”) 音乐文件 ＝ 取运行目录 () ＋ #放学铃声 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “课间操”) 音乐文件 ＝ 取运行目录 () ＋ #课间操 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “眼保操”) 音乐文件 ＝ 取运行目录 () ＋ #眼保操 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “中华人民共和国国歌”) 音乐文件 ＝ 取运行目录 () ＋ #国歌 .如果真结束 .如果真 (打铃数据 [2] [a] ＝ “团结友谊进行曲”) 音乐文件 ＝ 取运行目录 () ＋ #团结友谊进行曲 .如果真结束 是否已打铃 ＝ 真 ' 打铃数据 [1] [a] ＝ “” 同步播放MP3 (音乐文件, , 标签1, ) 跳出循环 () .如果真结束 .如果真结束 .计次循环尾 () ' 核心代码到此结束,嘿嘿.... .如果真结束 状态条1.置文本 (9, 当前时间 ＋ “ ” ＋ 星期几 [取星期几 (取现行时间 ())]) .子程序 到时间格式, 文本型, , 时长到时间格式 00:00 .参数 秒数, 小数型 .局部变量 时值, 文本型 .局部变量 分值, 文本型 .局部变量 秒值, 文本型 .局部变量 aa, 整数型, , , 如果设为整数，就是00：00格式，设为小数就是00：00.00格式 秒数 ＝ 四舍五入 (秒数, ) ' 一秒 时值 ＝ 到文本 (秒数 ＼ 3600) .如果真 (取文本长度 (时值) ＝ 1) 时值 ＝ “0” ＋ 时值 .如果真结束 分值 ＝ 到文本 ((秒数 ％ 3600) ＼ 60) .如果真 (取文本长度 (分值) ＝ 1) 分值 ＝ “0” ＋ 分值 .如果真结束 aa ＝ 秒数 ％ 3600 ＼ 60 .如果 (取文本长度 (到文本 (aa)) ＝ 1) 秒值 ＝ “0” ＋ 到文本 (aa) .否则 秒值 ＝ 到文本 (aa) .如果结束 返回 (“ ” ＋ 到文本 (天值) ＋ “天” ＋ 时值 ＋ “时” ＋ 分值 ＋ “分” ＋ 秒值 ＋ “秒”) .子程序 _高级表格1_结束编辑 .局部变量 临时文本, 文本型 .局部变量 正则, 正则表达式 .局部变量 结果, 搜索结果 .局部变量 长度, 整数型 .如果真 (编辑列号 ＝ 1) 临时文本 ＝ 高级表格1.取数据 (编辑行号, 1) 长度 ＝ 取文本长度 (临时文本) .如果真 (长度 ＞ 0) 正则.创建 (“[0-2]\d:[0-5]\d:[0-5]\d”, ) ' 最多为：23：59：59 结果 ＝ 正则.搜索 (临时文本, 1, ) .如果真 (结果.取匹配文本 (临时文本, ) ＝ “” 或 长度 ≠ 8) 信息框 (“输入格式不正确或时间错误，请重输入！” ＋ #换行符 ＋ #换行符 ＋ “格式为：小时：分钟：秒钟” ＋ #换行符 ＋ “00:00:00”, #错误图标, #程序名 ＋ “ 提示您...”) 高级表格1.置数据 (编辑行号, 编辑列号, #表格常量.文本型, “”) 高级表格1.置光标 (编辑行号, 编辑列号) .如果真结束 .如果真结束 .如果真结束 .如果真 (编辑列号 ＝ 2 且 是否覆盖 ＝ 真) 高级表格1.置数据 (编辑行号, 编辑列号, #表格常量.文本型, 选择的文件) 是否覆盖 ＝ 假 .如果真结束 .子程序 _高级表格1_将被编辑 编辑行号 ＝ 高级表格1.取光标行号 () 编辑列号 ＝ 高级表格1.取光标列号 () 是否保存 ＝ 真 .子程序 _按钮_复制_被单击 .局部变量 a .计次循环首 (40, a) 复制的数据 [1] [a] ＝ 删首尾空 (高级表格1.取数据 (a, 1)) 复制的数据 [2] [a] ＝ 删首尾空 (高级表格1.取数据 (a, 2)) .计次循环尾 () 可否复制 ＝ 真 .子程序 _按钮_粘贴_被单击 .局部变量 a .如果真 (可否复制) .计次循环首 (40, a) 高级表格1.置数据 (a, 1, #表格常量.文本型, 复制的数据 [1] [a]) 高级表格1.置数据 (a, 2, #表格常量.文本型, 复制的数据 [2] [a]) .计次循环尾 () 是否保存 ＝ 真 .如果真结束 .子程序 _按钮_清除_被单击 .局部变量 a, 整数型 .计次循环首 (40, a) 高级表格1.置数据 (a, 1, #表格常量.文本型, “”) 高级表格1.置数据 (a, 2, #表格常量.文本型, “”) .计次循环尾 () 是否保存 ＝ 真 .子程序 _选择框_自动启动_被单击 .如果 (选择框_自动启动.选中 ＝ 真) .如果真 (设置自动运行 (“自动打铃系统1.0”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), #接口常量.到注册表)) 写配置项 (配置文件, “自动启动”, “A”, “1”) .如果真结束 .否则 .如果真 (取消自动运行 (“自动打铃系统1.0”)) 写配置项 (配置文件, “自动启动”, “A”, “0”) .如果真结束 .如果结束 .子程序 _组合框_皮肤_列表项被选择 写配置项 (配置文件, “程序皮肤”, “A”, 到文本 (组合框_皮肤.现行选中项)) 美化子程序 () .子程序 _标签1_反馈事件, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型 .如果真 (参数一 ＞ 30) 是否已打铃 ＝ 假 .如果真结束