XProfan

Français

p.specht

O-Text H.Brill:

quelquefois wäre es oui important, si un Prozess cela Hauptprogramm sur quelque chose informiert, z.B. si qui Prozess turnusmäßige Aufgaben dans einer Boucle ausführt et chez chaque Durchlauf cela Hauptfenster informer voudrais.

Kompilieren Marque Séparation

Déclarer Handle Gridbox1
Déclarer Int ende
Titre de la fenêtre "Ende aussi avec ESC !"
Fenêtre 800, 600
Gridbox1 = @Créer("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
ende = 0
pExec("|Werte", %HWnd, Gridbox1)
Utilisateur Messages 1001
Localiser 1, 2
Imprimer "Ende aussi avec ESC"

WhileNot ende

    WaitInput

    Si %UMessage = 1001

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

    EndIf

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

Endwhile

Proc Werte

    Paramètres Handle Win, Grid
    Déclarer Int ende1, a, b
    ende1 = 0
    a = 0
    b = 0
    Randomiser

    WhileNot ende1

        Si GetText $(Win) <> »

            Inc a
            AddStrings(Grid, "Werte :|" + Str$(Tour(100)) + "|" + Str$(Tour(1000)))

            Si a > 10

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

            EndIf

        EndIf

        Sleep 200
        cas getText$(Win) = » : ende1 = 1

    Endwhile

ENDPROC

Utilisateur Messages 0
Fin

aussi cela FileMapping wäre là trop appeler, si qui Prozess etwa dans un Map écrit et si il fertig ist, cela Programme informiert, avec cela cet etwa qui Map auslesen peux.

peut-être peux es quelqu'un oui gebrauchen.

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

13.06.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation