閱讀以下應用說明以及用Visual Basic開發(fā)過程中進行的屬性設置和所編寫的程序代碼,將應填入 (n) 處的字句寫在答題紙的對應欄內。
【應用說明】
啟動某應用程序后,其運行窗口左邊會出現兩只蝴蝶,下邊有“啟動”和“停止”兩個按鈕。單擊“啟動”按鈕后,伴隨“兩只蝴蝶”音樂,兩只蝴蝶會分別沿兩條互絞的曲線,自左至右翩翩飛行(見下圖),而且飛出窗口右邊后又會再從窗口左邊飛入。單擊“停止”按鈕時,兩只蝴蝶停止飛行,回到初始狀態(tài),音樂也同時停止。再單擊“啟動”按鈕時,蝴蝶重新開始伴音飛行。
在開發(fā)該應用時,兩只蝴蝶用兩個圖像框來表示,分別命名為Image1和Image2,其Picture屬性分別設置為各個蝴蝶的圖像文件名,其stretch屬性都應設置為 (1),使圖像能自動改變大小以適應圖像框。再在窗體中建立“啟動”按鈕(名為CmdStart)和“停止”按鈕(名為CmdStop)。
蝴蝶所飛行的路線分別用正弦和余弦曲線描述。為此,首先需要用Scal方法對窗體定義坐標系統。設左上角坐標為(0,0),右下角坐標為(20,6)。蝴蝶1的飛行曲線設為:y1=2+sin x,蝴蝶2的飛行曲線設為:y2=2+cos x。蝴蝶飛行的位置坐標(x,y)確定了蝴蝶圖像框的位置(Left屬性值和Top屬性值)。
設置一個定時器(名為timer1),其定時時間間隔為0.1秒,所以其Interval屬性值應設置為100。每隔0.1秒需要對兩個圖像框的位置進行一次調整。初始時,該定時器的Enabled屬性應設為False(關閉狀態(tài))。
為使該應用程序運行時能播放聲音文件,在開發(fā)時應利用菜單“工程-部件”,選擇加載組件“Microsoft Multimedia Control 6.0”,并在窗體中設置多媒體控件(設命名為MMC)。由于不需要用戶控制,其Visible屬性可設置為False(不可見)。右擊該控件,可選擇該控件中各按鈕的屬性,應注意選擇“播放”有效、“停止”有效?!皟芍缓钡囊魳肺募崆皽蕚浜茫⑼ㄟ^某種音頻處理程序將其轉換成WAV格式,存放在開發(fā)該應用的當前目錄中。
【Visual Basic程序代碼】
Dim (2) ‘聲明全局變量
Private Sub Form_Load()
Scale(0,0)-(20,6) ‘定義窗體的坐標系統
End Sub
Private Sub CtndStart_Click()
X = 0
MMC.DeviceType = “WaveAudio” ‘設置多媒體設備類型
MMC.FileName = “兩只蝴蝶.wav” ‘確定聲音文件名
MMC.Command = ”O(jiān)pen” ‘打開多媒體設備
MMC.Command = ”Play” ‘啟動聲音的播放
Tirner1.Enabled = True ‘打開定時器
End Sub
Private Sub Tirner1_Timer()
If x>20 Then x = x-20 ‘蝴蝶飛到右邊界后再回到左邊界
Image1.Left = x ‘動態(tài)調整蝴蝶框的位置
Image1.Top = (3)
In;age2.Left = x
Image2.Top = (4)
x = x+0.l ‘確定蝴蝶下一步飛行位置
End Sub
Private Sub CmdStop_Click()
(5)
Itnage1.Left = 0 ‘蝴蝶位置初始化
Image1.Top = 2
Image2.Left = 0
Image2.Top = 3
MMC.Command = “Stop” ‘停止播放
MMC.Command = “Close″ ‘關閉多媒體設備
End Sub