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

教学软件的设计思路与技术实现,信息技术,信息技术教学软件的设计思路与技术实现,教学软件概述,教学软件是一种根据教学目标设计、表现特定的教学内容、反映一定教学策略的计算机教学程序。它可以用来存储、传递和处理教学信息，能让学生进行交互操作，并对学生的学习做出评价的教学媒体。 多媒体教学软件的类型： 1课堂演示型 2自主学习型 3模拟实验型 4训练复习型 5教学游戏型 6资料、工具型,信息技术教学软件的设计思路与技术实现,软件规模及内容,规模：小而精 内容：通用性 “目前多媒体课件大多都是供教师上课时讲授用的,仍然是以教作为中心，而且普遍缺乏通用性。通用性是考察课件效率和效益的最重要的标准。许多人制作课件，出发点不是为整体的教学服务，只是为了偶然上公开课的需要。这样的课件从一开始就是为了某一节特定的课例而设计的，从一开始就决定了它不可能用在别的课上，更没有考虑用在别的老师的课上，课件的生命力短暂的。”,信息技术教学软件的设计思路与技术实现,总体结构,软件常见的体系结构模式有： c/s结构，即client/server(客户机/服务器) b/s结构，即browser/server(浏览器/服务器),信息技术教学软件的设计思路与技术实现,界面设计与文件结构,界面设计：按照上面的软件结构图设计好界面。 （界面风格如图所示）,文件结构：设计好课程内容或试题，并建立好相应的目录。 题目少可以用文件文件来存储。 如果题目多可以用access数据库来存储。,信息技术教学软件的设计思路与技术实现,抽题,抽题也就是根据学生的选择将软件目录下的题目复制到考试文件夹下。主要是对文件和文件夹进行复制。 对文件和文件夹进行操作需要使用fso（file system object）对象模型，所以需要先引用microsoft scripting runtime。 能创建、改变、移动、删除文件/文件夹； 能检测文件/文件夹是否存在，文件/文件夹的路径； 能获取文件/文件夹的信息，如：名称、创建日期等,抽题,private sub button1_click() 复制excel试题文件 fso.copyfile 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试题文件 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 & “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,对于功能相似的控件可以使用控件数组，以提高程序开发效率，也便于以后的源程序维护。,public ex(5) as string 定义一字符串数组用于存放试卷名 ex(1) = “试卷一“ ex(2) = “试卷二“ ex(3) = “试卷三“ ex(4) = “试卷四“ ex(5) = “试卷五“,继续答题：判断考生文件夹中试题是否存在，存在则不抽题，不存在则抽题。 fso.fileexists() fso.folderexists(),重做：从考生文件夹中删除要重做的试题，然后再抽题。 fso.deletefile() fso.deletefolder(),信息技术教学软件的设计思路与技术实现,抽题-选择题的抽取和显示,private 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 private 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) 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:试卷二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来对注册表进行打开、查询等操作，并通过读取相对应的键值来判断墙纸、屏保的设置。 墙纸在注册表中的路径为： 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 11.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单元格中的文字字体是否为宋体：,选择一个单元格或区域：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 = “宋体“ 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 单元格中的数值 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) then flag = false exit for end if next if flag = true then score = score +5,信息技术教学软件的设计思路与技术实现,excel操作题的批改,数据筛选：,对数据筛选的判断(从表格数据的第2列中筛选出小于70的数据)： if worksheets(“sheet1“).autofiltermode then if worksheets(“sheet1“).autofilter.filters(2).on then with worksheets(“sheet1“).autofilter.filters(2) if (.criteria1 = “70“) then score = score +5 end with end if end if,小技巧：利用excel里的宏来帮助我们写批改程序,信息技术教学软件的设计思路与技术实现,ie操作题的批改,下载图片、文字、文件 方法与windows操作题中文件操作的判断类似，也就是判断这些图片、文本等文件在该目录下是否存在。为使批改更加精确，也为了防止学生在做题时投机取巧，可以在此基础上再判断该图片的大小和文本文件里的文字内容，从而判断出这些图片和文本文件是否来自该网页。,信息技术教学软件的设计思路与技术实现,ie操作题的批改,设置ie主页、历史记录天数通过读取注册表里键值来判断，方法和屏保、墙纸的判断类似。 例：判断ie主页是否是“”就是判断hkey_current_usersoftwaremicrosoftinternet explorermainstart page的键值是否是“”。,信息技术教学软件的设计思路与技术实现,frontpage操作题的批改,原理：网页其实就是文本文件，只不过里面的内容都是用html标记来显示的。学生对网页的操作都会反映在html源文件里。所以要批改网页文件，只要像读取文本文件那样读取整个网页源文件，然后分析里面的html代码就可以了。,读取html文件: (读取文件既可以用传统的i/o语句也可以用fso对象模型来读取 ) public fso as new filesystemobject, fil as file, ts as textstream p = “ c:考生文件夹webdo index.htm“ set fil = fso.getfile(p) set ts = fil.openastextstream(forreading) fpstr = ts.readall ts.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) if instr(1, fp1, seekstr, 1) then score = score + 5,【原形】instr(start, string1, string2, compare) 【参数说明】 start :搜索的起点。如果省略，将从第一个字符的位置开始。 string1 :接受搜索的字符串表达式。 string2 :被搜索的字符串表达式。 compare :指定字符串比较。-1 (使用option compare 语句设置执行一个比较)。0 (执行一个二进制比较) 。1 (执行一个按照原文的比较)。2 (仅适用于microsoft access，执行一个基于数据库中信息的比较)。,信息技术教学软件的设计思路与技术实现,frontpage操作题的批改,逐步求精法通过分析网页源文件，逐步定位并读取该操作所对应的部分html代码,（因为网页源文件里有很多“, 1) fp3 = mid$(fpstr, n, n2 - n1 + 5) seekstr1 = “img“ seekstr2 = “src=“hu.jpg“ if instr(1, fp3, seekstr1, 1) and instr(1, fp3, seekstr2, 1) then score = score + 5,例如：判断是否在表格的第3行第1列的单元格里插入图片hu.jpg,信息技术教学软件的设计思路与技术实现,frontpage操作题的批改,注释法因为在网页源文件里添加注释不会对网页产生任何影响，所以我们可以在需要定位的html代码前后加上一段注释，然后通过读取注释来定位（html中的注释符为）。,如前面的例子：判断是否在表格的第3行第1列的单元格里插入图片hu.jpg。首先可以在第3行第1列的单元格所对应的html代码前后随便加上一些注释，假设分别加上和,n1 = instr(1, fpstr, “, 1) n2 = instr(1, fpstr, “, 1) fp3 = mid$(fpstr, n1, n2 - n1) fpstr1 = “img“ fpstr2 = “src=“hu.jpg“ if instr(1, fp3, fpstr1, 1) and instr(1, fp3, fpstr2, 1) then score = score + 5,信息技术教学软件的设计思路与技术实现,成绩上传功能的实现,winsock是windows提供的网络编程接口，它提供了基于tcp/ip（传输控制协议/网间协议）协议的接口实现方法。 tcp/ip协议提供两种通信方式：tcp方式和udp方式。 tcp是一种面向连接的服务，它在两个主机之间建立连接，提供双向、有序且无重复的数据流服务，以及流量控制、差错检测和纠错等服务，保证数据的可靠传输。 udp是一种双向的无连接数据服务，它把数据发送出去但并不进行差错控制和检查，所以不能保证数据的可靠性，因而一般只用于少量数据的传输。 采用哪种方式，通常可以考虑以下几点： 在收发数据过程中是否需要对方确认或应答？ 数据是否很多？数据传输质量要求是否很高？ 数据发送是间歇的还是一次会话？,信息技术教学软件的设计思路与技术实现,成绩上传功能的实现,在窗体上添加一个winsock控件（winsock1），在其属性中设置为udp协议，并对winsock1的本地端口、远程主机端口、远程主机ip地址进行初始化。,tcp/ip协议中一个有效的网络地址包括ip地址和端口地址。,信息技术教学软件的设计思路与技术实现,成绩上传功能的实现,on error goto err sendtxt = winsock1.localip & “#“ & winsock1.localhostname & _ “#“ & username & “#“ & userscore winsock1.senddata sendtxt msgbox “成绩上传成功！“ exit sub err: msgbox “找不到服务器！请确定服务器ip无误！“, vbokonly, “错误“,private sub btnsendscore_click(),end sub,点击按钮 btnsendscore 后执行发送成绩功能。 代码如下：,改进：每一道题的详细得分情况,信息技术教学软件的设计思路与技术实现,教师机收卷程序的实现,在vb中新建一工程，并设计好用来显示学生成绩的界面。 添加一个winsock控件（winso