修正过的版本

[此贴子已经被作者于2005-10-22 18:36:52编辑过]

反映太慢了……

这个游戏很容易玩，但是其中有一些 BUG，例如球碰到板的边沿也会 GAME OVER，另外球的速度要提高。

恩，恩，bug修正中ing~~~~~~~

小更新了一下

球板能否"与球俱进"?速度能否一致?PS: 过 100 次以后会怎么样?

要是板子的速度太快了岂不是就没有什么难度了阿？？过100次只是最后表扬你是个真正的男人，其他就没什么，不过在60次的时候还有一次加速，这个只是个demo的，有什么意见尽管提哦，会尽快改正的

不，我发现球板有一个 BUG，就是刚开始移动的时候会有一小段的延迟。

这个我也发现了，不过..............目前对于我来说解决起来还有一定的.........麻烦，尽量尽快修正吧.........

呵呵，其实我已经摸索到你的球板移动代码结构了:
Private Sub Form_KeyDown (...)
   If KeyDown = Asc("A") Then
     Ball.Left = Ball.Left - Speed
   ElseIf KeyDown = Asc("D") Then
     Ball.Left  = Ball.Left + Speed
   End If
End Sub
大约是这样的，对吗?
你可以这样来修正延迟BUG:
定义一个全局变量 direction, 然后把 KeyDown 代码改成:
   If KeyDown = Asc("A") Then
     direction = "L"
   ElseIf KeyDown = Asc("D") Then
     direction = "R"
  End If
然后定义 KeyUp 事件的代码:
direction = "'
最后在窗体上放一个 Timer 控件，把它的 Interval 设为 500 (关键的属性!它控制着球板的速度)，定义 Timer 事件代码:
   If direction ="L" Then
     Ball.Left = Ball.Left - Speed
   ElseIf direction = "R" Then
     Ball.Left  = Ball.Left + Speed
   End If
这样就解决延迟BUG了!
还有另一个更为直接的办法: 在控制面板的键盘设置中，设置延迟时间为 0 即可。