顏 清， 黎 寧， 苗 壯， 賴鑫生

(上饒師范學院 數(shù)學與計算機科學學院，江西 上饒 334001)

網(wǎng)絡課件中基于VBA的動態(tài)信息交互技術研究

顏 清， 黎 寧， 苗 壯， 賴鑫生

(上饒師范學院 數(shù)學與計算機科學學院，江西 上饒 334001)

為滿足網(wǎng)絡化仿真實驗教學的要求，利用VBA技術實現(xiàn)實驗仿真教學課件與外部應用程序的數(shù)據(jù)存取與數(shù)據(jù)訪問?；赩BA技術的PowerPoint實驗仿真課件生動直觀，動畫逼真、交互性強。在數(shù)據(jù)庫實驗仿真課件中，VBA技術使課件自動與外部文件或程序進行連接，即時導出仿真實驗動態(tài)信息或導入文字及圖表，實現(xiàn)了動態(tài)信息交互和實驗過程仿真的自動化和可視化，豐富了實驗仿真教學課件的內(nèi)涵和基本應用功能。

實驗仿真課件；VBA技術；數(shù)據(jù)存取；數(shù)據(jù)訪問；動態(tài)信息

PowerBuilde是一個基于.net平臺產(chǎn)品的數(shù)據(jù)庫開發(fā)工具，PowerBuilder支持asp.net的web開發(fā)和智能客戶端開發(fā)，采用PowerBuilder作為《數(shù)據(jù)庫系統(tǒng)原理》課程實驗的常用開發(fā)工具倍受學生青睞。借助于網(wǎng)絡教學平臺上的實驗仿真課件，指導學生在網(wǎng)絡終端設備上完成相應的實驗過程，是網(wǎng)絡教學平臺的基本功能，由于PowerBuilder不支持課件的多媒體交互技術要求，無法顯示仿真實驗課件中的復雜界面，直接用 PowerBuilder開發(fā)數(shù)據(jù)庫仿真實驗課件是十分困難的。教學課件最常用的開發(fā)工具是PowerPoint，利用PowerPoint模擬實驗的全過程是最具現(xiàn)實意義的[1,2]。數(shù)據(jù)庫實驗仿真教學課件，既要有交互式的仿真動畫，又能夠演示逼真的實驗進程，獲得逼真的實驗動態(tài)信息，學生通過對仿真課件的模仿完成數(shù)據(jù)庫實驗的自主學習，其課件的應用價值也立即體現(xiàn)出來，而PowerPoint要做到這些難度較大，相關論述較為鮮見[3]。筆者對PowerPoint中的VBA二次開發(fā)技術[4]的研究較為深入，利用VBA完成PowerPoint與外部文件或程序的自動連接，課件在運行過程中自動與外部文件或程序進行數(shù)據(jù)存取與數(shù)據(jù)訪問[5]，自動加載文字、圖形及數(shù)字等內(nèi)容，加之輔以PowerPoint中的動畫，仿真課件中就可以實現(xiàn)數(shù)據(jù)庫設計[6]及數(shù)據(jù)窗口可視化的動態(tài)信息交互，從而使PowerPoint切實達到課程實驗仿真教學的網(wǎng)絡化應用要求，基于VBA的動態(tài)信息交互技術也極大地增強了PowerPoint實驗仿真教學課件的標準化應用功能[7]?，F(xiàn)以PowerBuilder數(shù)據(jù)庫的建立等“數(shù)據(jù)庫實驗” 網(wǎng)絡課件為例，探討VBA的動態(tài)信息交互技術在網(wǎng)絡仿真實驗課件中的應用，以饗讀者。

1 基于VBA的動態(tài)信息交互技術

