老式 Pong

• 下载源代码 - 93.9 KB

引言

我当时震惊地看着一些 VB6 教程，学习如何制作 Pong 游戏。教程中展示了一些糟糕的函数、库以及我无法理解的东西。所以我认为我可以将代码简化到我经验水平的程序员能够理解的程度。我开始从头编码，几天后，我成功地完成了任务……

背景

嗯，我想很多人都玩过 Pong……它就是经典。但在我的解决方案中，有一些棘手的部分，比如控件——它们是带有前缀“&”的按钮。当设置控件部分时，你可能会注意到，如果你删除控件前的“&”字符，它将无法工作……

Using the Code

正如我之前提到的，这段代码没什么特别的。我用“Left”属性替换了`currenX`位置，用“Top”属性替换了`currentY`。

这里是代码片段

'timer sub 
If Ball.Top = 0 Then optDown.Checked = True
If Ball.Top = 264 Then optUp.Checked = True
If optUp.Checked = True Then Ball.Top = Ball.Top - 1
If optDown.Checked = True Then Ball.Top = Ball.Top + 1
If optLeft.Checked = True Then Ball.Left = Ball.Left - 1
If optRight.Checked = True Then Ball.Left = Ball.Left + 1
If Ball.Left < -20 Then lblP2Score.Text = lblP2Score.Text + 1
If Ball.Left > 408 Then lblP1Score.Text = lblP1Score.Text + 1

关注点

当我完成它时，我非常兴奋，因为我了解了一种新的移动对象的方法。而且我终于做了一个让我赚到钱的应用 :D

历史

我会关注你们的改进建议。如果您想联系我 - 我的邮箱是 buffallo@abv.bg。