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

教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)信息技術(shù)編輯ppt教學(xué)軟件概述教學(xué)軟件是一種根據(jù)教學(xué)目標(biāo)設(shè)計(jì)、表現(xiàn)特定的教學(xué)內(nèi)容、反映一定教學(xué)策略的計(jì)算機(jī)教學(xué)程序。它可以用來(lái)存儲(chǔ)、傳遞和處理教學(xué)信息，能讓學(xué)生進(jìn)行交互操作，并對(duì)學(xué)生的學(xué)習(xí)做出評(píng)價(jià)的教學(xué)媒體。多媒體教學(xué)軟件的類型：1．課堂演示型2．自主學(xué)習(xí)型3．模擬實(shí)驗(yàn)型4．訓(xùn)練復(fù)習(xí)型5．教學(xué)游戲型6．資料、工具型信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)軟件規(guī)模及內(nèi)容規(guī)模：小而精內(nèi)容：通用性“目前多媒體課件大多都是供教師上課時(shí)講授用的,仍然是以教作為中心，而且普遍缺乏通用性。通用性是考察課件效率和效益的最重要的標(biāo)準(zhǔn)。許多人制作課件，出發(fā)點(diǎn)不是為整體的教學(xué)服務(wù)，只是為了偶然上公開課的需要。這樣的課件從一開始就是為了某一節(jié)特定的課例而設(shè)計(jì)的，從一開始就決定了它不可能用在別的課上，更沒(méi)有考慮用在別的老師的課上，課件的生命力短暫的?！毙畔⒓夹g(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)總體結(jié)構(gòu)軟件常見的體系結(jié)構(gòu)模式有：C/S結(jié)構(gòu)，即Client/Server(客戶機(jī)/服務(wù)器)B/S結(jié)構(gòu)，即Browser/Server(瀏覽器/服務(wù)器)主界面或試卷課程內(nèi)容答題批改收卷程序接收成績(jī)保存成績(jī)上傳成績(jī)輸入姓名、服務(wù)器IP學(xué)生機(jī)教師機(jī)選擇內(nèi)容統(tǒng)計(jì)分析本軟件采用C/S模式。結(jié)構(gòu)如圖：信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)界面設(shè)計(jì)與文件結(jié)構(gòu)界面設(shè)計(jì)：按照上面的軟件結(jié)構(gòu)圖設(shè)計(jì)好界面。（界面風(fēng)格如圖所示）

文件結(jié)構(gòu)：設(shè)計(jì)好課程內(nèi)容或試題，并建立好相應(yīng)的目錄。題目少可以用文件文件來(lái)存儲(chǔ)。如果題目多可以用access數(shù)據(jù)庫(kù)來(lái)存儲(chǔ)。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)抽題抽題也就是根據(jù)學(xué)生的選擇將軟件目錄下的題目復(fù)制到考試文件夾下。主要是對(duì)文件和文件夾進(jìn)行復(fù)制。對(duì)文件和文件夾進(jìn)行操作需要使用FSO（FileSystemObject）對(duì)象模型，所以需要先引用MicrosoftScriptingRuntime。能創(chuàng)建、改變、移動(dòng)、刪除文件/文件夾；能檢測(cè)文件/文件夾是否存在，文件/文件夾的路徑；能獲取文件/文件夾的信息，如：名稱、創(chuàng)建日期等信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)抽題PrivateSubButton1_Click()‘復(fù)制excel試題文件fso.CopyFileApp.Path&“\xxjshk\excel\試卷一.xls”,“C:\考生文件夾\試卷一.xls”,True‘復(fù)制網(wǎng)頁(yè)試題文件夾fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夾\WebDo”,TrueEndSubPublicfsoAsNewFileSystemObject‘定義一個(gè)fso對(duì)象‘在c盤下建立相應(yīng)的考生文件夾PrivateSubForm_Load()

fso.CreateFolder(“c:\考生文件夾”)EndSubPrivateSubButton2_Click()‘復(fù)制excel試題文件fso.CopyFileApp.Path&“\xxjshk\excel\試卷二.xls”,“C:\考生文件夾\試卷二.xls”,True‘復(fù)制網(wǎng)頁(yè)試題文件夾fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夾\WebDo”,TrueEndSubPrivateSubButton3_Click()‘復(fù)制excel試題文件fso.CopyFileApp.Path&“\xxjshk\excel\試卷三.xls”,“C:\考生文件夾\試卷三.xls”,True‘復(fù)制網(wǎng)頁(yè)試題文件夾fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夾\WebDo”,TrueEndSub信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)抽題PrivateSubButton1_Click(IndexAsInteger)‘按鈕控件數(shù)組‘復(fù)制excel試題文件fso.CopyFileApp.Path&“\xxjshk\excel\”&Ex(index)&“.xls”,“C:\考生文件夾\”&Ex(index)&“.xls”‘復(fù)制網(wǎng)頁(yè)試題文件夾fso.CopyFolderApp.Path&"\xxjshk\WebDo",

