VB教程

VB教程网https://www.360docs.net/doc/3a19196435.html,/VBjc/Vb.HTM

编写趣味撞球小游戏

文章来源：沐风经典文章作者：佚名

Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。

首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。

现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。

然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控件是否激活，后一个值决定该时钟控件产生Timer事件的间隔时间，我们将用它来控制小球的移动频率。

到此为止，我们已经完成了全部的界面设计工作。接下来要做的全部工作就是填入程序

代码了。

Dim BallX As Integer

Dim BallY As Integer

Dim AddX As Integer

Dim AddY As Integer

Dim HitX As Integer

Dim W As Integer

Dim H As Integer

Private Sub Command1_Click()

BallX=Int(Rnd(1)＊Form1.ScaleWidth/10)＊5＋25

BallY=Int((Form1.ScaleHeight)/10)＊5

AddX=－5

AddY=－5

Form_Paint

Timer1.Enabled=True

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) X=X－50

If X<15 Then X=15

If X>W－105 Then X=W－105

HitX=X

If Timer1.Enabled=True Then

Line(16,H－5)－(W－6,H),＆HC0C0C0,BF Line(HitX,H)－(HitX＋100,H－5),0,BF End If

End Sub

Private Sub Form_Paint()

Cls

W=Int((ScaleWidth－140)/5)＊5

H=Int((ScaleHeight－10)/5)＊5 BackColor=＆HC0C0C0

Line(10,10)－(15,H),0,BF

Line(W－5,10)－(W,H),0,BF

Line(10,10)－(W,15),0,BF

End Sub

Private Sub Timer1_Timer()

Form1.Circle(BallX,BallY),4,＆HC0C0C0 BallX=BallX＋AddX

BallY=BallY＋AddY

Form1.Circle(BallX,BallY),4,0

If BallX<=20 Then AddX=－AddX

If BallY<=20 Then AddY=－AddY

If BallX>=W－10 Then AddX=－AddX

If BallY>=H－10 Then

If BallXHitX＋100 Then

Timer1.Enabled=False

Form_Paint

End If

AddY=－AddY

End If

End Sub

一旦程序代码输入完毕，你就可以按F5开始执行它，或是在File菜单里选取Make来生成EXE执行文件了，瞧，小球已经在你的屏幕上蹦来蹦去了。

本文来自编程入门网：https://www.360docs.net/doc/3a19196435.html,/VBjc/vbyx/yx1.htm

用VB6.0设计简易赛车游戏

文章来源：programfan 文章作者：yaozheng

简单的游戏往往更耐玩，就比如伴我度过高考的赛车游戏：一切都是方块，所谓的赛车也只是四个方块。

第一步，绘制对象：用函数drawcar()画赛车，drawway(n)画跑道的第n层。

第二步，接受控制：Form的KeyPreview属性要设为true，在Form_KeyPress函数中通过改变全局变量cx来控制赛车的位置。

第三步，游戏循环：作为即时游戏，必须要有一个Timer，并在其事件Timer1_Timer()

中绘制所有对象和进行碰撞检测。本例中，绘图部分写在了Timer1_Timer()中，碰撞测试放在了test()中。

……这也是所有即时游戏所共通的框架。当然，我们往往还是根据具体的设计作一些变通，发挥一些技巧……比如这里设计的跑道是随机产生的的，这就要通过一点技巧以便既让玩家感到挑战，又不至于出现不可逾越的难关……

下面是全部源代码，窗体上只需放个按钮Command1就行了！

Const D = 100 '方格的宽度

Const BT = 3000 '跑道底部的y坐标

Dim l1(22) As Integer '每层跑道左边有几个方块

Dim l2(22) As Integer '每层跑道右边有几个方块

Dim cx As Single '赛车的在x轴的位置

Private Sub Command1_Click()

cx = Width / 2 - 3 * D / 2

cy = Height - D

drawcar

For i = 1 To 20

l1(i) = 0

l2(i) = 0

