XProfan

Jörg
Sellmeyer

Si usted una Temporizador en Su Programa einbaust, kannst Usted alles mögliche scheinbar parallel ablaufen dejar:
Kompilieren Marca Separación

declare icon1&,button1&,choicebox&,oglwindow&,klick%,ende%,klick2%

Proc baueMenue

    CHOICEBOX& = CREATE(CHOICEBOX,%HWND,2,0010,0050,0170,0500)
    addstring(choicebox&,box)
    addstring(choicebox&,bla)
    addstring(choicebox&,blaBla)
    BUTTON1& = @Create(BUTTON,%HWND,TEST,0010,0500,0080,0060)
    Endproc baueMenue

    proc test

        whileloop 100

            inc Klick2%
            drawtext 50,200, Klick2%
            drawtext 0,230, gettext$(Choicebox&)

        wend

        endproc test

        Proc Test2

            whileloop 10

                sleep 1000
                Drawtext 0,30, Test2 gewählt
                inc Klick%
                Drawtext 100,30, Klick%

            wend

            endproc test2
            *** HAUPTPROGRAMM *****
            windowtitle Menutest
            declare mItem%
            CLS 0
            showmax
            popup &Datei
            appendmenu 110,&Neuer Test
            popup &Hilfe
            appendmenu 210,&Hilfe	F11
            baueMenue
            SetTimer 1

            whilenot ende%

                waitinput
                SetText BUTTON1&,Str$(&getTickcount)

                select %menuItem

                    caseof 110:test2 startet den Teil mit Sleep

                    otherWise

                endSelect

                if iskey(34)BildRunter

                    drawtext 0,0, Bild runter Taste
                    inc Klick%
                    drawtext 100,0, Klick%

                ELSEIF @Clicked(BUTTON1&) diese Berechnung soll gemacht werden während Proc test2 arbeitet

                    test

                endif

                setmenuitem 0

            endwhile

            KillTimer
            usecursor 0

end

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

In Buntank steckt el Solución.

Hänge por setTimer-Api una Temporizador en el subClassProc una, Yo sería 30ms wählen.

Dieser ruft aber una game-Frame-Proc en, esta wiederum schaut otra vez en 30ms vergangen son y ruft, si vergangen, el eigentliche Zeichnungsproc en.

Dieser Mechanismus verspricht einfache Echtzeitprogrammierung y el game-Frame-Proc kann auch en allen más Loop aufgerufen voluntad como esta sí incluso nochmals en vergangene 30ms achtet.

Vorteile: geringstmögliche Systemlast y einfacher Echtzeitnachbau

Como ya he dicho ya (u.A.) vorgemacht en Buntank, versuche hay trotz el algo otro Syntax herauszulesen como va.

Walter
Köhler

ok! In deinem Source Jörg, sehe Yo desafortunadamente no Solución. El beiden Procs laufen eindeutig sólo nacheinander, niemals parallel.

Werde ahora veces BUNTANK Source suchen y luego ma sehen como weit mich el bringen kann.
cu WKS

WKS Win XP Xprofan 10 AMD 1.6GHz 1GB Ram

@Walter: Parallel hay así y así no - nichtmal en echten Hilos, porque el es una typischer Anfängerdenkfehler el wir determinado todos veces unterlagen.

Siempre es sólo el Cuestión de Organisation el Aufgaben sodass lo así wirkt como sei algo parallel - deshalb versuche simplemente a verstehen como z.B. Buntank el Aufgaben verteilt en Ähnliches nachzubilden.