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] 叫我要，我再發到你的郵箱里！