在基于PowerBuilder環(huán)境的中，創(chuàng)建數(shù)據(jù)庫就是利用數(shù)據(jù)庫窗口或SQL命令創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表，用PowerPoint課件指導學生完成“數(shù)據(jù)庫設計”實驗就必須采用仿真形式介紹這一實驗過程。利用VBA技術模擬“數(shù)據(jù)庫設計”過程主要從以下幾個方面著手。1)介紹數(shù)據(jù)庫中的數(shù)據(jù)表。即在課件中利用VBA技術制作靜態(tài)二維表并動態(tài)調(diào)用外部文件數(shù)據(jù)，實現(xiàn)數(shù)據(jù)庫二維表在“數(shù)據(jù)庫設計”實驗中的交互變化，VBA技術顯示動態(tài)變化的數(shù)據(jù)庫。2)數(shù)據(jù)窗口對數(shù)據(jù)庫中數(shù)據(jù)表的操作。即模擬在數(shù)據(jù)窗口中對數(shù)據(jù)庫進行“新增”“刪除”等交互操作時，VBA技術與數(shù)據(jù)外部文件的數(shù)據(jù)存取模擬數(shù)據(jù)庫中內(nèi)容隨之變化這一動態(tài)過程，VBA技術模擬動態(tài)數(shù)據(jù)庫的增刪操作。3)數(shù)據(jù)窗口設計時事件代碼的添加過程。即利用VBA技術自動調(diào)用外部文件信息模擬“添加事件代碼”這一動態(tài)過程。4)數(shù)據(jù)窗口的設計過程仿真。即利用PowerPoint中的動畫設計功能與VBA技術結合，模擬窗口的設計及添加按鈕、單選框、輸入文本等動態(tài)過程。

1.1 VBA技術顯示動態(tài)交互變化的數(shù)據(jù)表

“建立數(shù)據(jù)庫”的實驗目的主要為熟悉PowerBuilder運行環(huán)境、建立數(shù)據(jù)庫、掌握PowerBuilder數(shù)據(jù)窗口的創(chuàng)建及使用。在“數(shù)據(jù)庫創(chuàng)建實驗”網(wǎng)絡仿真課件中，最初建立數(shù)據(jù)庫時，數(shù)據(jù)庫中的記錄是動態(tài)變化的，如數(shù)據(jù)庫中的“學生信息表”，是通過記錄的“新增”“刪除”及“保存”等交互操作來完成“學生信息表”的建立過程。如圖1所示，PowerPoint課件中以動態(tài)二維表形式反映不斷變化的“學生信息表”來模擬建立數(shù)據(jù)表這一實驗過程。第三張幻燈片為“學生信息表”幻燈片母板，“當前學生信息表”和“修改前學生信息表”等按鈕固化在母板上的，所鏈接的VBA過程，可以把“數(shù)據(jù)庫設計”實驗過程的動態(tài)“學生信息表”顯示出來，實現(xiàn)“學生信息表”設計過程的可視化，讓學生通過課件學習，掌握數(shù)據(jù)庫中數(shù)據(jù)表的設計方法與技巧。

圖1 課件中通過交互按鈕顯示動態(tài)變化的數(shù)據(jù)庫

課件中“當前學生信息表”按鈕中的VBA過程為：

ActivePresentation.Slides(3).Layout = ppLayoutTitleOnly '選擇只有標題的幻燈片版式ppLayoutText

ActivePresentation.Slides(3).Shapes.Title.TextFrame.TextRange = EWBBT$ & "當前學生信息表" '添加標題“當前學生信息表”

Set ewb = ActivePresentation.Slides(3).Shapes.AddTable(9, 5, 60, 110, 600, 0).Table '在課件中插入9行5列的Excel表格

Dim excelApp As New Excel.Application

Set Workbook = excelApp.Workbooks.Open(FileName:="D: SJKSY數(shù)據(jù)庫設計實驗.xls")

For x = 1 To 9 '在表格中自動導入Excel數(shù)據(jù)

For y = 1 To 5

ewb.Cell(x, y).Shape.TextFrame.TextRange.Text = Format$(Workbook.Sheets("當前學生信息表").Cells(x, y + 1))

Next y

Next x

Workbook.Close '關閉Excel文件

以上VBA代碼是在幻燈片(3)上進行的一系列操作：1)完成了刪除圖形、文字對象等操作；2)選擇只有標題的幻燈片版式；3)插入標題文字“當前學生信息表”；4)VBA插入一個9行5列的表格；5)在表格中依次導入“數(shù)據(jù)庫設計實驗.xls”文件“當前學生信息表”中的Excel數(shù)據(jù)。

1.2 VBA技術模擬動態(tài)數(shù)據(jù)庫的增刪等交互性操作

課件中講解創(chuàng)建學生信息表時的SQL命令，可以直接在PowerPoint課件的幻燈片中以靜態(tài)文本的形式播放出來，而學生信息表中“新增”“刪除”及“保存”記錄的交互性過程完全是動態(tài)的，就必須使“學生信息表”在課件中以動態(tài)信息出現(xiàn)。初始數(shù)據(jù)庫建立之后，“學生信息表” 中記錄的“新增”“刪除”及“保存”就要由數(shù)據(jù)窗口來完成。仿真實驗課件要模擬數(shù)據(jù)窗口的相關操作，即點擊相應按鈕就要出現(xiàn)對應操作的結果畫面，課件通過與外部文件進行動態(tài)信息存取與數(shù)據(jù)訪問來完成“建立數(shù)據(jù)庫”仿真實驗。如圖2所示，課件利用按鈕的Click()過程VBA宏代碼創(chuàng)建與Excel應用程序的連接，直接與Excel文件進行數(shù)據(jù)訪問，網(wǎng)絡上使用課件時，將輸入的動態(tài)信息直接保存在Excel文件中以方便課件臨時調(diào)用與查看。連接Excel文件的VBA過程十分簡單，用下列VBA語句即可定義連接：

