【文章內容簡介】 的實現 (單擊這里下載源程序 ) 首先我們來看一下程序執(zhí)行后的效果 (圖 41),大家可以看到程序中的拋物線并不圓滑 ,這其實也說明了程序 的制作原理 ,實際上這段拋物線是有若干段直線拼接而成的 . (圖 41) (圖 42)是本程序的流程圖 ,此程序的關鍵是流程圖中 坐標系 和 開始畫拋物線 兩個計算圖標的設計 . (圖 42) 坐標系 計算圖標的內容 (圖 43) (圖 43) 開始畫拋物線 計算圖標的內容 (圖 44) (圖 44) 從計算圖標中可以看出，拋物線其實是由 (x1,y1)到 (x2,y2)的直線首尾連接而成 . 二、正弦函數 y=sin(x)圖象的實現 實現的原理和拋物線相似 ,這里不再作詳細的介紹 ,下面給出程序的效果圖 (圖 45)和流程圖 (圖 46) (圖 45) (圖 46) 三、利用函數制作復合按鈕 程序的效果圖如下 (圖 47)：這里大家只可看到 “播放 ”按鈕，其實還有一個 “暫停 ”按鈕和播放按鈕是重疊的，只是現在 “暫停 ”按鈕此時處于無效的狀態(tài)，被隱藏起來了。這也是本程序實現的技術要點。 (圖 47) 程序的流程圖如下 (圖 48)，結構比較簡單。 (圖 48) “初始化 ”計算圖標的內容如（圖 49），各語句的解釋參考 “注釋 ”語句。 (圖 49) “暫停 ”和 “播放 ”計算圖標的內容如（圖 410）和（圖 411），各語句的解釋參考 “注釋 ”語句。 (圖 410) (圖 411) 下面設置播放按鈕的屬性，這也是本程序的關鍵。在 Response選項卡中 (圖 412)，設置按鈕的響應條件為 play=0（紅框部分） ,即表示 “播放 ”按鈕在 play=0時有效。 (圖 412) 在 Button選項卡中 (圖 413)，選中 Hide When Inactive復選框。即表示按鈕在無效狀態(tài)是隱藏。 (圖 413) “暫停 ”按鈕的屬性設置與 “播放 “按鈕相似，其在 Reaponse選項卡中的響應條件 Active if :play=1,同樣在Button選項卡中，選中 Hide When Inactive復選框。 從上面的設置不難看出，當 play01時， “播放 ”按鈕有效（顯示），而 “暫停 ”按鈕無效（隱藏）。 第四章 外部函數 UCD 第一節(jié) 自定義函數的引入 UCD(User Code Dll)是用戶自定義函數的縮寫。包括 AW 自帶的 UCD 函數和用戶用 VB、 VC、 Delphi編寫的 UCD函數。 UCD 函數又稱為外部函數，在使用之前必須先引入到當前文件中，當外部函數被正確引入后，我們就可以象使用 系統(tǒng)函數一樣使用它了。 UCD 函數的后綴一般為 U32（ 32 位）或 UCD（ 16 位，在 中使用）。 用戶自定義函數引入的步驟，以裝載 為例： 用 AW 新建一個文件，并命名為 . 選擇 window菜單 選擇 functions菜單項 彈出函數對話框（圖 11）所 示。 （圖 11） 在函數對話框的 Category下拉列表中選擇當前的文件 單擊 Load..按鈕（圖 12）。 （圖 12） 彈出 Load Function對話框（圖 13） 在對話框中選擇要加載的外部函數，這里選 單擊 “打開 ”按鈕 （圖 13） 彈出（圖 14）對話框，在 name項下面顯示的是 所包含的兩個函數 cover()和 Uncover()，按住 ctrl鍵，再分別單擊著兩個函數就可以選中它們。 單擊 Load按鈕裝載這兩個被選中的函 數。 圖（ 14） 如果出現（圖 15），說明函數已經加載成功，紅框中顯示的是函數的名稱和居具體的使用方法。 （圖 15） 將外部函數引入到計算圖標或指定的區(qū)域，只要打開計算圖標，雙擊（圖 15）中的函數名即 可，效果如（圖16）所示。 （圖 16） 第二節(jié) Authorware 部分自帶的 UCD 函數祥解 一、 :控制按鍵的響應范圍，一共有兩個函數，介紹如下： InstallApwkeys():擴大程序的按鍵范圍，使用戶可以使用 ctrl、 caps lock、 Num Lock 等鍵。 RemoveApwkeys():將擴展的按鍵范圍卸載，此時 ctrl、 caps lock、 Num Lock 等鍵無效，防止系統(tǒng)鎖死。 對按鍵范圍的測試實例，程序流程圖如下：（圖 21） （圖 21） 二、 :復制文件函數，只有一個函數，其語法如下： result:=CopyFile(源文件路徑及文件名，目標文件及文件名） 功用：對源文件進行拷貝，如果目標文件存在，則對其進行覆蓋?？截惓晒?，將所拷貝的字節(jié) 數賦給 result,發(fā)生錯誤則 result 返回負值。 三、 :覆蓋桌面的函數，一共包含兩個函數，介紹如下： Cover():以黑色覆蓋整個桌面，一般在程序的開頭時使用。 Uncover():恢復被覆蓋的捉名，一般在程序退出時使用。 四、 :文本編輯函數，一共包含八個函數來實現對文本的編輯，介紹如下： result:=EditboxDisplay(string,x_coord,y_coord,height,width) 功能 :創(chuàng)建一個滾動編輯框 ,用于顯示和編輯文本 .string為放置于編輯框中的文 。,x_coord,y_coord為編輯框左頂角的坐標 。height,width為編輯框的高度和寬度 . EditboxClear( ):將編輯框中選取的文本刪除 . cut_string:=EditboxGetText( ):將編輯框中的全部內容賦給變量 cut_string. 4 、 EditboxUndo():撤消對編輯框的最后一次操作 . EditboxErase():將函數 EidtboxDisplay()創(chuàng)建的編輯框擦除 . Cut_String:=EditboxCut():將編輯框中選取的部分剪切 ,賦給變量 Cut_String,同時保存于 WINDOW 的剪切板上 Cut_String:=EditboxCopy():對編輯框中選定的內容進行復制 . EditboaPaste():將剪切或復制到剪切板上內容粘貼到編輯框中光標所在的位置上 . 五、 (多媒體設備控制函數 ) 功能 :一共具備波形 (WAVE)文件控制、 MIDI 控制、 CD 控制、動畫控制、 MIC(媒體界面控制 )五大類函數 ,下面介紹最為常用的前三類函數 . 波形控制函數 :支持 以 WAVE 格式存放的數字化聲音文件 .具體的函數如下 : 函數名及使用語法 函數功能 errorCode:=WavePlay(filename,wait) 播放指定的 WAVE 文件 ,參數 wait是用來確定播放模式的 .當wait為 True時 ,只有當播放完 WAVE 文件是才執(zhí)行下面的圖標 ,當 wait為 False時 ,WAVE 文件和下面的圖標同步執(zhí)行 . errorCode := WavePlaySegment(fileName, fromSeconds, forSeconds, wait) 從指定 的起始位置 (fromseconds)播放指定的播放 (forseconds)的WAVE 文件 .參數介紹如下 : fromseconds:以秒為單位指定文件的起始播放位置 forseconds:以秒為單位指定文件播放的長度 wait: 含義和方法同上 errorCode := WaveStop() 停止播放當前的聲音文件 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 errorCode := WavePause() 暫停播放當前的聲音文件 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 errorCode := WaveResume() 繼續(xù)播放當前的聲音文件 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 result := WavePlaying() 監(jiān)控 WAVE 文件的播放狀態(tài) ,如正在播放 ,返回 True值 ,否則返回False值 MIDI 控制函數 ,具體函數介紹如下 : 函數名及使用語法 函數功能 errorCode:=MIDIPlay(filename,tempo,wait) 以參數 tempo指定的速度播放指定的 MIDI 文件 . 參數 wait的作用與 WavePlay()函數一致 。 參數 tempo:指定 MIDI文 件的播放速度 ,當 tempo=100是時以默認的速度播放 。 errorCode := WavePlaySegment(fileName,tempo, fromSeconds, forSeconds, wait) 從指定的起始位置 (fromseconds) 開始播放指定播放長度(forseconds)的 MIDI 文件 .參數介紹如下 : fromseconds:以秒為單位指定文件的起始播放位置 forseconds:以秒為單位指定文件播放的長度 參數 wait的作用與 WavePlay()函數一致 。 參數 tempo:指定 MIDI文件的播放速度 ,當 tempo=100是時以默認的速度播放 errorCode := MIDIStop() 停止播放當前的 MIDI文件 ,同時返回 MCI錯誤代碼 ,無錯時返回 0 errorCode := MIDIPause() 暫停播放當前的 MIDI文件 ,同時返回 MCI錯誤代碼 ,無錯時返回 0 errorCode := MIDIResume() 繼續(xù)播放當前的 MIDI文件 ,同時返回 MCI錯誤代碼 ,無錯時返回 0 result := MIDIPlaying() 監(jiān)控 MIDI 文件的播放狀態(tài) ,如正在 播放 ,返回 True值 ,否則返回False值 CD 控制函數 函數名及使用語法 函數功能 errorCode:=CDPlay(track,wait) 從頭到尾播放 track指定音軌上的內容 參數 wait的作用與 WavePlay()函數一致 。 errorCode := CDPlaySegment(track, fromSeconds, forSeconds, wait) 從指定的起始位置 (fromseconds) 開始播放指定播放長度(forseconds)的 CD 音軌 .參數介紹如下 : fromseconds:以秒為單位指定文件的起始播放位置 forseconds:以秒為單位指定文件播放的長度 參數 wait的作用與 WavePlay()函數一致 。 errorCode := CDStop() 停止播放當前的音軌 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 errorCode := CDPause() 暫停播放當前的音軌 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 errorCode := CDResume() 繼續(xù)播放當前的音軌 ,同時返回 MCI 錯誤代碼 ,無錯時返回 0 result := CDPlaying() 監(jiān)控 CD 音軌的播放狀態(tài) ,如正在播放 ,返回 True值 ,否則返回False值 result := CDCurrentPosition() 以字符串的形式返回 CD 的當前位置 ,返回的格式是 tt:mm:ss:ff tt 為音軌號 。mm 為分鐘數 。ss 為秒數 。ff 為幀號 。 errorCode := CDEject() 將 CD 片退出光驅 errorCode := CDRetract() 將 CD 片移回光驅 Condition:=CDDiscpresent() 檢測光驅中是否有 CD 盤片 ,如有返 回 TRUE,沒有返回 FALSE result := CDLength() 以秒為單位返回當前 CD 的總長度 ,如果出錯返回 0 result := CDTracks() 返回當前 CD 盤片上的總軌數 result := CDTrackLength(track) 以秒為單位返回當前 CD 中指定音軌的長度 第三節(jié) 利用外部函數制作實例 一、利用 制作子菜單和右鍵快捷菜單 函數的主要功能有以下幾種： 制作下拉列表 制作彈出式菜單 調用文件選擇對 話框 字體下拉列表 調用帶預覽功能的圖形文件打開對話框 調用文件保存對話框 這里只介紹 中制作彈出式菜單的三個函數，其功用和函數語法如下表： 函數語法 pupupHandle:=tMsCreatePopupList(windowHandle) 函數功能和參數 取得 windows 句柄，并把它賦給自定義變量 pupupHandle 函數語法 Result:=tMsAddItem(ControlHandle, menuItemNo, submenuItemNo, menuText) 函數功能和參數 設置各菜單的名稱、