Hallo,
ich versuche gerade (möchte gern wissen ob es geht) das wenn sich ein Wert eines Objekts in einer Liste auf die Werte anderer Objekte der selben liste auswirken können.
Das heißt, wenn ich einen Wert vom Objekt 2 änder, Objekt 4 und 5 das mitbekommen können?
Meinen letzen versuch habe ich mal auskommentiert(nicht wundern)
Spoiler anzeigen
ich versuche gerade (möchte gern wissen ob es geht) das wenn sich ein Wert eines Objekts in einer Liste auf die Werte anderer Objekte der selben liste auswirken können.
Das heißt, wenn ich einen Wert vom Objekt 2 änder, Objekt 4 und 5 das mitbekommen können?
Meinen letzen versuch habe ich mal auskommentiert(nicht wundern)
VB.NET-Quellcode
- Dim n As New neuronalesNetz(2, 1)
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- 'n.Netz(0).NeuerWert = 3
- End Sub
- Public Class neuronalesNetz
- Public Netz As New List(Of Neuron)
- Public Sub New(ByVal input As Integer, ByVal output As Integer)
- For i As Integer = 1 To input
- Dim nNeuron As New Neuron With {.index = Netz.Count, .nort = 0, .Wert = 0}
- Netz.Add(nNeuron)
- Next
- For i As Integer = 1 To output
- Dim nNeuron As New Neuron With {.index = Netz.Count, .bNetz = Netz, .nort = 1, .Wert = 1}
- Netz.Add(nNeuron)
- Next
- End Sub
- End Class
- Public Class Neuron
- Public index As Integer
- 'Public bNetz As New List(Of Neuron)
- Public ort As Integer
- Public Wert As Double
- 'Event _show As EventHandler
- Public Property nort() As Integer
- Get
- Return ort
- End Get
- Set(ByVal value As Integer)
- ort = value
- 'If index > 0 Then
- ' For Each nn As Neuron In bNetz
- ' If bNetz(0).ort < ort Then
- ' 'MsgBox(index)
- ' AddHandler _show, New EventHandler(AddressOf nn.change)
- ' 'MsgBox(nn.index)
- ' End If
- ' Next
- 'End If
- End Set
- End Property
- Public Property NeuerWert() As Double
- Get
- Return Wert
- End Get
- Set(ByVal value As Double)
- Wert = value
- 'RaiseEvent _show()
- End Set
- End Property
- 'Public Sub change()
- 'MsgBox(index)
- 'End Sub
- End Class
In Arbeit...