Dim excelApp As New Excel.Application

Set Workbook = excelApp.Workbooks.Open(FileName:="D: SJKSY數(shù)據(jù)庫設計實驗.xls ")

……'打開Excel文件后存取數(shù)據(jù)

Workbook.Save:Workbook.Close'保存與關閉Excel文件

VBA語句運行后，課件直接連接并打開“D: SJKSY數(shù)據(jù)庫設計實驗.xls”的Excel文件，加入存取動態(tài)信息的VBA語句即可完成PowerPoint課件與Excel文件存取動態(tài)信息的功能，從而模擬PowerBuilder中建立的“學生信息窗口”界面及其數(shù)據(jù)庫的“新增”“刪除”及“保存”等仿真操作。圖2所示，在PowerPoint課件的一幻燈片上繪制“學生信息” 窗口圖，疊加“新增”“刪除”及“保存”等四個按鈕進行人機交互，完成實驗仿真。仿真實驗所產(chǎn)生的實驗動態(tài)信息，即用戶在應用課件時通過“新增”按鈕采集“學生信息”窗口輸入的學生信息，臨時存放在數(shù)組XSXX (5,5)中。根據(jù)用戶意愿，再由“保存”按鈕中的VBA過程給Excel文件寫入數(shù)據(jù)。

將“新增”按鈕臨時存放在數(shù)組XSXX(5,5)中的實驗仿真數(shù)據(jù)保存到Excel文件中，對應“保存”按鈕的VBA語句如下：

For I = 1 To 1000'讀取“當前學生信息表”表中已有數(shù)據(jù)的行數(shù)

n = n + 1

IF Workbook.Sheets("當前學生信息表").Cells(I ,1) =" " Then I = 1000

Next I

For I = 1 To 5'寫入仿真數(shù)據(jù)至“當前學生信息表”表中

For J = 1 To 5

Workbook.Sheets("當前學生信息表").Cells(I + n,J + 1) = XSXX (I, J)

……

Next J , I

圖2 課件中交互按鈕與外部文件進行動態(tài)信息存取

以上VBA宏代碼VBA通過循環(huán)嵌套語句，“新增”按鈕仿真輸入的數(shù)據(jù)(數(shù)組)保存到“數(shù)據(jù)庫仿真實驗”Excel文件的“當前學生信息表”表中。

隨著教育技術的發(fā)展，教學教育資源越來越豐富。課件與多媒體積件的自動連接及數(shù)據(jù)存取技術，是現(xiàn)代教育技術課件必不可少的功能之一。Excel與PowerPoint同屬Microsoft Office中的成員，VBA技術能讓Microsoft Office成員間實現(xiàn)的動態(tài)信息存取與數(shù)據(jù)訪問通暢便捷。筆者還嘗試通過VBA宏代碼實現(xiàn)課件與Microsoft Office中的ACCESS數(shù)據(jù)庫應用程序的連接，其VBA過程比較簡單，同樣具有應用價值。

1.3 VBA技術動態(tài)顯示“學生信息”窗口交互按鈕中的代碼

課件對“建立數(shù)據(jù)庫仿真”實驗的“學生信息窗口”進行仿真操作后，下一幻燈片通過VBA宏代碼讀取存放在Excel文件中的文字數(shù)據(jù)，介紹“新增”“刪除”及“保存”等按鈕中的“clicked事件代碼”時(圖3)，點擊“新增”“刪除”及“保存”等按鈕，讀取“clicked事件代碼”表不同單元格中的文字數(shù)據(jù)，完成眾多文字內(nèi)容的播放，使幻燈片數(shù)量大減。這些文字內(nèi)容各不相同，但幻燈片形式類似，可將這些文字內(nèi)容存放在“數(shù)據(jù)庫仿真實驗.xls ”Excel文件的“clicked事件代碼”表中。如“新增”讀取按鈕的事件代碼的VBA語句為：

