浙教版高中信息技术教学软件的设计思路与技术实现

教学软件的设计思路与技术实现信息技术编辑ppt教学软件概述教学软件是一种根据教学目标设计、表现特定的教学内容、反映一定教学策略的计算机教学程序。它可以用来存储、传递和处理教学信息，能让学生进行交互操作，并对学生的学习做出评价的教学媒体。多媒体教学软件的类型：1．课堂演示型2．自主学习型3．模拟实验型4．训练复习型5．教学游戏型6．资料、工具型信息技术教学软件的设计思路与技术实现软件规模及内容规模：小而精内容：通用性“目前多媒体课件大多都是供教师上课时讲授用的,仍然是以教作为中心，而且普遍缺乏通用性。通用性是考察课件效率和效益的最重要的标准。许多人制作课件，出发点不是为整体的教学服务，只是为了偶然上公开课的需要。这样的课件从一开始就是为了某一节特定的课例而设计的，从一开始就决定了它不可能用在别的课上，更没有考虑用在别的老师的课上，课件的生命力短暂的。”信息技术教学软件的设计思路与技术实现总体结构软件常见的体系结构模式有：C/S结构，即Client/Server(客户机/服务器)B/S结构，即Browser/Server(浏览器/服务器)主界面或试卷课程内容答题批改收卷程序接收成绩保存成绩上传成绩输入姓名、服务器IP学生机教师机选择内容统计分析本软件采用C/S模式。结构如图：信息技术教学软件的设计思路与技术实现界面设计与文件结构界面设计：按照上面的软件结构图设计好界面。（界面风格如图所示）

文件结构：设计好课程内容或试题，并建立好相应的目录。题目少可以用文件文件来存储。如果题目多可以用access数据库来存储。信息技术教学软件的设计思路与技术实现抽题抽题也就是根据学生的选择将软件目录下的题目复制到考试文件夹下。主要是对文件和文件夹进行复制。对文件和文件夹进行操作需要使用FSO（FileSystemObject）对象模型，所以需要先引用MicrosoftScriptingRuntime。能创建、改变、移动、删除文件/文件夹；能检测文件/文件夹是否存在，文件/文件夹的路径；能获取文件/文件夹的信息，如：名称、创建日期等信息技术教学软件的设计思路与技术实现抽题PrivateSubButton1_Click()‘复制excel试题文件fso.CopyFileApp.Path&“\xxjshk\excel\试卷一.xls”,“C:\考生文件夹\试卷一.xls”,True‘复制网页试题文件夹fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夹\WebDo”,TrueEndSubPublicfsoAsNewFileSystemObject‘定义一个fso对象‘在c盘下建立相应的考生文件夹PrivateSubForm_Load()

fso.CreateFolder(“c:\考生文件夹”)EndSubPrivateSubButton2_Click()‘复制excel试题文件fso.CopyFileApp.Path&“\xxjshk\excel\试卷二.xls”,“C:\考生文件夹\试卷二.xls”,True‘复制网页试题文件夹fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夹\WebDo”,TrueEndSubPrivateSubButton3_Click()‘复制excel试题文件fso.CopyFileApp.Path&“\xxjshk\excel\试卷三.xls”,“C:\考生文件夹\试卷三.xls”,True‘复制网页试题文件夹fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夹\WebDo”,TrueEndSub信息技术教学软件的设计思路与技术实现抽题PrivateSubButton1_Click(IndexAsInteger)‘按钮控件数组‘复制excel试题文件fso.CopyFileApp.Path&“\xxjshk\excel\”&Ex(index)&“.xls”,“C:\考生文件夹\”&Ex(index)&“.xls”‘复制网页试题文件夹fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夹\WebDo”EndSub对于功能相似的控件可以使用控件数组，以提高程序开发效率，也便于以后的源程序维护。PublicEx(5)AsString‘定义一字符串数组用于存放试卷名Ex(1)="试卷一"Ex(2)="试卷二"Ex(3)="试卷三"Ex(4)="试卷四"Ex(5)="试卷五"继续答题：判断考生文件夹中试题是否存在，存在则不抽题，不存在则抽题。fso.FileExists()fso.FolderExists()重做：从考生文件夹中删除要重做的试题，然后再抽题。fso.DeleteFile()fso.DeleteFolder()信息技术教学软件的设计思路与技术实现抽题--选择题的抽取和显示文本文件存储的选择题：打开文本文件读取文本内容将内容分割将分割后的内容和题号对应PrivateChoose()AsStringPrivatefsoAsNewFileSystemObject,filAsFile,tsAsTextStreamPrivateSubForm_Load()DimsAsStringp=App.Path&"\xxjshk\"&Ex(ExamID)&"\1.txt"Setfil=fso.GetFile(p)Setts=fil.OpenAsTextStream(ForReading)

