江苏大学生实践创新项目结题报告.docx

江苏大学生实践创新项目结题报告.docx

《江苏大学生实践创新项目结题报告.docx》由会员分享，可在线阅读，更多相关《江苏大学生实践创新项目结题报告.docx（47页珍藏版）》请在冰点文库上搜索。

江苏大学生实践创新项目结题报告

江苏省大学生实践创新项目

结题报告

项目名称：

项目成员：

指导老师：

学校名称：

项目时间：

大学生实践创新项目结题报告

计算机一级B考试辅导系统设计

一、项目申请背景

随着计算机的普及化，社会对计算机的要求越来越高，因此学校对学生的计算机能力的培养也越来越为重视，一般高职院校必需通过江苏省计算机一级B考试，未通过的学生不能发放毕业证书，对于初高中未普及计算机的学校学生来讲，进入大学后计算机的学习就相对吃力，需要更加努力才能完成此课程，在大学里，由于该课程相对课时少，且又涉及知识面又广，因此学生学习起来相对困难，这就需要有一个能让学生自己的学习的辅导软件，从而帮助学生自学该门课程，计算机一级B辅导系统设计构想便酝酿而成。

作为大学生实践创新项目来说，该系统的内容正好针对在校的学生，通过该系统的设计和题目的制作，可以帮助学生更好的掌握计算机理论知识，通过操作的练习，可以让学生更加熟练地运用计算机。

系统设计、调试以及运用的过程可以让学生掌握一个软件的设计过程，对程序设计有一个充分的认识，课件中的多媒体制作可以让学生了解一个课件中媒体制作的方法，以及如何运用媒体进行教学的理念，让学生了解一个网络教学平台的运作方式。

二、项目可行性基础

该项目主要是利用屏幕录像软件录制操作题的操作过程，并以wmv格式保存下来，存入在网站中，通过windowsmediaplayer来播放。

理论题通过统考系统中的题目截取，并配以答案，也存放于网站数据库中，通过动态网页方式将题目显示在客户端中，学生通过客户端的练习以掌握理论题目，客户端采用VisualBasic程序设计语言进行编写。

不论是VisualBasic还是屏幕录像软件的使用，对于大学生来说，掌握都不是困难，通过老师的相应指导，程序设计及媒体制作可行性相对高，完全可以将该项目完成。

三、项目框架设计

计算机一级B辅导系统主要针对学生使用，由于学生在使用计算机时，往往无法固定在某台电脑上，因此，该系统借用网络服务方式。

首先，在Internet网服务商处申请一个网络空间及访问域名，将相应的媒体文件、理论题数据库及相应的动态网页存放在网络空间中，学生可以通过域名访问进行相应的注册、问题咨询、客

户端下载。

下面是该系统中的设计框架图。

四、项目实施计划

项目要得到很好的实施和完成，就应有一个很好的计划，没有一个计划，实施起来就缺乏目的性、条理性，运作起来就相对困难，为此特制定如下计划：

工作分工安排

客户端程序设计：

网页代码设计：

程序及网页审核：

操作屏幕录像：

理论题截取：

理论题答案：

系统测试：

项目完成时间安排

网站及域名：

2010年6月

客户端设计：

2010年6月—2010年10月

操作屏幕录像：

2010年6月—2011年1月

理论题截取：

2010年6月—2010年11月

理论题答案：

2010年6月—2011年11月

系统测试：

2011年2月—2011年3月12日

系统修改：

2011年3月—2011年6月

项目经费使用安排

程序设计及网页制作：

1200.00

文献资料购置费：

800.00

网站租用及域名：

500.00

计算机耗材：

500

文印费：

800

五、项目实施过程

整个项目的实施过程严格按照计划进行，在实施开始阶段，召开了全体成员会议，根据各个学生的特点，布置了相应的任务，共同商议了域名和网站租用的问题，拟采用作为域名，租用中国数据服务商的网络空间标准Ⅲ。

在工作分配之后，进行了2010春季试卷理论题的截取工作，以文本方式保存，并开始查找和制作答案，同时操作题录像也开始录制，网站代码及客户端程序也开始设计，各方面的工作同时进行。

在2010秋季考试之前，客户端和网站已基本设计完成，将理论题及操作录像导入系统数据库中，并上传到网络空间，通过参加考试的学生进行测试使用，根据使用出现的问题进行修改，完善系统。

在秋季考试结束后，继续进行理论题截取、答案制作以及操作录像的录制。

共完成了14套试卷的操作讲解录像，截取2027道理论题目。

六、项目结果介绍

计算机一级B考试辅导系统共分为三大模块：

客户端，服务网站，管理端。

客户端

客户端是本系统最重要的部分，也是辅导系统最重要的体现，在该模块中，使用者可以进行理论测试和操作题练习，同时也可以进行理论复习和操作录像观看，通过标准答案和操作讲解，使使用者能更好地掌握理论知识和实践操作能力。

为了提高复习效率，系统还可以自动记录下使用者做错的题目，以便下一次进行错误加练，更快地掌握理论知识。

同时系统也要求使用者必须有一个帐号登录，以便更好地掌握各个人的使用情况及学习进度。

为了使大多数的用户使用方便，本系的客户端共开发了WindowsXP、Windows7两个绿色版本，用户在使用过程中，只需要下载相应的客户端程序，直接点击运行，无须安装。

客户端登录

客户端程序运行后，系统弹出一个帐号输入界面，使用者输入自己的帐号及密码可以查看到帐号相应的信息，当“可登录数”大于0时系统便可进行直接点击“使用”进入客户端主界面。

登录窗口如下图：

如果登录帐号的密码输入有错，系统将出现密码输入错误的提示，如下图：

当输入密码正确，登录成功后，系统将提示你将从你的帐上扣去一次登录次数，同时也表示你已经使用过系统一次，登录次数多表示学习次数多。

如果帐上的登录次数使用完后，可以到管理端进行帐上充值，这样可以再次使用系统。

提示界面如下图所示：

如果网络不通，又要登录或查询的话，系统会出现下面提示：

此时要检查一下网络情况，确保学习能进行。

客户端主界面

身份验证成功后，系统自动进入主界面，在主界面中分别有理论测试、测试评分、错误加练，试题刷新、理论复习、操作讲解、密码修改、系统说明及服务网站功能，使用者可以根据自己需要的项目进行点击学习。

在主界面中间显示的是系统介绍，界面的标题显示的是当前使用者帐号及姓名，下方显示系统的服务电话及QQ号。

理论测试介绍

理论测试主要用于测试使用者掌握理论知识情况，系统可以按照设置顺序或随机出题（是否将“按顺序出题”选上），题目包括选择题、填空是和是非题，各题型的数量随机。

理论测试界面模拟了省统考系统的界面显示方式，每次显示一道题，使用进，可以用鼠标点击界面下方的题号，也可以使用“PageDown”或“PageUp”键进行选题，答案选择可以用鼠标直接点击，也可以使用键盘ABCD进行答案选择，填空题则直接输入。

理论测试介绍

理论评分是对理论测试结果的评判，在测试完毕后，点击理论评分，系统自动对所答的题目进行对错评判，错的分别在下方的题号后面显示“×”，对的显示显示“√”，同时弹出一个对话框显示统计结果，还可以让使用都决定是否将做错的题目加入了错题库中，以便日后进行错误加练时再出现做错的题目，增加对题目的印象。

错误加练介绍

错误加练在抽题时首先抽取本帐号中以前出现过错误的题目，如果题目达不到50题，则其它题目再由系统随机抽取补充，如果错误的题目超过50题，则完全抽取的题目为曾经错误的题目。

这样的目的是为了加深对错误题目的印象，更快掌握理论题目。

试题刷新介绍

试题刷新是在理论测试结束或错误加练结束后，再由系统进行重新抽题。

抽取题目后自动又进入理论测试界面。

理论复习介绍

理论复习共分三大部分，分别是选择题、填空题和是非题，在复习时系统自动按题目录入的时间排序，即最后截出来的题目放在首位，这种排法的原因是：

使用都往往都喜欢从头看到尾，且不是所有使用者都会全部看完，一般情况下都是看前面的题目，这样就保证使用都看到的都是最新的试题，为增加通过率提供一定的保证。

选择题还是一屏显示一道题，填空题和是非题则每屏显示5题，在各题目后面都有标准答案。

理论复习的过程中，使用都可以根据学习情况自己选择复习进度，也可以边复习，边进行理论测试，在理论测试中选择“按顺序出题”便可加深学习印象，更快掌握理论知识。

理论复习的界面如下图所示：

操作讲解介绍

本系统目前共录制了14套试卷的操作讲解，分别是2010年春季8套和秋季6套，在使用时，先选择试卷，选择后，界面的下方将显示该套试卷的所有操作题目，此时使用者可以用鼠标直接点击题目，系统自动播放该题的操作录像。

播放界面如下图：

本系统的操作录像均采用“屏幕录像”软件制作而成，录像图像清晰，声音清楚，使用者可以自行调制声音大小和播放进度，在看完录像可以直接关闭，也可以点击下一道题目以覆盖当前录像。

如果想一边看录像一边训练，可以点击“下载素材”，系统便弹出如下提示，点击“是（Y）”，系统将出现下载界面，如下图，点击链接便可进行下载，如果系统装了迅雷且设置为默认下载工具，可能全出现下载错误。

密码修改介绍

密码修改主要是让使用者改变自己的登录密码，在修改时，先输入旧的密码，再输入新的密码，然后再验证一下新的密码，点击修改便可以了。

系统说明介绍

系统说明主要是介绍一下本系统的基本情况及小组成员的基本情况。

服务网站介绍

通过点击该项，系统自动链接到本系统相应的服务网站，可以让使用都更加了解本系统的其他功能。

服务网站

主页介绍

网站的主页上显示的一个Flash横幅，主要显示系统的作用、域名及服务手机号和QQ号，网页下方左边显示的是联系方式，中间显示的系统介绍，右边则显示系统使用的主要问题，在中间的下方，提供了用户注册、信息修改、客户端下载、使用说明、使用录像、帐号使用查看及使用问题和密码找回等功能，网页底部显示的是网站访问量及系统里包含的理论题目。

帐号注册

在使用本系统必须使用帐号，因此需要先进行注册，注册可以从网站上进行注册，也可以直接下载客户端，在客户端进行注册。

在注册时，如果有*提示的表示该项必须填写，填写好就可以点击“提交”便可完成。

信息修改

信息修改是为了让已注册的信息因某种原因需要更改时而设的，修改时按要求进行填写好后，直接点击“提交”便可完成信息修改。

使用记录查看

为了让使用者更加了解自己使用系统情况，可以点击“使用查看”，进入后，在帐号处输入帐号，点击“提交”系统将显示该帐号使用的详细情况，如下图所示：

管理端

登录界面

管理端是为了方便教师进行试题输入、帐号充值、问题解答及了解使用情况，因此安全性有一定的要求，需要进行身份验证，登录时，输入管理帐号及登录密码，点击“登录”进行身份验证后，便可进行管理端的主界面。

管理主界面

管理主界面包含帐号注册、帐号充值、试题输入、试题答案、使用问题、使用查看等功能，使用时根据所需要的工作点击相应的功能按钮便可完成。

帐号注册

当使用者未使用网站注册或客户端注册，而直接要进行充值时使用。

在使用过程中，输入使用者的帐号、姓名、所在班级，点击注册便可完成，同时在左边列表第一行显示注册帐号，如果发现某个无意义的帐号，可以先选中，直接点击删除便可完成。

帐号充值

由于系统采用了帐号登录管理方式，因此在使用一段时间后，帐号登录次数将变为0，此时帐号将无法登录，需要进行充值。

充值时，直接输入帐号，按下“Enter”键，系统显示了该帐号的信息，直接输入需要充的次数，点击“充值”便可完成充值，同时左边列表显示充值的情况。

试题输入

