用VB编写.doc

用VB编写趣味撞球程序
　　 一只红色的小球在箱子中不停地弹跳,你要适当地移动下面的板子挡住,别让它掉下来。相信许多人都玩过这样的游戏,有没有想过自己编个来玩呢？
界面设计：新建一个工程,Form1的Caption属性设为“趣味撞球”,在Form1上放上一个图片框控件Picture1,一个图形控件Shape1,将Shape属性设为3,FillStyle属性设为0,FillColor属性设为“&H000000FF&”,即红色,Shape1显示为红色实心圆作小球,一个直线控件Line1,其BorderWidth属性设为3,当做板子；一个定时器Timer1,其Interval属性设为10,Enabled属性设为False,两个标签Label1 和Label2,其Caption属性分别为“得分”和“0”,再放两个命令按钮Command1和Command2,其Caption属性分别为“开始”和“退出”,设计好的界面如图。
程序代码：
Option Explicit
Dim x_step As Integer
Dim y_step As Integer
Private Sub Command1_Click()
　　Timer1.Enabled = Not Timer1.Enabled
　　'启动或停止定时器
　　If Command1.Caption = “暂停” Then
    　　Command1.Caption = “继续”
　　Else
    　　Command1.Caption = “暂停”
　　End If
End Sub
Private Sub Command2_Click()
    End
End Sub
Private Sub Form_Load()
　　x_step = 200
　　'设置小球运动的速度
　　y_step = 200
End Sub
Private Sub Picture1_KeyDown KeyCode As Integer, Shift As Integer
　　Select Case KeyCode
　　　　Case 37'如果按下左箭头,使板子向左移动
　　　　　　If Line1.X1 <= 0 Then
　　　　　　　　Line1.X1 = 0
　　　　　　　　Line1.X2 = 2000
　　　　　　Else
　　　　　　　　Line1.X1 = Line1.X1 - 100
　　　　　　　　Line1.X2 = Line1.X2 - 100
　　　　　　End If
　　　　Case 39'如果按下右箭头,使板子向右移动
　　　　　　If Line1.X2 >= Picture1.Width Then
　　　　　　　　Line1.X2 = Picture1.Width
　　　　　　　　Line1.X1 = Picture1.Width - 2000
　　　　　　Else
　　　　　　　　Line1.X1 = Line1.X1 + 100
　　　　　　　　Line1.X2 = Line1.X2 + 100
　　　　　　End If
　　End Select
End Sub
Private Sub Timer1_Timer()
　　If Shape1.Top <= 0 Then Shape1.Top = 0:y_step = -y_step
　　'如果小球出了上边界便弹回
　　If Shape1.Left <= 0 Then Shape1.Left = 0:x_step = -x_step
　　'如果小球出了左边界便弹回
　　If Shape1.Left >= Picture1.Width - Shape1.Width Then Shape1.Left = Picture1.Width - Shape1.Width: x_step = -x_step
　　'如果小球出了右边界便弹回
　　If Shape1.Top >= Line1.Y1 - Shape1.Height And Shape1.Left >= Line1.X1 And Shape1.Left <= Line1.X2 Then
　　　　'如果小球撞在板子上,便弹回
　　　　Shape1.Top = Line1.Y1 - Shape1.Height
　　　　y_step = -y_step* 1.01   '速度增加
　　　　x_step = x_step* 1.01
　　　　Label2.Caption = Val(Label2.Caption) + 1
　　End If
　　Shape1.Top = Shape1.Top + y_step　　'使小球移动
　　Shape1.Left = Shape1.Left + x_step
　　If Shape1.Top >= Picture1.Height - Shape1.Height Then
　　　　MsgBox “你输了！”
　　　　Timer1.Enabled = False
　　　　Command1.Caption = “开始”
　　　　Shape1.Top = 1000
　　　　Label2.Caption = 0
　　End If
End Sub
按“F5”键运行,小球来回跳动起来,你招架得住吗？有意思吧,快试试呀！
　　知识点：这个程序的主要控件是Shape(形状控件)和Line(直线控件),这两个控件都是简单形状的控件。
　　Shape控件：主要属性有Shape、FillStyle、FillColor、Top和Left。Shape是用来设置图形样式的,有矩形、正方形、椭圆形、圆形、带圆角的矩形和正方形等等；FillStyle用来设置填充的样式,如设为“1”,即Transparent,便为一个透明即空心的图形,而“6”即为方格填充,还可以设置为斜线、水平线、垂直线填充；FillColor用来设置填充的颜色；Top和Left属性用来设置Shape控件的位置,在该例中,用来控制小球的移动和判断是否达到了反弹的条件。
　　Line控件：主要属性有Style、BorderWidth和X1、X2、Y1、Y2。我们可以通过BorderWidth来设置直线的宽度,默认为“1”,最小为“1”；Style主要是用来设置直线的样式,如虚线、点划线等等,注意：只有当BorderWidth设置为“1”时,才能选择不同的直线样式,BorderWidth大于1时,只能画出普通直线。X1、X2、Y1、Y2是用来设定直线的位置和长度的,在本段程序中,就是通过这几个属性来控制直线的移动的。