frmwritedetection.vb

neural networks applications

        'txtStates
        '
        Me.txtStates.Location = New System.Drawing.Point(16, 136)
        Me.txtStates.Multiline = True
        Me.txtStates.Name = "txtStates"
        Me.txtStates.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.txtStates.Size = New System.Drawing.Size(184, 160)
        Me.txtStates.TabIndex = 12
        Me.txtStates.Text = ""
        '
        'cmdClearStates
        '
        Me.cmdClearStates.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.cmdClearStates.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdClearStates.Location = New System.Drawing.Point(112, 96)
        Me.cmdClearStates.Name = "cmdClearStates"
        Me.cmdClearStates.Size = New System.Drawing.Size(80, 24)
        Me.cmdClearStates.TabIndex = 11
        Me.cmdClearStates.Text = "Clear States"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 24)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(168, 24)
        Me.Label3.TabIndex = 10
        Me.Label3.Text = "Enter An ASCII Character"
        '
        'TabPage3
        '
        Me.TabPage3.BackColor = System.Drawing.Color.White
        Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label4, Me.txtDetect, Me.cmdDetect})
        Me.TabPage3.Location = New System.Drawing.Point(4, 25)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(216, 339)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Detection"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(168, 24)
        Me.Label4.TabIndex = 11
        Me.Label4.Text = "Detected ASCII Character Value"
        '
        'TabControl2
        '
        Me.TabControl2.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
        Me.TabControl2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage4, Me.TabPage5})
        Me.TabControl2.Location = New System.Drawing.Point(251, 49)
        Me.TabControl2.Name = "TabControl2"
        Me.TabControl2.SelectedIndex = 0
        Me.TabControl2.Size = New System.Drawing.Size(480, 368)
        Me.TabControl2.TabIndex = 11
        '
        'TabPage4
        '
        Me.TabPage4.AutoScroll = True
        Me.TabPage4.BackColor = System.Drawing.SystemColors.Control
        Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnClear, Me.wgMain})
        Me.TabPage4.Location = New System.Drawing.Point(4, 25)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(472, 339)
        Me.TabPage4.TabIndex = 0
        Me.TabPage4.Text = "Writing Grid"
        '
        'btnClear
        '
        Me.btnClear.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.btnClear.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnClear.Location = New System.Drawing.Point(19, 10)
        Me.btnClear.Name = "btnClear"
        Me.btnClear.Size = New System.Drawing.Size(104, 24)
        Me.btnClear.TabIndex = 9
        Me.btnClear.Text = "Clear Pattern"
        '
        'TabPage5
        '
        Me.TabPage5.Controls.AddRange(New System.Windows.Forms.Control() {Me.lvReport})
        Me.TabPage5.Location = New System.Drawing.Point(4, 25)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Size = New System.Drawing.Size(472, 339)
        Me.TabPage5.TabIndex = 1
        Me.TabPage5.Text = "Report"
        '
        'lvReport
        '
        Me.lvReport.Location = New System.Drawing.Point(8, 8)
        Me.lvReport.Name = "lvReport"
        Me.lvReport.Size = New System.Drawing.Size(457, 328)
        Me.lvReport.TabIndex = 6
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.Gray
        Me.Panel1.Location = New System.Drawing.Point(239, 6)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(1, 422)
        Me.Panel1.TabIndex = 12
        '
        'Panel2
        '
        Me.Panel2.BackColor = System.Drawing.Color.Gray
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label5})
        Me.Panel2.Location = New System.Drawing.Point(4, 9)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(230, 30)
        Me.Panel2.TabIndex = 13
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.White
        Me.Label5.Location = New System.Drawing.Point(7, 5)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(170, 22)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "Neural Network"
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.Color.Gray
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label6})
        Me.Panel3.Location = New System.Drawing.Point(247, 9)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(480, 30)
        Me.Panel3.TabIndex = 14
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.Color.White
        Me.Label6.Location = New System.Drawing.Point(12, 4)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(170, 22)
        Me.Label6.TabIndex = 1
        Me.Label6.Text = "Writing Grid"
        '
        'frmWriteDetection
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(736, 446)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel3, Me.Panel2, Me.Panel1, Me.TabControl2, Me.TabControl1})
        Me.MaximizeBox = False
        Me.Name = "frmWriteDetection"
        Me.Text = "Write Detection"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.TabControl2.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.TabPage5.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmWriteDetection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wgMain.Initialize(New Size(20, 20), 10, 8)
    End Sub


    Private Sub cmdDetect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDetect.Click

        Me.txtDetect.Text = Chr(wgMain.Detect())
        wgMain.Report(Me.lvReport)

    End Sub

    Private Sub Initialize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Initialize.Click
        Dim s As Integer = Val(Me.txtUnitSize.Text)
        wgMain.Initialize(New Size(s, s), Val(Me.txtGridSize.Text), 8)
    End Sub


    Private Sub cmdAddState_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddState.Click


        Try
            wgMain.AddStateFromGrid(Asc(Me.txtTrain.Text))

            Dim td As BrainNet.NeuralFramework.TrainingData = CType(wgMain.TrainingStates(wgMain.TrainingStates.Count - 1), BrainNet.NeuralFramework.TrainingData)

            Dim instr As String = "", outstr As String = ""

            Dim d As Double

            For Each d In td.Inputs
                instr = instr & d
            Next
            For Each d In td.Outputs
                outstr = outstr & d
            Next

            Me.txtStates.Text = txtStates.Text & instr & "=" & outstr & vbCrLf
        Catch ex As Exception
            MsgBox("Invalid inputs. " & ex.Message)
        End Try


    End Sub

    Private Sub cmdTrain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTrain.Click
        wgMain.Train(1000)

    End Sub

    Private Sub txtTrain_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTrain.TextChanged

    End Sub

    Private Sub cmdClearStates_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClearStates.Click
        Me.txtStates.Text = ""
        Me.wgMain.ClearStates()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        wgMain.ClearDrawing()
    End Sub
End Class