- Apre la seriale COM1 in lettura
- Mostra sullo schermo il primo carattere letto
! ATTENZIONE !
Il codice sorgente di questo programma e' molto corto in maniera da rendere l'esempio il piu' comprensibile possibile
Questo causa pero' un inconveniente :
la finestra del programma non e' visibile finche' non viene ricevuto il carattere
cio' e' dovuto al fatto che il programma si blocca finche' non viene ricevuto tale carattere
<![CDATA[
frame .f
text .f.text
pack .f.text
pack .f
set fd [open "com1" r]
fconfigure $fd -mode 9600,n,8,1
set car [read $fd 1]
.f.text insert end $car
close $fd
]]>
serial_read_1.tcl