Click here to Skip to main content
Click here to Skip to main content
Add your own
alternative version
Go to top

Designing And Implementing A Neural Network Library For Handwriting Detection, Image Analysis etc.- The BrainNet Library - Full Code, Simplified Theory, Full Illustration, And Examples

, 21 Oct 2009
This article will explain the actual concepts and implementation of Backward Propagation Neural Networks very easily - see project code and samples, like a simple pattern detector, a hand writing detection pad, an xml based neural network processing language etc in the source zip.
brainnet_src.zip
BrainNetIntro
NeuralGate
NeuralGate.vbproj.user
PatternDetector
PatternDetector.vbproj.user
TestImages
a1.bmp
b1.bmp
b2.bmp
c1.bmp
c2.bmp
D.bmp
D1.bmp
D2.bmp
E1.bmp
E2.bmp
Thumbs.db
Framework
BrainNet.suo
NetworkDataModel
Network.xsx
NeuralXML.xsx
NetworkIO.xsx
NeuralFramework.vbproj.user
nxml
nxml.vbproj.user
BrainNet.suo
Doc
Documentation.chm
Samples
HandWriting
HandWriting.suo
HandWriting.vbproj.user
'------------------------------------------------------------------
' License Notice:
'------------------------------------------------------------------
' All Rights Reserved - Anoop Madhusudanan, 
' Mail: amazedsaint@gmail.com
' Website: http://amazedsaint.blogspot.com

' See my articles about BrainNet at 
' http://amazedsaint-articles.blogspot.com for details
'
' You can use this code (or part of it), for non 
' commercial and academic uses, as long as 
'   - You are keeping this notice along with it
'   - You are not making any profit out of this
'------------------------------------------------------------------

Public Module Utility

    '''<summary>Function used to generate a random number </summary>
    Public Function Rand() As Single
        Randomize()

        Return Rnd() * 2 - 1
    End Function


    '''<summary>Print an array </summary>
    Public Sub PrintArr(ByVal msg As String, ByVal arr As ArrayList)
        Dim ar As Long
        Dim str As String = ""
        For ar = 0 To arr.Count - 1
            str = str & arr(ar)
        Next
        Debug.WriteLine(msg & " - " & str)

    End Sub



    '''<summary>This function can be used to report the status of a neural network to a listview </summary>
    Public Sub Report(ByVal l As ListView, ByVal n As INeuralNetwork)

        Try
            '''Setup the listview

            l.Items.Clear()
            l.Columns.Clear()

            l.Columns.Add("Neuron", 100, HorizontalAlignment.Left)
            l.Columns.Add("Bias", 60, HorizontalAlignment.Left)
            l.Columns.Add("Input Weights", 120, HorizontalAlignment.Left)
            l.Columns.Add("Delta", 60, HorizontalAlignment.Left)
            l.Columns.Add("Output", 160, HorizontalAlignment.Left)


            l.View = View.Details

            Dim myNeuron As INeuron
            Dim con As INeuron
            Dim Inputs As String

            '''Step 1: Connect input layer neurons to first hidden layer neurons

            Dim Layer As NeuronLayer
            Layer = n.Layers(0)

            Dim i As Long = 0, j As Long = 0

            For Each myNeuron In Layer
                Inputs = ""
                For Each con In myNeuron.Inputs.Neurons
                    Inputs = Inputs & Format(myNeuron.Inputs(con), "0.00") & ", "
                Next

                Dim litem As ListViewItem = l.Items.Add("Input" & i)
                litem.SubItems.Add(Format(myNeuron.BiasValue, "0.00"))
                litem.SubItems.Add(Inputs)
                litem.SubItems.add(Format(myNeuron.DeltaValue, "0.00"))
                litem.SubItems.Add(Format(myNeuron.OutputValue, "0.00"))
                i = i + 1

            Next

            '''Step 2: Connect each hidden layer neuron to the next hidden layer neuron

            i = 0 : j = 0

            Dim layercount As Long = 1

            For layercount = 1 To n.Layers.Count - 2
                Dim nl As NeuronLayer
                nl = n.Layers(layercount)

                For Each myNeuron In nl
                    Inputs = ""
                    For Each con In myNeuron.Inputs.Neurons
                        Inputs = Inputs & Format(myNeuron.Inputs(con), "0.00") & ", "
                    Next



                    Dim litem As ListViewItem = l.Items.Add("Hidden" & j & i)
                    litem.SubItems.Add(Format(myNeuron.BiasValue, "0.00"))
                    litem.SubItems.Add(Inputs)
                    litem.SubItems.add(Format(myNeuron.DeltaValue, "0.00"))
                    litem.SubItems.Add(Format(myNeuron.OutputValue, "0.00"))
                    i = i + 1

                Next
                j = j + 1
            Next

            '''Step 3: Output layer

            i = 0


            For Each myNeuron In n.Layers(n.Layers.Count - 1)
                Inputs = ""
                For Each con In myNeuron.Inputs.Neurons
                    Inputs = Inputs & Format(myNeuron.Inputs(con), "0.00") & ", "
                Next

                Dim litem As ListViewItem = l.Items.Add("Output" & i)
                litem.SubItems.Add(Format(myNeuron.BiasValue, "0.00"))
                litem.SubItems.Add(Inputs)
                litem.SubItems.add(Format(myNeuron.DeltaValue, "0.00"))
                litem.SubItems.Add(Format(myNeuron.OutputValue, "0.00"))
                i = i + 1

            Next

        Catch e As Exception
            Throw New NeuralNetworkException("Unable to complete reporting. Error in Report method", e)
        End Try

    End Sub

End Module

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author


| Advertise | Privacy | Mobile
Web01 | 2.8.140916.1 | Last Updated 21 Oct 2009
Article Copyright 2006 by Anoop Madhusudanan
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid