TCL \ TK nuosekliojo ryšio

[PredAlien]

hi psubiaco

jiems tikrai pabrėždamas apie ieškant šios klaidos apie "flush" komandą tcl, ji dosn't fluch atliekamas įdėti kai i naudoti šį scenarijų, ką ji veikia "norą" commmand eilutėje, kai i tai pagal kiekvieną eilutę , bet dosn't darbą, kai aš visa tai vienu metu.

įrašą. u textvar "naujas"; paketas. ir
mygtuką. y tekstas "Goooo" komanda (serial_proc); pakuotėje. yproc serial_proc () (
pasaulio įvesties # pass_input_LRS pass_input_PL pass_input_UL pass_input_PHOR

# setuot serial port
nustatyti serijos [atidaryti com1 "r "]
fconfigure $ serijos režimu "9600, n, 8,1"
fconfigure $ serijos blokatoriai 0-buferizacijos visą ttycontrol (RTS 0 DTR 1)

kelia-nonewline $ serijos "A";

flush $ serijos

nustatyti data5 [fconfigure $ serijos-queue]

. ir įrašyti 0 $ data5

)
-----------------

po to, kai viskas daroma correctley i turi turėti įrašą langelyje vertė (fconfigure $ serijos-queue) kuris somthing kaip (4 0) sąnaudų produkcijos respectivley, bet ir gauti (0 1) o tai reiškia, kad praplaukite neveikia kai i vykdyti scenarijus iš karto,
bet idėjų guru

<img src="http://www.edaboard.com/images/smiles/icon_wink.gif" alt="Wink" border="0" />

 

[zmanultra]

Išbandykite šią bro;
atvykimo. u textvar "naujas"; paketas. ir
mygtuką. y tekstas "Goooo" komanda (serial_proc); pakuotėje. y
įrašą. XZ-textvar "new2"; pakuotėje. XZproc serial_proc () (
pasaulio įvesties # pass_input_LRS pass_input_PL pass_input_UL pass_input_PHOR

# setuot serial port
nustatyti serijos [atidaryti com1 "r "]
fconfigure $ serijos režimu "9600, n, 8,1"
fconfigure $ serijos blokatoriai 0-buferizacijos visą ttycontrol (RTS 0 DTR 1)

po 500
iškelia $ serijos "O"

po 500
flush $ serijos

po 500
nustatyti data5 [fconfigure $ serijos-queue]
nustatyti data6 [skaityti $ serijos]

. ir įrašyti 0 $ data5
. XZ įterpti 0 $ data6
)

-------------

rūpintis
Adios

sūnelis