Für dieses Forum muß Javascript im Browser aktiviert werden!
Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C2 Quellcode formatieren: <code>Quellcode</code> ASM Quellcode formatieren: <asm>Quellcode</asm> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! > Also den CMD_START Befehl hab ich am Ende schon eingebaut. Bewirkt aber nichts. Ich denke > das liegt daran, dass die C-Control das Programm nicht so bekommt wie sie es will (also > im richtigen Format) und somit auch nicht weiß, wann die Übertragung beendet ist. > > Ein weiteres Problem könnte auch darin bestehen, das unter "Tips & Ergänzungen" steht man > solle die Anzahlen als long übertragen. Wofür ich in Tcl erstmal noch nichts gefunden habe - > ist halt so erstmal alles ein String. Nur die Kommandos übertrage ich mit \x vorangestellt > als hexadecimal. Die Kommandos werden von der C-Control auch korrekt interpretiert. > > Also hier der Code in der Hoffnung, dass es jemand klären kann. Andre sollte uns dabei > eigentlich helfen können, schließlich hat er ja selbst schon ein Programm für Windows > geschrieben. > > _____________ > set s_com [open /dev/ttyS0 w+] > fconfigure $s_com -mode 19200,n,8,1 -buffering none -translation binary -encoding binary > > #Datum... > puts -nonewline $s_com \x01 > flush $s_com > set var [gets $s_com] > puts "\n# $var" > > #Datei einlesen > set s_vmc [open ./melody/melody.c2p.vmc r] > set vmc [read $s_vmc] > close $s_vmc > > #1.Zeile entfernen > regsub "CC2VMC\n" $vmc "" vmc > > #Zeilen in Liste splitten > set lvmc [split $vmc "\n"] > > #Hi_Baud senden > puts -nonewline $s_com \x08 > > #Geschwingigkeit hochsetzen > fconfigure $s_com -mode 57600,n,8,1 -buffering none -translation binary -encoding binary > > #VMC_Erase senden danach 500ms warten > puts -nonewline $s_com \x06 > after 500 > > #Beginn der Übertragung mitteilen > puts -nonewline $s_com \x04 > after 2500 > > #Senden der einzelnen Werte... > > #Anzahl der konstanten bytes? > puts $s_com [lindex $lvmc 0] > > #Anzahl der VMC-Worte? > puts $s_com [lindex $lvmc 1] > > #konstannte bytes...? > set temp [lindex $lvmc 3] > set temp [split $temp " "] > foreach konst $temp { > if {$konst!=""} { > puts $s_com $konst > } > } > set temp [lindex $lvmc 4] > set temp [split $temp " "] > foreach konst $temp { > if {$konst!=""} { > puts $s_com $konst > } > } > > #VMC-Worte...? > set temp [lindex $lvmc 6] > set temp [split $temp " "] > foreach word $temp { > if {$word!=""} { > puts $s_com $word > } > } > set temp [lindex $lvmc 7] > set temp [split $temp " "] > foreach word $temp { > if {$word!=""} { > puts $s_com $word > } > } > > #Def_Baud senden > puts $s_com \x09 > > #Programm starten...zeigt aber immer noch "LOAD VMC" im Display an > puts $s_com \x03 > ________________