VB考试说明书Word格式文档下载.docx
- 文档编号:22232255
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:10
- 大小:511.23KB
VB考试说明书Word格式文档下载.docx
《VB考试说明书Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB考试说明书Word格式文档下载.docx(10页珍藏版)》请在冰豆网上搜索。
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
PrivateSubdonghua_Click()
IsPlaying=False
Image1.ToolTipText="
动画开始"
Number%=1
PrivateSubForm_Load()
Close"
MMControl1.FileName=(App.Path+"
\冰雨.Wav"
)
MMControl1.DeviceType="
WaveAudio"
Open"
PrivateSubQuit_Click()
End
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)
Ifm=4Then
success=SetWindowPos(Form4.hwnd,HWND_NOTOPMOST,0,0,0,0,WFLAG)
success=SetWindowPos(Form5.hwnd,HWND_TOPMOST,0,0,0,0,WFLAG)
Ifm=5Then
m=1
EndSub
动画计时器
PrivateSubTimer2_Timer()
Number%=Number%+1
IfNumber%>
4Then
EndIf
在Image对象中显示动画的当前帧
Image1.Picture=LoadPicture(App.Path+"
\face"
&
Number%&
"
.jpg"
2.Form2
Picture1.Picture=LoadPicture(App.Path+"
\face1.jpg"
3.Form3
\face2.jpg"
4.Form4
\face3.jpg"
5.Form5
\face4.jpg"
五.运行过程中的各界面
六.实现功能简介
在满足考试利用timer实现弹窗置顶的同时,添加了音乐播放、图形动画、开始按钮、退出按钮等。
属性值:
控件名称
控件属性
属性值
Form1
Startupposition
3-窗口缺省
Scalemode
1-twip
Time1
Interval
1500
Left
13200
Top
720
Time2
1000
12480
4800
Command1
Caption
开始按钮
Appearance
1-
MMControl1
Recormode
1-mcirecord
七.感想与总结
首先多了一门技术。
VB是一门计算机编程语言,也算是一项知识含量较高的东西。
采用的是可视化程序设计。
学习的这段时间,我明白了万事开头难,刚刚开始,遇到些困难没关系,慢慢来。
编程是一个不断学习,不断积累的过程,编程的乐趣也正是存在于学习的过程中。
我们每学一点,就赶快把它用到实际的程序中去,自己多学
多用多实践,水平才能不断提高,这就是“学以致用”。
其次、锻炼意志。
编程可不是一项轻松的活,尤其是一个人开发制作软件时,那工作量就多了。
没有一定的坐功、细心程度及耐性那是绝对做不到的。
有时,把程序做完了需要调试运行,但是就是不能达到自已设计的效果和目的,那你得戴上放大镜找啊找啊,也许就是因为一个符号或一个字母,你就得花上个几个小时,半天,甚至更长。
越是这样越不要灰心,应该放松心态,一点一滴的去查。
只要有一颗永不退缩的心,我相信你一定能找到问题所在,最后一定能见到你开心的笑容,也一定能找到成功者的感觉。
通过这个学期的学习,对了VB这种高级语言有了初步的认知,对一些小的程序有了初步的设计方案,能根据要求设计出想要的程序,锻炼了自己的创造性思维,是培养逻辑思维的好方法,同时我经常看同学设计好的程序代码,包括多媒体教材上的例题程序,然后想想别人为什么这么计就能达到效果,我的设计能不能完成更多的功能,这样优秀了自己,帮助了自己,提高了自身水平,同样,也欣赏了别人,对别人是赞美,对自己是帮助,总而言之,这学期的VB课程让我收获了很多!
八.参考文献
1.多媒体设计技术
2.VB程序设计教程(刘瑞新著)
3.VB程序设计练习册(刘瑞新著)
4.XX文库
九.致谢
再次感谢杨澜老师的指导!
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 考试 说明书
![提示](https://static.bdocx.com/images/bang_tan.gif)