[教育]浙教版高中信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn)

1、教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),信息技術(shù),,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),教學(xué)軟件概述,教學(xué)軟件是一種根據(jù)教學(xué)目標(biāo)設(shè)計、表現(xiàn)特定的教學(xué)內(nèi)容、反映一定教學(xué)策略的計算機(jī)教學(xué)程序。它可以用來存儲、傳遞和處理教學(xué)信息，能讓學(xué)生進(jìn)行交互操作，并對學(xué)生的學(xué)習(xí)做出評價的教學(xué)媒體。 多媒體教學(xué)軟件的類型：1．課堂演示型 2．自主學(xué)習(xí)型 3．模擬實驗型 4．訓(xùn)練復(fù)習(xí)型 5．教學(xué)游戲型 6．資料、工具型,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)

2、實現(xiàn),軟件規(guī)模及內(nèi)容,規(guī)模：小而精內(nèi)容：通用性“目前多媒體課件大多都是供教師上課時講授用的,仍然是以教作為中心，而且普遍缺乏通用性。通用性是考察課件效率和效益的最重要的標(biāo)準(zhǔn)。許多人制作課件，出發(fā)點(diǎn)不是為整體的教學(xué)服務(wù)，只是為了偶然上公開課的需要。這樣的課件從一開始就是為了某一節(jié)特定的課例而設(shè)計的，從一開始就決定了它不可能用在別的課上，更沒有考慮用在別的老師的課上，課件的生命力短暫的。”,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),總體結(jié)

3、構(gòu),軟件常見的體系結(jié)構(gòu)模式有：C/S結(jié)構(gòu)，即Client/Server(客戶機(jī)/服務(wù)器) B/S結(jié)構(gòu)，即Browser/Server(瀏覽器/服務(wù)器),信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),界面設(shè)計與文件結(jié)構(gòu),界面設(shè)計：按照上面的軟件結(jié)構(gòu)圖設(shè)計好界面。（界面風(fēng)格如圖所示）,,,文件結(jié)構(gòu)：設(shè)計好課程內(nèi)容或試題，并建立好相應(yīng)的目錄。題目少可以用文件文件來存儲。如果題目多可以用access數(shù)據(jù)庫來存儲。,信息技術(shù)教學(xué)軟件的設(shè)計思路與

4、技術(shù)實現(xiàn),抽題,抽題也就是根據(jù)學(xué)生的選擇將軟件目錄下的題目復(fù)制到考試文件夾下。主要是對文件和文件夾進(jìn)行復(fù)制。對文件和文件夾進(jìn)行操作需要使用FSO（File System Object）對象模型，所以需要先引用Microsoft Scripting Runtime。 能創(chuàng)建、改變、移動、刪除文件/文件夾；能檢測文件/文件夾是否存在，文件/文件夾的路徑；能獲取文件/文件夾的信息，如：名稱、創(chuàng)建日期等,抽題,Private Sub

5、Button1_Click()‘復(fù)制excel試題文件fso.CopyFile App.Path & “\xxjshk\excel\試卷一.xls”, “C :\考生文件夾\試卷一.xls”, True‘復(fù)制網(wǎng)頁試題文件夾fso.CopyFolder App.Path & "\xxjshk\WebDo", “C :\考生文件夾\WebDo”, True End Sub,Public fs

6、o As New FileSystemObject ‘定義一個fso對象,‘在c盤下建立相應(yīng)的考生文件夾Private Sub Form_Load() fso.CreateFolder (“c :\考生文件夾” ) End Sub,Private Sub Button2_Click()‘復(fù)制excel試題文件fso.CopyFile App.Path & “\xxjshk\excel\試卷二.xls”, “

7、C :\考生文件夾\試卷二.xls”, True‘復(fù)制網(wǎng)頁試題文件夾fso.CopyFolder App.Path & "\xxjshk\WebDo", “C :\考生文件夾\WebDo”, True End Sub,Private Sub Button3_Click()‘復(fù)制excel試題文件fso.CopyFile App.Path & “\xxjshk\excel\試卷三.xls”

