| Ich nutze: C-Control II Unit, CC2-Application-Board |
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 "CC2VMCn" $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
________________
Meine Seite: http://www.tho-bai.de
Antwort schreiben
Antworten:
Re: Download Tool (von Markus A. - 4.03.2004 11:47)Re: Download Tool (von Thomas - 4.03.2004 22:16)Re: Download Tool (von Markus A. - 5.03.2004 13:37)Re: Download Tool (von Thomas - 6.03.2004 15:58)Re: Download Tool (von Markus A. - 6.03.2004 21:19)Re: Download Tool (von n4x - 7.03.2004 16:52)Re: Download Tool (von Markus A. - 7.03.2004 18:04)Re: Download Tool (von n4x - 7.03.2004 22:15)Re: Download Tool (von Markus A. - 8.03.2004 0:01)Re: Download Tool (von Thomas - 7.03.2004 12:24)Re: Download Tool (von Thomas - 7.03.2004 14:30)Re: Download Tool (von Markus A. - 7.03.2004 18:02)Re: Download Tool (von Thomas - 7.03.2004 22:23)Re: Download Tool (von Markus A. - 8.03.2004 0:03)Re: Download Tool (von Thomas - 8.03.2004 0:50)Re: Download Tool (von Markus A. - 26.02.2004 23:46)