由于计算机一级B考试理论试题每年都有更新，因此需要对系统的数据库进行充实，就需要进行试题输入，在输入过程中，只需要使用Ctrl+C和鼠标点击便可完成试题截取，截取结束后，点击相应的题型保存便可以了。

答案输入

当新试题输入完后，便可进行答案输入了。

首先先点击题型，当列表中出现题目时，便可直接答题了，答完后，点击“上传”便可以完成答案输入。

问题解答

该功能主要是为了回答系统使用中常见的问题所设，输入问题及解答内容，点击“保存”便可，如果是需要修改问题，则先选中所要修改的问题，点击“复制”，将问题复制到输入框中，然后修改后再点击“添加”，再删除原来的便可。

使用查看

使用掌握是为了让管理者更好地掌握系统的使用情况，使用该功能时，直接按要查看的条件选择好后，点击“查看”，系统便列出相应的内容。

七、项目主要源代码

（一）客户端

1．登录界面

DimWebFlagAsBoolean

DimConnectTimeAsInteger

PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"_

（ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,_

ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong）AsLong

PrivateConstSW_SHOW=5

PrivateSubcmdLable_Click（IndexAsInteger）

cmdSelect_ClickIndex

EndSub

PrivateSubcmdSelect_Click（IndexAsInteger）

IfIndex=1Then

IftxtID.Text=""OrtxtPWD.Text=""Then

a=MsgBox（"由于您未输入帐号或密码!

只能以浏览者身份进入！

浏览者身份只能看到一套题目理论题，操作题讲解只能看到Word讲解！

",48,"天狼电脑工作室"）

ID="浏览者"

UserName="系统测试"

ReDimaByte（0）AsByte

PackBytesaByte,URLEncode（"ID=系统测试"）

WB1.NavigateServerIP&"computerregister.asp",14,,aByte,vHeaders

frmMain.Show

UnloadMe

Else

a=MsgBox（"您确定开始使用系统吗？

点击“是（Y）”后，系统将从您的帐上减去一次登录数，系统进入后，在使用过程中请不要关闭，系统是以登录次数记帐的！

",36,"天狼电脑共管室"）

Ifa<>6ThenExitSub

WebFlag=True

ConnectTime=0

ReDimaByte（0）AsByte

PackBytesaByte,URLEncode（"ID="&txtID.Text&"&PWD="&txtPWD.Text）

WB1.NavigateServerIP&"computerregister.asp",14,,aByte,vHeaders

Timer1.Enabled=True

EndIf

Else

cmdConnect

EndIf

EndSub

PrivateSubForm_Load（）

ServerIP="

Ver="1.00"

ForI=0To5

lblinformation（0）.FontName="宋体"

Next

OnErrorGoToabc

lblRegister.FontName="宋体"

lblNet.FontName="宋体"

Frame1.FontName="宋体"

Label1（0）.FontName="宋体"

Label1

（1）.FontName="宋体"

cmdLable（0）.FontName="宋体"

cmdLable

（1）.FontName="宋体"

abc:

EndSub

PrivateSublblNet_Click（）

CallShellExecute（Me.hwnd,"open",ServerIP&"index.asp","","",SW_SHOW）

EndSub

PrivateSublblRegister_Click（）

CallShellExecute（Me.hwnd,"open",ServerIP&"userregister.htm","","",SW_SHOW）

EndSub

PrivateSubTimer1_Timer（）

ConnectTime=ConnectTime+1

IfConnectTime>60Then

a=MsgBox（"网络不通!

可能有以下几个原因:

"&vbCrLf&"1.服务器未开通或有错误!

"&vbCrLf&"2.本机未接入到InterNet!

"&vbCrLf&"3.网速太慢,还没有返回消息!

",16,"天狼电脑工作室"）

ConnectTime=0

EndIf

EndSub

PrivateSubcmdConnect（）

IftxtID.Text=""AndtxtPWD.Text=""Then

a=MsgBox（"请输入用户名及密码!

",16,"天狼电脑工作室"）

ExitSub

EndIf

