VB考试说明书.docx

1、VB考试说明书信息科学与工程学院多媒体程序设计课程考试说明书班 级： 自动化1202班学 号： 201204134072 姓 名： 张雄风 教 师： 杨岚 二一四 年 六 月目 录1. 问题的提出.22.考试要求.3.方案设计4.程序源代码.5运行过程中的各界面6.实现功能简介.7.感想与总结8.参考文献.9.致谢一 问题的提出及要求1.设计一个多窗口程序（2个窗口以上），利用Timer控件，让多窗口轮流显示在其他窗口顶部。二 考试要求1、 用Visual Basic 6.0编写程序，设计并实现一个多媒体应用程序。2、 程序必须带注释，分为“注释到过程（函数）”和“注释到单条语句”两种注释方式

2、，其中“注释到单条语句”评分较高，“注释到过程（函数）”评分较低；无注释或少注释将酌情扣分。3、 所有相关文件保存在文件名：学号_姓名 文件夹内。4、 选题说明：学号最后一位数字表示所选题号，如：201004134112 选题为2号题；201004134130选题为10号题；5、 严禁抄袭，一旦发现有雷同设计，同时取消成绩。三 方案设计利用timer控件结合多媒体设计技术课本P116相关代码实现了让多窗口轮流显示在其他窗口顶部，同时结合图形动画技术以及vb播放音频的方法实现了动画，MP3播放等功能。四 程序源代码1.Form1Private Declare Function SetWindow

3、Pos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long窗口置顶声明Option ExplicitDim Number%Dim IsPlaying As BooleanPrivate m As IntegerPrivate success As IntegerConst SWP_NOMOVE = &H2 保持窗口位置Con

4、st SWP_NOSIZE = &H1 保持窗口大小Const HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2Const WFLAG = SWP_NOMOVE Or SWP_NOSIZEDim first As Integer 作为第一次进入时的标记。如果是第一次进入，则设为0Private Sub About_producer_Click() MsgBox 张雄风 + Chr(13) + Chr(13) + 学号：201204134072 + Chr(13) + _自动化1202 指导老师：杨岚 , , 作者寄语 作者寄语End SubPrivate S

5、ub Command1_Click()MMControl1.Command = PlayForm2.ShowForm3.ShowForm4.ShowForm5.ShowEnd SubPrivate Sub donghua_Click()IsPlaying = FalseImage1.ToolTipText = 动画开始Number% = 1End SubPrivate Sub Form_Load()MMControl1.Command = CloseMMControl1.FileName = (App.Path + 冰雨.Wav)MMControl1.DeviceType = WaveAudi

6、oMMControl1.Command = OpenEnd SubPrivate Sub Quit_Click()EndEnd SubPrivate Sub Timer1_Timer()m = m + 1If m = 2 Thensuccess = SetWindowPos(Form2.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, WFLAG)如果成功，则改变显示的图片 success = SetWindowPos(Form3.hwnd, HWND_TOPMOST, 0, 0, 0, 0, WFLAG) End If If m = 3 Thensuccess = SetW

7、indowPos(Form3.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, WFLAG)如果成功，则改变显示的图片 success = SetWindowPos(Form4.hwnd, HWND_TOPMOST, 0, 0, 0, 0, WFLAG) End If If m = 4 Thensuccess = SetWindowPos(Form4.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, WFLAG)如果成功，则改变显示的图片 success = SetWindowPos(Form5.hwnd, HWND_TOPMOST, 0, 0, 0, 0,

8、 WFLAG) End If If m = 5 Then m = 1 End If End Sub动画计时器Private Sub Timer2_Timer()Number% = Number% + 1If Number% 4 ThenNumber% = 1End If在Image对象中显示动画的当前帧Image1.Picture = LoadPicture(App.Path + face & Number% & .jpg)End Sub2. Form2Private Sub Form_Load()Picture1.Picture = LoadPicture(App.Path + face1.

9、jpg)End Sub3.Form3Private Sub Form_Load()Picture1.Picture = LoadPicture(App.Path + face2.jpg)End Sub4.Form4Private Sub Form_Load()Picture1.Picture = LoadPicture(App.Path + face3.jpg)End Sub5.Form5Private Sub Form_Load()Picture1.Picture = LoadPicture(App.Path + face4.jpg)End Sub五 运行过程中的各界面六 实现功能简介在满足

10、考试利用timer实现弹窗置顶的同时，添加了音乐播放、图形动画、开始按钮、退出按钮等。属性值：控件名称控件属性属性值Form1Startupposition3-窗口缺省Scalemode1-twipTime1Interval1500Left13200Top720Time2Interval1000Left12480Top4800Command1Caption开始按钮Appearance1-MMControl1Recormode1-mcirecord七 感想与总结首先多了一门技术。VB 是一门计算机编程语言，也算是一项知 识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我 明白了万事开头

11、难，刚刚开始，遇到些困难没关系，慢慢来。编程是 一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过 程中。 我们每学一点，就赶快把它用到实际的程序中去，自己多学 多用多实践，水平才能不断提高，这就是“学以致用”。其次、锻炼意志。编程可不是一项轻松的活，尤其是一个人 开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐 性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是 不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许 就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至 更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要 有一颗永不退缩

12、的心，我相信你一定能找到问题所在，最后一定能见 到你开心的笑容，也一定能找到成功者的感觉。 通过这个学期的学习， 对了 VB 这种高级语言有了初步的认知， 对一些小的程序有了初步的设计方案，能根据要求设计出想要的程 序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经 常看同学设计好的程序代码，包括多媒体教材上的例题程序，然后想想别人 为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样 优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人， 对别人是赞美，对自己是帮助，总而言之，这学期的 VB 课程让我收 获了很多！八 参考文献1. 多媒体设计技术2. VB程序设计教程（刘瑞新著）3. VB程序设计练习册（刘瑞新著）4. XX文库九 致谢再次感谢杨澜老师的指导！