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