“C:\考生文件夾\WebDo”EndSub對(duì)于功能相似的控件可以使用控件數(shù)組，以提高程序開發(fā)效率，也便于以后的源程序維護(hù)。PublicEx(5)AsString‘定義一字符串?dāng)?shù)組用于存放試卷名Ex(1)="試卷一"Ex(2)="試卷二"Ex(3)="試卷三"Ex(4)="試卷四"Ex(5)="試卷五"繼續(xù)答題：判斷考生文件夾中試題是否存在，存在則不抽題，不存在則抽題。fso.FileExists()fso.FolderExists()重做：從考生文件夾中刪除要重做的試題，然后再抽題。fso.DeleteFile()fso.DeleteFolder()信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)抽題--選擇題的抽取和顯示文本文件存儲(chǔ)的選擇題：打開文本文件讀取文本內(nèi)容將內(nèi)容分割將分割后的內(nèi)容和題號(hào)對(duì)應(yīng)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數(shù)據(jù)庫(kù)存儲(chǔ)的選擇題：建立數(shù)據(jù)庫(kù)連接查詢記錄將記錄的內(nèi)容分別存儲(chǔ)到數(shù)組中和題號(hào)對(duì)應(yīng)信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)批改功能的實(shí)現(xiàn)選擇題windows操作題word操作題Excel操作題Internet操作題FrontPage操作題信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)選擇題的批改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‘核對(duì)學(xué)生答案score=score+3EndIfNextts.Close信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Windows操作題的批改[新建、刪除、重命名、復(fù)制、移動(dòng)、創(chuàng)建快捷方式]

就是判斷該文件或文件夾是否存在。新建文件或文件夾在該目錄下存在刪除文件或文件夾在該目錄下不存在重命名改名前的文件或文件夾在該目錄下不存在，并且改名后的存在復(fù)制文件或文件夾在源目錄下存在，并且在目的目錄下也存在剪切文件或文件夾在源目錄下不存在，并且在目的目錄下存在判斷文件夾是否存在：fso.FolderExists判斷文件是否存在：fso.FileExists例如：在“C:\試卷二”目錄下新建一個(gè)Bmp的文件夾：Iffso.FolderExists("C:\試卷二\Bmp")=TrueThenscore=score+5把“C:\試卷一”目錄下的a.pas移動(dòng)到C:\Temp目錄下：Iffso.FileExists("C:\試卷一\a.pas")=FalseAnd_fso.FileExists("C:\Temp\a.pas")=TrueThenscore=score+5信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Windows操作題的批改VB讀取注冊(cè)表：可以使用API函數(shù)RegOpenKeyEx、RegQueryValueEx、RegCloseKey來(lái)對(duì)注冊(cè)表進(jìn)行打開、查詢等操作，并通過(guò)讀取相對(duì)應(yīng)的鍵值來(lái)判斷墻紙、屏保的設(shè)置。墻紙?jiān)谧?cè)表中的路徑為：HKEY_CURRENT_USER\ControlPanel\Desktop\Wallpaper屏保在注冊(cè)表中的路徑為：HKEY_CURRENT_USER\ControlPanel\Desktop\SCRNSAVE.EXE[設(shè)置墻紙、屏保]主要就是讀取注冊(cè)表中相關(guān)的鍵值。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Excel/Word操作題的批改對(duì)于Excel練習(xí)題的批改其實(shí)就是VB在后臺(tái)打開Excel工作表，并使用內(nèi)置的VBA函數(shù)對(duì)Excel工作表中的對(duì)象進(jìn)行判斷。為了能在VB中調(diào)用Excel對(duì)象，首先必須在VB工程中引用“MicrosoftExcel11.0ObjectLibrary”（如果是word，則引用“Microsoftword11.0ObjectLibrary”）。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Excel操作題的批改打開EXCEL：

Workbooks.Open("C:\練習(xí)1.xls")選擇一張工作表：

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

Range(“列號(hào)行號(hào)”)例：Range("A1")區(qū)域的表示：

Range(“列號(hào)行號(hào)：列號(hào)行號(hào)")例：Range("A1:D5")例如：判斷Sheet1工作表中的A1:D5單元格中的文字字體是否為宋體：選擇一個(gè)單元格或區(qū)域：selectSelection

例：Range("A1:D5").Select關(guān)閉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信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Excel操作題的批改Excel中的對(duì)象以及它們的方法、屬性都非常多，我們?cè)跄芏加涀∧兀?/p>

例如：Range(“A1:D1”).MergeCells=True‘合并Range(“B2:G5").HorizontalAlignment=xlCenter‘對(duì)齊方式為水平居中Range(“C3”).Font.Color=RGB(255,0,0)‘文字為紅色Range(“D4”).Text=“成績(jī)表”‘單元格中的文本Range(“E5”).Value=100‘單元格中的數(shù)值Range(“F6”).Font.Bold=True‘文字為粗體……了解了工作表、單元格、區(qū)域的表示方式后，我們就能寫出EXCEL中各種常見操作的批改程序了。

[視圖][對(duì)象瀏覽器]Excel庫(kù)，查看Excel對(duì)象的方法、屬性信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Excel操作題的批改公式/函數(shù)單元格公式/函數(shù)的表示：Range(列行).FormulaR1C1=公式/函數(shù)公式/函數(shù)中單元格的表示：R[]C[]相對(duì)當(dāng)前單元格的位置（R:行的相對(duì)位置）上–，下+（C:列的相對(duì)位置）左–，右+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"信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Fori=3To7IfRange(“F"&i).FormulaR1C1="=SUM(RC[-4]:RC[-1])"Thenscore=score+1NextF3:F7求總分的批改程序：?jiǎn)卧竦牧硪环N表示：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信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)排序例：將成績(jī)表按語(yǔ)文成績(jī)從高到低排序：DimflagAsBooleanFlag=TrueFori=3To6IfVal(Cells(i,2).Text)<Val(Cells(i+1,2).Text)ThenFlag=FalseExitForEndIfNextIfFlag=TrueThenscore=score+5信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)Excel操作題的批改數(shù)據(jù)篩選：對(duì)數(shù)據(jù)篩選的判斷(從表格數(shù)據(jù)的第2列中篩選出小于70的數(shù)據(jù))：IfWorksheets("Sheet1").AutoFilterModeThenIfWorksheets("Sheet1").AutoFilter.Filters(2).OnThenWithWorksheets("Sheet1").AutoFilter.Filters(2) If(.Criteria1="<70")Thenscore=score+5EndWithEndIfEndIf小技巧：利用EXCEL里的宏來(lái)幫助我們寫批改程序WithWorksheets(“題目1”).ChartObjects(1)‘3維餅圖If.Chart.ChartType=xl3DPieand_.Chart.PlotBy=xlRowsThenscore=score+5EndWith建立圖表：分類匯總：……信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)IE操作題的批改[下載圖片、文字、文件]方法與windows操作題中文件操作的判斷類似，也就是判斷這些圖片、文本等文件在該目錄下是否存在。為使批改更加精確，也為了防止學(xué)生在做題時(shí)投機(jī)取巧，可以在此基礎(chǔ)上再判斷該圖片的大小和文本文件里的文字內(nèi)容，從而判斷出這些圖片和文本文件是否來(lái)自該網(wǎng)頁(yè)。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)IE操作題的批改[設(shè)置IE主頁(yè)、歷史記錄天數(shù)]通過(guò)讀取注冊(cè)表里鍵值來(lái)判斷，方法和屏保、墻紙的判斷類似。例：判斷IE主頁(yè)是否是“”就是判斷HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main\StartPage的鍵值是否是“”。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)FrontPage操作題的批改原理：網(wǎng)頁(yè)其實(shí)就是文本文件，只不過(guò)里面的內(nèi)容都是用html標(biāo)記來(lái)顯示的。學(xué)生對(duì)網(wǎng)頁(yè)的操作都會(huì)反映在html源文件里。所以要批改網(wǎng)頁(yè)文件，只要像讀取文本文件那樣讀取整個(gè)網(wǎng)頁(yè)源文件，然后分析里面的html代碼就可以了。讀取html文件:(讀取文件既可以用傳統(tǒng)的I/O語(yǔ)句也可以用FSO對(duì)象模型來(lái)讀取)PublicfsoAsNewFileSystemObject,filAsFile,tsAsTextStreamp=“c:\考生文件夾\WebDo\index.htm"Setfil=fso.GetFile(p)Setts=fil.OpenAsTextStream(ForReading)fpstr=ts.ReadAllts.Close信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)FrontPage操作題的批改定位:InStr函數(shù)

