VB弹力球源程序

下载地址：https://files.cnblogs.com/files/daveylin/VB%E5%BC%B9%E5%8A%9B%E7%90%83lw.zip

《VB弹力球》项目设计文档

一、界面设计

控件	对象名	属性名	属性值	含义
Form	frmMain	Caption	弹力球
		StartUpPosition	2  '屏幕中心	屏幕居中
		ScaleHeight	5400
		ScaleWidth	7755
PictureBox	Picture1	Height	5000
		Width	6000
		Left	100
		Top	100
Shape	Shape1	Shape	3  'Circle	球形
		BorderColor	&H00000000&	填充颜色
		FillStyle	0  'Solid	填充方式
		Height	300	球形大小
		Width	300
Line	Line1	BorderColor	&H00FF0000&
		BorderWidth	2
		X1	2500
		X2	3500
		Y1	4600
		Y2	4600
CommandButton	cmdStart	Caption	开始
CommandButton	cmdExit	Caption	退出
Timer	Timer1	Interval	150	单位：毫秒
Label	Label1	Caption	得分
	Label2	Caption	0
	Label3	Caption	最高分
	Label4	Caption	0

二、VB控件

2.1 控件的通用特性

1) 名称(name)属性

每个控件都有名称属性，用于程序中对控件的辨别和操作。

2) 焦点

在窗体上，任何时候用户都只能操作其中的一个控件对象，这个被操作的对象称它获得焦点。

下列方法可以将焦点赋予对象：

• 运行时用鼠标选择对象
• 运行时用快捷键选择对象
• 运行时按Tab键将焦点移到对象上
• 在程序代码中用SetFocus方法

说明：

• 框架、标签、菜单、直线、形状、图像框和时钟控件都不能接受焦点。
• 程序运行时，按Tab键将使焦点按照控件TabIndex属性的顺序在控件间移动。

3) 容器

窗体、框架和图片框等都可以作为其他控件的容器。移动容器，容器中的控件也随之移动。容器中控件的Left和Top属性值是指其在容器里的位置。

2.2 图形控件

VB包含四个图形控件：PictureBox控件、Image控件、Shape控件和Line控件。

PictureBox控件称为图片框，Image控件称为图像框。图片框和图像框可以显示的图像文件格式有位图文件(.bmp)、图标文件(.ico)、图元文件(.wmf)、JPEG格式文件(.jpg)和GIF格式文件(.gif)。

1) 图片框PictureBox控件

图片框（PictureBox）是用来在窗体上显示图像，或作为容器放置其它控件的控件。

2) 形状Shape控件

Shape属性取值及功能说明

属性名	数值	常量	功能说明
Shape	0	VbShapeRectangle	显示矩形
	1	VbShapeSquare	显示正方形
	2	VbShapeOval	显示椭圆
	3	VbShapeCircle	显示圆
	4	VbShapeToundedRectangle	显示圆角矩形
	5	VbShapeRoundedSquare	显示圆角正方形
Height	数值		形状的高度 刻度单位是对象所在容器坐标系中的刻度单位
Width	数值		形状的宽度 刻度单位是对象所在容器坐标系中的刻度单位
Top	数值		形状的上边到容器上边的距离
Left	数值		形状的左边到容器左边的距离

3) 直线Line控件

(x1,y1)和(x2,y2)两点确定一条直线，坐标(x,y)是相对于容器的坐标。

属性名	属性值	说明
X1	数值	直线一端点的X1坐标
X2	数值	直线另一端点的X2坐标
Y1	数值	直线一端点的Y1坐标
Y2	数值	直线另一端点的Y2坐标

2.3 时钟控件

时钟控件以Interval为时间间隔产生Timer事件。

Timer控件的重要属性

属性名	属性值	说明
Interval	数值	设置时钟控件的计时事件的时间间隔数。单位为ms(0.001s)， 取值范围(0～64767)，即最大时间间隔不超过65秒。
		如：间隔时间为0.5秒是则Interval=500。 间隔时间为1秒则Interval=1000。
		Interval=0时，时钟控件失效。
Enabled	逻辑值	True：有效计时
		False：停止时钟工作

2.4 坐标刻度

坐标系的刻度取决于ScaleMode属性。

