作业下载上传软件的设计.docVIP

作业下载上传软件的设计 　　 摘要：在计算机教学中往往出现学生复制作业的现象，怎样才能使学生自己动手操作而不出现复制作业现象，目前有不少教师都提出了自己的设计方案，如使用FTP软件下载上传作业、使用网络在线完成和反馈作业、把整个学期的作业制作成软件包的形式等……这些都不能达到系统通用、使用便利、操作简单、题型机动等方面要求。作业下载上传软件就是从这方面入手解决问题，通过简单的构思解决不简单的问题。?? 　　关键词：作业；下载；上传?? 　　中图分类号：TP311.52文献标识码：A文章编号：1672-7800（2011）07-0093-03?お? 　　?? 　　作者简介：林培通（1961-），男，广东揭东人，广东省食品药品职业技术学校讲师，研究方向为智能、网页、软件开发。 　　 　　 　　0引言?? 　　 在计算机教学中，都会发现学生上交作业时复制作业的现象，怎样才能杜绝学生复制作业现象，一直困扰着教师的教学。经过反复思考和实践，本人终于在2007年设计一个作业下载上传软件，经过多年的使用，发现学生复制作业现象基本绝迹，并且发现学生上机操作的能力也提高了很多。现将本软件设计的思路及设计原理总结如下，希望能起到抛砖引玉的作用。?? 　　1设计思路?? 　　 学生在上机操作时一般均须复制本次上机操作的上机题，操作完成后把本次上机操作结果上交到教师机；所以在教师机应做到如下几点：①在教师机共享上机操作题，②教师共享上交上机操作结果的文件夹；这样就有机会给学生复制作业。怎样才能不出现此现象？要达到此结果必须要求软件设计时做到如下的要求：首先不让学生找到教师机共享实验内容的文件夹；其次不让学生找到教师机上交作业的文件夹。为了达到要求需做到：①隐藏教师机中的共享文件夹；②学生机中的实验内容文件夹须进行技术处理，不让学生自己建立实验内容的文件夹；如果建立，则应能判断是系统建立还是自己建立文件夹；③在上交完作业后，系统要能自动删除学生机上的实验内容的文件夹，不让其他学生有机会进行复制。?? 　　2设计原理?? 　　 根据设计思路，可利用VB程序设计软件进行设计；在设计中用到VB的文件夹建立和删除、文件的复制和删除命令，文件夹的建立命令是MkDir，文件删除命令是RMDir(此命令只能删除没有文件和子文件夹的文件夹)，文件复制命令是FileCopy，文件删除命令是Kill。?? 　　 下载作业的程序流程如图1所示。?? 　　 　　图1下载作业流程?? 　　 上传作业的程序流程如图2所示。?? 　　 　　图2上传作业流程?? 　　 对于复制和删除非空文件夹时利用VB的文件查询命令（DIR）实现，方法是递归。在递归中用只要找到文件夹就一直查找下一个子文件夹，直到没有子文件夹为止；判断的方法是看DIR命令中找到的文件是不是“.”或“..”，如果只有此二个文件则此文件夹下就没有文件夹和文件，这样就可以复制含所有文件和子文件夹的整个文件夹，并且在删除时找到文件就立即删除文件，当文件夹下没有文件和文件夹立即删除文件夹。?? 　　3程序设计?? 　　 根据设计原理，程序设计就从此入手，程序代码如下：?? 　　 部分作业下载代码：?? 　　 Dim fso?? 　　 Set fso = CreateObject(Scripting.FileSystemObject) ‘定义一个FSO对象,用于复制含有文件夹中的文件和文件夹?? 　　 ……?? 　　 h = Dir(b, vbDirectory) ‘建立学生作业的文件夹?? 　　 If h ii Then?? 　　 MkDir (b)?? 　　 End If ‘判断学生机中有没有其他学生作业的文件?? 　　 ……?? 　　 While g ?? 　　 FileCopy e g, i g ‘复制实验内容?? 　　 g = Dir?? 　　 Wend?? 　　 fso.CopyFolder e2, b ‘复制实验内容(实验内容中有文件夹时)?? 　　 MsgBox 实验内容已复制到D盘?? 　　 ……?? 　　 部分作业上传代码：?? 　　 ……?? 　　 Dim booldir As Boolean 是否有子目录的标志?? 　　 ……?? 　　 cc2 = Dir(cc, vbDirectory) ‘判断文件夹是否复制其他同学?? 　　 While cc2 ?? 　　 If cc2 . And cc2 .. Then?? 　　 If cc2 = a Then?? 　　 flagz = 1 ‘作业为合法的?? 　　 GoTo 2?? 　　 End If?? 　　 End If?? 　　 cc2 =