有没有办法轻松循环对象？

Question

我想对照其他所有坐标列表检查对象的坐标列表。我之前是这样写的：所有这些都是Ship对象，而CheckForCollisions在Ship类中。

'AIR CRAFT CARRIER
 If AirCraftCarrier.has_moved And Battleship.has_moved Then
    AirCraftCarrier.CheckForCollisions(Battleship)
 ElseIf AirCraftCarrier.has_moved And Submarine.has_moved Then
    AirCraftCarrier.CheckForCollisions(Submarine)
 ElseIf AirCraftCarrier.has_moved And Destroyer.has_moved Then
    AirCraftCarrier.CheckForCollisions(Destroyer)
 ElseIf AirCraftCarrier.has_moved And PatrolBoat.has_moved Then
    AirCraftCarrier.CheckForCollisions(PatrolBoat)
 End If

'BATTLESHIP
If Battleship.has_moved And AirCraftCarrier.has_moved Then
    Battleship.CheckForCollisions(AirCraftCarrier)
ElseIf Battleship.has_moved And Submarine.has_moved Then
    Battleship.CheckForCollisions(Submarine)
ElseIf Battleship.has_moved And Destroyer.has_moved Then
    Battleship.CheckForCollisions(Destroyer)
ElseIf Battleship.has_moved And PatrolBoat.has_moved Then
    Battleship.CheckForCollisions(PatrolBoat)
End If
'etc., there's 3 more that look exactly this this.

但我肯定更愿意使用循环来执行此操作。这甚至都没有用。它只会检查第一艘船（AirCraftCarrier 对象），然后忽略其余的。只有与 ACC 相撞的船才会注册，如果它们互相相撞，什么都不会发生。

这是我写的一个例子来尝试自己实现它。我正在考虑使用 id 并遍历它们，但我不知道该怎么做。有没有什么概念可以介绍给我，你认为对我有帮助？

Public Class Main
    Dim acc As Ship
    Dim bs As Ship
    Dim sm As Ship
    Dim ds As Ship
    Dim pb As Ship

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        acc = New Ship(1, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}})
        bs = New Ship(2, {{0, 4}, {1, 4}, {2, 4}, {3, 4}})
        sm = New Ship(3, {{4, 5}, {4, 6}, {4, 7}})
        ds = New Ship(4, {{3, 6}, {4, 6}, {5, 6}})
        pb = New Ship(5, {{7, 7}, {7, 8}})
    End Sub

End Class
Public Class Ship

    Dim _id As Integer
    Public Property id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Dim _magnitude(,) As Integer
    Public Property magnitude As Integer(,)
        Get
            Return _magnitude
        End Get
        Set(ByVal value As Integer(,))
            _magnitude = value
        End Set
    End Property

    Public Sub New(ByVal idp As Integer, ByVal magnitudep As Integer(,))
        id = idp
        magnitude = magnitudep
    End Sub

End Class

Answer 1

你能做这样的事情吗？

'A list of all the ships
Dim ships As Ship() = _
    { AirCraftCarrier, Battleship, Submarine, _
        Destroyer, PatrolBoat}

Dim query = _
    From ship1 in ships ' iterate thru the ships
    From ship2 in ships ' iterate thru the ships
    Where ship1 <> ship2 ' keep only if both ships are not the same ship
    Where ship1.has_moved 'keep if ship1 has moved
    Where ship2.has_moved 'keep if ship2 has moved
    Select New With { ship1, ship2 }

For Each s in query
    ' for each pair of moved ships check for collision
    s.ship1.CheckForCollisions(s.ship2)
Next