[BraLUG] Fwd: Fwd: USB-LCD-Display unter Linux ansprechen

[Uwe Berger]

MoinMoin,

>die erste Hürde habe ich wohl überwunden:
>
... und es funktioniert tatsächlich :-)))))

Habe gerade ein kleines TCL-Programm (;-)) geschrieben, um mal zu testen, ob
man das USB-LCD-Display ansprechen kann -> und es passiert tatsächlich das,
was ich will.  Jetzt kann ich daran gehen, eine "richtige" Applikation zu
schreiben.

Wen es interessiert, hier die Quelle des TCL-Programmes:

------------------------------------------------------------
#!/usr/bin/wish -f

set port /dev/ttyUSB0

# Device oeffnen und initialisieren
if {[catch {set com [open $port RDWR] }]==1 } { puts "no device on $port"}
fconfigure $com -translation binary
fconfigure $com -mode 19200,n,8,1
fconfigure $com -buffering none
fconfigure $com -blocking 0

# Hintergrundbeleuchtung einschalten
puts -nonewline $com \x02
puts "sending: 0x02 "
puts -nonewline $com \x68
puts "sending: 0x68 "
puts -nonewline $com \x31
puts "sending: 0x31 "
puts -nonewline $com \x03
puts "sending: 0x03 "

# Cursorposition x=11 y=1 setzen
puts -nonewline $com \x02
puts "sending: 0x02 "
puts -nonewline $com \x70
puts "sending: 0x70 "
puts -nonewline $com \x0A
puts "sending: 0x0A "
puts -nonewline $com \x01
puts "sending: 0x01 "
puts -nonewline $com \x03
puts "sending: 0x03 "

# ein 'a' an aktueller Cursorposition ausgeben
puts -nonewline $com \x02
puts "sending: 0x02 "
puts -nonewline $com \x63
puts "sending: 0x63 "
puts -nonewline $com \x61
puts "sending: 0x61 "
puts -nonewline $com \x03
puts "sending: 0x03 "

close $com
exit
-------------------------------------------------------

Gruß Uwe

-- 
-----------------------------------
Brandenburger Linux User Group e.V.
Internet....: http://www.bralug.org
E-Mail......: mailto:info at bralug.de
-----------------------------------

Lust, ein paar Euro nebenbei zu verdienen? Ohne Kosten, ohne Risiko!
Satte Provisionen für GMX Partner: http://www.gmx.net/de/go/partner