例如：判斷表格邊框粗細(xì)是否為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])【參數(shù)說(shuō)明】start:搜索的起點(diǎn)。如果省略，將從第一個(gè)字符的位置開始。string1:接受搜索的字符串表達(dá)式。string2:被搜索的字符串表達(dá)式。Compare:指定字符串比較。-1(使用OptionCompare語(yǔ)句設(shè)置執(zhí)行一個(gè)比較)。0(執(zhí)行一個(gè)二進(jìn)制比較)。1(執(zhí)行一個(gè)按照原文的比較)。2(僅適用于MicrosoftAccess，執(zhí)行一個(gè)基于數(shù)據(jù)庫(kù)中信息的比較)。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)FrontPage操作題的批改[逐步求精法]通過(guò)分析網(wǎng)頁(yè)源文件，逐步定位并讀取該操作所對(duì)應(yīng)的部分html代碼（因?yàn)榫W(wǎng)頁(yè)源文件里有很多“<tr”、“<td”標(biāo)記，所以可以通過(guò)一個(gè)for循環(huán)來(lái)逐步定位到第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信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)FrontPage操作題的批改[注釋法]因?yàn)樵诰W(wǎng)頁(yè)源文件里添加注釋不會(huì)對(duì)網(wǎng)頁(yè)產(chǎn)生任何影響，所以我們可以在需要定位的html代碼前后加上一段注釋，然后通過(guò)讀取注釋來(lái)定位（html中的注釋符為<!---->）。如前面的例子：判斷是否在表格的第3行第1列的單元格里插入圖片hu.jpg。首先可以在第3行第1列的單元格所對(duì)應(yīng)的html代碼前后隨便加上一些注釋，假設(shè)分別加上<!--注釋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信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)成績(jī)上傳功能的實(shí)現(xiàn)Winsock是windows提供的網(wǎng)絡(luò)編程接口，它提供了基于TCP/IP（傳輸控制協(xié)議/網(wǎng)間協(xié)議）協(xié)議的接口實(shí)現(xiàn)方法。TCP/IP協(xié)議提供兩種通信方式：TCP方式和UDP方式。TCP是一種面向連接的服務(wù)，它在兩個(gè)主機(jī)之間建立連接，提供雙向、有序且無(wú)重復(fù)的數(shù)據(jù)流服務(wù)，以及流量控制、差錯(cuò)檢測(cè)和糾錯(cuò)等服務(wù)，保證數(shù)據(jù)的可靠傳輸。UDP是一種雙向的無(wú)連接數(shù)據(jù)服務(wù)，它把數(shù)據(jù)發(fā)送出去但并不進(jìn)行差錯(cuò)控制和檢查，所以不能保證數(shù)據(jù)的可靠性，因而一般只用于少量數(shù)據(jù)的傳輸。采用哪種方式，通?？梢钥紤]以下幾點(diǎn)：在收發(fā)數(shù)據(jù)過(guò)程中是否需要對(duì)方確認(rèn)或應(yīng)答？數(shù)據(jù)是否很多？數(shù)據(jù)傳輸質(zhì)量要求是否很高？數(shù)據(jù)發(fā)送是間歇的還是一次會(huì)話？信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)成績(jī)上傳功能的實(shí)現(xiàn)在窗體上添加一個(gè)Winsock控件（Winsock1），在其屬性中設(shè)置為UDP協(xié)議，并對(duì)Winsock1的本地端口、遠(yuǎn)程主機(jī)端口、遠(yuǎn)程主機(jī)IP地址進(jìn)行初始化。IP地址端口地址標(biāo)識(shí)主機(jī)標(biāo)識(shí)主機(jī)上的應(yīng)用程序Winsock1.Protocol=sckUDPProtocolWinsock1.RemoteHost=“”Winsock1.RemotePort=4022端口范圍（1-65535），但不要使用一些系統(tǒng)默認(rèn)的端口和常用端口TCP/IP協(xié)議中一個(gè)有效的網(wǎng)絡(luò)地址包括IP地址和端口地址。信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)成績(jī)上傳功能的實(shí)現(xiàn)OnErrorGoToerrsendtxt=Winsock1.LocalIP&"#"&Winsock1.LocalHostName&_"#"&UserName&"#"&UserScoreWinsock1.SendDatasendtxtMsgBox"成績(jī)上傳成功！"ExitSuberr:MsgBox"找不到服務(wù)器！請(qǐng)確定服務(wù)器IP無(wú)誤！",vbOKOnly,"錯(cuò)誤"PrivateSubBtnSendScore_Click()EndSub點(diǎn)擊按鈕BtnSendScore后執(zhí)行發(fā)送成績(jī)功能。代碼如下：改進(jìn)：每一道題的詳細(xì)得分情況信息技術(shù)教學(xué)軟件的設(shè)計(jì)思路與技術(shù)實(shí)現(xiàn)教師機(jī)收卷程序的