电脑派位录取程序的原理及其编写

电脑派位录取程序的原理及其编写电脑派位录取程序的原理及其编写 江苏省如皋市教育局 张小刚 关键字 电脑派位关键字 电脑派位 随机随机 程序程序 源代码源代码 鉴于当前部分民办学校拥有较优质资源和教学实绩 往往出现报名人数多 于录取人数的情况 这时 采用微机软件进行随机派位录取是普遍为学校和社 会接受的解决问题的方法 鉴于社会关注度高等因素 决定了本程序设计必须 做到选择公平公正 选择随机 源代码可以当场展示讲解且程序代码百分之百 正确 因此 虽然程序原理及运行流程比较简单 导致许多学校虽然有具备一 定知识水平的人员 却很少有敢于承担此项编程工作的 为此 本文就程序原 理 代码编写及其在某校实际运行过程中的操作方法进行简要论述 并附全部 源代码 以供参考 编程语言的选择 编程语言的选择 由于关注度高 因此程序和运行环节的公正性要求能接受社会公开监督 有些学校为了保证其公正性不受置疑 除了请公证处全程公证 甚至采取电视 直播的方法进行 这就要求我们的程序能以最简洁的代码来实现所需功能 以 便能在运行前当场展示并讲解程序代码及原理 基于此 综合考虑当前流行的 主要编程语言 我们优先选择了 Visual Foxpro 代码简洁 便于讲解 源代码 无需编译即可直接运行 同时其 DBF 文件格式与学校一般采用的 Excel 录入的 报名学生名册文件可以自由转换 程序原理 程序原理 以在江苏省南通市有影响的某实验初中为例 要求在报名的 1500 多生中随 机选择 516 人录取 分 6 个批次进行 前 5 批次每次取 100 人 最后取 16 人 程序运行时 先对原始数据文件进行备份 根据在屏幕上显示 第 x 批 按钮 及当前待选库人数 本批选择进度条等组成程序运行界面 每按动 第 x 批 按键一次 电脑计算本批次应产生的选中人数 如果总的待选择数大于 100 则 为 100 否则为剩余数 随机对当前待选择库进行派位 直到选中本批次待选 人数 显示选择结果 将选中名单导出到 批次 dbf 和 批次 xls 文件 并显 示报告 将已选出名单从待选择库中删除 打印本批名单交公证处及相关人员 签字 如果还有待选择名单 则屏幕界面上显示 第 x 1 批 按钮 以供下一 批次的选择 否则选择按钮显示为 选择结束 数据准备及代码编写 数据准备及代码编写 数据准备 将学校提供的经公证处检查认可的报名 Excel 文件保留其中的 姓名 身份证号 或登记号 需唯一 并另存生成 bmk DBF 文件 打开该 DBF 文件 运行 modi stru 命令 添加 原始记录号 选中 选中顺序 三个数值型字段 运行命令 repl all 原始记录号 with recno 数据准备完 毕 在新窗体添加四个标签 分别为 Label1 Label2 Label3 Progress1 将 Label2 的 Caption 设置为 进度 且与 Progress1 水平对齐 将 Progress1 的 BackColor 设置为 0 0 255 即蓝色 添加两个命令按钮 名称分别为 Command1 Command2 将 Command1 的 Caption 设置为 第 1 批 将 Command2 的 Caption 设置为 退出 对窗体的对窗体的 InitInit 即初始化部分添加代码 即初始化部分添加代码 行前带 号的为注解 set esca off set talk off this visible t this autocenter t this Command1 Caption 第 1 批 public 批次 需选人数 已选出数 oldwidth clos all sele 1 use bmk 将标志清 0 防止被事先设置 repl all 选中 with 0 选中顺序 with 0 copy to bmk 原始备份 批次 1 需选人数 516 this label1 Caption 待选出总人数 ltrim str 需选人数 已选出 0 已选出数 0 随机数初始化 rand 100 oldwidth thisform Progress1 width coun to totalnow this label3 Caption 待选库现有总人数 ltrim str totalnow 界面显示完成 等待进行选择 对对 Command1Command1 的的 ClickClick 即点击事件添加代码 即点击事件添加代码 rand 100 if 需选人数 已选出数 100 then 本批数 100 else 本批数 需选人数 已选出数 endi go bott 库中还有总人数 recno 本批已选 0 当本批已选 本批数时 循环选择 考虑了防止被事先设置选中标记的情 况 do whil 本批已选 1 就去判断选择该行 if 随机数 1 then go 随机数 如果该行的选中标记不是 1 那么 本批已选 变量加 1 该行的 选 中 为 1 选择顺序放置在 选中顺序 if 选中1 then 本批已选 本批已选 1 repl 选中 with 1 选中顺序 with 本批已选 thisform Progress1 width 本批已选 oldwidth 本批数 thisform refresh endi endi 空循环 产生延时效果 delay1 1 do whil delay1 10000 kk round 123456789 456789 8 8 delay1 delay1 1 endd endd 将本批选中的行拷贝到 批次 dbf 例如 1 dbf copy to ltrim str 批次 for 选中 1 将本批选中的行拷贝到 批次 xls copy to ltrim str 批次 xls for 选中 1 将本批选中的行从当前待选择表删除 dele all for 选中 1 pack 已选出数 已选出数 本批已选 thisform Progress1 width oldwidth thisform Label1 Caption 待选出总人数 ltrim str 需选人数 已 选出 ltrim str 已选出数 coun to totalnow thisform label3 Caption 待选库现有总人数 ltrim str totalnow MESSAGEBOX 第 ltrim str 批次 批 ltrim str 本批已选 已选 出 48 提示 MESSAGEBOX 本批名单已导出到文件 ltrim str 批次 xls 及 ltrim str 批次 dbf 48 提示 批次 批次 1 if 已选出数 需选人数 thisform Command1 Caption 第 ltrim str 批次 批 else MESSAGEBOX 选择全部完成 48 提示 thisform Command1 Caption 选择结束 thisform Command1 Enabled f thisform Command2 Enabled T endi retu CLOS all 程序运行 程序运行 程序运行前 先将经公证处检验密封的派位运行专用电脑启封 查看派位 程序运行的硬盘分区如 E 内容应为空白 将经公证处事先检验并密封的数据和 程序 U 盘插上 将数据和程序从 U 盘拷贝到 E 盘 打开 Bmk dbf 文件当众展示 打开程序文件展示源代码并讲解其原理 即可准备运行 在每一批次 一般由 嘉宾点击