小时候经典游戏用编的编写实例教程大全全.doc

这些游戏以前玩过吧，快下载看它们是怎么编写的！ 目录： ·编写趣味撞球小游戏 ·用VB6.0设计简易赛车游戏 ·Visual Basic小游戏：猜英雄 ·VB游戏写作技巧（1）秀图篇 ·VB游戏写作技巧（2）网络篇 ·VB 贪吃蛇 单人版游戏(一) ·VB 贪吃蛇 单人版游戏(二) ·VB 贪吃蛇 单人版游戏(三) ·VB 贪吃蛇 单人版游戏(四) ·用VB开发即时战略游戏 正文： 编写趣味撞球小游戏 文章来源： 沐风经典 文章作者： 佚名 　　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 X15 Then X=15 If XW－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 一旦程