如何加速用 VB.NET 制作的游戏答案

【问题标题】：How to Speed Up A Game made in VB.NET如何加速用 VB.NET 制作的游戏
【发布时间】：2012-04-20 03:05:30
【问题描述】：

正如标题所示，我想问一个关于我制作的游戏的问题，我想加快速度。这是一个很笼统的问题。所以这里是：我做了一个程序，你是一个圆圈，敌人是向你进攻的正方形。您按空格射击，每次击中都会获得积分，使用箭头键移动，还有拾音器等。

但是，我不再想使用这样绘制的占位符圆圈：

e.Graphics.FillEllipse(Brushes.Orange,Player)

这里的播放器是定义播放器的矩形。因此，为了尝试替换图形，我下载了地球（玩家）与宇宙飞船（敌人）的 JPEG 图像。我用它画的：

e.Graphics.DrawImage(ImgEarth,Player.X,Player.Y,Player.Width,Player.Height)

以及绘制敌人的相同技术。

但是，结果是移动非常缓慢的外星人。它不是一个慢计时器或任何东西（我在那里有大约 2 个同时工作），但 FPS 很差。这可能是我的系统，但当我检查时它只占用了大约 10MB 的内存。我知道 VB.NET 不是游戏制作的最佳选择，因为它不如其他一些语言（C++、C#）快，但是有什么方法可以在不牺牲 FPS 的情况下绘制这些？

如果有帮助，我有一个配备 GeForce 8400M GS 的 1.66 GHz 处理器。（在我看来，像这样简单的事情非常有能力）

编辑：我使用双缓冲。 Me.DoubleBuffered = True。 ImgEarth 是 310x310 图像。我会尝试缩小它，因为在表格上它被绘制为 50x50 - 好点。

好的，这是整个 Form1.Paint 过程。之后我会解释一切。

e.Graphics.DrawImage(ImageEarth, Player.x,Player.y,Player.Width,Player.Height)

        'Projectiles
        Dim i As Integer = 0
        Do
            If Current_Projectile(i).IsEmpty = False Then e.Graphics.FillRectangle(Brushes.Red, Current_Projectile(i))
            i += 1
        Loop Until i = UBound(Current_Projectile)

        i = 0

        Do
            If Advanced_Projectiles(i).IsEmpty = False Then e.Graphics.FillRectangle(Brushes.Green, Advanced_Projectiles(i))
            i += 1
        Loop Until i = UBound(Advanced_Projectiles)


        i = 0
        Do
            If Pickups(i).IsEmpty = False Then
                If PickUpType = 0 Then e.Graphics.FillEllipse(Brushes.Green, Pickups(i))
                If PickUpType = 1 Then e.Graphics.FillEllipse(Brushes.Red, Pickups(i))
                If PickUpType = 2 Then e.Graphics.FillEllipse(Brushes.Yellow, Pickups(i))
            End If
            i += 1
        Loop Until i = UBound(Pickups)
        'Objects
        i = 0


        Do
            If Objects(i).IsEmpty = False Then e.Graphics.FillRectangle(Brushes.Blue, Objects(i))
            i += 1
        Loop Until i = UBound(Objects)

好的。 Current_Projectile 是一个数组，用于存储有关玩家发射的射弹（子弹）的数据。然后，高级射弹是相同的，除了它发射的前者更“有效”版本。 Pickups 是一个数组，用于存储有关向玩家发射的拾取物的数据。它的颜色在另一个子程序中确定。最后，objects(i) 是一个数组，用于存储关于向你开火的敌人矩形的数据。

编辑 2：好的，认为你们可能需要 Timer.Tick 程序。

计时器称为 Tmr_Main，它处理游戏期间发生的大约 90% 的事情。它将大部分工作委托给各个子例程，但有些是在计时器本身中完成的。这是整个表单中第二复杂的代码块。这里是：

将 i 调暗为整数 = 0

CollisionDetect()
CheckForDead()

If ReadyToReset = True Then ResetInt += 1
If ResetInt = 80 Then
    ResetPowerUps()
    ReadyToReset = False
    ResetInt = 0
End If
'Projectiles(Bullets)
i = 0
Do
    If Current_Projectile(i).IsEmpty = False Then
        Current_Projectile(i).X += Projectile_Speed

        If Current_Projectile(i).X > Me.Width Then

            Current_Projectile(i) = Nothing
            No_Of_Projectiles -= 1
        End If

    End If

    i += 1

Loop Until i = UBound(Current_Projectile)
'Advanced Projectiles
i = 0

Do
    If Advanced_Projectiles(i).IsEmpty = False Then
        Advanced_Projectiles(i).X += AdvProjectile_Speed
    End If
    If Advanced_Projectiles(i).X >= Me.Width Then
        Advanced_Projectiles(i) = Nothing
    End If
    i += 1
