Rnbfra Multi-Thread und Netzwerkfähig mit GUI im www, jetzt

[marvin42x]

Da habe ich auch rumgeturnt.
Na Du bekommst das kürzer hin.
Dank für die prompte Lieferung.
Ich habe es schon eingebaut und werde mal sehen. Das ging ja vorher schon ganz easy.
Ich habe mich heute noch mal mit einer Zweifensterlösung, ein Fenster Generic Funktionen, das andere freie Anwendung, rum geschlagen.
Bin aber noch nicht so recht begeistert davon. Das werde ich erst später noch mal aufgreifen.
Man müsste einfach mehr Zeit haben.

Das Programm heißt jetzt RnWizard womit der Name Programm ist.

Netter Gruß

[PicNick]

.Man müsste einfach mehr Zeit haben.

*hehe* wemenem sagen sie das ?

We're goin' to see the wizard,
the wizard, the wizard of Oz

[marvin42x]

Ich komme nicht weiter.
Irgend was ist falsch.
#Region " CommandHandling……
ParsLineArgument()

Val = Val.Remove(CsvLen, Val.Length - CsvLen) 'NEWNEWNEW '(Autor:PicNick) 20.11.2006 21:09 GG

Liefert
System.ArgumentOutOfRangeException wurde nicht behandelt.
Message="Die Anzahl darf nicht kleiner als 0 (null) sein.
Parametername: count"
ParamName="count"
Source="mscorlib"

Kannst Du mir da mal unter die Arme greifen.
Ich investiere sonst unmäßig Zeit in die Sache.


Netter Gruß

[marvin42x]

Nachtrag:

Der RnWizard wertet Key=Value Kommandos über 5 Wege aus.

Program start Parameter von der Command Line.
TCP Message String Command Lines
Parameter aus der Config Datei
Parameter aus Den Auswahlboxen.
Parameter Programmintern aufgerufen.

Das alles erfolgt bereits (fast) einheitlich.
Mir wäre was daran gelegen die Commandline –Pars Routine einmal zu haben.
Das bedeutet die Frage können wir mal schauen ob wir das vereinheitlichen können?
Kannst Du da mal einen Vorschlag machen, wenn Du das für sinnvoll hältst. Oder sonst eine Meinung dazu sagen.

Das Commandline zusammenbauen geht übrigen ganz prima mit der Dll.
Das stellt mich vor keine Hürde.
Habe ich jetzt eingebaut. Ist noch nicht in der geposteten Version drin.

Nun denn, weiter geht’s

Netter Gruß

[NumberFive]

Unter http://www.i-do-more.de/mine-robo/do...-Protokoll.zip
findet ihr ein zip file

RNComNetworkLayer ist meine Netzwerk umsetzer auf der einen Seite TCP zum rn_server auf der andern Seite Multicast stream.

der SerialServer zeigt die daten an die Kommen war jetzt auf die schnell die einfachest lösung um mal zu sehen was da so kommt und ob mein Multicast umsetzer tut. Ich möchte als erster eine daten logger auf basis mysql schreiben weil meine erfahrung mir gezeit hat das man so was sehr schnell braucht. Telegramme wieder simulieren die durch netz gefolgen sind. (Simulation).

die Optition sollen sein im gleich Zeit abstand oder im zeit raffer als so schnell wie geht. Ich denke da merkt man dann schnell wo es noch hackt.

ich hoffe ihr kommt mit meinen Logging klar und könnt mir sagen ob ich die Daten richtig decodiere.

Gruß

[PicNick]

Also *entrüst*, um DIE Zeit ist die Hot-Line zu. Ich bin ja kein Vampir oder Bäckergeselle.

Ich schau mir das gleich an. Die Länge NULL hab ich probiert, kein Problem.
Nun müssen wir schauen, wie es zu negativen Zahlen kommen kann.

[marvin42x]