drawway (i)

Next i

Timer1.Enabled = True

End Sub

Private Sub drawcar()

Line (cx, BT - 100)-Step(3 * D, D), BackColor, BF

Line (cx + D, BT - 200)-Step(D, D), BackColor, BF '先擦

Line (cx, BT - 100)-Step(3 * D, D), RGB(225, 0, 0), BF

Line (cx + D, BT - 200)-Step(D, D), RGB(225, 0, 0), BF

End Sub

Private Sub drawway(n)

Line (Width/2-3*D/2-2*D,BT-n*D)-Step(7*D,D),BackColor, BF

'先擦后画

Line (Width/2-3*D/2-2*D,BT-n*D)-Step(l1(n)*D, D), ,BF

Line (Width/2-3*D/2+5*D,BT-n*D)-Step(-l2(n)*D,D), ,BF

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case Asc("a"), Asc("A")

cx = cx - D

Case Asc("s"), Asc("S")

cx = cx + D

End Select

End Sub

Private Sub Timer1_Timer()

Randomize

For i = 1 To 19

l1(i) = l1(i + 1)

l2(i) = l2(i + 1)

drawway (i)

Next i

Do

l1(20) = Int(Rnd * 5)

l2(20) = Int(Rnd * 5)

Loop Until ((l1(20) + l2(20) <= 4) And (l1(20) - l1(19) <= 1) And _ (l2(20) - l2(19) <= 1) And (l1(19) + l2(20) <= 4) And _

(l1(20) + l2(19) <= 4)) '这里生成新一层跑道，

'注意要筛去玩家不可能通过的情况！

drawway (20)

'以上画出跑道

drawcar

test

End Sub

Private Sub test()

If 3.5*D-Width/2+cx

If 3.5*D-Width/2+cx+D

If 3.5*D-(cx+3*D-Width/2)

End Sub

本文来自编程入门网：https://www.360docs.net/doc/3a19196435.html,/VBjc/vbyx/yx2.htm

Visual Basic小游戏：猜英雄

文章来源：电脑报文章作者：游侠

相信不少读者都看过央视的《水浒》吧，林冲、武松、李逵等英雄好汉的音容笑貌仿佛还浮现在我的眼前，那么108将中你最喜欢谁呢？我做了一个小程序来让电脑猜测你的心思，程序界面如图所示。

为了简化问题，我选择了其中的27将，将他们分成3组，每组9人。如果你最喜欢其中的一个（比如史进），他在第一组出现了，那么就按下按钮“第一组”。然后这27将会重新排列顺序，你再找史进在哪一组，比如发现他在第二组，就按下按钮“第二组”，画面中的人物次序会再次打乱，再找史进所在组别……最多3次，电脑将会猜出你心中的英雄！

知道了玩法，下面我将介绍程序是如何实现的：

一、猜测的奥妙——推算原理

猜测的原理其实也不复杂，我们来模拟一下猜测的过程大家就清楚了。程序初始化时是把1～27将随机打乱分别放入PageControl控件的三个选项卡中，每个选项卡放9张图片。点击一次按钮后其实不是盲目地将顺序打乱，而是进行了筛选，把有用的图片（就是点选的那组的9张图片）筛选出来平均分配到PageControl控件的三个选项卡中，再把不需要的图片集中起来平均分配到PageControl控件的三个选项卡中，最后在各个选项卡中把有用的、无用的图片随机打乱再次重新排列显示出来，从而完成猜测。用表1来说明：

点击按钮的次数选项卡1 选项卡2 选项卡3

1 3 3 3

2 1 1 1

3 0 0 0

具体讲，当第一次按下按钮时，表示你相中的图片在其中一个选项卡的9张图片内。于是把这9张图片均分成3份，每份3张，分别送入3个选项卡，其余的图片就不做考虑了。当第二次按下按钮时，表示你相中的图片在其中一个选项卡的3张图片内，于是把这3张图片均分成3份，每份1张，分别送入3个选项卡，当第三次按下按钮时，表示你相中的图片在其中一个选项卡的1张图片内，毫无疑问，这张图片就是你相中的图片，于是程序把这张图片显示出来。

