遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw 可嵌入物件題庫系統 設計與開發 遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw
可嵌入物件題庫系統 設計與開發 緣起 設計理念 選擇開發環境 系統功能架構 設計技巧 程式的關鍵技巧 展示
緣起 搭配參考書籍 市場需求 不同傳統的試卷內容 不同於網頁的測驗 聲音,圖片 音樂,語言
設計理念 傳統設計方式 利用VBA設計 利用程式搭配資料庫設計 巨集語言 筆數有限制 容易, 但功能不強 筆數可以很多 大部分是圖文分開,達不到圖文整合
其他系統設計方式
設計理念—Cont. 設計一個能嵌入物件的題庫系統 操作方便 設計也要簡便 盡量能夠靈活
選擇開發環境 選擇VB + WORD Basic + ACCESS 作為開發工具 最主要是簡單容易上手 大部分的使用者都很熟悉Word 減少學習時間 彌補電腦程式僵化的缺點 VB語言非常容易使用 Access 等資料庫可以突破筆數的限制 利用Word 排版的特性 可以嵌入各種物件
系統功能架構 題庫輸入 題庫選取 試卷製作 分科目輸入 基本題型 操作方便 教師卷,答案卷一併完成 產生試卷速度快 選擇,填充,問答 邊看邊選 拿著書接輸入題號 試卷製作 教師卷,答案卷一併完成 產生試卷速度快
系統功能架構
本系統設計方式
題目輸入畫面
選取題目畫面
使用動態函式檔
設計時遇到的問題 要利用簡潔的介面,盡量可以融合多種題型的介面. 解決產生試卷和教師答案卷的方式. 基本介面選擇,填充,問答題. 解決產生試卷和教師答案卷的方式. Visual Basic 連接 Word Basic的方式 查參考資料 反向測試
產生試題和教師答案卷的作法 試卷 答案卷 選擇題 ( ) (A B C ) 填充題 This ( ) a test. ( ) (A B C ) 填充題 This ( ) a test. This is a test. 問答題 答: 答: 5隻小鳥
重要的程式技巧 展示出題目和答案的關鍵程式碼 利用VB引入Word 程式的方式 產生試卷的重要程式碼 由Data 的物件從資料庫中找出題目或答案的檔名 再由Form 的OLE物件呈現 利用VB引入Word 程式的方式 產生試卷的重要程式碼
重要的程式技巧 展示出題目和答案的關鍵程式碼 OLE2.CreateLink strMainpath + Data1.Recordset.Fields("ANSNUM") OLE2.Refresh
重要的程式技巧 將Word引入VB中使用 開啟Word文件 Dim objWordApp As Word.Application Dim objDocument As Word.Document Dim objDocument1 As Word.Document Dim objDocument2 As Word.Document Rem 問答題文件檔案專用
重要的程式技巧 VB呼叫Word的方法 查資料 反向工程的方式 Set objWordApp = CreateObject("Word.Application") '設定 Template Set objDocument1 = objWordApp.Documents.Add(App.Path + "\" + "考卷") ' 不列印隱藏文字 If ANS = True Then objDocument1.Application.Options.PrintHiddenText = True Else objDocument1.Application.Options.PrintHiddenText = False End If
重要的程式技巧 設定Word 視窗 objWordApp.Activate 將由資料庫挑出的題目複製 objDocument2.Activate objDocument2.Application.Selection.WholeStory objDocument2.Application.Selection.Copy 將複製內容貼到答案卷視窗 objDocument1.Activate objDocument1.Application.Selection.Paste objDocument1.Application.Selection.MoveLeft objDocument1.Application.Selection.Style =objDocument1.Styles("Selques_m") objDocument1.Application.Selection.MoveRight 關閉題目視窗,準備換下一題 objDocument2.Close
謝謝!