.net 如何缩短代码?

.net 如何缩短代码?,.net,vb.net,visual-studio-2010,organization,.net,Vb.net,Visual Studio 2010,Organization,我现在有一个巨大的代码,用于在一个游戏中重新生成一些东西。代码非常大,我认为它可以被压缩,但我不知道怎么做。这是密码 私人代理 正如您所见,这是一堆代码。创建一个函数并将硬币传递到其中: Sub DoStuff(z as coin) z.Location = zloc z.Hide() zloc = New Point(RandomNumber(playspace.Width), RandomNumber(playspace.Height)) If zloc.Y

我现在有一个巨大的代码,用于在一个游戏中重新生成一些东西。代码非常大,我认为它可以被压缩,但我不知道怎么做。这是密码 私人代理


正如您所见,这是一堆代码。

创建一个函数并将硬币传递到其中:

Sub DoStuff(z as coin)
     z.Location = zloc
    z.Hide()
    zloc = New Point(RandomNumber(playspace.Width), RandomNumber(playspace.Height))
    If zloc.Y > 595 Then
        zloc = New Point(RandomNumber(playspace.Width), RandomNumber(playspace.Height))
    End If
    z.Location = zloc
    z.Show()
End Sub
然后从别处打电话

DoStuff (coin1)
DoStuff (coin2)
DoStuff (coin3)

您可能还想阅读有关阵列的内容…

您听说过阵列吗?看起来您遵循的是干式原理。我对这方面还不熟悉,所以我需要帮助。我知道一些数组,但不是很好,我不知道如何使z变量每次都改变,我认为Codereview更适合这个。我认为你真的需要学习使用谷歌来学习编码,然后再在这里发布。这似乎是可行的,但我在突出显示coin一词时出现了一个错误(Byval z作为coin),该词表示没有定义类型coin。你需要创建一个coin类。或者根据需要修改此处建议的代码,使其适用于您。将
(z as coin)
更改为
(z as)
我修复了它!我把函数z作为对象,现在我的代码只有50行,谢谢!!
DoStuff (coin1)
DoStuff (coin2)
DoStuff (coin3)