計(jì)算圖標(biāo)定義方式

　　根據(jù)內(nèi)部計(jì)算圖標(biāo)代碼定義函數(shù)是最基本方法，啟動(dòng)authorware 6.5，開始創(chuàng)建一個(gè)具有非凡意義的自定義函數(shù)--閏年判斷函數(shù)leapyear。

　　1、 新建工程，命名自定義函數(shù)

　　新建一個(gè)"leapyearfunction.a6p"文件；拖動(dòng)一個(gè)計(jì)算圖標(biāo)到流程線上，并命名為"leapyear"，這個(gè)名字將成為即將誕生的自定義函數(shù)的名稱。函數(shù)命名需要注意唯一性，不能和其它圖標(biāo)或者函數(shù)同名，否則將不能正常調(diào)用執(zhí)行。

　　2、 編寫閏年判斷函數(shù)leapyear

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

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

　　根據(jù)這個(gè)算法，我們就可以在程序中實(shí)現(xiàn)閏年的邏輯判斷。打開計(jì)算圖標(biāo)"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

　　打開計(jì)算圖標(biāo)"leapyear"的屬性對(duì)話框（ctrl+i），把contains script function選項(xiàng)勾上（如圖1），這意味著告訴系統(tǒng)把"leapyear"封裝為自定義函數(shù)。確定后返回流程，發(fā)現(xiàn)計(jì)算圖標(biāo)"leapyear"的圖標(biāo)變化了（如圖2），這樣自定義函數(shù)"leapyear"就宣告誕生！

圖1設(shè)置"leapyear"的屬性對(duì)話框

圖2 函數(shù)"leapyear"的圖標(biāo)變化

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

圖3 自定義函數(shù)"leapyear"

　　3、 調(diào)用自定義函數(shù)leapyear

　　函數(shù)編寫封裝的目的就是為主程序服務(wù)，我們立馬派遣"leapyear"上崗。authorware 6.5中是通過(guò)系統(tǒng)函數(shù)callscripticon來(lái)調(diào)用內(nèi)部計(jì)算圖標(biāo)腳本方式定義的函數(shù)的。我們編寫的閏年判斷函數(shù)leapyear為一返回型函數(shù)，返回值為true（1）或者false（0），true表示為閏年，false則相反。

　　我們繼續(xù)在計(jì)算圖標(biāo)"leapyear"后添加一交互圖標(biāo)"showyear"，拖動(dòng)一計(jì)算圖標(biāo)到其右邊，選擇為文本輸入響應(yīng)交互，并命名為"*"（即接受任何文本輸入）；打開該計(jì)算圖標(biāo)并輸入以下代碼：

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

　　最后我們?cè)O(shè)置一下顯示界面，雙擊打開交互圖標(biāo)"showyear"，用文本工具輸入{ ifleapyear }，并勾選"update displayed variables"顯示屬性，存盤后即完成函數(shù)的調(diào)用工作。

圖4 調(diào)用自定義函數(shù)"leapyear"

　　簡(jiǎn)單的幾個(gè)步驟就完成計(jì)算圖標(biāo)腳本的自定義函數(shù)工作，這實(shí)在是authorware 6.5的一個(gè)革命性新功能。如果腳本是存儲(chǔ)在外部文本文件里，這種情況該如何定義和調(diào)用函數(shù)呢？下面我們介紹一下外部文本文件的函數(shù)定義方式。

文本文件定義方式

　　1、 外部文本文件腳本準(zhǔn)備工作

　　既然腳本存儲(chǔ)在外部文本文件里，當(dāng)然首先得新建一個(gè)文本文件，例如"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

　　和上面第一種方法的函數(shù)代碼比較，你會(huì)發(fā)現(xiàn)唯一變化的是原來(lái)的args@"leapyear"被args@iconid所替代，這樣做是為了保證該函數(shù)可被任何的計(jì)算圖標(biāo)調(diào)用，即外部文本文件定義方式考慮到了函數(shù)的通用性問(wèn)題。存盤后這個(gè)外部腳本函數(shù)就完成了，也就是說(shuō)這種方式定義的函數(shù)一切腳本都存在于外部txt文本中，比第一種定義方式顯得更加靈活和強(qiáng)大，因?yàn)閍uthorware 提供了txt文本的讀寫接口，允許我們?cè)赼uthorware中隨時(shí)對(duì)它進(jìn)行編輯修改。

　　2、 在authorware 6.5中調(diào)用外部腳本函數(shù)

　　調(diào)用任何外部腳本的自定義函數(shù)前都必須對(duì)外部腳本函數(shù)中的變量進(jìn)行初始化，也就是自變量的創(chuàng)建過(guò)程，因?yàn)閍uthorware在運(yùn)行過(guò)程并不具備自動(dòng)建立變量的功能。

　　新建一個(gè)"leapyearfilemethod.a6p"文件，拖入一個(gè)計(jì)算圖標(biāo)到流程線上并命名為"initialize"，在計(jì)算圖標(biāo)里輸入以下代碼：

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

　　輸入完畢后關(guān)閉計(jì)算圖標(biāo)代碼編輯器時(shí)，系統(tǒng)會(huì)提示創(chuàng)建這些變量，一一確定后就完成了自定義函數(shù)的自變量初始化工作。

　　3、 調(diào)用自定義函數(shù)leapyear

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

　　這樣自定義函數(shù)的調(diào)用也就完成了，執(zhí)行效果和計(jì)算圖標(biāo)定義方式一樣。

　　字符串定義方式

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

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

　　過(guò)上面三種自定義函數(shù)實(shí)現(xiàn)方式的介紹，大家對(duì)authorware 6.5的自定義函數(shù)是否有更深刻的認(rèn)識(shí)？

　　·相關(guān)小知識(shí)--時(shí)間歷法

　　太陽(yáng)歷又稱為陽(yáng)歷，是以地球繞太陽(yáng)公轉(zhuǎn)的運(yùn)動(dòng)周期為基礎(chǔ)而制定的歷法。太陽(yáng)歷的歷年近似等于回歸年，一年12個(gè)月，這個(gè)"月"，實(shí)際上與朔望月無(wú)關(guān)。陽(yáng)歷的月份、日期都與太陽(yáng)在黃道上的位置較好地符合，根據(jù)陽(yáng)歷的日期，在一年中可以明顯看出四季寒暖變化的情況；但在每個(gè)月份中，看不出月亮的朔、望、兩弦。

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