VB弹珠游戏课程设计报告

Ⅰ 我制作了一个Vb的弹球游戏，请问如下Visual basic 6.0程序应该如何修改才可以使小木棒跑的更快点

修改下面的代码

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 '如果按下左箭头,使板子向左移动
If Line1.X1 <= Picture1.Left Then
Line1.X1 = Picture1.Left
Else
Line1.X1 = Line1.X1 - (200 + move_x)
Line1.X2 = Line1.X2 - (200 + move_x)

End If
Case 39 '如果按下右箭头,使板子向右移动
If Line1.X2 >= Picture1.Left + Picture1.Width Then
Line1.X2 = Picture1.Left + Picture1.Width
Else
Line1.X1 = Line1.X1 + (90 + move_x)
Line1.X2 = Line1.X2 + (90 + move_x)
End If
End Select
End Sub

把里面的数字200 和90加大即可，加多少你试试即可比如200改成400，90 改成180

Ⅱ vb课程设计报告存包柜

俺提供制作过程文档。

Ⅲ vb程序设计 弹球

速度用timer控制，运动记录方向，碰壁后有入射角=反射角，改变方向，变色。

Ⅳ vb大神救命啊，要用VB做弹球游戏！！球死都不会动啊

Ⅳ vb课程设计实验报告

发消息给你了

Ⅵ 求VB课程设计报告 贪吃蛇

我帮你发个 但技术有限 自己改改

Ⅶ 如何使用VB6.0设计一个弹球的游戏,

加一个,timer1
Option Explicit
Private Const BallR = 200
Private Const BallD = 2 * BallR + 1
Private CurX As Single
Private CurY As Single
Private OldX As Single
Private OldY As Single
Private VelX As Single
Private VelY As Single
Private Xmax As Single
Private Ymax As Single
Private Sub DrawBall()
OldX = CurX
OldY = CurY
Me.picture1.FillColor = &HEE00CC
Me.picture1.FillStyle = 6

Me.picture1.Cls
picture1.Circle (CurX, CurY), BallR, vbRed
End Sub

Private Sub Form_Load()
Width = (Width - ScaleWidth) + picture1.Width
Height = (Height - ScaleHeight) + picture1.Height

Xmax = picture1.ScaleWidth - BallR
Ymax = picture1.ScaleHeight - BallR

Randomize
CurX = Int((Xmax - BallR + 1) * Rnd + BallR)
CurY = Int((Ymax - BallR + 1) * Rnd + BallR)
OldX = CurX
OldY = CurY
VelX = Int((40 - 20 + 1) * Rnd + 20)
VelY = Int((40 - 20 + 1) * Rnd + 20)

DrawBall
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub timer1_Timer()
CurX = CurX + VelX
If (CurX > Xmax) Then
CurX = Xmax
VelX = -VelX
' Beep
ElseIf (CurX < BallR) Then
CurX = BallR
VelX = -VelX
' Beep
End If

CurY = CurY + VelY
If (CurY > Ymax) Then
CurY = Ymax
VelY = -VelY
' Beep
ElseIf (CurY < BallR) Then
CurY = BallR
VelY = -VelY
' Beep
End If

DrawBall
End Sub

Ⅷ 求大神用vb帮忙编写一个简单的弹球小游戏

这个简单,就是
1：无偿懒得做；2：即使写了也可能是无视不采纳，早没积极性了。

Ⅸ 求VB设计一个掷骰子的小游戏

大富翁系列

Ⅹ VB课程设计和报告

欢迎看一下我的计算器，
有程序界面，
你可以参考一下，添加运算功能。
http://hi..com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html

说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中

End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a
b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b
If txtfuhao.Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao.Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao.Text = "÷" Then '运算过程
c = a / b '运算过程
ElseIf txtfuhao.Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc.Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '将空字符输入到文本框内（刷新）
txtb.Text = "" '将空字符输入到文本框内（刷新）
txtc.Text = "" '将空字符输入到文本框内（刷新）
txtfuhao.Text = "" '将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub

参考资料：http://hi..com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html

要的话请发邮件到：[email protected] 叫我要，我再发到你的邮箱里！