Dim AN(4) As String, ANDM(4) As String'定義變量

For I=1 to 4

AN(I)= Workbook..Sheets("clicked事件代碼").Cells(I+1,2) '讀取“clicked事件代碼”表中4個按鈕的名稱

ANDM(I)=Workbook..Sheets("clicked事件代碼").Cells (I+1,3) '讀取“clicked事件代碼”表中4個按鈕的事件代碼

Next I

Workbook.Close '關閉Excel文件

以上代碼是利用VBA循環(huán)語句讀取“clicked事件代碼”表中的4個交互按鈕的名稱分別存放在數(shù)組AN(I) 、ANDM(I)中，進入下一幻燈片。

如“新增”讀取按鈕的事件代碼的VBA語句為：

ActivePresentation.Slides(5).Layout = ppLayoutTitleOnly '選擇只有標題的幻燈片版式ppLayoutText

ActivePresentation.Slides(5).Shapes.Title.TextFrame.TextRange = "“學生信息”窗口中按鈕的事件代碼" '幻燈片標題為:“學生信息窗口”中按鈕的事件代碼

ActivePresentation.Slides(5).Shapes("Text Box 203").TextFrame.TextRange.Text = AN (1) ' 顯示“<新增>按鈕的clicked事件代碼：”

ActivePresentation.Slides(5).Shapes("Text Box 204").TextFrame.TextRange.Text = ANDM(1) ' 顯示<新增>按鈕的clicked事件代碼實際內(nèi)容

SlideShowWindows(Index:= 1).View.GotoSlide 5'進入并顯示第五塊幻燈片

圖3 在課件中動態(tài)顯示“學生信息”窗口按鈕中代碼

播放幻燈片時通過分別點擊母板上的四個按鈕，VBA過程(略)調(diào)用數(shù)組AN(I)顯示和ANDM(I) 分別在對應的兩個文本框 “Text Box 203”“Text Box 204” 中顯示 “按鈕名稱”和“按鈕代碼”等。

1.4 VBA技術動態(tài)顯示窗口的創(chuàng)建過程

1.4.1 PowerPoint普通動畫動態(tài)顯示窗口的創(chuàng)建過程

“建立數(shù)據(jù)庫”的實驗目的主要為掌握PowerBuilder數(shù)據(jù)窗口的創(chuàng)建、使用及建立數(shù)據(jù)庫。PowerPoint模擬數(shù)據(jù)窗口的創(chuàng)建是一個動態(tài)過程，可以直接利用PowerPoint的自定義動畫，PowerPoint2010常用的自定義動畫有“進入”“強調(diào)”“退出”“切換”等，模擬數(shù)據(jù)窗口的創(chuàng)建就可以直接用這些簡單動畫，比如設計數(shù)據(jù)窗口中 “按鈕” 的設計等。“學生信息窗口”中四個按鈕的設計其動畫過程是相同的，就可以利用“動畫刷”，復制一個按鈕設計的動畫，是PowerPoint使用自定義動畫技巧并應用到其他按鈕的設計動畫工具，即通過菜單“動畫”/“高級動畫”/“動畫刷”進行操作使用，使用方法與格式刷很相似?；脽羝砑忧袚Q動畫時，選擇好要設置的幻燈片，在菜單欄的“切換”/“切換到此幻燈片”組/“切換方案”以及“效果選項”中，單擊要應用于該幻燈片的幻燈片切換方案或切換效果完成動畫設置。以上過程也可以利用“路徑動畫”進行模擬，即將幻燈片上的形狀、圖片、文本等放在動作路徑上，從一個位置移向另一個位置，沿著一種不可見的軌跡運動，通過對路徑編輯和修改，得到滿意的路徑動畫。另外，在設計一個窗口時，要添加“窗體”、添加“背景圖片”、 添加“靜態(tài)文本” 、添加“按鈕”、添加“動態(tài)文本”及添加“單選框”或“多選框”等操作，每操作完一步窗口上圖形都在變化，就可以通過使用截圖，通過“路徑動畫” 成為逐漸變化或移動的圖形，可達到窗口設計的動態(tài)效果。

1.4.2 VBA調(diào)用外部文件圖形模擬動態(tài)圖形窗口

