Hallo Forum,
ich habe eine For Each Schleife in der ich Objekte in diese Aufzählung einfüge. Nach dem Einfügen eines Objektes steigt der Debugger beim Next oder For Each aus.
Ich habe gelesen dass dies normal ist, aber durch eine Einstellung im "iEnumerable" denoch möglich ist. Leider finde ich keine Beschreibung darüber. Ich hoffe ihr könnt mir helfen.
Nachstehen der Code-Ausschnitt (die Abbruchzeilen sind fett):
lg heinz
Public Class Form1
'
' Beschreibt die Eigenschaften einer Station (Standort)
Structure StructStationen
Public Property nr As Integer 'Stationsnr
Public Property verkehrsmittel As Integer 'hat hier eine Haltestelle
Public Property nach As Integer 'fährt nach Station (0 ist keine Verbindung)
End Structure
'
Dim stationen As New List(Of StructStationen)
'
' Beschreibung der Eigenschaften einer Wegstrecke (von Station zu Station)
Structure StructWege
Public Property zugNr As Integer 'Zugnummer nach ...
Public Property station As Integer 'Position
Public Property vorgaenger As Integer 'Position des Vorgänger
Public Property vorgaengerVM As Integer 'Verkehrsmittel von Vorgänger zum Standort
Public Property nachfolger As Integer 'Position des Nachfolgers
Public Property nachvolgerVM As Integer 'Verkehrsmittel vom Standort zum Nachfolger
End Structure
' Auflistung aller möglichen Wegestrecken
Dim wege As New List(Of StructWege)
Dim wegeSelektiert As IEnumerable(Of StructWege)
'
' Variablen
Dim spielerPosition() As Int16 = {0, 0, 0, 0}
'------------------------------------------------------------------------------------------
'
' Mögliche Wege für nächsten Zug suchen und speichern
Private Sub ErstelleMöglicheWege(ByVal zugNr As Int16, ByVal vm As Int16)
' Alle möglichen Wege des Zuges selektieren
Dim moeglicheWege = From d In wege
Where (d.zugNr = zugNr)
Select d
' Für jeden Weg-Endpunkt die Weiterreise anhand des Verkehrsmittel prüfen
For Each item In moeglicheWege
' betroffene Station selektieren
Dim st As Int16 = item.station
Dim station = From b In stationen
Where b.nr = st
Select b
' Station auf weiteren Weg und Verkehrsmittel prüfen
For Each stat In station
If stat.nach > 0 And stat.verkehrsmittel = vm Then
' Station auf besetzt prüfen
If PruefeObBesetzt(stat.nach) Then
' neuen möglichen Weg speichern
StartWegeErstellen(zugNr + 1, stat.nach, st, 0, 0, 0)
End If
End If
Next
Next
End Sub
'
' Wege erstellen
Private Sub StartWegeErstellen(ByVal zugNr As Int16, ByVal station As Int16, ByVal vorgaenger As Int16, _
ByVal vorgaengerVM As Int16, ByVal nachfolger As Int16, _
ByVal nachvolgerVM As Int16)
wege.Add(New StructWege() With { _
.zugNr = zugNr, _
.station = station, _
.vorgaenger = vorgaenger, _
.vorgaengerVM = vorgaengerVM, _
.nachfolger = nachfolger, _
.nachvolgerVM = nachvolgerVM})
End Sub
'
' Prüfen ob Station von einen Spieler besetzt
Private Function PruefeObBesetzt(ByVal stat As Int16) As Boolean
PruefeObBesetzt = True
For i As Int16 = 0 To spielerPosition.Length - 1
If spielerPosition(i) = stat Then PruefeObBesetzt = False
Next
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
StartWegeErstellen(1, 7, 0, 0, 0, 0)
StationenEinlesen()
ErstelleMöglicheWege(1, 1)
End Sub
End Class
