分享
分享赚钱 收藏 举报 版权申诉 / 5

类型电脑派位录取程序的原理及其编写.doc

  • 上传人:dcjskn
  • 文档编号:5940034
  • 上传时间:2019-03-21
  • 格式:DOC
  • 页数:5
  • 大小:26.50KB
  • 配套讲稿:

    如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

    特殊限制:

    部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

    关 键  词:
    电脑派位录取程序的原理及其编写.doc
    资源描述:

    1、电脑派位录取程序的原理及其编写江苏省如皋市教育局 张小刚关键字:电脑派位 随机 程序 源代码鉴于当前部分民办学校拥有较优质资源和教学实绩,往往出现报名人数多于录取人数的情况。这时,采用微机软件进行随机派位录取是普遍为学校和社会接受的解决问题的方法。鉴于社会关注度高等因素,决定了本程序设计必须做到选择公平公正、选择随机、源代码可以当场展示讲解且程序代码百分之百正确,因此,虽然程序原理及运行流程比较简单,导致许多学校虽然有具备一定知识水平的人员,却很少有敢于承担此项编程工作的。为此,本文就程序原理、代码编写及其在某校实际运行过程中的操作方法进行简要论述,并附全部源代码,以供参考。、编程语言的选择由

    2、于关注度高,因此程序和运行环节的公正性要求能接受社会公开监督。有些学校为了保证其公正性不受置疑,除了请公证处全程公证,甚至采取电视直播的方法进行。这就要求我们的程序能以最简洁的代码来实现所需功能,以便能在运行前当场展示并讲解程序代码及原理。基于此,综合考虑当前流行的主要编程语言,我们优先选择了 Visual Foxpro:代码简洁、便于讲解、源代码无需编译即可直接运行,同时其 DBF 文件格式与学校一般采用的 Excel 录入的报名学生名册文件可以自由转换。、程序原理以在江苏省南通市有影响的某实验初中为例,要求在报名的 1500 多生中随机选择 516 人录取,分 6 个批次进行,前 5 批次

    3、每次取 100 人,最后取 16 人。程序运行时,先对原始数据文件进行备份,根据在屏幕上显示“第 x 批”按钮及当前待选库人数、本批选择进度条等组成程序运行界面。每按动“第 x 批”按键一次,电脑计算本批次应产生的选中人数(如果总的待选择数大于 100 则为 100,否则为剩余数) ,随机对当前待选择库进行派位,直到选中本批次待选人数,显示选择结果,将选中名单导出到 批次.dbf 和 批次.xls 文件,并显示报告,将已选出名单从待选择库中删除,打印本批名单交公证处及相关人员签字,如果还有待选择名单,则屏幕界面上显示 “第 x+1 批”按钮,以供下一批次的选择,否则选择按钮显示为“选择结束”

    4、。、数据准备及代码编写数据准备:将学校提供的经公证处检查认可的报名 Excel 文件保留其中的“姓名” 、 “身份证号”或登记号(需唯一)并另存生成 bmk.DBF 文件。打开该DBF 文件,运行 modi stru 命令,添加“原始记录号” 、 “选中” 、 “选中顺序”三个数值型字段,运行命令 repl all 原始记录号 with recno(),数据准备完毕。在新窗体添加四个标签,分别为 Label1、Label2、Label3、Progress1,将 Label2 的 Caption 设置为“进度”且与 Progress1 水平对齐,将 Progress1的 BackColor 设置

    5、为“0,0,255” 即蓝色,添加两个命令按钮,名称分别为Command1、Command2,将 Command1 的 Caption 设置为“第 1 批” ,将 Command2的 Caption 设置为“退出” 。对窗体的 Init 即初始化部分添加代码:*行前带*号的为注解set esca offset talk offthis.visible=.t.this.autocenter=.t.this.Command1.Caption=“第 1 批“public 批次,需选人数,已选出数,oldwidthclos allsele 1use bmk*将标志清 0,防止被事先设置repl all

    6、 选中 with 0,选中顺序 with 0copy to bmk 原始备份批次=1需选人数=516this.label1.Caption=“待选出总人数“+ltrim(str(需选人数)+“,已选出0“已选出数=0*随机数初始化rand(-100)oldwidth=thisform.Progress1.widthcoun to totalnowthis.label3.Caption=“待选库现有总人数“+ltrim(str(totalnow)*界面显示完成,等待进行选择对 Command1 的 Click 即点击事件添加代码:rand(-100)if 需选人数-已选出数100 then本批数

    7、=100else本批数=需选人数-已选出数endigo bott库中还有总人数=recno()本批已选=0*当本批已选=1,就去判断选择该行,if 随机数=1 thengo 随机数*如果该行的选中标记不是 1,那么 本批已选 变量加 1,该行的 选中 为 1,选择顺序放置在 选中顺序if 选中1 then本批已选=本批已选+1repl 选中 with 1,选中顺序 with 本批已选thisform.Progress1.width=本批已选*oldwidth/本批数thisform.refreshendiendi*空循环,产生延时效果delay1=1do whil delay110000kk=

    8、round(123456789/456789.8,8)delay1=delay1+1enddendd*将本批选中的行拷贝到 批次.dbf 例如 1.dbfcopy to ltrim(str(批次) for 选中=1*将本批选中的行拷贝到 批次.xlscopy to ltrim(str(批次) xls for 选中=1*将本批选中的行从当前待选择表删除dele all for 选中=1pack已选出数=已选出数+本批已选thisform.Progress1.width=oldwidththisform.Label1.Caption=“待选出总人数“+ltrim(str(需选人数)+“,已选出“+

    9、ltrim(str(已选出数)coun to totalnowthisform.label3.Caption=“待选库现有总人数“+ltrim(str(totalnow)=MESSAGEBOX(“第“+ltrim(str(批次)+“批“+ltrim(str(本批已选)+“已选出“,48,提示)=MESSAGEBOX(“本批名单已导出到文件“+ltrim(str(批次)+“.xls 及“+ltrim(str(批次)+“.dbf“,48,提示)批次=批次+1if 已选出数需选人数thisform.Command1.Caption=“第“+ltrim(str(批次)+“批“else=MESSAGEB

    10、OX(选择全部完成!,48,提示)thisform.Command1.Caption=“选择结束“thisform.Command1.Enabled=.f.thisform.Command2.Enabled=.T.endiretuCLOS all、程序运行程序运行前,先将经公证处检验密封的派位运行专用电脑启封,查看派位程序运行的硬盘分区如 E 内容应为空白。将经公证处事先检验并密封的数据和程序 U 盘插上,将数据和程序从 U 盘拷贝到 E 盘,打开 Bmk.dbf 文件当众展示,打开程序文件展示源代码并讲解其原理,即可准备运行。在每一批次(一般由嘉宾点击按钮)录取名单生成后,根据指示当场将运行文件夹下的例如 2.xls文件打开,展示并打印交签字。本软件通过简洁有效的代码实现了电脑随机派位录取,结合相应的操作流程,保证了整个选择的随机性、公平公正性,在实际应用中取得良好的社会效果。(申明:如有引用本文源代码,需事先征得作者书面同意,否则即视为侵权。ZXGBM126.COM)

    展开阅读全文
    提示  道客多多所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    关于本文
    本文标题:电脑派位录取程序的原理及其编写.doc
    链接地址:https://www.docduoduo.com/p-5940034.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    道客多多用户QQ群:832276834  微博官方号:道客多多官方   知乎号:道客多多

    Copyright© 2025 道客多多 docduoduo.com 网站版权所有世界地图

    经营许可证编号:粤ICP备2021046453号    营业执照商标

    1.png 2.png 3.png 4.png 5.png 6.png 7.png 8.png 9.png 10.png



    收起
    展开