s=ts.ReadAll

Choose=Split(s,"~")ts.CloseEndSubPrivateSubbtn_ch_Click(IndexAsInteger)

Text1.Text=Choose(Index)EndSubAccess数据库存储的选择题：建立数据库连接查询记录将记录的内容分别存储到数组中和题号对应信息技术教学软件的设计思路与技术实现批改功能的实现选择题windows操作题word操作题Excel操作题Internet操作题FrontPage操作题信息技术教学软件的设计思路与技术实现选择题的批改p=App.Path&"\xxjshk\"&Ex(ExamID)&"\answer.txt"Setfil=fso.GetFile(p)Setts=fil.OpenAsTextStream(ForReading)s=ts.ReadAll‘读取正确答案Fori=0To9IfMid(s,i+1,1)=Answer(i)Then‘核对学生答案score=score+3EndIfNextts.Close信息技术教学软件的设计思路与技术实现Windows操作题的批改[新建、删除、重命名、复制、移动、创建快捷方式]

就是判断该文件或文件夹是否存在。新建文件或文件夹在该目录下存在删除文件或文件夹在该目录下不存在重命名改名前的文件或文件夹在该目录下不存在，并且改名后的存在复制文件或文件夹在源目录下存在，并且在目的目录下也存在剪切文件或文件夹在源目录下不存在，并且在目的目录下存在判断文件夹是否存在：fso.FolderExists判断文件是否存在：fso.FileExists例如：在“C:\试卷二”目录下新建一个Bmp的文件夹：Iffso.FolderExists("C:\试卷二\Bmp")=TrueThenscore=score+5把“C:\试卷一”目录下的a.pas移动到C:\Temp目录下：Iffso.FileExists("C:\试卷一\a.pas")=FalseAnd_fso.FileExists("C:\Temp\a.pas")=TrueThenscore=score+5信息技术教学软件的设计思路与技术实现Windows操作题的批改VB读取注册表：可以使用API函数RegOpenKeyEx、RegQueryValueEx、RegCloseKey来对注册表进行打开、查询等操作，并通过读取相对应的键值来判断墙纸、屏保的设置。墙纸在注册表中的路径为：HKEY_CURRENT_USER\ControlPanel\Desktop\Wallpaper屏保在注册表中的路径为：HKEY_CURRENT_USER\ControlPanel\Desktop\SCRNSAVE.EXE[设置墙纸、屏保]主要就是读取注册表中相关的键值。信息技术教学软件的设计思路与技术实现Excel/Word操作题的批改对于Excel练习题的批改其实就是VB在后台打开Excel工作表，并使用内置的VBA函数对Excel工作表中的对象进行判断。为了能在VB中调用Excel对象，首先必须在VB工程中引用“MicrosoftExcel11.0ObjectLibrary”（如果是word，则引用“Microsoftword11.0ObjectLibrary”）。信息技术教学软件的设计思路与技术实现Excel操作题的批改打开EXCEL：

Workbooks.Open("C:\练习1.xls")选择一张工作表：

Sheets("Sheet1").Activate单元格的表示：

Range(“列号行号”)例：Range("A1")区域的表示：

