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

《浙教版高中信息技术教学软件的设计思路与技术实现》由会员分享，可在线阅读，更多相关《浙教版高中信息技术教学软件的设计思路与技术实现（34页珍藏版）》请在金锄头文库上搜索。

1、教学软件的设计思路与技术实现,信息技术,信息技术教学软件的设计思路与技术实现,教学软件概述,教学软件是一种根据教学目标设计、表现特定的教学内容、反映一定教学策略的计算机教学程序。它可以用来存储、传递和处理教学信息，能让学生进行交互操作，并对学生的学习做出评价的教学媒体。 多媒体教学软件的类型： 1课堂演示型 2自主学习型 3模拟实验型 4训练复习型 5教学游戏型 6资料、工具型,信息技术教学软件的设计思路与技术实现,软件规模及内容,规模：小而精 内容：通用性 “目前多媒体课件大多都是供教师上课时讲授用的,仍然是以教作为中心，而且普遍缺乏通用性。通用性是考察课件效率和效益的最重要的标准。许多人制

2、作课件，出发点不是为整体的教学服务，只是为了偶然上公开课的需要。这样的课件从一开始就是为了某一节特定的课例而设计的，从一开始就决定了它不可能用在别的课上，更没有考虑用在别的老师的课上，课件的生命力短暂的。”,信息技术教学软件的设计思路与技术实现,总体结构,软件常见的体系结构模式有： C/S结构，即Client/Server(客户机/服务器) B/S结构，即Browser/Server(浏览器/服务器),信息技术教学软件的设计思路与技术实现,界面设计与文件结构,界面设计：按照上面的软件结构图设计好界面。 （界面风格如图所示）,文件结构：设计好课程内容或试题，并建立好相应的目录。 题目少可以用文件

3、文件来存储。 如果题目多可以用access数据库来存储。,信息技术教学软件的设计思路与技术实现,抽题,抽题也就是根据学生的选择将软件目录下的题目复制到考试文件夹下。主要是对文件和文件夹进行复制。 对文件和文件夹进行操作需要使用FSO（File System Object）对象模型，所以需要先引用Microsoft Scripting Runtime。 能创建、改变、移动、删除文件/文件夹； 能检测文件/文件夹是否存在，文件/文件夹的路径； 能获取文件/文件夹的信息，如：名称、创建日期等,抽题,Private Sub Button1_Click() 复制excel试题文件 fso.CopyFil

4、e App.Path & “xxjshkexcel试卷一.xls”, “C :考生文件夹试卷一.xls”, True 复制网页试题文件夹 fso.CopyFolder App.Path & “xxjshkWebDo“, “C :考生文件夹WebDo”, True End Sub,Public fso As New FileSystemObject 定义一个fso对象,在c盘下建立相应的考生文件夹 Private Sub Form_Load() fso.CreateFolder (“c :考生文件夹” ) End Sub,Private Sub Button2_Click() 复制excel试题

5、文件 fso.CopyFile App.Path & “xxjshkexcel试卷二.xls”, “C :考生文件夹试卷二.xls”, True 复制网页试题文件夹 fso.CopyFolder App.Path & “xxjshkWebDo“, “C :考生文件夹WebDo”, True End Sub,Private Sub Button3_Click() 复制excel试题文件 fso.CopyFile App.Path & “xxjshkexcel试卷三.xls”, “C :考生文件夹试卷三.xls”, True 复制网页试题文件夹 fso.CopyFolder App.Path &

6、“xxjshkWebDo“, “C :考生文件夹WebDo”, True End Sub,抽题,Private Sub Button1_Click(Index As Integer) 按钮控件数组 复制excel试题文件 fso.CopyFile App.Path & “xxjshkexcel” & Ex(index) & “.xls”, “C :考生文件夹” & Ex(index) & “.xls” 复制网页试题文件夹 fso.CopyFolder App.Path & “xxjshkWebDo“, “C :考生文件夹WebDo” End Sub,对于功能相似的控件可以使用控件数组，以提高程

7、序开发效率，也便于以后的源程序维护。,Public Ex(5) As String 定义一字符串数组用于存放试卷名 Ex(1) = “试卷一“ Ex(2) = “试卷二“ Ex(3) = “试卷三“ Ex(4) = “试卷四“ Ex(5) = “试卷五“,继续答题：判断考生文件夹中试题是否存在，存在则不抽题，不存在则抽题。 fso.FileExists() fso.FolderExists(),重做：从考生文件夹中删除要重做的试题，然后再抽题。 fso.DeleteFile() fso.DeleteFolder(),信息技术教学软件的设计思路与技术实现,抽题-选择题的抽取和显示,Private

