1、多媒体软件设计实验报告多媒体软件设计技术实验报告书编写：杨岚学院：信息科学与工程学院班级：自动化0903实验一 常用控件与界面、菜单设计1、实验目的通过本实验，要求掌握常用控件的属性、事件、方法，理解事件驱动的概念。掌握界面的基本设计方法，掌握下拉式菜单的设计方法。2、实验内容实验1：打字游戏1) 设计界面图一 设计界面2) 运行界面 图二 运行界面3) 属性设置控件名称属性名称属性值窗体Caption打字游戏Startupposition2屏幕中心backcolor&H0080FF80&（绿色）标签框数组 label1共10个Caption空autosizetrue标签框label2capt
2、ion您现在得分：font幼圆、粗体、小三forecolor&H80000012&标签框label2caption0autosizetruefont幼圆、粗体、小三定时器timer1interval100EnabledTrue定时器timer2interval100EnabledTrue4）代码 窗体加载Private Sub Form_Load()Dim i As IntegerDim j As Singlescore = 0Label3.Caption = 0For j = 0 To Label1.Count - 1Label1(j).Top = 0 - j * 380Randomizei
3、 = Int(122 - 97 + 1) * Rnd + 97)Label1.Item(j).Caption = Chr(i)Next jEnd Sub 定时器空件Timer1：控制字符的下落速度，用户的打字成绩每增加10分，字符的下落速度就加快，如果字符下落到一定程度，结束程序的运行。Private Sub Timer1_Timer()Dim i As IntegerFor i = 0 To Label1.Count - 1If score 10 ThenLabel1.Item(i).Top = Label1.Item(i).Top + 100 + 10 * (score 100)ElseL
4、abel1.Item(i).Top = Label1.Item(i).Top + 80End IfIf Label1.Item(i).Top 10000 ThenMsgBox 您现在得分： & score & 分, , 成绩EndEnd IfNextEnd Sub 定时器控件Timer2：不断检测标签控件数组中的标签，如果那个标签被击中，其高度（Top值）初始值赋值为小于零，随机产生的字符赋给该标签的Caption属性。Private Sub Timer2_Timer()Dim j As IntegerFor i = 0 To Label1.Count - 1If Label1.Item(i)
5、.Top 0 ThenRandomizej = Int(122 - 97 + 1) * Rnd + 97)Label1.Item(i).Caption = Chr(j)End IfNextEnd Sub 判断是否击中窗体上的字母。Private Sub Form_KeyPress(KeyAscii As Integer)Dim temp, height As Integerheight = -1temp = -1For i = 0 To Label1.Count - 1If Label1.Item(i).Caption = Chr(KeyAscii) ThenIf height -1 Then
6、Label1.Item(temp).Top = -500score = score + 1Label3.Caption = scoreEnd IfIf KeyAscii = 27 ThenIf MsgBox(您现在得分： & score & 分 + Chr(13) + Chr(10) + 真的要退出吗？, vbYesNo, 成绩) = vbYes Then EndEnd IfEnd Sub 定义一个全局变量score。Dim score As Integer实验2：在实验1的基础上，添加菜单1) 菜单设计图三 菜单设计2) 运行界面图四 运行“当前得分”菜单3）菜单编辑 图五 菜单编辑4）代码
7、 对“开始游戏”编写代码Private Sub start_Click()Dim i As IntegerDim j As Singlescore = 0Label3.Caption = 0初始化个标签的位置和显示字符For j = 0 To Label1.Count - 1 Label1.Count:统计控件数组共有多少个元素Label1(j).Top = 0 - j * 380 Top属性：控件最顶端到容器的距离Randomize 初始化随机函数i = Int(122 - 97 + 1) * Rnd + 97) Int():取整函数；Rnd():随机函数；表示：取az的字符Label1.I
8、tem(j).Caption = Chr(i) Label1.Item(j):控件数组的第j个元素；Chr(i)：字符转换函数Next jEnd Sub 对退出游戏编写代码Private Sub quit_Click()EndEnd Sub 对当前分数编写代码Private Sub now_score_Click()MsgBox 您现在的得分是： & score, vbInformation, 当前得分End Sub 其他的代码Timer1，Timer2，判断是否击落字符同实验1。实验二VB图像处理程序的设计1、实验目的通过本实验，要求掌握VB图形、图像处理程序设计的基本方法2、实验内容图片的
9、百叶窗效果1) 设计界面图一 设计界面2) 运行界面 图二 运行，窗体载入 图三 单击“水平” 图四 单击“垂直” 图五 单击“交互”3) 属性设置控件名称属性名称属性值窗体Caption图片的百叶窗效果Startupposition2屏幕中心图片框控件1NamepsAutoSizeTrue图片框控件2NamepdAutoSizeTrue命令按钮1NameshuipingCaption水平命令按钮2NamechuizhiCaption垂直命令按钮3NamejiaohuCaption交互命令按钮4NameclearCaption清除命令按钮5NamequitCaption退出4）代码 通用段代码
10、Const xTimes = 5Const COPY_PUT = &HCC0020 表示图片直接拷贝Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long, _ ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _ ByVal ySrc As Long, ByVal dwRop As Long) As Long 窗体加载Priv
11、ate Sub Form_Load()Ps.Picture = LoadPicture(App.Path & lovely.jpg)End Sub 水平按钮Private Sub shuipin_Click() Dim H As Long, W As Long Dim i As Long, j As Long, m As Long, n As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To (xTimes - 1) For j = i To H Step xTimes BitBlt Pd.hDC, 0, j, W, 1, Ps.hD
12、C, 0, j, COPY_PUT Delay 100000 Next j Next iEnd Sub 垂直按钮Private Sub chuizhi_Click() Dim H As Long, W As Long Dim i As Long, j As Long, m As Long, n As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To (xTimes - 1) For j = i To W Step xTimes BitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUT Dela
13、y 100000 Next j Next iEnd Sub 交互按钮Private Sub jiaohu_Click() Dim H As Long, W As Long Dim i As Long, j As Long H = Ps.ScaleHeight W = Ps.ScaleWidth For i = 0 To xTimes - 1 For j = i To H Step xTimes BitBlt Pd.hDC, j, 0, 1, H, Ps.hDC, j, 0, COPY_PUT BitBlt Pd.hDC, 0, j, W, 1, Ps.hDC, 0, j, COPY_PUT D
14、elay 50000 Next j Next iEnd Sub 清除按钮Private Sub clear_Click() Pd.ClsEnd Sub 退出按钮Private Sub quit_Click()EndEnd Sub 延迟函数（子过程）延时子过程，以便于能看清楚切换效果。Private Sub Delay(ByVal t As Long) Dim i As Long For i = 0 To t NextEnd Sub实验三 多媒体音频、视频程序的设计、VB实现图形动画的方法1、实验目的通过本实验，要求掌握多媒体音频、视频程序的设计方法，了解VB实现图形动画的方法。2、实验内容实验
15、1：音频程序的设计（MCI控件的用法）1) 设计界面图一 设计界面2) 运行界面图二 运行界面3) 属性设置控件名称属性名称属性值窗体CaptionMMControl的用法Startupposition2屏幕中心BackColor&H0080FF80& (淡绿色)标签框Label1BackStyle1不透明Caption正在播放的文件是：标签框 Label2BackStyle1不透明Caption文件总长度：标签框 Label3BackStyle1不透明Caption播放进度：标签框 Label 4Namefile_nameAlignment2中心BackStyle1不透明BordStyle1
16、有边线标签框 Label 5Namefile_sizeAlignment2中心BackStyle1不透明BordStyle1有边线标签框 Label 6Namefile_gradeAlignment2中心BackStyle0透明BordStyle1有边线MCI控件NameMmcontrol1通用对话框控件NameCom命令按钮NamecloseCaption关闭4) 代码 窗体加载Private Sub Form_Load()Com.Filter = Wav件|*.wav|MIDI文件|*.mid|WMA文件|*.wma|AVI文件|*.avi|所有文件|*.*Com.ShowOpenMMCo
17、ntrol1.FileName = Com.FileName file_name.Caption = Com.FileName MMControl1.Command = openEnd Sub 关闭按钮Private Sub close_Click()EndEnd Sub 卸载窗体Private Sub Form_Unload(Cancel As Integer)MMControl1.Command = closeEnd Sub 文件长度Private Sub MMControl1_StatusUpdate() 计算文件总长度，单位为秒file_size.Caption = MMControl
18、1.Length / 1000 & K 动态显示当前的播放位置 file_grade.Caption = MMControl1.Position / 1000 & KEnd Sub实验2：视频程序的设计（MediaPlayer控件的用法）1) 设计界面图一 设计界面2) 运行界面图二 运行界面3) 属性设置控件名称属性名称属性值窗体CaptionMediaPlayer控件的用法Startupposition2屏幕中心BackColor&H0080FF80& (淡绿色)标签框Label1BackStyle1opaque（不透明）Caption正在播放的文件是：标签框Lable2Namefile_
19、nameBackStyle1opaque（不透明）BordStyle1有边线MediaPlayer控件NameWindowsMediaPlayer1通用对话框控件NameCommonDialog1命令按钮1NameplayCaption播放命令按钮2NamequitCaption退出4) 代码 播放按钮Private Sub play_Click()CommonDialog1.Filter = AVI文件|*.avi|WMA文件|*.wma|Wav文件|*.wav|所有文件|*.*CommonDialog1.ShowOpenWindowsMediaPlayer1.URL = CommonDialog1.FileName file_name.Caption = CommonDialog1.FileNameEnd Sub 退出按钮Private Sub quit_Click()EndEnd Sub