Range(“列号行号：列号行号")例：Range("A1:D5")例如：判断Sheet1工作表中的A1:D5单元格中的文字字体是否为宋体：选择一个单元格或区域：selectSelection

例：Range("A1:D5").Select关闭EXCEL工作表：Workbooks.Close

IfSheets("Sheet1").Range("A1:D5").Font.Name="宋体"Thenscore=score+5Sheets("Sheet1").ActivateIfRange("A1:D5").Font.Name="宋体"Thenscore=score+5Sheets("Sheet1").ActivateRange("A1:D5").SelectIfSelection.Font.Name="宋体"

Thenscore=score+5信息技术教学软件的设计思路与技术实现Excel操作题的批改Excel中的对象以及它们的方法、属性都非常多，我们怎能都记住呢？

例如：Range(“A1:D1”).MergeCells=True‘合并Range(“B2:G5").HorizontalAlignment=xlCenter‘对齐方式为水平居中Range(“C3”).Font.Color=RGB(255,0,0)‘文字为红色Range(“D4”).Text=“成绩表”‘单元格中的文本Range(“E5”).Value=100‘单元格中的数值Range(“F6”).Font.Bold=True‘文字为粗体……了解了工作表、单元格、区域的表示方式后，我们就能写出EXCEL中各种常见操作的批改程序了。

[视图][对象浏览器]Excel库，查看Excel对象的方法、属性信息技术教学软件的设计思路与技术实现Excel操作题的批改公式/函数单元格公式/函数的表示：Range(列行).FormulaR1C1=公式/函数公式/函数中单元格的表示：R[]C[]相对当前单元格的位置（R:行的相对位置）上–，下+（C:列的相对位置）左–，右+Range(“F3").FormulaR1C1="=SUM(RC[-4]:RC[-1])"Range(“F3").FormulaR1C1="=RC[-4]+RC[-3]+RC[-2]+RC[-1]"Range(“B8").FormulaR1C1="=AVERAGE(R[-5]C:R[-1]C)"Range(“B8").FormulaR1C1="=

(R[-5]C+R[-4]C+R[-3]C+R[-2]C+R[-1]C)/5"信息技术教学软件的设计思路与技术实现Fori=3To7IfRange(“F"&i).FormulaR1C1="=SUM(RC[-4]:RC[-1])"Thenscore=score+1NextF3:F7求总分的批改程序：单元格的另一种表示：Cells(行,列)Range(“B8”)也可表示为：Cells(8,2)Fori=2To6IfCells(8,i).FormulaR1C1="=SUM(R[-5]C:R[-1]C)"Thenscore=score+1NextB8:F8求平均分的批改程序：Fori=3To7IfCells(i,6).FormulaR1C1="=SUM(RC[-4]:RC[-1])"Thenscore=score+1Next信息技术教学软件的设计思路与技术实现排序例：将成绩表按语文成绩从高到低排序：DimflagAsBooleanFlag=TrueFori=3To6IfVal(Cells(i,2).Text)<Val(Cells(i+1,2).Text)ThenFlag=FalseExitForEndIfNextIfFlag=TrueThenscore=score+5信息技术教学软件的设计思路与技术实现Excel操作题的批改数据筛选：对数据筛选的判断(从表格数据的第2列中筛选出小于70的数据)：IfWorksheets("Sheet1").AutoFilterModeThenIfWorksheets("Sheet1").AutoFilter.Filters(2).OnThenWithWorksheets("Sheet1").AutoFilter.Filters(2) If(.Criteria1="<70")Thenscore=score+5EndWithEndIfEndIf小技巧：利用EXCEL里的宏来帮助我们写批改程序WithWorksheets(“题目1”).ChartObjects(1)‘3维饼图If.Chart.ChartType=xl3DPieand_.Chart.PlotBy=xlRowsThenscore=score+5EndWith建立图表：分类汇总：……信息技术教学软件的设计思路与技术实现IE操作题的批改[下载图片、文字、文件]方法与windows操作题中文件操作的判断类似，也就是判断这些图片、文本等文件在该目录下是否存在。为使批改更加精确，也为了防止学生在做题时投机取巧，可以在此基础上再判断该图片的大小和文本文件里的文字内容，从而判断出这些图片和文本文件是否来自该网页。信息技术教学软件的设计思路与技术实现IE操作题的批改[设置IE主页、历史记录天数]通过读取注册表里键值来判断，方法和屏保、墙纸的判断类似。例：判断IE主页是否是“”就是判断HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage的键值是否是“”。信息技术教学软件的设计思路与技术实现FrontPage操作题的批改原理：网页其实就是文本文件，只不过里面的内容都是用html标记来显示的。学生对网页的操作都会反映在html源文件里。所以要批改网页文件，只要像读取文本文件那样读取整个网页源文件，然后分析里面的html代码就可以了。读取html文件:(读取文件既可以用传统的I/O语句也可以用FSO对象模型来读取)PublicfsoAsNewFileSystemObject,filAsFile,tsAsTextStreamp=“c:\考生文件夹\WebDo\index.htm"Setfil=fso.GetFile(p)Setts=fil.OpenAsTextStream(ForReading)fpstr=ts.ReadAllts.Close信息技术教学软件的设计思路与技术实现FrontPage操作题的批改定位:InStr函数

例如：判断表格边框粗细是否为0。SeekStr="border=""0"""n1=InStr(1,fpstr,"<table",1)n2=InStr(1,fpstr,"<tr",1)fp1=Mid$(fpstr,n1,n2-n1)IfInStr(1,fp1,SeekStr,1)Thenscore=score+5【原形】InStr([start,]string1,string2[,compare])【参数说明】start:搜索的起点。如果省略，将从第一个字符的位置开始。string1:接受搜索的字符串表达式。string2:被搜索的字符串表达式。Compare:指定字符串比较。-1(使用OptionCompare语句设置执行一个比较)。0(执行一个二进制比较)。1(执行一个按照原文的比较)。2(仅适用于MicrosoftAccess，执行一个基于数据库中信息的比较)。信息技术教学软件的设计思路与技术实现FrontPage操作题的批改[逐步求精法]通过分析网页源文件，逐步定位并读取该操作所对应的部分html代码（因为网页源文件里有很多“<tr”、“<td”标记，所以可以通过一个for循环来逐步定位到第3行第1列单元格）。n=1Fori=1To3n=InStr(n+4,fpstr,"<tr",1)Nextn1=InStr(n,fpstr,"<td",1)n2=InStr(n,fpstr,"</td>",1)fp3=Mid$(fpstr,n,n2-n1+5)SeekStr1="<img"SeekStr2="src=""hu.jpg"""IfInStr(1,fp3,SeekStr1,1)AndInStr(1,fp3,SeekStr2,1)Thenscore=score+5例如：判断是否在表格的第3行第1列的单元格里插入图片hu.jpg信息技术教学软件的设计思路与技术实现FrontPage操作题的批改[注释法]因为在网页源文件里添加注释不会对网页产生任何影响，所以我们可以在需要定位的html代码前后加上一段注释，然后通过读取注释来定位（html中的注释符为<!---->）。如前面的例子：判断是否在表格的第3行第1列的单元格里插入图片hu.jpg。首先可以在第3行第1列的单元格所对应的html代码前后随便加上一些注释，假设分别加上<!--注释A-->和<!--注释B-->n1=InStr(1,fpstr,"<!--注释A-->",1)n2=InStr(1,fpstr,"<!--注释B-->",1)fp3=Mid$(fpstr,n1,n2-n1)fpstr1="<img"fpstr2="src=""hu.jpg"""IfInStr(1,fp3,fpstr1,1)AndInStr(1,fp3,fpstr2,1)Thenscore=score+5信息技术教学软件的设计思路与技术实现成绩上传功能的实现Winsock是windows提供的网络编程接口，它提供了基于TCP/IP（传输控制协议/网间协议）协议的接口实现方法。TCP/IP协议提供两种通信方式：TCP方式和UDP方式。TCP是一种面向连接的服务，它在两个主机之间建立连接，提供双向、有序且无重复的数据流服务，以及流量控制、差错检测和纠错等服务，保证数据的可靠传输。UDP是一种双向的无连接数据服务，它把数据发送出去但并不进行差错控制和检查，所以不能保证数据的可靠性，因而一般只用于少量数据的传输。采用哪种方式，通常可以考虑以下几点：在收发数据过程中是否需要对方确认或应答？数据是否很多？数据传输质量要求是否很高？数据发送是间歇的还是一次会话？信息技术教学软件的设计思路与技术实现成绩上传功能的实现在窗体上添加一个Winsock控件（Winsock1），在其属性中设置为UDP协议，并对Winsock1的本地端口、远程主机端口、远程主机IP地址进行初始化。IP地址端口地址标识主机标识主机上的应用程序Winsock1.Protocol=sckUDPProtocolWinsock1.RemoteHost=“”Winsock1.RemotePort=4022端口范围（1-65535），但不要使用一些系统默认的端口和常用端口TCP/IP协议中一个有效的网络地址包括IP地址和端口地址。信息技术教学软件的设计思路与技术实现成绩上传功能的实现OnErrorGoToerrsendtxt=Winsock1.LocalIP&"#"&Winsock1.LocalHostName&_"#"&UserName&"#"&UserScoreWinsock1.SendDatasendtxtMsgBox"成绩上传成功！"ExitSuberr:MsgBox"找不到服务器！请确定服务器IP无误！",vbOKOnly,"错误"PrivateSubBtnSendScore_Click()EndSub点击按钮BtnSendScore后执行发送成绩功能。代码如下：改进：每一道题的详细得分情况信息技术教学软件的设计思路与技术实现教师机收卷程序的