@NumberFive:
Deine Absicht mit dem Datenlogger freut mich erheblich
Könntest Du noch ein kleines Readme machen?
Ich weis nicht wie ich das richtig in Bewegung bringe.
Persönlich lasse ich im Moment den Datenverkehr des Servers über das Loop Back 127.0.0.1 Port 42 laufen. Das ist das einzige was überall gleich ist.

Netter Gruß

[PicNick]

            ''Marvin42xxxxxxxxx-------------Ab hier wird es spannend--------------------------

            '----Ab hier neu
            Key = Key.Remove(CsvLen, Key.Length - CsvLen)  'NEWNEWNEW '(Autor:PicNick) 20.11.2006 21:09 GG
            CsvLen = RnCsvRdVal(CsvRef, Val)    ' ergibt “Valuex”
            Val = Val.Remove(CsvLen, Val.Length - CsvLen)  'NEWNEWNEW '(Autor:PicNick) 20.11.2006 21:09 GG
            '----Bis hier
            'Post PicNick:
            '        CsvLen = RnCsvRdKey(CsvRef, key)
            '        While CsvLen <> 0
            '    Key = Key.Remove(CsvLen, Key.Length - CsvLen)  NEWNEWNEW
            '            CsvLen = RnCsvRdVal(CsvRef, val)
            '    Val = Val.Remove(CsvLen, Val.Length - CsvLen)  NEWNEWNEW
            '....
            '-----------------------------
            DoCommand(Key, Val)                 'Ab zur Befehlsauswertung
            '-----------------------------

            '-----------------------------------------------------
            'wichtig wichtig wichtig wichtig wichtig wichtig wichtig wichtig 
            '-----------------------------------------------------
            'durch das .Remove sind die strings KEY & VAL  ja jetzt möglicherweise zu kurz geworden
            ' wir brauchen also wieder neue in voller Länge
            ' das ist so auch bei den anderen "CSV" lese-sachen
            ' Fällt nur auf, wenn erst ein kurzer und dann ein langer "Key" oder "value" kommt. 
            Key = New String(" ", 64) ' 64 = maximallänge Key oder Value
            Val = New String(" ", 64)
            '-----------------------------------------------------
            'wichtig wichtig wichtig wichtig wichtig wichtig wichtig wichtig 
            '-----------------------------------------------------

            CsvLen = RnCsvRdKey(CsvRef, Key)    'Next
        End While
        CsvLen = RnCsvDrop(CsvRef)              'Freigeben der Buffer

Eigentlich logisch, aber da muß man sich erst an die Eigenheiten der Heap-Verwaltung gewöhnen.

Tut leid' aber wir lernen ja dazu.

[PicNick]

[Meckermode]

Da isses so, daß dir nur das letzte Argument überbleibt. Man müßte entweder alle argumente zu einem string zusammenhängen (wenn der USer versehentlich irgendwo ein blank drin hat) Oder von vornherein nur das erste Argument oder halt das, wo key-value drin steht, lesen
[/Meckermode]

            For Each Argument As String In My.Application.CommandLineArgs   'Orginal Start String
                MsgBox("Start Argument: " & Argument & "End Argument")
                If Argument <> "" Then CsvString = Argument 'Den String zur Auswertung übergeben
                MsgBox("Start Argument für die Verarbeitung: " & CsvString & "End Argument")
            Next

[NumberFive]

Nun die Kleine readme

Zur Zeit funktionieren nur:
SerialServer und RNComNetworkLayer der rest funktioniert
noch nicht richtig und der serialserver ist mal als anzeige Client defomiert.

RNComNetworkLayer /RegServer starten
damit er sich ein trägt das sollte mit ein MsgBox bestätigt werden.

nach dem ersten start gibt es in dem verzeichis eine RNComNetwork.ini
[RNComNetwork]
OwnIP=192.168.2.10 anpassen lokale adresse
MultiCastIP=224.0.0.0
MultiCastPort=44000
StartTCPConnect=1 wenn 1 dann macht er connect zum rn_server
RN_ServerIP=192.168.2.10 die adresse des rn_server port 42 ist zur zeit hart kodiert