XProfan

Window 100,100-700,300
WindowTitle "Es wird die Zeit gemessen , wie lange die Linke Maustaste gedrückt bleibt..."
Declare zeit&,sek&,sekundaer_sek&,stop&,Edit&,text$
edit&=create("Edit",%Hwnd,"",60,50,40,22)
Stop&=0
UseFont "Arial",30,0,1,0,0
CLS
Print "Für Ende bitte Fenster schliessen..."
locate 5,14
Print "Linke Maustaste nach belieben gedrückt halten...."
Set("Decimals",2)
zeit&=&gettickcount

While 1'Endlosschleife!

    If %mousepressed=1

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        DrawText 100,150,"Linke Maustaste ist gerade gedrückt";-1

    Else

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

    EndIf

    If stop&=1

        locate 5,1
        Print "Click.."

    Else

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

    Endif

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

        DrawText 100,150,"                                                                       ";-1
        settext edit&,str$(sek&/100)
        locate 5,1
        Print "       "
        Text$="Linke Maustaste wurde "+str$(sek&/100)+" Sekunden lang gedrückt ......    "
        DrawText 4,100,text$;-1
        settext edit&,str$(sek&/100)

    EndIf

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

        CLS
        Print "Für Ende bitte Fenster schliessen..."
        locate 5,14
        Print "Linke Maustaste nach belieben gedrückt halten...."
        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    Endif

EndWhile

end