8、, “C :\考生文件夾\試卷三.xls”, True‘復(fù)制網(wǎng)頁試題文件夾fso.CopyFolder App.Path & "\xxjshk\WebDo", “C :\考生文件夾\WebDo”, True End Sub,抽題,Private Sub Button1_Click(Index As Integer) ‘按鈕控件數(shù)組 ‘復(fù)制excel試題文件 fso.

9、CopyFile App.Path & “\xxjshk\excel\” & Ex(index) & “.xls”, “C :\考生文件夾\” & Ex(index) & “.xls” ‘復(fù)制網(wǎng)頁試題文件夾 fso.CopyFolder App.Path & "\xxjshk\WebDo", “C :\考生文件夾\WebDo”End Sub,

10、對于功能相似的控件可以使用控件數(shù)組，以提高程序開發(fā)效率，也便于以后的源程序維護(hù)。,Public Ex(5) As String ‘定義一字符串?dāng)?shù)組用于存放試卷名Ex(1) = "試卷一"Ex(2) = "試卷二"Ex(3) = "試卷三"Ex(4) = "試卷四"Ex(5) = "試卷五",繼續(xù)答題：判斷考生文件夾中試題是否存在

11、，存在則不抽題，不存在則抽題。 fso.FileExists() fso.FolderExists(),重做：從考生文件夾中刪除要重做的試題，然后再抽題。 fso.DeleteFile() fso.DeleteFolder(),信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),抽題--選擇題的抽取和顯示,Private Choose () As Strin

12、gPrivate fso As New FileSystemObject, fil As File, ts As TextStreamPrivate Sub Form_Load() Dim s As String p = App.Path & "\xxjshk\" & Ex(ExamID) & "\1.txt" Set fil = fso.

13、GetFile(p) Set ts = fil.OpenAsTextStream(ForReading) s = ts.ReadAll Choose= Split(s, "~") ts.CloseEnd SubPrivate Sub btn_ch_Click(Index As Integer) Text1.Text =Choose (Index)End Sub,信

14、息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),批改功能的實現(xiàn),選擇題windows操作題word操作題Excel操作題Internet操作題FrontPage操作題,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),選擇題的批改,p = App.Path & "\xxjshk\" & Ex(ExamID) & "\answer.txt"Set fil = fso.GetFile(p)

15、Set ts = fil.OpenAsTextStream(ForReading)s = ts.ReadAll ‘讀取正確答案For i = 0 To 9 If Mid(s, i + 1, 1) = Answer(i) Then ‘核對學(xué)生答案 score = score + 3 End IfNextts.Close,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Windows操作題的批改,[新建、

16、刪除、重命名、復(fù)制、移動、創(chuàng)建快捷方式] 就是判斷該文件或文件夾是否存在。,判斷文件夾是否存在：fso.FolderExists判斷文件是否存在：fso.FileExists例如：在“C:\試卷二” 目錄下新建一個Bmp的文件夾：If fso.FolderExists("C:\試卷二\Bmp") = True Then score = score + 5把“C:\試卷一”目錄下的a.pas移動到C:

17、\Temp目錄下：If fso.FileExists("C:\試卷一\a.pas") = False And _ fso.FileExists("C:\Temp\a.pas") = True Then score = score + 5,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Windows操作題的批改,VB讀取注冊表：可以使用API函數(shù)RegOpenKeyEx、RegQueryValu

18、eEx、RegCloseKey來對注冊表進(jìn)行打開、查詢等操作，并通過讀取相對應(yīng)的鍵值來判斷墻紙、屏保的設(shè)置。墻紙在注冊表中的路徑為：HKEY_CURRENT_USER\ Control Panel\Desktop\ Wallpaper屏保在注冊表中的路徑為：HKEY_CURRENT_USER\ Control Panel\Desktop\ SCRNSAVE.EXE,[設(shè)置墻紙、屏保] 主要就是讀取注冊表中相關(guān)的鍵值。,信息技術(shù)