8、 Choose () As String Private fso As New FileSystemObject, fil As File, ts As TextStream Private Sub Form_Load() Dim s As String p = App.Path & “xxjshk“ & Ex(ExamID) & “1.txt“ Set fil = fso.GetFile(p) Set ts = fil.OpenAsTextStream(ForReading) s = ts.ReadAll Choose= Split(s, “) ts.Close End Sub Privat

9、e Sub btn_ch_Click(Index As Integer) Text1.Text =Choose (Index) End Sub,信息技术教学软件的设计思路与技术实现,批改功能的实现,选择题 windows操作题 word操作题 Excel操作题 Internet操作题 FrontPage操作题,信息技术教学软件的设计思路与技术实现,选择题的批改,p = App.Path & “xxjshk“ & Ex(ExamID) & “answer.txt“ Set fil = fso.GetFile(p) Set ts = fil.OpenAsTextStream(ForReading)

10、 s = ts.ReadAll 读取正确答案 For i = 0 To 9 If Mid(s, i + 1, 1) = Answer(i) Then 核对学生答案 score = score + 3 End If Next ts.Close,信息技术教学软件的设计思路与技术实现,Windows操作题的批改,新建、删除、重命名、复制、移动、创建快捷方式 就是判断该文件或文件夹是否存在。,判断文件夹是否存在：fso.FolderExists 判断文件是否存在：fso.FileExists 例如： 在“C:试卷二” 目录下新建一个Bmp的文件夹： If fso.FolderExists(“C:试卷二

11、Bmp“) = True Then score = score + 5 把“C:试卷一”目录下的a.pas移动到C:Temp目录下： If fso.FileExists(“C:试卷一a.pas“) = False And _ fso.FileExists(“C:Tempa.pas“) = True Then score = score + 5,信息技术教学软件的设计思路与技术实现,Windows操作题的批改,VB读取注册表：可以使用API函数RegOpenKeyEx、RegQueryValueEx、RegCloseKey来对注册表进行打开、查询等操作，并通过读取相对应的键值来判断墙纸、屏保的设

12、置。 墙纸在注册表中的路径为： HKEY_CURRENT_USER Control PanelDesktop Wallpaper 屏保在注册表中的路径为： HKEY_CURRENT_USER Control PanelDesktop SCRNSAVE.EXE,设置墙纸、屏保 主要就是读取注册表中相关的键值。,信息技术教学软件的设计思路与技术实现,Excel/Word操作题的批改,对于Excel练习题的批改其实就是VB在后台打开Excel工作表，并使用内置的VBA函数对Excel工作表中的对象进行判断。为了能在VB中调用Excel对象，首先必须在VB工程中引用“Microsoft Excel 1

13、1.0 Object Library”（如果是word，则引用“Microsoft word 11.0 Object Library”）。,信息技术教学软件的设计思路与技术实现,Excel操作题的批改,打开EXCEL： Workbooks.Open (“C:练习1.xls“),选择一张工作表： Sheets(“Sheet1“).Activate,单元格的表示： Range(“列号行号”) 例：Range(“A1“),区域的表示： Range(“列号行号：列号行号“) 例：Range(“A1:D5“),例如：判断Sheet1工作表中的A1:D5单元格中的文字字体是否为宋体：,选择一个单元格或区域

14、：select Selection 例：Range(“A1:D5“).Select,关闭EXCEL工作表：Workbooks.Close,If Sheets(“Sheet1“).Range(“A1:D5“).Font.Name = “宋体“ Then score = score + 5,Sheets(“Sheet1“).Activate If Range(“A1:D5“).Font.Name = “宋体“ Then score = score + 5,Sheets(“Sheet1“).Activate Range(“A1:D5“).Select If Selection. Font. Name

15、 = “宋体“ Then score = 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 单元格中

16、的数值 Range(“F6”).Font.Bold = True 文字为粗体 ,了解了工作表、单元格、区域的表示方式后，我们就能写出EXCEL中各种常见操作的批改程序了。,视图对象浏览器 Excel库，查看Excel对象的方法、属性,信息技术教学软件的设计思路与技术实现,Excel操作题的批改,公式/函数,单元格公式/函数的表示： Range(列行). FormulaR1C1 =公式/函数,单元格的另一种表示： Cells(行,列) Range(“B8”) 也可表示为：Cells(8,2),排序,例：将成绩表按语文成绩从高到低排序： Dim flag As Boolean Flag = True For i = 3 To 6 If Val(Cells(i, 2).Text)Val(Cells(i + 1, 2).Text) Th