temp=i
height=Label1.Item(i).Top
EndIf
EndIf
Next
Iftemp>-1Then
Label1.Item(temp).Top=-500
score=score+1
Label3.Caption=score
EndIf
IfKeyAscii=27Then
IfMsgBox("您现在得分:
"&score&"分"+Chr(13)+Chr(10)+"真的要退出吗?
",vbYesNo,"成绩")=vbYesThenEnd
EndIf
EndSub
●定义一个全局变量score。
DimscoreAsInteger
实验2:
在实验1的基础上,添加菜单
1)菜单设计
图三菜单设计
2)运行界面
图四运行“当前得分”菜单
3)菜单编辑
图五菜单编辑
4)代码
●对“开始游戏”编写代码
PrivateSubstart_Click()
DimiAsInteger
DimjAsSingle
score=0
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):
字符转换函数
Nextj
EndSub
●对退出游戏编写代码
PrivateSubquit_Click()
End
EndSub
●对当前分数编写代码
PrivateSubnow_score_Click()
MsgBox"您现在的得分是:
"&score,vbInformation,"当前得分"
EndSub
●其他的代码Timer1,Timer2,判断是否击落字符同实验1。
实验二VB图像处理程序的设计
1、实验目的
通过本实验,要求掌握VB图形、图像处理程序设计的基本方法
2、实验内容
图片的百叶窗效果
1)设计界面
图一设计界面
2)运行界面
图二运行,窗体载入图三单击“水平”
图四单击“垂直”图五单击“交互”
3)属性设置
控件名称
属性名称
属性值
窗体
Caption
图片的百叶窗效果
Startupposition
2-屏幕中心
图片框控件1
Name
ps
AutoSize
True
图片框控件2
Name
pd
AutoSize
True
命令按钮1
Name
shuiping
Caption
水平
命令按钮2
Name
chuizhi
Caption
垂直
命令按钮3
Name
jiaohu
Caption
交互
命令按钮4
Name
clear
Caption
清除
命令按钮5
Name
quit
Caption
退出
4)代码
●通用段代码
ConstxTimes=5
ConstCOPY_PUT=&HCC0020'表示图片直接拷贝
PrivateDeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,_
ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,_
ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,_
ByValySrcAsLong,ByValdwRopAsLong)AsLong
●窗体加载
PrivateSubForm_Load()
Ps.Picture=LoadPicture(App.Path&"\lovely.jpg")
EndSub
●水平按钮
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
EndSub
●垂直按钮
PrivateSubchuizhi_Click()
DimHAsLong,WAsLong
DimiAsLong,jAsLong,mAsLong,nAsLong
H=Ps.ScaleHeight
W=Ps.ScaleWidth
Fori=0To(xTimes-1)
Forj=iToWStepxTimes
BitBltPd.hDC,j,0,1,H,Ps.hDC,j,0,COPY_PUT
Delay100000
Nextj
Nexti
EndSub
●交互按钮
PrivateSubjiaohu_Click()
DimHAsLong,WAsLong
DimiAsLong,jAsLong
H=Ps.ScaleHeight
W=Ps.ScaleWidth
Fori=0ToxTimes-1
Forj=iToHStepxTimes
BitBltPd.hDC,j,0,1,H,Ps.hDC,j,0,COPY_PUT
BitBltPd.hDC,0,j,W,1,Ps.hDC,0,j,COPY_PUT
Delay50000
Nextj
Nexti
EndSub
●清除按钮
PrivateSubclear_Click()
Pd.Cls
EndSub
●退出按钮
PrivateSubquit_Click()
End
EndSub
●延迟函数(子过程)
'延时子过程,以便于能看清楚切换效果。
PrivateSubDelay(ByValtAsLong)
DimiAsLong
Fori=0Tot
Next
EndSub
实验三多媒体音频、视频程序的设计、VB实现图形动画的方法
1、实验目的
通过本实验,要求掌握多媒体音频、视频程序的设计方法,了解VB实现图形动画的方法。
2、实验内容
实验1:
音频程序的设计(MCI控件的用法)
1)设计界面
图一设计界面
2)运行界面
图二运行界面
3)属性设置
控件名称
属性名称
属性值
窗体
Caption
MMControl的用法
Startupposition
2-屏幕中心
BackColor
&H0080FF80&(淡绿色)
标签框Label1
BackStyle
1-不透明
Caption
正在播放的文件是:
标签框Label2
BackStyle
1-不透明
Caption
文件总长度:
标签框Label3
BackStyle
1-不透明
Caption
播放进度:
标签框Label4
Name
file_name
Alignment
2-中心
BackStyle
1-不透明
BordStyle
1-有边线
标签框Label5
Name
file_size
Alignment
2-中心
BackStyle
1-不透明
BordStyle
1-有边线
标签框Label6
Name
file_grade
Alignment
2-中心
BackStyle
0-透明
BordStyle
1-有边线
MCI控件
Name
Mmcontrol1
通用对话框控件
Name
Com
命令按钮
Name
close
Caption
关闭
4)代码
●窗体加载
PrivateSubForm_Load()
Com.Filter="Wav件|*.wav|MIDI文件|*.mid|WMA文件|*.wma|AVI文件|*.avi|所有文件|*.*"
Com.ShowOpen
MMControl1.FileName=Com.FileName
file_name.Caption=Com.FileName
MMControl1.Command="open"
EndSub
●关闭按钮
PrivateSubclose_Click()
End
EndSub
●卸载窗体
PrivateSubForm_Unload(CancelAsInteger)
MMControl1.Command="close"
EndSub
●文件长度
PrivateSubMMControl1_StatusUpdate()
'计算文件总长度,单位为秒
file_size.Caption=MMControl1.Length/1000&"K"
'动态显示当前的播放位置
file_grade.Caption=MMControl1.Position/1000&"K"
EndSub
实验2:
视频程序的设计(MediaPlayer控件的用法)
1)设计界面
图一设计界面
2)运行界面
图二运行界面
3)属性设置
控件名称
属性名称
属性值
窗体
Caption
MediaPlayer控件的用法
Startupposition
2-屏幕中心
BackColor
&H0080FF80&(淡绿色)
标签框Label1
BackStyle
1-opaque(不透明)
Caption
正在播放的文件是:
标签框Lable2
Name
file_name
BackStyle
1-opaque(不透明)
BordStyle
1-有边线
MediaPlayer控件
Name
WindowsMediaPlayer1
通用对话框控件
Name
CommonDialog1
命令按钮1
Name
play
Caption
播放
命令按钮2
Name
quit
Caption
退出
4)代码
●播放按钮
PrivateSubplay_Click()
CommonDialog1.Filter="AVI文件|*.avi|WMA文件|*.wma|Wav文件|*.wav|所有文件|*.*"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL=CommonDialog1.FileName
file_name.Caption=CommonDialog1.FileName
EndSub
●退出按钮
PrivateSubquit_Click()
End
EndSub