WebFlag=True

ConnectTime=0

ReDimaByte（0）AsByte

PackBytesaByte,URLEncode（"ID="&txtID.Text&"&PWD="&txtPWD.Text）

WB1.NavigateServerIP&"computercheck.asp",14,,aByte,vHeaders

Timer1.Enabled=True

EndSub

PrivateSubtxtPWD_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=vbKeyDownOrKeyCode=vbKeyUpThen

txtID.SetFocus

txtID.SelStart=0

txtID.SelLength=30

ElseIfKeyCode=13Then

cmdConnect

EndIf

EndSub

PrivateSubtxtId_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=vbKeyDownOrKeyCode=vbKeyUpOrKeyCode=13Then

txtPWD.SetFocus

txtPWD.SelStart=0

txtPWD.SelLength=30

EndIf

EndSub

PrivateSubWB1_DocumentComplete（ByValpDispAsObject,URLAsVariant）

IfWebFlag=FalseThenExitSub

WebURL=LCase（URL）

IfInStr（1,WebURL,"computercheck.asp"）>0Then

OnErrorGoToabc

checkstring=WB1.Document.form1.checkresult.Value

Ifcheckstring="no"Then

a=MsgBox（"对不起！

您所输入的登录密码不正确!

请重新输入！

",16,"天狼电脑工作室"）

txtPWD.Text=""

txtPWD.SetFocus

Else

Ver=Trim（WB1.Document.form1.Ver.Value）

inf=Trim（WB1.Document.form1.inf.Value）

IfVer<>VerThen

a=MsgBox（"该客户端程序已有新的版本（Ver"&Ver&"）了！

"&vbCrLf&inf&vbCrLf&"您目前使用的是“Ver"&Ver&"”是否要下载？

若不想下载请选“否（N）”！

",36,"天狼电脑工作室"）

Ifa=6Then

WB1.NavigateServerIP&"windowsxp.rar"

ExitSub

EndIf

EndIf

ID=txtID.Text

PWD=txtPWD.Text

lblinformation（0）.Caption="用户姓名：

"&WB1.Document.form1.inf1.Value

lblinformation

（1）.Caption="可登录数：

"&WB1.Document.form1.inf2.Value

lblinformation

（2）.Caption="累积登录：

"&WB1.Document.form1.inf3.Value

lblinformation（3）.Caption="累积消费：

"&WB1.Document.form1.inf4.Value

lblinformation（4）.Caption="最近登录：

"&WB1.Document.form1.inf5.Value

lblinformation（5）.Caption="登录ＩＰ：

"&WB1.Document.form1.inf6.Value

EndIf

ElseIfInStr（1,WebURL,"computerregister.asp"）>0Then

OnErrorGoToabc

checkstring=WB1.Document.form1.checkresult.Value

Ifcheckstring="no"Then

a=MsgBox（"对不起！

您所输入的登录密码不正确!

请重新输入！

",16,"天狼电脑工作室"）

txtPWD.Text=""

txtPWD.SetFocus

ElseIfcheckstring="off"Then

a=MsgBox（"对不起！

您的帐上的登录次数已为0，请您充值后再来使用！

谢谢您的支持！

",16,"天狼电脑工作室"）

Else

ID=txtID.Text

PWD=txtPWD.Text

UserName=WB1.Document.form1.inf1.Value

frmMain.Show

UnloadMe

EndIf

EndIf

ExitSub

abc:

a=MsgBox（"网络不通!

可能有以下几个原因:

"&vbCrLf&"1.服务器未开通或有错误!

"&vbCrLf&"2.本机未接入到InterNet!

"&vbCrLf&"3.网速太慢,还没有返回消息!

",16,"天狼电脑工作室"）

EndSub

2．主界面

DimAnswerArray（60,2）AsString'共60题，一个放做的答案，一个放标准答案

DimDataArray（60,7）AsString'6存放题型

DimOperateArray（60）AsString'存放操作题

DimReviewArray（300）AsString

DimDownArray（100）AsString

DimCurrentNumAsInteger

DimShowAnswer