一些較為復雜的動畫效果，采用VBA技術動態(tài)顯示動畫圖形進行仿真也許更為逼真。如在“選課系統(tǒng)設計實驗”中創(chuàng)建“選課系統(tǒng)”窗口，在“窗口”上添加圖片、按鈕、靜態(tài)文本、輸入文本框等操作時，是一個動態(tài)的設計過程(圖4所示)。介紹創(chuàng)建“選課系統(tǒng)”窗口，按步驟一步一個圖片(創(chuàng)建選課系統(tǒng)窗口共9步，9個截圖)，以圖表格式保存在Excel文件中，如其中名為“選課系統(tǒng)設計窗口圖8”的截圖圖形，在VBA語句定義連接Excel文件之后，插入以下VBA語句即可調(diào)用，以下調(diào)用圖形方法也可完成動態(tài)顯示的動畫效果。

Workbook.Sheets("選課系統(tǒng)設計窗口圖8").Select

ActivePresentation.Slides(7).Shapes.Title.TextFrame.TextRange = "選課系統(tǒng)設計窗口圖8"

ActivePresentation.Slides(7).Shapes.AddOLEObject Left:=65#, Top:=128#, Width:=580#, Height:=355#, FileName:= "D:HGSY選課系統(tǒng)設計實驗.xls "

圖4 動態(tài)顯示“選課系統(tǒng)設計窗口”的創(chuàng)建過程

2 結論

PowerPoint與Excel同屬Microsoft Office中的成員，VBA技術能讓Microsoft Office成員間實現(xiàn)無縫連接，程序間交換信息、通訊十分通暢，以類似方法同樣可以訪問諸如Word、Access等Microsoft Office中其它成員的數(shù)據(jù)，通過網(wǎng)絡上實驗仿真課件的人機對話界面與網(wǎng)絡教學平臺進行信息交流、信息控制和信息傳播。VBA技術與網(wǎng)絡教學平臺上的外部文件進行數(shù)據(jù)存取與數(shù)據(jù)訪問，加之母板技術的運用，課件的交互性更為流暢，極大地豐富了教學仿真課件的表現(xiàn)形式和應用功能，符合網(wǎng)絡教學平臺中對實驗仿真多媒體課件的技術要求，方法具有推廣性和可移植性。學生初步掌握“數(shù)據(jù)庫實驗”的實驗步驟和實驗方法，為順利完成“數(shù)據(jù)庫實驗”打下了基礎。

[1] 顏清,彭小平.基于VBA的動畫模擬課件的設計與實現(xiàn)[J].現(xiàn)代教育技術,2010,20(1):124-126.

[2] 顏清,彭小平,冷明偉.VBA實現(xiàn)恒餾出液組成間歇精餾的計算機模擬[J].計算機應用與軟件，2008, 25(12): 88-90,102.

[3] BOCTOR D. Microsoft Office 2000 VBA基礎[M]. 北京超品計算機有限責任公司,譯.北京：人民郵電出版社,2000:281-285.

[4] 藍曉民,王盛智.“工程制圖”課程多媒體教學方法探討[J].圖學學報,2013,34(1):120-121.

[5] 張成光,王忠厚.多媒體課件制作的探索與實踐[J].中國成人教育,2013(12):125-127.

[6] 陳煌,陳錦昌.基于產(chǎn)品基因組的VBA程序建模開發(fā)研究[J].機械設計與制造,2013(1):240-243,247.

[7] 高楠楠,李宏博,黃金鑫.成人培訓課件標準化研究與應用[J].中國成人教育,2013(19):129-131.

Research on Dynamic Information Interaction Technology Based on VBA in Network

YAN Qing, LI Ning, MIAO Zuang, LAI Xin-sheng

(School of Mathematics and Computer Science, Shangrao Normal University, Shangrao Jiangxi 334001，China)

Using VBA technology to achieve the experimental simulation of teaching courseware and external application data access and data access, is to meet the requirements of network teaching. A VBA-based PowerPoint experiment simulation courseware is vivid and intuitive, animated realistic, interactive strong. In the database experiment simulation courseware, VBA technology enables the courseware to automatically connect with external files or programs, and can instantly export simulation experiment dynamic information or import text and graphics. VBA technology also enables the courseware to achieve dynamic information interaction and experimental process simulation VBA technology has greatly enriched the connotation and the basic application function of the experiment simulation teaching courseware.

experimental simulation courseware; VBA technology; data access; data access; dynamic information

2016-10-09

2013年江西省高校省級教改立項項目(JXJG-13-16-11)；江西省特色專業(yè)資助項目(贛教高字[2010]28號)

顏清(1962-)，女，湖南宜章人，副教授，主要從事計算機應用技術研究。E-mail:yanq168@126.com

TP391.9

A

1004-2237(2016)06-0010-06

10.3969/j.issn.1004-2237.2016.06.003