neuralxml.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: NeuralXML.xsd
' Creation Date: 4/29/2006 3:23:20 PM
'--------------------------------------------------------------

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

Namespace NeuralXML.DataModel

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

    <Serializable()> _
    Public Enum BlockType
        <XmlEnum(Name:="Train")> Train
        <XmlEnum(Name:="Run")> Run
    End Enum

    <Serializable()> _
    Public Enum DataType
        <XmlEnum(Name:="Pattern")> Pattern
        <XmlEnum(Name:="Char")> [Char]
        <XmlEnum(Name:="Number")> Number
        <XmlEnum(Name:="Array")> Array
    End Enum


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        Default Public Shadows Property Item(ByVal index As Integer) As DataBlock
            Get
                Item = DirectCast(MyBase.Item(index), DataBlock)
            End Get
            Set(ByVal Value As DataBlock)
                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 = DataBlockCollection.GetEnumerator()
        End Function

        Public Function Add(ByVal obj As DataBlock) As DataBlock
            Add = DataBlockCollection.Add(obj)
        End Function

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

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

        Public Sub Clear()
            DataBlockCollection.Clear()
        End Sub

        Public Function Remove(ByVal index As Integer) As DataBlock
            Dim obj As DataBlock
            obj = DataBlockCollection(index)
            Remove = obj
            DataBlockCollection.Remove(obj)
        End Function

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

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

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

        '*********************** SaveOnFinish attribute ***********************
        <XmlAttributeAttribute(AttributeName:="SaveOnFinish", Form:=XmlSchemaForm.Unqualified, DataType:="boolean", Namespace:=Declarations.SchemaVersion), _
        EditorBrowsable(EditorBrowsableState.Advanced)> _
        Public __SaveOnFinish As Boolean

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

        <XmlIgnore()> _
        Public Property SaveOnFinish() As Boolean
            Get
                SaveOnFinish = __SaveOnFinish
            End Get
            Set(ByVal Value As Boolean)
                __SaveOnFinish = Value
                __SaveOnFinishSpecified = True
            End Set
        End Property

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

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

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

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

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


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

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

        Public Function Add(ByVal obj As Network) As Network
            Add = NetworkCollection.Add(obj)
        End Function

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

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

        Public Sub Clear()
            NetworkCollection.Clear()
        End Sub

        Public Function Remove(ByVal index As Integer) As Network
            Dim obj As Network
            obj = NetworkCollection(index)
            Remove = obj
            NetworkCollection.Remove(obj)
        End Function

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

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

        <XmlIgnore()> _
        Public Property NetworkCollection() As NetworkCollection
            Get
                If __NetworkCollection Is Nothing Then __NetworkCollection = New NetworkCollection()
                NetworkCollection = __NetworkCollection