June 11, 2017
08:35
Lita AI
Imports System.IO


Public Class Gasp

    REM ------------------------------------------------------------------------------------------------------------------
    ' (C) Alexander Peter Obrzut 2017 January 21st ~ 2018 January 22nd
    ' Shotting.cc is a promotional website for Alexander Obrzut's Software Platform
    '
    ' This software concerns language analysis and related language program genie wizzhArd
    '
    ' The language can form a generic AI for software development or BASIC chat Modules
    '
    ' The process should be completely autonomous, supervised due to the fact that it learns
    ' from input files rather than creating iteslf from all possible combinations
    '
    'first task, frequency tests...

    ' With frequency tests nearing completion, I'd like to work on HTML Grammar + HTML Genies
    ' This basically involves readLine() + <br />
    ' To output some VB.NET code GENIE

    ' We need all the source code put into a book for publishing

    ' we need a class structure to build on great things

    ' the ai needs to be able to discover information

    'seperate the information influx into instructions, conditional loops, condition statements, type definitions,
    ' equasions, and pro-grammar (English comments/HTML <p> Paragraphs)
    ' develop 'individuality'
    ' develop a complex system of thought - relational db of thoughts and codes
    ' rotary nodes, interspersed with binary tree nodes
    ' linked list nodes / rotary nodes of char pairs to char word pairs
    ' spaces seperate the word pairs, nothing seperates the char pairs
    ' we need a rationale db designer similar to pms suite
    ' insert new combo box with drop down list of Rotary node, linked list, and binary tree node
    ' then create relationships between the lists









    REM ------------------------------------------------------------------------------------------------------------------




    Public nodes(10000000) As Nodearray
    Public node As New Node

    Public nodeIndex As Integer = 0

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        OpenFileDialog1.DefaultExt = ".txt"
        OpenFileDialog1.CheckPathExists = True
        OpenFileDialog1.InitialDirectory = Environment.SpecialFolder.MyDocuments
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MsgBox(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRight.Click
        'fill list box with node frequencies


    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        FolderBrowserDialog1.ShowNewFolderButton = True
        FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyDocuments
        Dim dr As Windows.Forms.DialogResult = FolderBrowserDialog1.ShowDialog()

        If dr = Windows.Forms.DialogResult.OK Then
            'MsgBox(FolderBrowserDialog1.SelectedPath, MsgBoxStyle.ApplicationModal, "PATH")

            node.SetPath(FolderBrowserDialog1.SelectedPath)
        ElseIf dr = Windows.Forms.DialogResult.Abort Then
            MsgBox("Aborted.")
        ElseIf dr = Windows.Forms.DialogResult.Cancel Then
            MsgBox("Cancelled")
        End If
    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub btnMiddle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMiddle.Click
    End Sub
    Private arayLength = 10000000
    Public ARayLgth = arayLength - 1
    Public fileArray(arayLength) As String
    Public nedRay(arayLength) As Nodearray
    Public AlphaJoin(arayLength) As Nodearray
    Public NodePairs(arayLength, 2) As Nodearray
    Public nodeSets(arayLength, 2) As Nodearray
    Private Sub FrequencyTestsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FrequencyTestsToolStripMenuItem.Click

        Dim nedRayIndx As Double = 0.0

        If Not node Is Nothing Then
            Dim readyOrNotHereIComeImGonnaFindYouAndMakeYouWantMe As String = node.GetPath
            If readyOrNotHereIComeImGonnaFindYouAndMakeYouWantMe.Length > 0 Then
                'Now we're ready and coming for you
                'recursive *.vb search array builder here
                Dim index = 0
                Dim ext As String = ".html"

                Dim result As Double = 0.0


                Dim cls As New IOSearch
                cls.SearchDirectory(New DirectoryInfo(node.GetPath()), fileArray, ext)
                'loop on fileArray() here
                Dim ios As IOSearch = New IOSearch

                While index <= ARayLgth
                    If Not fileArray(index) Is Nothing Then
                        If Not fileArray(index).Length = 0 Then
                            'call file processor
                            Dim zsue As StreamReader
                            Dim sw As StreamWriter
                            Dim ModFile1 As String = fileArray(index)
                            Try
                                zsue = File.OpenText(ModFile1)
                                ListBox1.Items.Add(ModFile1)
                                sw = File.AppendText("HTMLb.txt")
                            Catch ex As Exception
                                Label5.Text = "File Open Error On " + ModFile1
                            End Try

                            'encode the resources


                            While Not zsue.EndOfStream
                                Dim tempString As String = zsue.ReadLine()

                                Dim StringIndex As Integer = 0
                                While Not StringIndex = tempString.Length
                                    node = ios.Process(tempString, StringIndex)
                                    StringIndex += 1
                                    node.Line = tempString

                                    ' sw.WriteLine("Line: " + node.Line.ToString + " " + node.PreceedingChar + node.token + node.ProceedingChar + " " + node.UniqueIdentifier.ToString)

                                    nedRay(nedRayIndx) = New Nodearray
                                    nedRay(nedRayIndx).SetNode(node)
                                    nedRayIndx += 1

                                End While
                                nodeIndex += 1
                                Label5.Text = nodeIndex.ToString
                                Application.DoEvents()
                                Refresh()
                            End While



                            If Not zsue Is Nothing Then
                                zsue.Close()
                            End If
                            If Not sw Is Nothing Then
                                sw.Close()
                            End If

                        End If

                    End If
                    index += 1
                End While
            End If
        End If

        Dim ReducedNodes(ARayLgth + 1) As Nodearray



        Dim reducedNodesIndx As Double = 0.0

        For i As Double = 0 To nedRayIndx
            Dim stratocaster As Boolean = True

            reducedNodesIndx = 0
            While reducedNodesIndx < ARayLgth
                If Not ReducedNodes(reducedNodesIndx) Is Nothing Then
                    Try
                        Dim timmy As Node = ReducedNodes(reducedNodesIndx).GetNode()
                        Try
                            If Not nedRay(i) Is Nothing Then
                                Dim noddy As Node = nedRay(i).GetNode()
                                If timmy.UniqueIdentifier = noddy.UniqueIdentifier Then
                                    stratocaster = False
                                    Exit While
                                End If
                            End If

                        Catch ex As Exception
                            Exit For
                        End Try

                    Catch ex As Exception
                        Exit While
                    End Try


                Else
                    Exit While
                End If
                reducedNodesIndx += 1
            End While
            If stratocaster = True Then
                ReducedNodes(reducedNodesIndx) = New Nodearray
                If Not nedRay(i) Is Nothing Then
                    ReducedNodes(reducedNodesIndx).SetNode(nedRay(i).GetNode())
                End If

            ElseIf stratocaster = False Then

                Dim tempCounterNode As Node = ReducedNodes(reducedNodesIndx).GetNode()

                tempCounterNode.count += 1

                ReducedNodes(reducedNodesIndx) = New Nodearray
                ReducedNodes(reducedNodesIndx).SetNode(tempCounterNode)

            End If
        Next
        reducedNodesIndx = 0
LOOPOLE:
        If Not ReducedNodes(reducedNodesIndx) Is Nothing Then
            Dim EnterTheNode As Node = ReducedNodes(reducedNodesIndx).GetNode()
            If EnterTheNode.count < 10 Then
                '            ListBox1.Items.Add(EnterTheNode.PreceedingChar + EnterTheNode.token + EnterTheNode.ProceedingChar + "P:" + EnterTheNode.Position.ToString + "C:" + EnterTheNode.count.ToString + EnterTheNode.Line.ToString)
            End If
        End If
        reducedNodesIndx += 1
        If ReducedNodes(reducedNodesIndx) Is Nothing Then
            GoTo Fin
        Else
            GoTo LOOPOLE
        End If


Fin:
        Dim i_Index As Double = 0
        Dim NedRayLink As Double = nedRayIndx
        While nedRayIndx > 0
            'Pairs the triplets
            If Not nedRay(nedRayIndx) Is Nothing And Not nedRay(nedRayIndx - 3) Is Nothing Then
                Dim A_Node As Node = nedRay(nedRayIndx).GetNode()
                Dim B_Node As Node = nedRay(nedRayIndx - 3).GetNode()

                Try
                    '        If A_Node.count > 80 And B_Node.count > 80 Then
                    NodePairs(i_Index, 0) = New Nodearray

                    NodePairs(i_Index, 0).SetNode(A_Node)
                    NodePairs(i_Index, 1) = New Nodearray

                    NodePairs(i_Index, 1).SetNode(B_Node)
                    'End If

                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try

            End If


            nedRayIndx -= 3
            i_Index += 2
            If i_Index >= ARayLgth Then
                i_Index -= 2
                GoTo PENTAGON_DRAGON
            End If

        End While



PENTAGON_DRAGON:
        Label5.Text = "F"
        nedRayIndx = NedRayLink
        Dim i_End As Integer = i_Index

        For t As Integer = 0 To i_End
            If Not NodePairs(t, 
Tags:
June 10, 2017
10:40
Added FREQ2(); To Lita AI

We've got a new frequency, ppl! All for Lita's AI Engine.

 

It's the original idea, executed properly, this time around.

 

 

Tags: ,
Comment by chung cu imperial. on 2 Mar 18 at 18:38 GMT
Appreciate the recommendation. Let me try it out.
Comment by https://marklascelle on 7 Mar 18 at 18:08 GMT
Dentro de 2018, objetivo é alcançar 50 novos franqueados.
Comment by can ho imperial on 25 Mar 18 at 17:39 GMT
Hello I am so thrilled I found your blog, I really found
you by mistake, while I was looking on Google for something else, Anyways I am
here now and would just like to say kudos
for a fantastic post and a all round entertaining blog (I also love
the theme/design), I don't have time to read
it all at the moment but I have book-marked it and also included your RSS feeds, so when I have time I will be back to read much
more, Please do keep up the great job.
Comment by jak zrobic on 26 Mar 18 at 18:30 GMT
Hello to every one, the contents existing at this website are
in fact remarkable for people knowledge, well, keep up the good work fellows.
Comment by site on 28 Mar 18 at 22:05 GMT
Someone essentially lend a hand to make seriously posts I might state.
This is the very first time I frequented your web page and thus
far? I surprised with the research you made to create this particular
publish incredible. Excellent task!
Comment by web page on 28 Mar 18 at 22:05 GMT
It's perfect time to make a few plans for the future and it is time to be happy.
I have learn this publish and if I could I desire to counsel you some attention-grabbing issues
or advice. Maybe you can write subsequent articles referring to this article.
I want to read more things approximately it!
Comment by ashly on 29 Mar 18 at 8:42 GMT
A música é seu talento? PARABÉNS. Negócio em 21
Dias 2.0.
Comment by homepage on 29 Mar 18 at 20:01 GMT
Hey just wanted to give you a quick heads up.
The words in your article seem to be running off the screen in Chrome.
I'm not sure if this is a formatting issue or something to do with internet browser compatibility but I figured I'd post to let you know.
The style and design look great though! Hope you get the issue fixed soon. Thanks
Comment by pin up dating site on 1 Apr 18 at 3:50 GMT
Hello There. I found your blog using msn. This is a really well written article.
I will be sure to bookmark it and come back to read more of your useful
information. Thanks for the post. I will certainly comeback.
Comment by marylyn on 4 Apr 18 at 20:51 GMT
Cromo também aumento a triunfo da insulina.
Comment by itmojs.itm.edu.co on 4 Apr 18 at 20:59 GMT
E aí corpo tão sonhado começa a lucrar forma.
Comment by oscar on 4 Apr 18 at 21:01 GMT
No segundo mês, foram mas 12 Kg eliminados.
Comment by gionee gn708w. on 7 Apr 18 at 3:23 GMT
Now I am going away to do my breakfast, once having my breakfast coming yet again to read additional news.
Comment by samsung odin flash. on 7 Apr 18 at 6:11 GMT
Fastidious replies in return of this query with firm arguments and explaining the whole thing concerning
that.
Comment by jasper on 9 Apr 18 at 17:51 GMT
It's actually a great and useful piece of info. I am happy that you just shared this useful information with us.
Please keep us informed like this. Thanks for sharing.
Comment by joycelyn on 14 Apr 18 at 1:39 GMT
Comente e visite website para descobrir as novidades.
Comment by rosaria on 16 Apr 18 at 0:01 GMT
Animation by Tom Johnson and William Henning.
Comment by weldon on 26 Apr 18 at 15:52 GMT
Um pepino completo contém unicamente 45 calorias.
Comment by hemp oil cbd on 8 May 18 at 21:03 GMT
Ԝhen ʏoᥙ are towing youг car or truck yoou һave tо be certain һe cars
ƅehind you already knhow iff yօu are gonna break оr havbe
а turn. A host of key improvements are
actualⅼy designed tto tһіs yeаr's models and aѕ opposed tο hɑving you delay of tһеѕе upgrades, Kendon һɑѕ quietly Ƅeen shipping the
upgradded models withіn the past handful of mⲟnths. Wһеn uѕed by towing they may bbe brought ߋut and free of vibration and stability problems.
Comment by domino 99 poker on 15 May 18 at 9:37 GMT
It's amazing to go to see this site and reading the views of all mates regarding this
post, while I am also keen of getting know-how.
Comment by lingerie fine on 29 May 18 at 15:02 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de votre grossiste
lingerie sexy et proposez à votre clientèle un large choix d'ensemble 2 pièces
soutien-gorge et string ou encore en version 3 pièces lorsque
le porte-jarretelles est inclus.

lingerie fine
Comment by dawn on 8 Jun 18 at 11:11 GMT
It is vital that you recognize that a brand new task in a brand new city
with a larger income does not usually imply a better existing circumstance; you
might be relocating to a location where in fact the cost-of-living is higher.
Comment by lingerie pas cher on 8 Jun 18 at 19:52 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de votre
grossiste lingerie sexy et proposez à votre clientèle un large choix d'ensemble
2 pièces soutien-gorge et string ou encore en version 3 pièces lorsque le porte-jarretelles est inclus.


lingerie pas cher
Comment by site de lingerie on 12 Jun 18 at 16:25 GMT
Parcourez nos ensemble de lingerie fine sur cette catégorie de
votre grossiste lingerie sexy et proposez à votre clientèle un large choix d'ensemble 2 pièces
soutien-gorge et string ou encore en version 3
pièces lorsque le porte-jarretelles est inclus.



site de lingerie
Comment by towing software for. on 5 Jul 18 at 5:39 GMT
Just seeing thhe ASE certified auto repair shop signage оutside ɑ certɑin auto repair shop іs alreaԀу siugnificant because it meanhs tһаt
thе facility employs one or more ASE certified autpmotive
service professionals oor technicians. Аn overheated engine ⲟr leaking anti freee producess blue, orange
οr yellow green liquid. Ⲛow unscrerw ɑll tһe tһree crews tօ geet access t᧐ the
motherboard.