多媒体软件设计实验报告Word文件下载.docx
《多媒体软件设计实验报告Word文件下载.docx》由会员分享，可在线阅读，更多相关《多媒体软件设计实验报告Word文件下载.docx（17页珍藏版）》请在冰点文库上搜索。
backcolor
&
H0080FF80&
（绿色）
标签框数组label1
共10个
空
autosize
true
标签框label2
caption
您现在得分：
font
幼圆、粗体、小三
forecolor
H80000012&
定时器timer1
interval
100
Enabled
True
定时器timer2
4）代码
●窗体加载
PrivateSubForm_Load（）
DimiAsInteger
DimjAsSingle
score=0
Label3.Caption=0
Forj=0ToLabel1.Count-1
Label1（j）.Top=0-j*380
Randomize
i=Int（（122-97+1）*Rnd+97）
Label1.Item（j）.Caption=Chr（i）
Nextj
EndSub
●定时器空件Timer1：
控制字符的下落速度，用户的打字成绩每增加10分，字符的下落速度就加快，如果字符下落到一定程度，结束程序的运行。
PrivateSubTimer1_Timer（）
Fori=0ToLabel1.Count-1
Ifscore>
10Then
Label1.Item（i）.Top=Label1.Item（i）.Top+100+10*（score\100）
Else
Label1.Item（i）.Top=Label1.Item（i）.Top+80
EndIf
IfLabel1.Item（i）.Top>
10000Then
MsgBox"
"
&
score&
"
分"
,"
成绩"
End
Next
●定时器控件Timer2：
不断检测标签控件数组中的标签，如果那个标签被击中，其高度（Top值）初始值赋值为小于零，随机产生的字符赋给该标签的Caption属性。
PrivateSubTimer2_Timer（）
DimjAsInteger
IfLabel1.Item（i）.Top<
0Then
j=Int（（122-97+1）*Rnd+97）
Label1.Item（i）.Caption=Chr（j）
●判断是否击中窗体上的字母。
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
Dimtemp,heightAsInteger
height=-1
temp=-1
IfLabel1.Item（i）.Caption=Chr（KeyAscii）Then
Ifheight<
Label1.Item（i）.TopThen
temp=i
height=Label1.Item（i）.Top
Iftemp>
-1Then
Label1.Item（temp）.Top=-500
score=score+1
Label3.Caption=score
IfKeyAscii=27Then
IfMsgBox（"
+Chr（13）+Chr（10）+"
真的要退出吗？
vbYesNo,"
）=vbYesThenEnd
●定义一个全局变量score。
DimscoreAsInteger
实验2：
在实验1的基础上，添加菜单
1）菜单设计
图三菜单设计
图四运行“当前得分”菜单
3）菜单编辑
图五菜单编辑
●对“开始游戏”编写代码
PrivateSubstart_Click（）
Label3.Caption="
0"
'
初始化个标签的位置和显示字符
Forj=0ToLabel1.Count-1'
Label1.Count:
统计控件数组共有多少个元素
Label1（j）.Top=0-j*380'
Top属性：
控件最顶端到容器的距离
Randomize'
初始化随机函数
i=Int（（122-97+1）*Rnd+97）'
Int（）:
取整函数；
Rnd（）:
随机函数；
表示：
取a～z的字符
Label1.Item（j）.Caption=Chr（i）'
Label1.Item（j）:
控件数组的第j个元素；
Chr（i）：
字符转换函数
●对退出游戏编写代码
PrivateSubquit_Click（）
●对当前分数编写代码
PrivateSubnow_score_Click（）
您现在的得分是：
score,vbInformation,"
当前得分"
●其他的代码Timer1，Timer2，判断是否击落字符同实验1。
实验二VB图像处理程序的设计
通过本实验，要求掌握VB图形、图像处理程序设计的基本方法
图片的百叶窗效果
图二运行，窗体载入图三单击“水平”
图四单击“垂直”图五单击“交互”
图片框控件1
Name
ps
AutoSize
图片框控件2
pd
命令按钮1
shuiping
水平
命令按钮2
chuizhi
垂直
命令按钮3
jiaohu
交互
命令按钮4
clear
清除
命令按钮5
quit
退出
●通用段代码
ConstxTimes=5
ConstCOPY_PUT=&
HCC0020'
表示图片直接拷贝
PrivateDeclareFunctionBitBltLib"
gdi32"
（ByValhDestDCAsLong,_
ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,_
ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,_
ByValySrcAsLong,ByValdwRopAsLong）AsLong
Ps.Picture=LoadPicture（App.Path&
\lovely.jpg"
）
●水平按钮
PrivateSubshuipin_Click（）
DimHAsLong,WAsLong
DimiAsLong,jAsLong,mAsLong,nAsLong
H=Ps.ScaleHeight
W=Ps.ScaleWidth
Fori=0To（xTimes-1）
Forj=iToHStepxTimes
BitBltPd.hDC,0,j,W,1,Ps.hDC,0,j,COPY_PUT
Delay100000
Nextj
Nexti
●垂直按钮
PrivateSubchuizhi_Click（）
Forj=iToWStepxTimes
BitBltPd.hDC,j,0,1,H,Ps.hDC,j,0,COPY_PUT
●交互按钮
PrivateSubjiaohu_Click（）
DimiAsLong,jAsLong
Fori=0ToxTimes-1
Delay50000
●清除按钮
PrivateSubclear_Click（）
Pd.Cls
●退出按钮
●延迟函数（子过程）
延时子过程，以便于能看清楚切换效果。
PrivateSubDelay（ByValtAsLong）
DimiAsLong
Fori=0Tot
Next
实验三多媒体音频、视频程序的设计、VB实现图形动画的方法
通过本实验，要求掌握多媒体音频、视频程序的设计方法，了解VB实现图形动画的方法。
音频程序的设计（MCI控件的用法）
MMControl的用法
BackColor
（淡绿色）
标签框Label1
BackStyle
1－不透明
正在播放的文件是：
标签框Label2
文件总长度：
标签框Label3
播放进度：
标签框Label4
file_name
Alignment
2－中心
BordStyle
1－有边线
标签框Label5
file_size
标签框Label6
file_grade
0－透明
MCI控件
Mmcontrol1
通用对话框控件
Com
命令按钮
close
关闭
4）代码
Com.Filter="
Wav件|*.wav|MIDI文件|*.mid|WMA文件|*.wma|AVI文件|*.avi|所有文件|*.*"
Com.ShowOpen
MMControl1.FileName=Com.FileName
file_name.Caption=Com.FileName
MMControl1.Command="
open"
●关闭按钮
PrivateSubclose_Click（）
●卸载窗体
PrivateSubForm_Unload（CancelAsInteger）
MMControl1.Command="
close"
●文件长度
PrivateSubMMControl1_StatusUpdate（）
'
计算文件总长度，单位为秒
file_size.Caption=MMControl1.Length/1000&
K"
动态显示当前的播放位置
file_grade.Caption=MMControl1.Position/1000&
视频程序的设计（MediaPlayer控件的用法）
MediaPlayer控件的用法
1－opaque（不透明）
标签框Lable2
MediaPlayer控件
WindowsMediaPlayer1
CommonDialog1
play
播放
●播放按钮
PrivateSubplay_Click（）
CommonDialog1.Filter="
AVI文件|*.avi|WMA文件|*.wma|Wav文件|*.wav|所有文件|*.*"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL=CommonDialog1.FileName
file_name.Caption=CommonDialog1.FileName
升级会员 