VB考试说明书.docx
《VB考试说明书.docx》由会员分享,可在线阅读,更多相关《VB考试说明书.docx(10页珍藏版)》请在冰豆网上搜索。
![VB考试说明书.docx](https://file1.bdocx.com/fileroot1/2023-2/2/05c699a5-aec4-4ae6-bd9c-d8c0f435cfb7/05c699a5-aec4-4ae6-bd9c-d8c0f435cfb71.gif)
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文库
九.致谢
再次感谢杨澜老师的指导!