network.vb

neural networks applications

' Copyright 2004, Microsoft Corporation
' Sample Code - Use restricted to terms of use defined in the accompanying license agreement (EULA.doc)

'--------------------------------------------------------------
' Autogenerated by XSDObjectGen version 1.3.6.0
' Schema file: Network.xsd
' Creation Date: 4/19/2006 3:46:54 PM
'--------------------------------------------------------------

Imports System
Imports System.Xml.Serialization
Imports System.Collections
Imports System.Xml.Schema
Imports System.ComponentModel

Namespace DataModel

    Public Module Declarations
        Public Const SchemaVersion As String = "http://tempuri.org/Network.xsd"
    End Module

    <Serializable()> _
    Public Enum WeightInitMode
        <XmlEnum(Name:="Random")> Random
        <XmlEnum(Name:="Custom")> Custom
    End Enum

    <Serializable()> _
    Public Enum ConnectionInitMode
        <XmlEnum(Name:="All")> All
        <XmlEnum(Name:="Custom")> Custom
    End Enum


    <Serializable(), _
    EditorBrowsable(EditorBrowsableState.Advanced)> _
    Public Class InputCollection
        Inherits ArrayList

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

        Public Shadows Function Add() As Input
            Add = Add(New Input())
        End Function

        Public Shadows Sub Insert(ByVal index As Integer, ByVal obj As Input)
            MyBase.Insert(index, obj)
        End Sub

        Public Shadows Sub Remove(ByVal obj As Input)
            MyBase.Remove(obj)
        End Sub

        Default Public Shadows Property Item(ByVal index As Integer) As Input
            Get
                Item = DirectCast(MyBase.Item(index), Input)
            End Get
            Set(ByVal Value As Input)
                MyBase.Item(index) = Value
            End Set
        End Property
    End Class

    <Serializable(), _
    EditorBrowsable(EditorBrowsableState.Advanced)> _
    Public Class NeuronCollection
        Inherits ArrayList

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

        Public Shadows Function Add() As Neuron
            Add = Add(New Neuron())
        End Function

        Public Shadows Sub Insert(ByVal index As Integer, ByVal obj As Neuron)
            MyBase.Insert(index, obj)
        End Sub

        Public Shadows Sub Remove(ByVal obj As Neuron)
            MyBase.Remove(obj)
        End Sub

        Default Public Shadows Property Item(ByVal index As Integer) As Neuron
            Get
                Item = DirectCast(MyBase.Item(index), Neuron)
            End Get
            Set(ByVal Value As Neuron)
                MyBase.Item(index) = Value
            End Set
        End Property
    End Class

    <Serializable(), _
    EditorBrowsable(EditorBrowsableState.Advanced)> _
    Public Class LayerCollection
        Inherits ArrayList

        Public Shadows Function Add(ByVal obj As Layer) As Layer
            MyBase.Add(obj)
            Add = obj
        End Function

        Public Shadows Function Add() As Layer
            Add = Add(New Layer())
        End Function

        Public Shadows Sub Insert(ByVal index As Integer, ByVal obj As Layer)
            MyBase.Insert(index, obj)
        End Sub

        Public Shadows Sub Remove(ByVal obj As Layer)
            MyBase.Remove(obj)
        End Sub

        Default Public Shadows Property Item(ByVal index As Integer) As Layer
            Get
                Item = DirectCast(MyBase.Item(index), Layer)
            End Get
            Set(ByVal Value As Layer)
                MyBase.Item(index) = Value
            End Set
        End Property
    End Class



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

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

        Public Function Add(ByVal obj As Layer) As Layer
            Add = LayerCollection.Add(obj)
        End Function

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

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

        Public Sub Clear()
            LayerCollection.Clear()
        End Sub

        Public Function Remove(ByVal index As Integer) As Layer
            Dim obj As Layer
            obj = LayerCollection(index)
            Remove = obj
            LayerCollection.Remove(obj)
        End Function

        Public Sub Remove(ByVal obj As Object)
            LayerCollection.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

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

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

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


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

        '*********************** Layer attribute ***********************
        <XmlAttributeAttribute(AttributeName:="Layer", Form:=XmlSchemaForm.Unqualified, DataType:="long", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Layer As Long

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

        <XmlIgnore()> _
        Public Property Layer() As Long
            Get
                Layer = __Layer
            End Get
            Set(ByVal Value As Long)
                __Layer = Value
                __LayerSpecified = True
            End Set
        End Property

        '*********************** Neuron attribute ***********************
        <XmlAttributeAttribute(AttributeName:="Neuron", Form:=XmlSchemaForm.Unqualified, DataType:="long", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Neuron As Long

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

        <XmlIgnore()> _
        Public Property Neuron() As Long
            Get
                Neuron = __Neuron
            End Get
            Set(ByVal Value As Long)
                __Neuron = Value
                __NeuronSpecified = True
            End Set
        End Property

        '*********************** Weight attribute ***********************
        <XmlAttributeAttribute(AttributeName:="Weight", Form:=XmlSchemaForm.Unqualified, DataType:="double", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __Weight As Double

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

        <XmlIgnore()> _
        Public Property Weight() As Double
            Get
                Weight = __Weight
            End Get
            Set(ByVal Value As Double)
                __Weight = Value
                __WeightSpecified = True
            End Set
        End Property

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


    '--------------------------------------------------
    'Neuron element
    '--------------------------------------------------