19、教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Excel/Word操作題的批改,對于Excel練習(xí)題的批改其實就是VB在后臺打開Excel工作表，并使用內(nèi)置的VBA函數(shù)對Excel工作表中的對象進(jìn)行判斷。為了能在VB中調(diào)用Excel對象，首先必須在VB工程中引用“Microsoft Excel 11.0 Object Library”（如果是word，則引用“Microsoft word 11.0 Object Library”）。,信息技術(shù)教學(xué)軟件的

20、設(shè)計思路與技術(shù)實現(xiàn),Excel操作題的批改,打開EXCEL： Workbooks.Open ("C:\練習(xí)1.xls"),選擇一張工作表： Sheets("Sheet1").Activate,單元格的表示： Range(“列號行號”) 例：Range("A1"),區(qū)域的表示： Range(“列號行號：列號行號") 例：Ran

21、ge("A1:D5"),例如：判斷Sheet1工作表中的A1:D5單元格中的文字字體是否為宋體：,選擇一個單元格或區(qū)域：select Selection 例：Range("A1:D5").Select,關(guān)閉EXCEL工作表：Workbooks.Close,If Sheets("Sheet1").Range("A1:D5").Font.Name = &

22、quot;宋體" Then score = score + 5,Sheets("Sheet1").Activate If Range("A1:D5").Font.Name = "宋體" Then score = score + 5,Sheets("Sheet1").Activate Range("A1:D5").Select

23、If Selection. Font. Name = "宋體" Then score = score + 5,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Excel操作題的批改,Excel中的對象以及它們的方法、屬性都非常多，我們怎能都記住呢？,例如：Range(“A1:D1”).MergeCells = True ‘合并Range(“B2:G5").HorizontalAlignment = xlCe

24、nter ‘對齊方式為水平居中Range(“C3”).Font.Color = RGB(255, 0, 0) ‘文字為紅色Range(“D4”).Text = “成績表” ‘單元格中的文本Range(“E5”) .Value = 100 ‘單元格中的數(shù)值Range(“F6”).Font.Bold = True ‘文字為粗體……,了解了工作表、單元格、區(qū)域的表示方式后，我們就能寫出EXCEL中各種常見操作的批改程

25、序了。,[視圖]?[對象瀏覽器] ? Excel庫，查看Excel對象的方法、屬性,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Excel操作題的批改,公式/函數(shù),單元格公式/函數(shù)的表示： Range(列行). FormulaR1C1 =公式/函數(shù),單元格的另一種表示： Cells(行,列) Range(“B8”) 也可表示為：Cells(8,2),排序,例：將成績表按語文成績從高到低排序：Dim flag As Boolea

26、nFlag = True For i = 3 To 6 If Val(Cells(i, 2).Text)<Val(Cells(i + 1, 2).Text) Then Flag = False Exit For End IfNextIf Flag = True Then score = score +5,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),Excel

27、操作題的批改,數(shù)據(jù)篩選：,對數(shù)據(jù)篩選的判斷(從表格數(shù)據(jù)的第2列中篩選出小于70的數(shù)據(jù))：If Worksheets("Sheet1").AutoFilterMode ThenIf Worksheets("Sheet1").AutoFilter.Filters(2).On Then With Worksheets("Sheet1").AutoFilter.Fil

28、ters(2) If (.Criteria1 = "<70") Then score = score +5 End WithEnd IfEnd If,小技巧：利用EXCEL里的宏來幫助我們寫批改程序,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),IE操作題的批改,[下載圖片、文字、文件] 方法與windows操作題中文件操作的判斷類似，也就是判斷這些圖片、文本等文件在該目錄

29、下是否存在。為使批改更加精確，也為了防止學(xué)生在做題時投機(jī)取巧，可以在此基礎(chǔ)上再判斷該圖片的大小和文本文件里的文字內(nèi)容，從而判斷出這些圖片和文本文件是否來自該網(wǎng)頁。,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),IE操作題的批改,[設(shè)置IE主頁、歷史記錄天數(shù)]通過讀取注冊表里鍵值來判斷，方法和屏保、墻紙的判斷類似。例：判斷IE主頁是否是“www.baidu.com”就是判斷HKEY_CURRENT_USER\Software\Microsoft

30、\Internet Explorer\Main\Start Page的鍵值是否是“www.baidu.com”。,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),FrontPage操作題的批改,原理：網(wǎng)頁其實就是文本文件，只不過里面的內(nèi)容都是用html標(biāo)記來顯示的。學(xué)生對網(wǎng)頁的操作都會反映在html源文件里。所以要批改網(wǎng)頁文件，只要像讀取文本文件那樣讀取整個網(wǎng)頁源文件，然后分析里面的html代碼就可以了。,讀取html文件:(讀取文件既可以用傳

31、統(tǒng)的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(ForReadi

32、ng) fpstr = ts.ReadAll ts.Close,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),FrontPage操作題的批改,定位: InStr函數(shù),例如：判斷表格邊框粗細(xì)是否為0。 SeekStr = "border=""0""" n1 = InStr(1, fpstr, "<table"

33、;, 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]) 【參數(shù)說明】start :搜索的

34、起點(diǎn)。如果省略，將從第一個字符的位置開始。string1 :接受搜索的字符串表達(dá)式。 string2 :被搜索的字符串表達(dá)式。 Compare :指定字符串比較。-1 (使用Option Compare 語句設(shè)置執(zhí)行一個比較)。0 (執(zhí)行一個二進(jìn)制比較) 。1 (執(zhí)行一個按照原文的比較)。2 (僅適用于Microsoft Access，執(zhí)行一個基于數(shù)據(jù)庫中信息的比較)。,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),FrontPage操作

35、題的批改,[逐步求精法]通過分析網(wǎng)頁源文件，逐步定位并讀取該操作所對應(yīng)的部分html代碼,（因為網(wǎng)頁源文件里有很多“", 1) fp3 = Mid$(fpstr, n, n2 - n1 + 5) SeekStr1 = "<img" SeekStr2 = "src=""hu.jpg"""

36、 If InStr(1, fp3, SeekStr1, 1) And InStr(1, fp3, SeekStr2, 1) Then score = score + 5,例如：判斷是否在表格的第3行第1列的單元格里插入圖片hu.jpg,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),FrontPage操作題的批改,[注釋法]因為在網(wǎng)頁源文件里添加注釋不會對網(wǎng)頁產(chǎn)生任何影響，所以我們可以在需要定位的html代碼前后加上一段注釋，然后通過讀取

37、注釋來定位（html中的注釋符為）。,如前面的例子：判斷是否在表格的第3行第1列的單元格里插入圖片hu.jpg。首先可以在第3行第1列的單元格所對應(yīng)的html代碼前后隨便加上一些注釋，假設(shè)分別加上和,n1 = InStr(1, fpstr, "", 1)n2 = InStr(1, fpstr, "", 1)fp3 = Mid$(fpstr, n1, n2 - n1)fpstr1 = &quo

38、t;<img" fpstr2 = "src=""hu.jpg"""If InStr(1, fp3, fpstr1, 1) And InStr(1, fp3, fpstr2, 1) Then score = score + 5,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),成績上傳功能的實現(xiàn),Winsock是windows提供的網(wǎng)絡(luò)編程接口，它提供了基于TCP/IP

39、（傳輸控制協(xié)議/網(wǎng)間協(xié)議）協(xié)議的接口實現(xiàn)方法。TCP/IP協(xié)議提供兩種通信方式：TCP方式和UDP方式。TCP是一種面向連接的服務(wù)，它在兩個主機(jī)之間建立連接，提供雙向、有序且無重復(fù)的數(shù)據(jù)流服務(wù)，以及流量控制、差錯檢測和糾錯等服務(wù)，保證數(shù)據(jù)的可靠傳輸。UDP是一種雙向的無連接數(shù)據(jù)服務(wù)，它把數(shù)據(jù)發(fā)送出去但并不進(jìn)行差錯控制和檢查，所以不能保證數(shù)據(jù)的可靠性，因而一般只用于少量數(shù)據(jù)的傳輸。采用哪種方式，通?？梢钥紤]以下幾點(diǎn)：在收發(fā)數(shù)據(jù)過

40、程中是否需要對方確認(rèn)或應(yīng)答？數(shù)據(jù)是否很多？數(shù)據(jù)傳輸質(zhì)量要求是否很高？數(shù)據(jù)發(fā)送是間歇的還是一次會話？,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),成績上傳功能的實現(xiàn),在窗體上添加一個Winsock控件（Winsock1），在其屬性中設(shè)置為UDP協(xié)議，并對Winsock1的本地端口、遠(yuǎn)程主機(jī)端口、遠(yuǎn)程主機(jī)IP地址進(jìn)行初始化。,TCP/IP協(xié)議中一個有效的網(wǎng)絡(luò)地址包括IP地址和端口地址。,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),成績上傳功能的實現(xiàn)

41、,On Error GoTo errsendtxt = Winsock1.LocalIP & "#" & Winsock1.LocalHostName & _ "#" & UserName & "#" & UserScoreWinsock1.SendData sendtxtMsgBox &quo

42、t;成績上傳成功！"Exit Suberr: MsgBox "找不到服務(wù)器！請確定服務(wù)器IP無誤！", vbOKOnly, "錯誤",Private Sub BtnSendScore_Click(),End Sub,點(diǎn)擊按鈕 BtnSendScore 后執(zhí)行發(fā)送成績功能。代碼如下：,改進(jìn)：每一道題的詳細(xì)得分情況,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),教師機(jī)收卷程序的實現(xiàn),在VB中

43、新建一工程，并設(shè)計好用來顯示學(xué)生成績的界面。添加一個Winsock控件（Winsock1），設(shè)置其傳輸協(xié)議為UDP協(xié)議，并設(shè)置Winsock1的本地端口（此處的本地端口應(yīng)和學(xué)生端程序中的Winsock1的遠(yuǎn)程主機(jī)端口一致）。,Winsock1.Protocol = sckUDPProtocolWinsock1.LocalPort = 4022Winsock1.Bind 4022,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),教師機(jī)收卷程序

44、的實現(xiàn),接收并顯示學(xué)生成績信息,當(dāng)有消息來臨時，會觸發(fā)Winsock1_DataArrival事件。在Winsock1_DataArrival事件里輸入如下代碼用來接收并顯示相關(guān)的信息：學(xué)生機(jī)IP、機(jī)器名、姓名、分?jǐn)?shù)。Winsock1.GetData rec, vbString ’接收數(shù)據(jù)STinfo = Split(rec, “#”) ’分割數(shù)據(jù)IP = STinfo(0)

45、 ’學(xué)生機(jī)IPComputerName = STinfo(1) ’學(xué)生計算機(jī)名STname = STinfo(2) ’學(xué)生姓名STscore = STinfo(3) ’學(xué)生成績,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),教師機(jī)收卷程序的實現(xiàn),保存成

46、績 保存成績到txt文件保存成績到excel文件,,保存成績到excel中：Workbooks.Open (App.Path & "\成績表.xls") For j = 1 To i Sheets(“Sheet1”).Range(“A” & j) =學(xué)生機(jī)IP Sheets(“Sheet1”).Range(“B” & j) =學(xué)生計算機(jī)名Shee

47、ts("Sheet1").Range("C" & j) =學(xué)生姓名 Sheets("Sheet1").Range("D" & j) =學(xué)生成績NextWorkbooks.Application.SaveWorkspaceWorkbooks.Close,信息技術(shù)教學(xué)軟件的設(shè)計思路與技術(shù)實現(xiàn),打包發(fā)布,VB自帶的安