XProfan

Deutsch

Stephan
Sonneborn

Hallo Leute, hallo iF,

ich habe folgendes Programmierproblem:
In einem Programm sollen (später) Messwerte über die serielle Schnittstelle oder eine Schnittstellenkarte eingelesen werden. Die Werte sollten so in ca. 40Hz - Takten ankommen.
Um das Programm vorab schon mal vorzubereiten, möchte ich einen Simulationsmodus einrichten, der mir die Werte generiert.
Jetzt zu dem Problem:
Ich frage alle Dialogobjekte (auch die, die zu Programmstart noch nicht existieren) in einer Hauptprogrammschleife ab. Das neue CLICKED() von XPROFAN 9 tut da sehr gute Dienste. Um nun die Werte zu generieren starte ich einen Timer, der das WAITINPUT zum Timerzeitpunkt durchbricht, um die Werte zu berechnen, aufzubereiten und anzuzeigen. Gleichzeitig werden aber auch die Dialogobjekte behandelt. Je kürzer der Timerwert eingestellt ist, desto schwieriger wird es, die Dialogobjekte abzufragen: sie reagieren einfach nicht mehr.

Jetzt habe ich mir gedacht, iFs THREAD.PCU dafür zu nutzen:
Kompilieren Markieren Separieren

WHILENOT Ende%

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

    IF CLICKED(...)

        ...

    ELSEIF CLICKED(...)

        ...
        ...

    ENDIF

WEND

Wie aber mache ich das mit der THREAD.PCU? Geht das überhaupt? Also wie starte ich einen Nebenbei-Job innerhalb einens Profan-Programms und wie stoppe ich ihn wieder und kann ich so eine ganz normale Prozedur 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 zitieren Zeilenweise zitieren

Perfect - genau für sowas isses gedacht.

1. Die DLG-Items prüfst Du auch weiterhin in der Hauptschleife ab.
2. Deine Timer beseitigst Du restlos - damit das Waitinput nicht mehr durchbrochen wird.

Grundsätzlich so:
Kompilieren Markieren Separieren

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 Dir das?

Salve, iF

13.03.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Stephan
Sonneborn

Hallo iF,

Dankeschön!

Das Tool funzt prima! Ich muss den Quellcode noch ein bißchen optimieren (CPU-Last > 20%), aber grundsätzlich läuft es genau so, wie ich es haben will.

Schöne Grüße aus Wittgenstein
von Stephan

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

13.03.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren