XProfan

Window 100,100-700,300
Window Title "Es becomes The Time measured , How long The left Mouse button pressed remaining..."
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 end Please Window close..."
locate 5,14
Print "Linke Mouse button at will pressed hold...."
Set("Decimals",2)
zeit&=&gettickcount

While 1'Endlosschleife!

    If %mousepressed=1

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        DrawText 100,150,"Linke Mouse button is straight 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&,st$(sek&/100)

    Endif

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

        DrawText 100,150,"                                                                       ";-1
        settext edit&,st$(sek&/100)
        locate 5,1
        Print "       "
        Text$="Linke Mouse button watts "+st$(sek&/100)+" sec long pressed ......    "
        DrawText 4,100,Text$;-1
        settext edit&,st$(sek&/100)

    EndIf

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

        CLS
        Print "Für end Please Window close..."
        locate 5,14
        Print "Linke Mouse button at will pressed hold...."
        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    Endif

EndWhile

end