XProfan

Declare lever GridBOX1
Declare Int end
Window Title "Ende too with ESC !"
Window 800, 600
GridBOX1 = @Create("Gridbox", %HWnd, "Name;0;120;Wert 1;0;80;Wert 2;0;80", 0, 10, 80, 300, 200)
end = 0
pExec("|Werte", %HWnd, GridBOX1)
User Messages 1001
Locate 1, 2
Print "Ende too with ESC"

WhileNot end

    WaitInput

    If %UMessage = 1001

        SetText %HWnd, "Gridbox " + Str $(&UwParam) + " time updated !"

    EndIf

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

EndWhile

Proc values

    Parameters lever Win, Grid
    Declare Int end1, a, b
    end1 = 0
    a = 0
    b = 0
    Randomize

    WhileNot end1

        If GetText$(Win) <> ""

            Inc a
            AddStrings(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) = "" : end1 = 1

    EndWhile

ENDPROC

User Messages 0
End