XProfan

Título de la ventana "Messageabholendes Waitinput beschleunigt:"+\
"     Solución de Jens-Arne Reumschüssel testen"
CLS:Selección aleatoria:font 2
declarar n&,tm&,i&,x&,y&,txt$,ungueltig&
 $IFNDEF COMPILER
txt$="INTERPRETER"
n&=2500
 $ELSE
txt$="COMPILER"
n&=4000
 $ENDIF
AppendMenuBar 100," "+txt$+" zählt a "+str$(n&)+\
".     ESC-Taste se erkannt y ser zerstört el laufenden Test!"
imprimir "\n OHNE Beschleunigung:",:x&=%pos:y&=%csrlin
waitinput 3:sound 200,20:ungueltig&=0
tm&=&GetTickCount

Whileloop n&:locate 20,20:imprimir &Loop;"     ";

    i&=&Loop
    waitinput 3

    if %Key="27":ungueltig&=1:romper:endif

    Endwhile

    tm&=&GetTickCount-tm&
    locate y&,x&

    ifnot ungueltig&: imprimir tm&,"ms"

        más :imprimir "<abgebrochen>":clear ungueltig&

    Endif

    imprimir "\n NUR Fastmode:",:x&=%pos:y&=%csrlin
    waitinput 3:sound 200,20:ungueltig&=0
    tm&=&GetTickCount
    set("Fastmode",1)

    Whileloop n&:locate 20,20:imprimir &Loop;"     ";

        waitinput 3

        if %Key="27":ungueltig&=1:romper:endif

        Endwhile

        set("Fastmode",0)
        tm&=&GetTickCount-tm&
        locate y&,x&

        ifnot ungueltig&: imprimir tm&,"ms"

            más :imprimir "<abgebrochen>":clear ungueltig&

        Endif

        imprimir "\n NUR MIT rnd()-Chance:",:x&=%pos:y&=%csrlin
        waitinput 3::sound 200,20:ungueltig&=0
        tm&=&GetTickCount

        Whileloop n&:locate 20,20:imprimir &Loop;"     ";

            if rnd()>0.95

                waitinput 3

                if %Key="27":ungueltig&=1:romper:endif

                endif

            Endwhile

            tm&=&GetTickCount-tm&
            locate y&,x&

            ifnot ungueltig&: imprimir tm&,"ms"

                más :imprimir "<abgebrochen>":clear ungueltig&

            Endif

            imprimir "\n LÖSUNG de Jens-Arne R.: Fastmode con %PeekMessage:",:x&=%pos:y&=%csrlin
            waitinput 3:sound 200,20:ungueltig&=0
            tm&=&GetTickCount
            set("Fastmode",1)

            Whileloop n&:locate 20,20:imprimir &Loop;"     ";

                if %PeekMessage

                    waitinput 3

                    if %Key="27":ungueltig&=1:romper:endif

                    Endif

                Endwhile

                set("Fastmode",0)
                tm&=&GetTickCount-tm&
                locate y&,x&

                ifnot ungueltig&: imprimir tm&,"ms"

                    más :imprimir "<abgebrochen>":clear ungueltig&

                Endif

                imprimir "\n OHNE JEDE ABFRAGE:",:x&=%pos:y&=%csrlin
                waitinput 3:sound 200,20:ungueltig&=0
                tm&=&GetTickCount

                Whileloop n&:locate 20,20:imprimir &Loop;"     ";

                Endwhile

                tm&=&GetTickCount-tm&
                locate y&,x&

                ifnot ungueltig&: imprimir tm&,"ms"

                    más :imprimir "<abgebrochen>":clear ungueltig&

                Endif

                hold:
                sound 2000,60
                Waitinput 7000:casenot %wmtimer:goto "hold"
                FIN