XProfan

Deutsch

p.specht

O-Text H.Brill:

Manchmal wäre es ja wichtig, wenn ein Prozess das Hauptprogramm über etwas informiert, z.B. wenn der Prozess turnusmäßige Aufgaben in einer Schleife ausführt und bei jedem Durchlauf das Hauptfenster informieren möchte.

Kompilieren Markieren Separieren

Declare Handle Gridbox1
Declare Int ende
WindowTitle "Ende auch mit ESC !"
Window 800, 600
Gridbox1 = @Create("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
ende = 0
pExec("|Werte", %HWnd, Gridbox1)
UserMessages 1001
Locate 1, 2
Print "Ende auch mit ESC"

WhileNot ende

    WaitInput

    If %UMessage = 1001

        SetText %HWnd, "Gridbox " + Str$(&UwParam) + " mal aktualisiert !"

    EndIf

    Case %Key = 2  : ende = 1
    Case %Key = 27 : ende = 1

EndWhile

Proc Werte

    Parameters Handle Win, Grid
    Declare Int ende1, a, b
    ende1 = 0
    a = 0
    b = 0
    Randomize

    WhileNot ende1

        If GetText$(Win) <> ""

            Inc a
            AddString(Grid, "Werte :|" + Str$(Rnd(100)) + "|" + Str$(Rnd(1000)))

            If a > 10

                a = 0
                ClearList Grid
                Inc b
                SendMessage(Win, 1001, b, 0)

            EndIf

        EndIf

        Sleep 200
        case getText$(Win) = "" : ende1 = 1

    EndWhile

EndProc

UserMessages 0
End

Auch das FileMapping wäre da zu nennen, wenn der Prozess etwa in eine Map schreibt und wenn er fertig ist, das Programm informiert, damit dieses etwa die Map auslesen kann.

Vielleicht kann es jemand ja gebrauchen.

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

13.06.2021 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren