在PB應用中實現聲音與動畫

2024-07-21 02:10:19

字體：大中小

來源：轉載

供稿：網友

最大的網站源碼資源下載站，

在pb應用中實現聲音與動畫
---- 在設計應用程序過程中, 恰當地應用電腦聲音與動畫技術, 可以為用戶提供更加直觀、友好、引人注目的操作界面。下面筆者介紹一下在powerbuild 應用中實現聲音與動畫的一種簡便方法:
1.作為舉例, 創建一個mdi 風格的窗口w_audani。在這個窗口上放置一個含聲音、動畫兩個帶圖標的菜單項的菜單m_audani, 一個圖象框p_1。整個窗口的外觀如下:
2.制備聲音和圖象文件。本例中選用了一個adu.wav 的聲音文件和四個ani1.bmp、ani2.bmp 、ani3.bmp、ani4.bmp 用于動畫素材的分離圖象文件。
3.定義程序編制中要用到的變量: (1) 定義一個整型實例變量, 用作圖象計數 integer picturenub (2) 定義一個外部函數, 使在powerbuild 編程中可以調用windows 32-bit api 聲音播放函數
function boolean sndplaysounda
(string soundname, uint flags) &
library "winmm.dll"
4.為窗口w_audani 編制事件處理程序。程序行中// 后的為說明文字。
(1) 在窗口的打開(open) 事件下輸入程序:
//聲音菜單項置選中屬性
m_audani.m_1.m_aud.checked = true
//動畫菜單項置選中屬性
m_audani.m_1.m_ani.checked = true
//圖象計數器置初值
picturenub = 1
//定義每隔半秒鐘觸發一次窗口的timer事件
timer(0.5,this)
---- (2) 在窗口的計時器(timer) 事件下輸入程序:
---- // 如果聲音菜單項被選中, 則調用windows 32-bit api 聲音播放函數播放聲音文件。函數第一個參數指出要播放的聲音文件名, 第二個指出函數播放屬性, 屬性3 為異步、不缺省
if m_audani.m_1.m_aud.checked = true then
sndplaysounda("aud.wav",3)
end if
//如果動畫菜單項被選中,則播放動畫
if m_audani.m_1.m_ani.checked = true then
choose case picturenub
//當圖象計數為1時,播放第1張圖象
case 1
p_1.picturename = "ani1.bmp"
//當圖象計數為2時,播放第2張圖象
case 2
p_1.picturename = "ani2.bmp"
//當圖象計數為3時,播放第3張圖象
case 3
p_1.picturename = "ani3.bmp"
//當圖象計數為4時,播放第4張圖象
case 4
p_1.picturename = "ani4.bmp"
//恢復圖象計數
picturenub = 0
end choose
//圖象計數增1
picturenub ++
end if
5.為菜單m_audani 編制事件處理程序:
(1) 在菜單項聲音(m_aud) 的單擊(clicked) 事件下輸入程序:
// 使該菜單項的選中屬性反轉起到開關的作用, 即原來為選中的變為不選中, 未選中的則現在變成選中
this.checked = not this.checked
(2) 在菜單項動畫(m_ani) 的單擊(clicked) 事件下輸入程序:
//同樣,使該菜單項的選中屬性反轉
this.checked = not this.checked
6.執行該程序的大致情況是:
(1) 啟動程序后, 自動打開以上圖示的窗口;
(2) 窗口計時器按每半秒鐘觸發一次事件處理程序, 播放聲音和圖象文件, 周而復始以產生動畫效果;
(3) 單擊聲音或動畫菜單項( 工具圖標), 可以控制聲音或動畫是否播放。

上一篇：用PB開發報表系統

下一篇：在PB中快速實現數據庫樹形結構