Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class Form1

    Dim Neur_Netz(,) As Double
    Dim Anfang(,) As Double
    Dim Lerndat(499, 6) As Integer
    Dim maxDelta As Double
    Dim delta_w, delta_t As Double
    Dim x1, x2, x3, x4 As Integer
    Dim O1, O2, O3, O4 As String
    Dim Art, Netz, pon As String
    Dim Zufall As New Random

    Function loadlerndat()
        Dim laenge As Integer
        Dim Pfad As String

        If Netz = "Simpel" Then
            laenge = 4
        ElseIf Netz = "2_Eingaenge" Then
            laenge = 2
        ElseIf Netz = "2_Ausgaenge" Then
            laenge = 5
        ElseIf Netz = "2_Ausgaenge_Groß" Then
            laenge = 5
        ElseIf Netz = "3_Ausgaenge" Then
            laenge = 6
        ElseIf Netz = "3_Ausgaenge_Groß" Then
            laenge = 6
        End If

        Pfad = "C:\Dokumente und Einstellungen\Chris\Desktop\Netze\Lerndateien\" + Netz + "_" + Art + ".txt"

        Dim C() As Char = {" "}
        Dim Inhalt() As String = System.IO.File.ReadAllLines(Pfad)
        Dim Liste As New List(Of String)

        For Each Zeile As String In Inhalt
            Liste.AddRange(Zeile.Split(C, StringSplitOptions.RemoveEmptyEntries))
        Next

        Dim Array() As String = Liste.ToArray()
        Dim z As Int32 = 0

        For i As Int32 = 0 To 499
            For k As Int16 = 0 To laenge
                Lerndat(i, k) = Convert.ToInt16(Array(z))
                z = z + 1
            Next k
        Next i
        Return (0)
    End Function

    Function netzerstellen()
        If Netz = "Simpel" Then
            x1 = 12
            x2 = 7
            x3 = 0
            x4 = 3
            erstellen(x1, x2, x3, x4)
        ElseIf Netz = "2_Eingaenge" Then
            x1 = 10
            x2 = 7
            x3 = 0
            x4 = 1
            erstellen(x1, x2, x3, x4)
        ElseIf Netz = "2_Ausgaenge" Then
            x1 = 13
            x2 = 7
            x3 = 1
            x4 = 3
            erstellen(x1, x2, x3, x4)
        ElseIf Netz = "2_Ausgaenge_Groß" Then
            x1 = 21
            x2 = 15
            x3 = 1
            x4 = 3
            erstellen(x1, x2, x3, x4)
        ElseIf Netz = "3_Ausgaenge" Then
            x1 = 14
            x2 = 7
            x3 = 2
            x4 = 3
            erstellen(x1, x2, x3, x4)
        ElseIf Netz = "3_Ausgaenge_Groß" Then
            x1 = 22
            x2 = 15
            x3 = 2
            x4 = 3
            erstellen(x1, x2, x3, x4)
        End If
        Return (True)
    End Function

    Function erstellen(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) As Boolean
        'a=y Netz
        'b=x Netz
        'c=Anzahl Ausgänge - 1
        'd=Anzahl Eingänge - 1
        Neur_Netz = New Double(a, b) {}
        Anfang = New Double(a, b) {}
        Dim Neues_Netz(a, b) As Double
        Dim tetah(b) As Double
        Dim tetay(c) As Double

        For i As Integer = 0 To a
            For k As Integer = 0 To b
                If pon = "positiv" Then
                    Randomize()
                    Neues_Netz(i, k) = (Rnd())
                    Neues_Netz(i, k) = Math.Round(Neues_Netz(i, k) * 1000) / 1000
                Else
                    Neues_Netz(i, k) = Zufall.NextDouble * 2 - 1
                    Neues_Netz(i, k) = Math.Round(Neues_Netz(i, k) * 1000) / 1000
                End If
            Next k
        Next i

        For i As Integer = 0 To d
            For k As Integer = 0 To b
                tetah(k) = tetah(k) + Math.Round(Neues_Netz(i, k) / 1.5 * 1000) / 1000
            Next
        Next

        For i As Integer = (d + 1) To (a - d)
            For k As Integer = 0 To c
                tetay(k) = tetay(k) + Math.Round(Neues_Netz(i, k) / 1.5 * 1000) / 1000
            Next
        Next

        For i As Integer = 0 To a
            For k As Integer = 0 To b
                Select Case i
                    Case 0 To d
                        If k = b Then
                            RichTextBox1.Text &= Neues_Netz(i, k).ToString & vbCrLf
                        Else
                            RichTextBox1.Text &= Neues_Netz(i, k).ToString & " "
                        End If
                    Case (d + 1) To (a - (c + 1))
                        If k = b Then
                            RichTextBox1.Text &= "0" & vbCrLf
                        ElseIf k > d Then
                            RichTextBox1.Text &= "0" & " "
                        ElseIf k = d Then
                            RichTextBox1.Text &= tetah(i - (d + 1)).ToString & " "
                        Else
                            RichTextBox1.Text &= Neues_Netz(i, k).ToString & " "
                        End If
                    Case Else
                        If k = b Then
                            RichTextBox1.Text &= "0" & vbCrLf
                        ElseIf k = 0 Then
                            RichTextBox1.Text &= tetay(i - (a - c)).ToString & " "
                        Else
                            RichTextBox1.Text &= "0" & " "
                        End If
                End Select
            Next
        Next
        For i As Integer = 0 To a
            For k As Integer = 0 To b
                Neur_Netz(i, k) = Neues_Netz(i, k)
            Next
        Next
        Dim Pfad As String
        Pfad = O2 + "\Netz.txt"
        My.Computer.FileSystem.WriteAllText(O4, Pfad + vbCrLf, True)
        RichTextBox1.SaveFile(Pfad, RichTextBoxStreamType.PlainText)
        RichTextBox1.Text = ""
        Return (True)
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim schritte As Integer
        schritte = t_schritte.Text
        maxDelta = t_delta.Text
        O1 = "C:\Dokumente und Einstellungen\Chris\Desktop\Netze\" + t_Ordnername.Text
        O4 = O1 + "\Netze.txt"
        Art = ComboBox2.SelectedItem
        Netz = ComboBox1.SelectedItem
        pon = ComboBox3.SelectedItem
        My.Computer.FileSystem.CreateDirectory(O1)
        My.Computer.FileSystem.WriteAllText(O4, "", True)
        'loadlerndat()
        'ex = New Double(schritte, 4) {}

        For f As Integer = 0 To schritte
            O2 = O1 + "\" + Netz + "_" + Art + "_" + f.ToString
            O3 = O2 + "\Protokoll"
            My.Computer.FileSystem.CreateDirectory(O2)
            My.Computer.FileSystem.CreateDirectory(O3)
            netzerstellen()

            For k As Integer = 0 To (maxDelta * 10)
                delta_t = 0.1 + 0.1 * k
                For j As Integer = 0 To (maxDelta * 10)
                    delta_w = 0.1 + 0.1 * j
                    'lernschleife()
                Next
            Next

        Next

        'SpeichernEx()

    End Sub
End Class