VB考试说明书.docx

VB考试说明书.docx

《VB考试说明书.docx》由会员分享，可在线阅读，更多相关《VB考试说明书.docx（10页珍藏版）》请在冰豆网上搜索。

VB考试说明书

信息科学与工程学院

《多媒体程序设计》

课程考试说明书

班级：

自动化1202班

学号：

201204134072

姓名：

张雄风

教师：

杨岚

二○一四年六月

目录

1.问题的提出………………………………………………….2

2.考试要求…………………………………………………….

3.方案设计………………………………………………………………

4.程序源代码…………………………………………………………..

5运行过程中的各界面…………………………………………

6.实现功能简介……………………………………………………….

7.感想与总结……………………………………………………………

8.参考文献…………………………………………………………………….

9.致谢…………………………………………………………………………

一．问题的提出及要求

1.设计一个多窗口程序（2个窗口以上），利用Timer控件，让多窗口轮流显示在其他窗口顶部。

二．考试要求

1、用VisualBasic6.0编写程序，设计并实现一个多媒体应用程序。

2、程序必须带注释，分为“注释到过程（函数）”和“注释到单条语句”两种注释方式，其中“注释到单条语句”评分较高，“注释到过程（函数）”评分较低；无注释或少注释将酌情扣分。

3、所有相关文件保存在文件名：

学号_姓名文件夹内。

4、选题说明：

学号最后一位数字表示所选题号，如：

201004134112选题为2号题；201004134130选题为10号题；

5、严禁抄袭，一旦发现有雷同设计，同时取消成绩。

三．方案设计

利用timer控件结合多媒体设计技术课本P116相关代码实现了让多窗口轮流显示在其他窗口顶部，同时结合图形动画技术以及vb播放音频的方法实现了动画，MP3播放等功能。

四．程序源代码

1.Form1

PrivateDeclareFunctionSetWindowPosLib"user32"（ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong）AsLong

'窗口置顶声明

OptionExplicit

DimNumber%

DimIsPlayingAsBoolean

PrivatemAsInteger

PrivatesuccessAsInteger

ConstSWP_NOMOVE=&H2'保持窗口位置

ConstSWP_NOSIZE=&H1'保持窗口大小

ConstHWND_TOPMOST=-1

ConstHWND_NOTOPMOST=-2

ConstWFLAG=SWP_NOMOVEOrSWP_NOSIZE

DimfirstAsInteger'作为第一次进入时的标记。

如果是第一次进入，则设为0

PrivateSubAbout_producer_Click（）

MsgBox"张雄风"+Chr（13）+Chr（13）+"学号：

201204134072"+Chr（13）+_

"自动化1202指导老师：

杨岚",,"作者寄语"'作者寄语

EndSub

PrivateSubCommand1_Click（）

MMControl1.Command="Play"

Form2.Show

Form3.Show

Form4.Show

Form5.Show

EndSub

PrivateSubdonghua_Click（）

IsPlaying=False

Image1.ToolTipText="动画开始"

Number%=1

EndSub

PrivateSubForm_Load（）

MMControl1.Command="Close"

MMControl1.FileName=（App.Path+"\冰雨.Wav"）

MMControl1.DeviceType="WaveAudio"

MMControl1.Command="Open"

EndSub

PrivateSubQuit_Click（）

End

EndSub

PrivateSubTimer1_Timer（）

m=m+1

Ifm=2Then

success=SetWindowPos（Form2.hwnd,HWND_NOTOPMOST,0,0,0,0,WFLAG）

'如果成功，则改变显示的图片

success=SetWindowPos（Form3.hwnd,HWND_TOPMOST,0,0,0,0,WFLAG）

EndIf

Ifm=3Then

success=SetWindowPos（Form3.hwnd,HWND_NOTOPMOST,0,0,0,0,WFLAG）

'如果成功，则改变显示的图片

success=SetWindowPos（Form4.hwnd,HWND_TOPMOST,0,0,0,0,WFLAG）

EndIf

Ifm=4Then

success=SetWindowPos（Form4.hwnd,HWND_NOTOPMOST,0,0,0,0,WFLAG）

'如果成功，则改变显示的图片

success=SetWindowPos（Form5.hwnd,HWND_TOPMOST,0,0,0,0,WFLAG）

EndIf

Ifm=5Then

m=1

EndIf

EndSub

'动画计时器

PrivateSubTimer2_Timer（）

Number%=Number%+1

IfNumber%>4Then

Number%=1

EndIf

'在Image对象中显示动画的当前帧

Image1.Picture=LoadPicture（App.Path+"\face"&Number%&".jpg"）

EndSub

2.Form2

PrivateSubForm_Load（）

Picture1.Picture=LoadPicture（App.Path+"\face1.jpg"）

EndSub

3.Form3

PrivateSubForm_Load（）

Picture1.Picture=LoadPicture（App.Path+"\face2.jpg"）

EndSub

4.Form4

PrivateSubForm_Load（）

Picture1.Picture=LoadPicture（App.Path+"\face3.jpg"）

EndSub

5.Form5

PrivateSubForm_Load（）

Picture1.Picture=LoadPicture（App.Path+"\face4.jpg"）

EndSub

五．运行过程中的各界面

六．实现功能简介

在满足考试利用timer实现弹窗置顶的同时，添加了音乐播放、图形动画、开始按钮、退出按钮等。

属性值：

控件名称

控件属性

属性值

Form1

Startupposition

3-窗口缺省

Scalemode

1-twip

Time1

Interval

1500

Left

13200

Top

720

Time2

Interval

1000

Left

12480

Top

4800

Command1

Caption

开始按钮

Appearance

1-

MMControl1

Recormode

1-mcirecord

七．感想与总结

首先多了一门技术。

VB是一门计算机编程语言，也算是一项知识含量较高的东西。

采用的是可视化程序设计。

学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。

编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。

我们每学一点，就赶快把它用到实际的程序中去，自己多学

多用多实践，水平才能不断提高，这就是“学以致用”。

其次、锻炼意志。

编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。

没有一定的坐功、细心程度及耐性那是绝对做不到的。

有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。

越是这样越不要灰心，应该放松心态，一点一滴的去查。

只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。

通过这个学期的学习，对了VB这种高级语言有了初步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，包括多媒体教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的VB课程让我收获了很多！

八．参考文献

1.多媒体设计技术

2.VB程序设计教程（刘瑞新著）

3.VB程序设计练习册（刘瑞新著）

4.XX文库

九．致谢

再次感谢杨澜老师的指导！