遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw 可嵌入物件題庫系統 設計與開發 遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw.

Presentation on theme: "遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw 可嵌入物件題庫系統 設計與開發 遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw."— Presentation transcript:

1 遠東科技大學資訊工程系 王善揚 mango@mail.cc.nsysu.edu.tw
可嵌入物件題庫系統 設計與開發 遠東科技大學資訊工程系 王善揚

2 可嵌入物件題庫系統 設計與開發 緣起 設計理念 選擇開發環境 系統功能架構 設計技巧 程式的關鍵技巧 展示

3 緣起 搭配參考書籍 市場需求 不同傳統的試卷內容 不同於網頁的測驗 聲音,圖片 音樂,語言

4 設計理念 傳統設計方式 利用VBA設計 利用程式搭配資料庫設計 巨集語言 筆數有限制 容易, 但功能不強 筆數可以很多
大部分是圖文分開,達不到圖文整合

5 其他系統設計方式

6 設計理念—Cont. 設計一個能嵌入物件的題庫系統 操作方便 設計也要簡便 盡量能夠靈活

7 選擇開發環境 選擇VB + WORD Basic + ACCESS 作為開發工具 最主要是簡單容易上手 大部分的使用者都很熟悉Word
減少學習時間 彌補電腦程式僵化的缺點 VB語言非常容易使用 Access 等資料庫可以突破筆數的限制 利用Word 排版的特性 可以嵌入各種物件

8 系統功能架構 題庫輸入 題庫選取 試卷製作 分科目輸入 基本題型 操作方便 教師卷,答案卷一併完成 產生試卷速度快 選擇,填充,問答
邊看邊選 拿著書接輸入題號 試卷製作 教師卷,答案卷一併完成 產生試卷速度快

9 系統功能架構

10 本系統設計方式

11 題目輸入畫面

12 選取題目畫面

13 使用動態函式檔

14 設計時遇到的問題 要利用簡潔的介面,盡量可以融合多種題型的介面. 解決產生試卷和教師答案卷的方式.
基本介面選擇,填充,問答題. 解決產生試卷和教師答案卷的方式. Visual Basic 連接 Word Basic的方式 查參考資料 反向測試

15 產生試題和教師答案卷的作法 試卷 答案卷 選擇題 ( ) (A B C ) 填充題 This ( ) a test.
( ) (A B C ) 填充題 This ( ) a test. This is a test. 問答題 答: 答: 5隻小鳥

16 重要的程式技巧 展示出題目和答案的關鍵程式碼 利用VB引入Word 程式的方式 產生試卷的重要程式碼
由Data 的物件從資料庫中找出題目或答案的檔名 再由Form 的OLE物件呈現 利用VB引入Word 程式的方式 產生試卷的重要程式碼

17 重要的程式技巧 展示出題目和答案的關鍵程式碼
OLE2.CreateLink strMainpath + Data1.Recordset.Fields("ANSNUM") OLE2.Refresh

18 重要的程式技巧 將Word引入VB中使用 開啟Word文件 Dim objWordApp As Word.Application
Dim objDocument As Word.Document Dim objDocument1 As Word.Document Dim objDocument2 As Word.Document Rem 問答題文件檔案專用

19 重要的程式技巧 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

20 重要的程式技巧 設定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

21 謝謝!