打乱重排的算法

在程序中的很多地方要涉及打乱顺序重排的问题，下面我们就来先简单介绍一下打乱是如何实现的。

这里要实现的方法是比较简单的，也就是多次把数组的不同位置的值互换，就像读小学时老师让两个同学互换位置一样，老师不断随机抽两个同学互换位置，最后同学们的座位就都重新排了一遍。

举个例子：

int I,temp1,temp2,a[2],b[27]

for(i=1;i<=27;i++)//先对数组赋初值

b[i]=I;

randomize();

for(i=1;i<=500;i++)//i的大小决定打乱的程度，循环次数越多，打乱程度越高

{

temp1=random(27)+1;

temp2=random(27)+1;

a[1]=b[temp1];

b[temp1]=b[temp[2];

b[temp2]=a[1];

}

//输出

ListBox1->Clear();

for(i=1;i<=27;i++)

ListBox1->Items->Add(IntToStr(b[i]));

如上例所示，经过打乱，b[27]数组将不再是旧时容颜。

二、实现的关键——筛选算法的介绍

在整个实现的过程中，如何在每一次打乱后对人物进行筛选是程序的关键所在，处理不好，程序就不会有结果。而且筛选很容易把你搅得头晕脑胀，所以涉及的各个数组之间的关系一定要先理顺，先用一个例子来解释如何进行筛选。以点击按钮的次数是第一次并且点击的按钮是Button1为例加以介绍，其思路如下：

初始：

第一次执行按钮事件并且按下的是Button1时(表a的数组就是关键数组)：

把表a打乱后平均拆分为3组分别送入内存缓冲区

把表b和表c打乱后也平均拆分为3组分别送入内存缓冲区（非重要的数组），然后将它们进行组合，分别把有用的和无用的搭配重新组合为三张表并显示出来：

把全部的筛选过程表述出来：

1.初始化：

把a[1-27]打乱并将

a[1-9] 赋给first[1-9]

a[10-18] 赋给second[1-9]

a[19-27] 赋给third[1-9]

2.第一次按钮事件（假设选中的是第二个选项卡）

second[1-9]打乱后赋给temp1[1-3]、temp2[1-3]、temp3[1-3]

a[1-9]+a[19-27]赋给temp4[1-18] 并打乱

temp1[1-3]＋temp4[1-6]赋给first[1-9]并打乱

temp2[1-3]＋temp4[7-12]赋给second[1-9] 并打乱

temp3[1-3]＋temp4[13-18]赋给third[1-9] 并打乱

3.第二次按钮事件（假设选中的是第二个选项卡）

temp2[1-3]打乱后赋给temp5[1]、temp6[1] 、temp7[1]

temp1[1-3]+temp3[1-3]+temp4[1-18]赋给temp8[1-24]并打乱

temp5[1]＋temp8[1-8]赋给first[1-9] 并打乱

temp5[2]＋temp8[9-16]赋给second[1-9] 并打乱

temp5[3]＋temp8[17-24]赋给third[1-9] 并打乱

4.第三次按钮事件（如果选中的是第二个选项卡）

把temp5[2]所对应的图片显示出来即可。

最后分别把表a—表c打乱后显示出来即可。进行二次、多次筛选的方法都一样，只是要注意相中的好汉在哪个数组里面，千万别搞错就行了。

三、小结

最后的工作就比较简单了。可以设计一个友好的界面，然后在程序启动的时候对数组赋初值，并显示出来；对每个按钮分别先进行次数判断，然后进行前面讲述的处理，不断筛选直到剩下惟一的好汉后就可以显示在界面的正下方了。

本文来自编程入门网：https://www.360docs.net/doc/3a19196435.html,/VBjc/vbyx/yx3.htm