network.vb

neural networks applications

    <XmlRoot(ElementName:="Neuron", Namespace:=Declarations.SchemaVersion, IsNullable:=False), Serializable()> _
    Public Class Neuron

        '*********************** Name attribute ***********************
        <XmlAttributeAttribute(AttributeName:="Name", Form:=XmlSchemaForm.Unqualified, DataType:="string", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Name As String

        <XmlIgnore()> _
        Public Property Name() As String
            Get
                Name = __Name
            End Get
            Set(ByVal Value As String)
                __Name = Value
            End Set
        End Property

        '*********************** Bias element ***********************
        <XmlElement(ElementName:="Bias", IsNullable:=False, Form:=XmlSchemaForm.Qualified, DataType:="double", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Bias As Double

        <XmlIgnore(), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __BiasSpecified As Boolean

        <XmlIgnore()> _
        Public Property Bias() As Double
            Get
                Bias = __Bias
            End Get
            Set(ByVal Value As Double)
                __Bias = Value
                __BiasSpecified = True
            End Set
        End Property

        '*********************** Output element ***********************
        <XmlElement(ElementName:="Output", IsNullable:=False, Form:=XmlSchemaForm.Qualified, DataType:="double", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Output As Double

        <XmlIgnore(), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __OutputSpecified As Boolean

        <XmlIgnore()> _
        Public Property Output() As Double
            Get
                Output = __Output
            End Get
            Set(ByVal Value As Double)
                __Output = Value
                __OutputSpecified = True
            End Set
        End Property

        '*********************** Delta element ***********************
        <XmlElement(ElementName:="Delta", IsNullable:=False, Form:=XmlSchemaForm.Qualified, DataType:="double", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Delta As Double

        <XmlIgnore(), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __DeltaSpecified As Boolean

        <XmlIgnore()> _
        Public Property Delta() As Double
            Get
                Delta = __Delta
            End Get
            Set(ByVal Value As Double)
                __Delta = Value
                __DeltaSpecified = True
            End Set
        End Property

        '*********************** Connections element ***********************
        <XmlElement(Type:=GetType(Connections), ElementName:="Connections", IsNullable:=False, Form:=XmlSchemaForm.Qualified, Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Connections As Connections

        <XmlIgnore()> _
        Public Property Connections() As Connections
            Get
                If __Connections Is Nothing Then __Connections = New Connections()
                Connections = __Connections
            End Get
            Set(ByVal Value As Connections)
                __Connections = Value
            End Set
        End Property

        '*********************** Constructor ***********************
        Public Sub New()
        End Sub
    End Class


    '--------------------------------------------------
    'Connections element
    '--------------------------------------------------
    <XmlRoot(ElementName:="Connections", Namespace:=Declarations.SchemaVersion, IsNullable:=False), Serializable()> _
    Public Class Connections

        <System.Runtime.InteropServices.DispIdAttribute(-4)> _
        Public Function GetEnumerator() As IEnumerator
            GetEnumerator = InputCollection.GetEnumerator()
        End Function

        Public Function Add(ByVal obj As Input) As Input
            Add = InputCollection.Add(obj)
        End Function

        <XmlIgnore()> _
        Default Public ReadOnly Property Item(ByVal index As Integer) As Input
            Get
                Item = InputCollection(index)
            End Get
        End Property

        <XmlIgnore()> _
        Public ReadOnly Property Count() As Integer
            Get
                Count = InputCollection.Count
            End Get
        End Property

        Public Sub Clear()
            InputCollection.Clear()
        End Sub

        Public Function Remove(ByVal index As Integer) As Input
            Dim obj As Input
            obj = InputCollection(index)
            Remove = obj
            InputCollection.Remove(obj)
        End Function

        Public Sub Remove(ByVal obj As Object)
            InputCollection.Remove(obj)
        End Sub

        '*********************** ConnectionInitMode attribute ***********************
        <XmlAttributeAttribute(AttributeName:="ConnectionInitMode"), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __ConnectionInitMode As ConnectionInitMode

        <XmlIgnore(), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __ConnectionInitModeSpecified As Boolean

        <XmlIgnore()> _
        Public Property ConnectionInitMode() As ConnectionInitMode
            Get
                ConnectionInitMode = __ConnectionInitMode
            End Get
            Set(ByVal Value As ConnectionInitMode)
                __ConnectionInitMode = Value
                __ConnectionInitModeSpecified = True
            End Set
        End Property

        '*********************** WeightInitMode attribute ***********************
        <XmlAttributeAttribute(AttributeName:="WeightInitMode"), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __WeightInitMode As WeightInitMode

        <XmlIgnore(), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __WeightInitModeSpecified As Boolean

        <XmlIgnore()> _
        Public Property WeightInitMode() As WeightInitMode
            Get
                WeightInitMode = __WeightInitMode
            End Get
            Set(ByVal Value As WeightInitMode)
                __WeightInitMode = Value
                __WeightInitModeSpecified = True
            End Set
        End Property

        '*********************** Input element ***********************
        <XmlElement(Type:=GetType(Input), ElementName:="Input", IsNullable:=False, Form:=XmlSchemaForm.Qualified, Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __InputCollection As InputCollection

        <XmlIgnore()> _
        Public Property InputCollection() As InputCollection
            Get
                If __InputCollection Is Nothing Then __InputCollection = New InputCollection()
                InputCollection = __InputCollection
            End Get
            Set(ByVal Value As InputCollection)
                __InputCollection = Value
            End Set
        End Property

        '*********************** Constructor ***********************
        Public Sub New()
        End Sub
    End Class


    '--------------------------------------------------
    'Layer element
    '--------------------------------------------------
    <XmlRoot(ElementName:="Layer", Namespace:=Declarations.SchemaVersion, IsNullable:=False), Serializable()> _
    Public Class Layer

        <System.Runtime.InteropServices.DispIdAttribute(-4)> _
        Public Function GetEnumerator() As IEnumerator
            GetEnumerator = NeuronCollection.GetEnumerator()
        End Function

        Public Function Add(ByVal obj As Neuron) As Neuron
            Add = NeuronCollection.Add(obj)
        End Function

        <XmlIgnore()> _
        Default Public ReadOnly Property Item(ByVal index As Integer) As Neuron
            Get
                Item = NeuronCollection(index)
            End Get
        End Property

        <XmlIgnore()> _
        Public ReadOnly Property Count() As Integer
            Get
                Count = NeuronCollection.Count
            End Get
        End Property

        Public Sub Clear()
            NeuronCollection.Clear()
        End Sub

        Public Function Remove(ByVal index As Integer) As Neuron
            Dim obj As Neuron
            obj = NeuronCollection(index)
            Remove = obj
            NeuronCollection.Remove(obj)
        End Function

        Public Sub Remove(ByVal obj As Object)
            NeuronCollection.Remove(obj)
        End Sub

        '*********************** Name attribute ***********************
        <XmlAttributeAttribute(AttributeName:="Name", Form:=XmlSchemaForm.Unqualified, DataType:="string", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Name As String

        <XmlIgnore()> _
        Public Property Name() As String
            Get
                Name = __Name
            End Get
            Set(ByVal Value As String)
                __Name = Value
            End Set
        End Property

        '*********************** Neuron element ***********************
        <XmlElement(Type:=GetType(Neuron), ElementName:="Neuron", IsNullable:=False, Form:=XmlSchemaForm.Qualified, Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __NeuronCollection As NeuronCollection

        <XmlIgnore()> _
        Public Property NeuronCollection() As NeuronCollection
            Get
                If __NeuronCollection Is Nothing Then __NeuronCollection = New NeuronCollection()
                NeuronCollection = __NeuronCollection
            End Get
            Set(ByVal Value As NeuronCollection)
                __NeuronCollection = Value
            End Set
        End Property

        '*********************** Constructor ***********************
        Public Sub New()
        End Sub
    End Class
End Namespace