(完整版)用Authorware制作電子相冊VIP

1、用 Authorware 制作電子相冊陳德鋒程序?qū)崿F(xiàn)思路：程序運行后首先從磁盤中找出存放相片的各個相冊名 （文件夾），用戶選擇（單擊）其一后，接著給出不同的瀏覽方式（隨機、按序循環(huán)、手動控制），如果你選擇前兩項，程序?qū)匆蟛煌５夭シ艌D片，直至你想停止或重新選擇相冊為止。另外，如果你有新相片，只須加入相應的相冊即可，不用更改源程序。相冊位置：為敘述方便， 本例中將各個相冊放在與該程序同位置的文件夾 “我的相冊”中（圖一）構(gòu)成程序的模塊如下（限于篇幅，只介紹自動瀏覽部分）：（圖二）各模塊的說明：一“選擇相冊”交互項：1附加在交互項上的運算圖標內(nèi)容：Initialize(t,pic_num,pic

2、_name)-初始化自定義變量， t 用來決定各按鈕的顯示狀態(tài)； pic_num 為相片的號碼； pic_name 為相片的名稱。pic_dir:=Catalog(FileLocation" 我的相冊 ","D")-pic_dir 代表相冊名。2雙擊交互圖標，選擇文字工具，分別輸入“請選擇相冊”和 pic_dir ，調(diào)整好文字框大小，一定要注意使熱區(qū)“記錄相冊名稱”的區(qū)域與此相同。（圖三）3“記錄相冊名稱” 熱區(qū)交互項上的屬性設(shè)置： Branch 域中選擇 Exit Interaction 項，其余默認。其中的運算圖標中的內(nèi)容為：pic_dir:=Wor

3、dClicked-取得用戶單擊的相冊名二“觀看方式”交互項：.1附加在交互上的運算圖標內(nèi)容：pics:=Catalog(FileLocation"我的相冊 "pic_dir,"F")-變量 pics 為用戶單擊的相冊中所有的相片名。total_pic:=LineCount(pics)-該變量代表相片的總數(shù)。2該交互中共有四個按鈕交互項，其中屬性設(shè)置為：“隨機”和“循環(huán)按序”按鈕：Active If 域中輸入 t=0,Branch域中選擇 Try Again 項。“重選相冊”按鈕： Active If 域中輸入 t=1,Scope域中選擇 Perpetua

4、l?！巴顺觥卑粹o按鈕： Scope域中選擇 Perpetual。3“重選相冊”交互中的運算圖標內(nèi)容為：GoTo(IconID" 選擇相冊 ")4“退出”交互中的運算圖標內(nèi)容為：Quit()三打開“隨機”交互中的組圖標（圖四）1“定義按鈕狀態(tài)”運算圖標中內(nèi)容為：t:=1-使“隨機”按鈕不可用2在“隨機瀏覽”交互中只有一個時間交互項，該時間交互中的屬性設(shè)置為：Interruption 域中選擇 Continue Timing 項； Option 域中選中 Restart for each try；Branch域中設(shè)為 Try Again ；Time Limit 設(shè)為 3（可自己

5、調(diào)整）。3打開“圖片”組圖標（圖五）：（ 1）“讀相片名”運算圖標中內(nèi)容為：pic_num:=Random(1,total_pic,1)-隨機產(chǎn)生一個相片號。pic_name:=GetLine(pics,pic_num)-取出該相片的名稱。（ 2）雙擊“顯示相片”顯示圖標，從菜單中選擇 Insert/Image,此時你可看到彈出一個屬性窗口，挪動窗口至適當位置還可看到畫面上有一個“ X”型的圖形，此即為你輸入的圖片。在屬性窗口上單擊 Image 按鈕，在 File 域中輸入（此為程序的關(guān)鍵部分，除漢字外，其它字符一定要在英文狀態(tài)下輸入）：=FileLocation" 我的相冊 &qu

6、ot;pic_dir""pic_name單擊 Layout 按鈕，在 Display 域中選擇 As Is（正常顯示）項。關(guān)閉該屬性窗口，調(diào)整好“X ”框的大小，在此你還可設(shè)置圖片顯示時的效果。注：如果你想在運行中知道該相冊中相片的數(shù)目， 及時了解此時所顯示的相片名，可選取文字工具輸入以下內(nèi)容：相冊名： pic_dir, 共有 total_pic 張相片，現(xiàn)在是第 pic_num 張，名稱為 pic_name 。.（ 3） Wait 圖標中你可輸入等待的時間。（ 4）“擦除”圖標用來擦除剛才的圖片，可設(shè)置一種擦除方式。四“按序循環(huán)”組圖標中的流程同“隨機圖標”，只須將“讀相片名”的運算圖標中的內(nèi)容改為以下內(nèi)容即可：pic_num:=pic_num+1if pic_num>total_pic then pic_num:=1-如果所有的相片都已播放，再從第一張開始。pic_name:=GetLine