Loop Until i = UBound(Advanced_Projectiles)

'Pickups
GeneratePickups()

i = 0
Do
    If Pickups(i).IsEmpty = False Then
        Pickups(i).X -= Pickup_Speed
    End If
    If Pickups(i).X < 0 Then
        Pickups(i) = Nothing
    End If
    i += 1
Loop Until i = UBound(Pickups)


LblScore.Text = "Score: " & Score
CheckForWin()



Me.Invalidate()

好的，再次从顶部解释所有内容。 CollisionDetect() 包含用于评估在整个游戏中击中了什么的逻辑。这包括播放器和拾取器、播放器和对象、对象和弹丸、对象和高级弹丸、对象和播放器。接下来，它评估是否使用了拾取器。当玩家击中拾音器时，布尔值设置为 true。这意味着此计时器的每次迭代都会将一个添加到变量ResetInt。当这达到 80 或 4 秒（50 毫秒计时器）时，拾取的效果被重置。此外，布尔值是假的，所以它不会再做同样的事情。

接下来，它移动表单上的所有对象。这些包括物体、射弹和拾音器。它还会检查他们是否已到达“路径”的尽头（即，如果弹丸向右移动足够远，则将其从游戏中移除）。

最后，它检查玩家是否赢了，并更新一个告诉玩家分数的标签。然后它重绘。

想法？

【问题讨论】：

与其说是语言（C# 和 VB.NET 同样“快”，因为它们是类似的 .NET 语言），不如说是用于渲染图形的技术。例如，您可以在 VB.NET 中为 XNA（这是一个开发游戏的平台）编写代码，您的游戏将运行得更快，因为 Windows 窗体中的 GDI+ 绘图不是为游戏而设计的，并且不利用显卡，因为例子。
如上所述，XNA 会是更好的选择。但是，为了改进您当前的应用程序，我的想法是如何处理ImgEarth。你能在你的代表行周围包含更多代码吗？甚至添加整个 OnPaint 覆盖（或您用于绘图的其他方法）？
你的图片有多大？相对于你画的有多大。这可能是一个缩放问题。如果图像大得多，您可以尝试将其缩放到您想要预先绘制的大小。否则，每次重绘时都必须对其进行缩放。
这样简单的图形绘制应该不会有任何性能问题——即使在 WinForms 中也是如此。听起来他只需要在几乎所有地方进行优化，甚至可能减轻 UI 线程的负载。你能告诉我们更多关于游戏逻辑和你所有绘画的信息吗？您还需要使用分析器
虽然图形的制作方式可能是最大的因素，但一个便宜的做法是使用Option Strict On。（见codinghorror.com/blog/2005/08/…）。

标签： vb.net optimization

【解决方案1】：

尝试一些想法...

(1) 使用Option Strict On 至少可以引导您避免任何低效的自动类型转换。

(2) 使用For i = 0 To UBound( ... ) - 1 代替Do ... Loop Until i = UBound( ... )（除非您真的希望数组可能在循环期间添加或丢失元素）； For 将只调用一次UBound，而Do 将在每次迭代时调用它。更好的是，为什么不使用数组的Length 成员而不是UBound？

(3) 对于那些测试 PickUpType 的 If 语句，请使用 If-ElseIf 阶梯：

If PickUpType = 0 Then 
    e.Graphics.FillEllipse(Brushes.Green, Pickups(i)) 
ElseIf PickUpType = 1 Then 
    e.Graphics.FillEllipse(Brushes.Red, Pickups(i)) 
ElseIf PickUpType = 2 Then 
    e.Graphics.FillEllipse(Brushes.Yellow, Pickups(i)) 
End If

毕竟，如果PickUpType = 0，为什么要浪费时间在PickUpType = 1 和PickUpType = 2 上？

(4) 试验With (http://msdn.microsoft.com/en-us/library/wc500chb(v=vs.100).aspx)。而不是：

If Advanced_Projectiles(i).IsEmpty = False Then 
    Advanced_Projectiles(i).X += AdvProjectile_Speed 
End If

试试：

With Advanced_Projectiles(i)
    If Not .IsEmpty Then 
        .X += AdvProjectile_Speed 
    End If 
End With

(5) 如果您使用 Microsoft.VisualBasic 命名空间之外的任何东西（不是常量）（例如 UBound），请尝试在框架的更“标准”部分中找到一种方法来完成相同的操作。 Microsoft.VisualBasic 可能具有您可能不需要的其他层或 VB6 怪癖。

【讨论】：

【解决方案2】：

您应该使用双缓冲。在这里，您可以对内存中的位图执行所有绘画和绘图，以响应游戏事件等。然后在 OnPaint 中，您对该后台缓冲区的屏幕执行单个 blit。

【讨论】：