方偉
本文先利用VB6.0 對考試要求、評(píng)分源碼和考試文件進(jìn)行封裝、釋放,再利用 jsfl文件對學(xué)生完成后的fla文件進(jìn)行分析,最后利用VB6.0匯總成績添加到問卷星答卷收錄。
Flash操作被多個(gè)地區(qū)作為了初中信息技術(shù)的必考科目,如怎樣讓學(xué)生隨時(shí)知道自己的操作是否正確,是否有疏漏,培養(yǎng)學(xué)生的獨(dú)立思考和自我糾錯(cuò)的自學(xué)能力,并且讓教師詳細(xì)了解每個(gè)學(xué)生的做題情況。尤其是在疫情網(wǎng)課和周末學(xué)生居家期間,了解學(xué)生的真實(shí)學(xué)習(xí)情況是近幾年擺在我們面前亟待解決的問題。
經(jīng)過長時(shí)間研究,筆者通過讓VB6.0即時(shí)書寫jsfl評(píng)分文件,然后讓jsfl文件對學(xué)生操作后的fla文件進(jìn)行分析,最后讓VB6.0將分析添加到問卷星答卷,可以實(shí)現(xiàn)遠(yuǎn)距離了解與掌控學(xué)生考試或練習(xí)情況的效果。具體作法如下。
打開VB6.0程序,打開VB資源編輯器,將需要學(xué)生操作的源文件拖放到對話框。然后將待操作文件封裝在程序中,在登錄窗口寫入以下代碼:
這樣,學(xué)生在執(zhí)行程序時(shí)候,會(huì)將源文件自動(dòng)釋放到學(xué)生電腦“c:\源文件”目錄下,方便調(diào)用。
如果教師自己租用服務(wù)器、網(wǎng)絡(luò)空間和域名,需要一筆很大開支,而免費(fèi)的服務(wù)器又太慢太卡,還會(huì)受到種種限制。經(jīng)過筆者不斷摸索,發(fā)現(xiàn)“問卷星”免費(fèi)提供的在線考試可以遠(yuǎn)程記錄考試內(nèi)容和分?jǐn)?shù)。
登錄“問卷星”網(wǎng)址“https://www.wjx.cn”,新建試卷,設(shè)置好姓名,題型都用填空題。教師可以根據(jù)填空內(nèi)容設(shè)置分?jǐn)?shù),完成后發(fā)布,并記下試卷的網(wǎng)址。學(xué)生每次評(píng)分或提交試卷,讓程序在相應(yīng)的位置填寫數(shù)據(jù)。這樣,教師只需查看每個(gè)學(xué)生每道題目的得分,就可以有的放矢地進(jìn)行個(gè)別指導(dǎo)。
在VB6.0程序中新建窗體,名稱改為“deng”。工程引用勾選 Microsoft Internet Controls。在窗體中繪制一個(gè)Label 標(biāo)簽,Caption 改為“姓名”,右側(cè)繪制一個(gè)Text 文本框。下方繪制一個(gè)Command 按鈕,Caption改為“登錄”。再在窗體邊緣繪制一個(gè) WebBrowser 網(wǎng)絡(luò)控件,讓控件在顯示窗體外防止篡改。接著添加一個(gè)Timer 控件,Interval 設(shè)置為 500。
再新建一個(gè)窗體,名稱改為“zuo”。在窗體中靠左上角繪制一個(gè)文本框,用于展示題目要求。右側(cè)繪制幾個(gè)Option按鈕,。下方并列繪制四個(gè)Command按鈕,Caption分別改為“演示”、“評(píng)分”、“重做”、“交卷”。在下方繪制一個(gè)Image 控件,展示需要完成的效果圖。程序運(yùn)行時(shí)將需要讓學(xué)生完成的fla文件、演示視頻、效果圖文件釋放到“C:\源文件”文件夾中,方便調(diào)用。
文本框中顯示題目要求代碼:
Private Sub Option1_Click()
Text1.Text = "1.請打開試卷目錄C:\EXAM中“走迷宮.fla”,按要求完成下列操作:" & vbCrLf Text1.Text = Text1.Text & "①將“背景2” 圖層重命名為“標(biāo)題”,并在第1幀插入文字“走迷宮”,設(shè)置文字為黑體,字號(hào)40。" & vbCrLf
……
If Dir("C:\EXAM \走迷宮.fla") = "" Then FileCopy "C:\源文件\走迷宮.fla", "C:\EXAM\走迷宮.fla"
重做按鈕讓源文件復(fù)制覆蓋學(xué)生操作文件即可。
交卷按鈕 Private Sub Command4_Click() 中重復(fù)一下評(píng)分部分代碼,將 MsgBox 部分刪除,關(guān)閉程序后在“C:\test”中就可以找到自己哪幾個(gè)小題做對了。這樣,不僅問卷星上有學(xué)生成績記錄,學(xué)生電腦端也有成績記錄,方便遠(yuǎn)程查看和本地核對。
作者單位:山東省萊州市土山中學(xué)