Authorware開發實例:更強地適應能力用Authorware繪制全屏演示

2024-09-08 19:25:52

字體：大中小

來源：轉載

供稿：網友

   當我們用authorware做完一個課件，打包刻成光盤到另一個地方去演示時，往往會發現一個美中不足的地方：課件被設計成800×600像素的窗口，在自己的電腦上演示時是全屏的，但這里的顯示器分辨率是1024×768，課件窗口背后的漂亮桌面有些喧賓奪主。如果把課件設計成1024×768的分辨率，又不能在800×600分辨率的顯示器上完整顯示。如何讓課件有較強的適應能力呢？

    拋磚引玉：用authorware文件屬性使窗口全屏

    用authorware打開源文件，單擊菜單“修改/文件/屬性”，在文件屬性窗口的屬性頁單擊“大小”后面的下拉框，選“使用全屏”(圖1)。現在不管你在什么分辨率的顯示器下播放課件，演示窗口都是全屏的了。但這種方式的全屏有一個非常大的缺點，就是窗口雖然全屏了，但窗口里面的內容不會按比例擴大，而是顯示在窗口的左上位置，超出800×600的位置將用窗口背景色填充，看起來有些別扭。即使我們在圖1所示文件屬性窗口中將“屏幕居中”選中也無濟于事。

瞞天過海：用ucd(外部函數)遮蓋背景在authorware安裝光盤中自帶有一些vcd，其中“cover”能將桌面隱藏起來，當authorware應用程序運行時，屏幕上只能看到演示窗中的內容。它帶有兩個函數，其中“cover()”能隱藏桌面，“uncover()”顯示桌面。打開函數窗口，在“分類”下拉框選擇課件名，單擊左下角 [載入]按鈕，載入這兩個函數，然后單擊[完成]按鈕(圖2)。接著在主程序最前面加一個計算圖標，輸入“cover()”，在主程序最后加一個計算圖標，輸入“uncover()”。運行課件，可以看到桌面變成了黑色，課件浮在黑色背景上，有點酷酷的感覺（要在圖1的文件屬性欄中把“屏幕居中”選中，課件窗口才會顯示在中間）。當運行到“uncover()”后，桌面又會復原。

    偷梁換柱：用ucd修改顯示器分辨率

    如果你不喜歡窗口邊留出空白，我們還可以用ucd來直接修改顯示器的分辨率。這里要用到的是一個比較有名的ucd：altools。這個ucd包含的函數比較多，我們只要用到其中的“alchangeres”函數。它的語法如下： alchangeres(width,height,bitpp,ifreq)。其中“width”是顯示器像素寬度，“height”是高度， “bitpp”是顏色位數，“ifreq”是刷新率。

    載入alchangres函數后，在主程序前面加一個計算圖標，輸入以下內容：

    width:=screenwidth

    height:=screenheight

    depth:=screendepth

    ifreq:=75

    # 檢測當前屏幕信息并保存起來。screenwidth、screenheight、screen-depth三個系統變量保存了當前顯示器的分辨率和顏色數

    n_width:=800

    n_height:=600

    n_depth:=16

    n_ifreq:=75

    # 設置新的分辨率為800×600，32位真彩色，刷新率為75

    if (width=1024) then

    alchangeres(n_width,n_height,n_depth,n_ifreq)

    # 如果顯示器寬度為1024，進行屏幕調整

    changed:=1

    # 標記屏幕分辨率已被更改

    end if

    在退出程序的位置加入一個計算圖標并輸入以下內容：

    if changed=1 then alchangeres(width,height,depth,ifreq)

    quit()

    #如果分辨率更改過，進行還原并退出程序

    注：“#”后為注釋。

    當程序檢測到當前顯示器分辨率是1024×768時，將自動調整到800×600，在退出時再把顯示器調回原來的設置，實現了真正的全屏顯示課件。

   當程序檢測到當前顯示器分辨率是1024×768時，將自動調整到800×600，在退出時再把顯示器調回原來的設置，實現了真正的全屏顯示課件。