常数	设置值	描述
VbUser	0	指出ScaleHeight、ScaleWidth、ScaleLeft和ScaleTop属性中的一个或多个被设置为自定义的值
VbTwips	1	（缺省值）缇（每逻辑英寸为1440缇； 每逻辑厘米为567个缇）
VbPoints	2	磅（每逻辑英寸为72个磅）
VbPixels	3	像素（监视器或打印机分辨率的最小单位）
VbCharacters	4	字符（水平每个单位=120缇；垂直每个单位=240缇）
VbInches	5	英寸
VbMillimeters	6	毫米
VbCentimeters	7	厘米
VbHimetric	8	HiMetric
VbContainerPosition	9	控件容器使用的单位，决定控件位置
VbContainerSize	10	控件容器使用的单位，决定控件的大小

参考资料

http://www10.zzu.edu.cn/ie_wangjunfeng/daquan/property/content/ScaleMode.htm

缇：一个与屏幕无关的单位，用来保证屏幕应用程序对屏幕元素的定位和比例在所有的显示系统上的一致性。一缇等价于1/20个打印机的磅。一逻辑英寸大约有1440缇，一逻辑厘米约567缇（打印时的一英寸或一厘米所对应的屏幕上的长度）。

磅：在印刷术语中，一磅是1/72英寸。字体大小通常用磅来表达。

像素：即“图片元素”的简称，它是代表屏幕上的最小图形度量单位的点。像素是依赖于屏幕的，即屏幕元素的维数因显示系统和分辨率而异。

逻辑英寸问题 (The Logical Inch Problem )

http://chaoqunz.blog.163.com/blog/static/615487772008113094924627/

三、小球运动轨迹设计

3.1 小球直线运动

Height和Width决定了小球大小的属性，Top和Left决定了小球相对于容器的位置。显然，要让小球运动起来，就改变它的Top和Left属性。

先介绍容器的坐标

 

 小球在容器的相对位置关系

 

 想要改变小球的位置，只要改变小球的Top和Left属性。

假设小球运动轨迹符合f(x)=kx，设小球的坐位(T1,L1)，经过0.1s后，向后下方运动50刻度单位到(T2,L2)，显然存在等式：T1+50=T2，L1+50=L2。

3.2 小球碰到墙壁

    If Shape1.Top < 0 Then
        Shape1.Top = 0
        y_step = -y_step
    End If
    
    If Shape1.Left < 0 Then
        Shape1.Left = 0
        x_step = -x_step
    End If
    
    If Shape1.Left > Picture1.Width - Shape1.Width Then
        Shape1.Left = Picture1.Width - Shape1.Width
        x_step = -x_step
    End If

四、挡板运动轨迹设计

4.1 挡板键盘控制

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'触发Picture1对象的键盘按下事件，返回键盘的扫描码
'keycode 37 = Left
'KeyCode 38 = Up
'KeyCode 39 = Right
'KeyCode 40 = Down
    If KeyCode = 37 Then
        If Line1.X1 < 0 Then
            Line1.X1 = 0
            Line1.X2 = 1000
        Else
            Line1.X1 = Line1.X1 - degree
            Line1.X2 = Line1.X2 - degree
        End If
    End If
    If KeyCode = 39 Then
        If Line1.X2 > Picture1.Width Then
            Line1.X1 = 5000
            Line1.X2 = 6000
        Else
            Line1.X1 = Line1.X1 + degree
            Line1.X2 = Line1.X2 + degree
        End If
    End If
End Sub

4.2 挡板碰到墙壁

If Line1.X1 < 0 Then
   Line1.X1 = 0
   Line1.X2 = 1000

If Line1.X2 > Picture1.Width Then
   Line1.X1 = 5000
   Line1.X2 = 6000

五、挡板接住小球

5.1 判断挡板接住小球

    '接住小球，小球反弹
    '判断接住小球的情况
    '小球反弹的运动轨迹
    If Shape1.Left + 150 >= Line1.X1 And Shape1.Left + 150 <= Line1.X2 And Shape1.Top >= Line1.Y1 - Shape1.Height Then
        Shape1.Top = Line1.Y1 - Shape1.Height
        y_step = -y_step * 1.01
        x_step = x_step * 1.01
        Label2.Caption = Str(Val(Label2.Caption) + 1)
        If zgf < Val(Label2.Caption) Then
            zgf = Val(Label2.Caption)
        End If
    End If