- Apre la seriale COM1 in lettura
- Funziona come un hyperterminal in ricezione
Per ovviare ai problemi del programma precedente,
sono state aggiunti i comandi "blocking" e "update"
<![CDATA[
# legge sulla SERIALE :
# funziona esattamente come un hyperterminal in ricezione :
# legge 1 carattere alla volta e lo mostra sullo schermo
# non si blocca mai !
frame .f
text .f.text
pack .f.text
pack .f
set seriale [open com1: r]
fconfigure $seriale -mode 9600,n,8,1 -blocking 0
while {1} {
set car [read $seriale 1]
.f.text insert end "$car"
update
}
]]>
serial_read_2.tcl