XProfan

Español

Stephan
Sonneborn

¡Hola Personas, hallo IF,

Yo folgendes Programmierproblem:
In una Programa debería (später) Messwerte en serielle Schnittstelle oder una Schnittstellenkarte leerse. El Werte debería así en ca. 40Hz - Takten ankommen.
Um el Programa vorab ya veces vorzubereiten, möchte Soy un Simulationsmodus einrichten, el me el Werte generiert.
Jetzt a el Problema:
Yo frage todos Dialogobjekte (auch el, el a Programmstart todavía no existieren) en uno Hauptprogrammschleife de. Das neue CLICKED() de XPROFAN 9 tut como muy gute Dienste. Um nun el Werte a generieren starte Soy un Temporizador, de los WAITINPUT para Timerzeitpunkt durchbricht, a Werte a berechnen, aufzubereiten y anzuzeigen. Gleichzeitig voluntad aber auch el Dialogobjekte behandelt. Je kürzer el Timerwert eingestellt es, desto schwieriger se lo, el Dialogobjekte abzufragen: ellos reagieren simplemente no mehr.

Jetzt Yo me pensamiento, iFs THREAD.PCU dafür a nutzen:
Kompilieren Marca Separación

WHILENOT Ende%

    CASE WerteGenerieren%: -> Thread starten, um Werte zu berechnen, aufzubereiten und anzuzeigen
    CASENOT WerteGenerieren:: -> Thread stoppen
    WAITINPUT

    IF CLICKED(...)

        ...

    ELSEIF CLICKED(...)

        ...
        ...

    ENDIF

WEND

Como aber mache Yo el con el THREAD.PCU? Geht el überhaupt? Also como starte Soy un Nebenbei-Job innerhalb einens Profano-Programms y cómo stoppe Yo ihn otra vez y kann Yo así una bastante normale Procedimiento starten usw.

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

13.03.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Perfect - genau para algo como isses pensamiento.

1. El DLG-Items prüfst Usted auch weiterhin en el Hauptschleife de.
2. Su Temporizador beseitigst Usted restlos - así el Waitinput no mehr durchbrochen se.

Grundsätzlich así:
Kompilieren Marca Separación

thread.start 1,7// wenn sekündlicher aufruf der thread.do reicht. oder
thread.start 1,1// wenn die thread.do ständig laufen soll. (3=mittelwert)

whilenot exit%

    waitinput

    if clicked....

    wend

    thread.stop 1
    end

    proc thread.do

        parameters n&

        if n&=1

            machhierwadduwillst wären dessen waitinput wartet :)

        elseif n&=2

            wenn du einen 2. thread brauchst und dieses mit thread.start 2[,1-7] gestartet hast

        endif

    ENDPROC

Hilft Usted el?

Salve, IF

13.03.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Stephan
Sonneborn

Hola si,

Dankeschön!

Das Tool funzt prima! Yo muss el Quellcode todavía una bißchen optimieren (CPU-Last > 20%), aber grundsätzlich se ejecuta lo genau así, Yo lo haben voluntad.

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

13.03.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita