hay en Profano el Möglichkeit el Programmablauf encima una Interrupt a unterbrechen (z.B. Timergesteuert). Der Temporizador löst standartmäßig una "WaitInput" de. Das kann Yo aber así no gebrauchen. Mein Programa muß ständig el seriellen Port en el "Blick haben" y en verschiedenste Tasten reagieren. Zwischen all esta Aufgaben se el Programa aber después de uno exakten Zeitvorgabe en serielle Schnittstelle una Telegramm senden. En el momento Yo el "&GetTickCount" Befehl en el Programmschleife instalado y berechne el vergangenen ms seit des letzten Aufrufes y si la gewünschte Tiempo vergangen es se el Telegramm gesendet.
Reicht como no SetTimer de ? Ist como el Tiempo abgelaufen, así se incluso WaitInput verlassen. En seriellen Schnittstelle mache Yo el siempre así. Man muß sólo sólo el Timing des sendenden Gerätes en el Blick haben y dementsprechend el Temporizador conjunto. So mancher MC (z.B. AVR)braucht como una pocos Millisekunden. Wenn una continuación auch el Puffer en OpenCom groß genug hält (z.B. 1024), va auch nichts perdido.
Se puede aber auch el Schnittstelle ständig pollen, si uno XProfans MultiProzessing (pExec) benutzt. Dann kannst du el Temporizador fürs Senden des Telegramms benutzen.
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.
(672)
pExec - el war el entscheidene Referencia. Yo habe el Telegramm senden así a sagen ausgelagert.
Deutsch
English
Français
Español
Italia