VB考试说明书.pdfVIP

VB考试说明书 信息科学与工程学院 《多媒体程序设计》 课程考试说明书 二○一四 年 六 月 目 录 1.问题的提出………………………………………………….2 2.考试要求……………………………………………………. 3.方案设计……………………………………………………………… 4.程序源代码………………………………………………………….. 1 VB考试说明书 5运行过程中的各界面………………………………………… 6.实现功能简介………………………………………………………. 7.感想与总结…………………………………………………………… 8.参考文献……………………………………………………………………. 9.致谢………………………………………………………………………… 一． 问题的提出及要求 1.设计一个多窗口程序 （2个窗口以上），利用Timer控件，让多窗口轮流显示在 其他窗口顶部。 二． 考试要求 1、 用VisualBasic6.0编写程序，设计并实现一个多媒体应用程序。 2、程序必须带注释，分为 “注释到过程（函数）”和 “注释到单条语句”两种 注释方式，其中 “注释到单条语句”评分较高，“注释到过程（函数）”评分 较低；无注释或少注释将酌情扣分。 3、所有相关文件保存在文件名：学号_姓名 文件夹内。 2 VB考试说明书 4、选题说明：学号最后一位数字表示所选题号，如：201004134112 选题为2 号题；201004134130选题为10号题； 5、严禁抄袭，一旦发现有雷同设计，同时取消成绩。 三． 方案设计 利用timer控件结合多媒体设计技术课本P116相关代码实现了让多窗口轮流显 示在其他窗口顶部，同时结合图形动画技术以及vb播放音频的方法实现了动画， MP3播放等功能。 四． 程序源代码 1.Form1 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcy AsLong,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 3 VB考试说明书 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() MMCont