計算圖標定義方式

　　根據內部計算圖標代碼定義函數是最基本方法，啟動authorware 6.5，開始創建一個具有非凡意義的自定義函數--閏年判斷函數leapyear。

　　1、 新建工程，命名自定義函數

　　新建一個"leapyearfunction.a6p"文件；拖動一個計算圖標到流程線上，并命名為"leapyear"，這個名字將成為即將誕生的自定義函數的名稱。函數命名需要注意唯一性，不能和其它圖標或者函數同名，否則將不能正常調用執行。

　　2、 編寫閏年判斷函數leapyear

　　目前公認的閏年判斷算法，滿足下列二者之一，即為閏年：

　?、?能被4整除，但不能被100整除
　　② 能被4整除，且能被400整除

　　根據這個算法，我們就可以在程序中實現閏年的邏輯判斷。打開計算圖標"leapyear"，在里面寫入以下代碼：

if mod（args@"leapyear",400）=0|（mod（args@"leapyear",4）=0 & mod（args@"leapyear",100）<>0） then
result@"leapyear":=true
else
result@"leapyear":=false
end if

　　打開計算圖標"leapyear"的屬性對話框（ctrl+i），把contains script function選項勾上（如圖1），這意味著告訴系統把"leapyear"封裝為自定義函數。確定后返回流程，發現計算圖標"leapyear"的圖標變化了（如圖2），這樣自定義函數"leapyear"就宣告誕生！

圖1設置"leapyear"的屬性對話框

圖2 函數"leapyear"的圖標變化

此時執行菜單window >functions打開函數列表窗口，在script icons分類中就可以看到leapyear自定義函數的"真身"（如圖3），你可以在函數描述（description）文本框里輸入函數說明和其它使用信息（也可通過執行菜單modify > icon > description…來輸入函數相關說明信息），例如輸入：return:=leapyear（"year"）

圖3 自定義函數"leapyear"

　　3、 調用自定義函數leapyear

　　函數編寫封裝的目的就是為主程序服務，我們立馬派遣"leapyear"上崗。authorware 6.5中是通過系統函數callscripticon來調用內部計算圖標腳本方式定義的函數的。我們編寫的閏年判斷函數leapyear為一返回型函數，返回值為true（1）或者false（0），true表示為閏年，false則相反。

　　我們繼續在計算圖標"leapyear"后添加一交互圖標"showyear"，拖動一計算圖標到其右邊，選擇為文本輸入響應交互，并命名為"*"（即接受任何文本輸入）；打開該計算圖標并輸入以下代碼：

if callscripticon（@"leapyear",entrytext）=true then
ifleapyear:="是"
else
ifleapyear:="否"
end if

　　最后我們設置一下顯示界面，雙擊打開交互圖標"showyear"，用文本工具輸入{ ifleapyear }，并勾選"update displayed variables"顯示屬性，存盤后即完成函數的調用工作。

圖4 調用自定義函數"leapyear"

　　簡單的幾個步驟就完成計算圖標腳本的自定義函數工作，這實在是authorware 6.5的一個革命性新功能。如果腳本是存儲在外部文本文件里，這種情況該如何定義和調用函數呢？下面我們介紹一下外部文本文件的函數定義方式。

文本文件定義方式

　　1、 外部文本文件腳本準備工作

　　既然腳本存儲在外部文本文件里，當然首先得新建一個文本文件，例如"leapyear.txt"，編輯該txt文本文件并輸入以下腳本代碼：

if mod（args@iconid,400）=0|（mod（args@iconid,4）=0 & mod（args@iconid,100）<>0） then
result@iconid:=true
else
result@iconid:=false
end if

　　和上面第一種方法的函數代碼比較，你會發現唯一變化的是原來的args@"leapyear"被args@iconid所替代，這樣做是為了保證該函數可被任何的計算圖標調用，即外部文本文件定義方式考慮到了函數的通用性問題。存盤后這個外部腳本函數就完成了，也就是說這種方式定義的函數一切腳本都存在于外部txt文本中，比第一種定義方式顯得更加靈活和強大，因為authorware 提供了txt文本的讀寫接口，允許我們在authorware中隨時對它進行編輯修改。

　　2、 在authorware 6.5中調用外部腳本函數

　　調用任何外部腳本的自定義函數前都必須對外部腳本函數中的變量進行初始化，也就是自變量的創建過程，因為authorware在運行過程并不具備自動建立變量的功能。

　　新建一個"leapyearfilemethod.a6p"文件，拖入一個計算圖標到流程線上并命名為"initialize"，在計算圖標里輸入以下代碼：

args@iconid:=""
result@iconid:=""

　　輸入完畢后關閉計算圖標代碼編輯器時，系統會提示創建這些變量，一一確定后就完成了自定義函數的自變量初始化工作。

　　3、 調用自定義函數leapyear

　　和計算圖標自定義函數的調用不同，外部文本文件腳本定義的函數調用的是通過系統變量callscriptfile來完成的，因此我們只要把上面計算圖標定義方式第3步驟中的代碼替換為以下的代碼即可，其它的保持不變：
if callscriptfile（filelocation^"leapyear.txt",entrytext）=true then
ifleapyear:="是"
else
ifleapyear:="否"
end if

　　這樣自定義函數的調用也就完成了，執行效果和計算圖標定義方式一樣。

　　字符串定義方式

　　除了上面介紹的兩種自定義函數方式外，authorware 6.5還支持把存儲在字符串中的腳本定義為函數，這些字符串可以是文本文件中的字符串行，數據庫中的字符串，甚至是加密的字符串（使用前須解密）等，字符串的不同行以return（回車）分隔。例如上面提到的外部文本文件"leapyear.txt"，我們可以用系統函數readextfile把該文本內容讀入賦予一字符串變量script，然后再當做函數來調用；需要注意的是字符串腳本函數是通過callscriptstring系統函數來調用的，具體代碼如下：

script := readextfile（filelocation^"leapyear.txt"）
callscriptstring（script）

　　過上面三種自定義函數實現方式的介紹，大家對authorware 6.5的自定義函數是否有更深刻的認識？

　　·相關小知識--時間歷法

　　太陽歷又稱為陽歷，是以地球繞太陽公轉的運動周期為基礎而制定的歷法。太陽歷的歷年近似等于回歸年，一年12個月，這個"月"，實際上與朔望月無關。陽歷的月份、日期都與太陽在黃道上的位置較好地符合，根據陽歷的日期，在一年中可以明顯看出四季寒暖變化的情況；但在每個月份中，看不出月亮的朔、望、兩弦。

　　如今世界通行的公歷就是一種陽歷（格里高利歷），平年365天，閏年366天，每四年一閏，每滿百年少閏一次，到第四百年再閏，即每四百年中有97個閏年。公歷的歷年平均長度與回歸年只有26秒之差，要累積3300年才差一日。下載源文件