VB闯关游戏代码（趣味撞球），一关比一关难的那种

准备六张以上的图片。

编程算法：

1、点击开始按钮（或者叫第一关），随机产生一张图片，以及价格（设置一变量来存储这个价格），开始计时，用timer控件控制，时间间隔设置成1秒

2、让用户猜价格（可在文本框中输入价格数字，再来个猜价格按钮），然后与上面的价格比较，给出高了或者低了提示。如果没有猜对，则所猜次数加1

3、可以根据游戏趣味性，选择所猜次数限制和时间限制袜桐，以复选框表示，并在后面加上限制次数或者时间秒数

4、猜对后，计时停止，提示恭喜您，猜对了。进入第耐枝二关，或者重新开始。上面的参数变量清零或者清空

备注：编写一个程序，关键是算法，只要算法清楚了，代码就很简单了。因为昌好敏程序就是等于算法+代码

帮你改好了

出错的原因是并猜shuiping,chuizhi=1不能放在timer里面，要不然每次timer后都会变回来

还有貌似灶坦你有几句话是没用绝辩型的啊，我给你删掉了

Dim Shuiping As Integer, Chuizhi As Integer

Private Sub Form_Load()

Shuiping = 1

Chuizhi = 1

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + Shuiping * 50

Shape1.Top = Shape1.Top + Chuizhi * 50

If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Or Shape1.Left <= 0 Then Shuiping = -Shuiping

If Shape1.Top >= Form1.ScaleHeight - Shape1.Height Or Shape1.Top <= 0 Then Chuizhi = -Chuizhi

End Sub

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

希望你能把问题说得详细一些,怎样叫自由运动?是随机运动?还是受某些力(如重力)的影响,是否有惯性?

下面一段程序是从我以前的一个练习程序中提取的，有一些改动，以满足题目。

Private Cosnt LIMIT_TOP = ?

Private Cosnt LIMIT_BUTTOM = ?

Private Cosnt LIMIT_LEFT = ?

Private Cosnt LIMIT_RIGHT = ?

'设置运动范围

Private PI = 3.14159 '定义Pi(求三角函数用弧度作单位,所以需要Pi)

Private Const MOVE_SPEED = 10 '设置移动速度

Private Const TURN_SPEED = 4 '设置转弯速度

Private Const MOVE_STEPS = 9 '设置每走9步转一次小弯

Private Const TURN_STEPS = 50 '设置每走50步改变一次转弯方向

Private Sub Timer1_Timer()

Static Direct As Long, n As Long, Turn As Long

'Direct 运动方向；n 计数，每走n步饥如稿改变一次转弯方向，它的使用使得运动看起来比较平滑； Turn转弯方向

n = n + 1

If n = TURN_STEPS Then

n = 0

Randomize

Turn = TURN_SPEED * (Int(Rnd * 3) - 1)

End If

'每走50步随机产烂孝生转弯的方向

If n Mod MOVE_STEPS = 0 Then

Direct = Direct + Turn

If Direct <0 Then Direct = Direct + 2*PI

If Direct >2*PI Then Direct = Direct - 2*PI '换算，使角度始终在函数定义域内

End If

'每走9步软一次小弯

Call Sphere.Move (Sphere.Left + Cos(Dire ) * MOVE_SPEED, Sphere.Top - Sin(Dire) * MOVE_SPEED)

'移动小球

If Sphere.Top <LIMIT_TOP Then

Dire = 1.5*PI

ElseIf Sphere.Top >LIMIT_BOTTOM Then

Dire = 0.5*PI

ElseIf Sphere.Left <LIMIT_LEFT Then

Dire = 0

ElseIf Sphere.Left >LIMIT_RIGHT Then

Dire = PI

End If

'判断小球是否到达边界，如到达边界，则改变方向橡丛

End Sub

---