| 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)