XProfan

Ventana 100,100-700,300
Título de la ventana "Es se el Tiempo gemessen , como largo el Linke Botón del ratón gedrückt restos..."
Declarar zeit&,sek&,sekundaer_sek&,stop&,Edit&,texto$
edit&=create("Edit",%Hwnd,"",60,50,40,22)
Stop&=0
UseFont Arial,30,0,1,0,0
CLS
Imprimir "Für Ende Por favor, Ventana schliessen..."
locate 5,14
Imprimir "Linke Botón del ratón después de belieben gedrückt halten...."
Conjunto("Decimals",2)
zeit&=&gettickcount

Mientras que 1'Endlosschleife!

    If %mousepressed=1

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        DrawText 100,150,"Linke Botón del ratón es gerade gedrückt";-1

    Más

        sekundaer_sek&=((&gettickcount-zeit&)/10)
        DrawText 100,150,"                                                                ";-1

    EndIf

    If stop&=1

        locate 5,1
        Imprimir "Click.."

    Más

        settext edit&,str$(sek&/100)

    Endif

    If (%mousepressed =0) And (sek&>0)

        DrawText 100,150,"                                                                       ";-1
        settext edit&,str$(sek&/100)
        locate 5,1
        Imprimir "       "
        Texto$="Linke Botón del ratón wurde "+str$(sek&/100)+" Sekunden lang gedrückt ......    "
        DrawText 4,100,texto$;-1
        settext edit&,str$(sek&/100)

    EndIf

    If (%mousepressed =1) And (stop&=0)

        CLS
        Imprimir "Für Ende Por favor, Ventana schliessen..."
        locate 5,14
        Imprimir "Linke Botón del ratón después de belieben gedrückt halten...."
        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    Endif

EndWhile

end