there in Profan The Possibility whom Programmablauf over one Interrupt To interrupting (z.B. Timergesteuert). The Timer resolve standartmäßig one "WaitInput" from. the can I but so not use. my Program must constantly whom seriellen Port in the "Blick haben" and on most different Keys react. between all this releases should the program but after a exakten Zeitvorgabe over The serial interface one Telegramm Send. Currently have I the "&GetTickCount" commands into Programmschleife installed and berechne The past ms since the last Aufrufes and if The desired Time vergangen is becomes the Telegramm gesendet.
Reicht there not SetTimer from ? is since the Time run down, so becomes even WaitInput leave. with the seriellen interface make I the always so. one must hold only the Timing the sendenden Gerätes in the look and have accordingly whom Timer settle. so some MC (z.B. AVR)need there one couple Millisekunden. If one then too The Puffer with OpenCom big enough holds (z.B. 1024), goes too nothing lost.
one can but too The interface constantly pollen, if one XProfans MultiProzessing (pExec) using. then can you whom Timer for Send the Telegramms using.
Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
SetTimer1000'wenn alle Sekunde das Telegramm geschickt werden soll.
f& =Opencom(...)' evtl mit Setcom() konfigurieren' dann mit pExec() Prozess zum Abhorchen der Schnittstelle aufrufen.
pid& =pExec(|Polling, %HWndoderFensterhandle, f&)' Handle der Schnittstelle und evtl. andere Handles, die in der Procedur' angesprochen werden (z.B. ein Editcontrol,Listbox usw.) mitgeben.
ende% =0WhileNot ende%
WaitInputIf %wmTimerprocess("Suspend", pid&)' Prozess anhalten' Hier das Telegramm sendenprocess("Resume", pid&)' Prozess läuft weiterEndWhileProcPollingParameters handle&, Port&
var ende% =0Whilenot ende%
casegetText$(handle&)="" : ende% =1' Hier Schnittstelle pollenEndWhileENDPROC
Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
(1.146)
pExec - the was the entscheidene Info. I have the Telegramm Send so To say ausgelagert.
Deutsch
English
Français
Español
Italia