XProfan

Fenêtre 100,100-700,300
Titre de la fenêtre "Es wird qui Zeit gemessen , comment longtemps qui Linke Bouton de la souris gedrückt bleibt..."
Déclarer 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
Imprimer "Für Ende s'il te plaît la fenêtre schliessen..."
locate 5,14
Imprimer "Linke Bouton de la souris pour belieben gedrückt tenir...."
Set("Décimal",2)
zeit&=&gettickcount

Tandis que 1'Endlosschleife!

    Si %mousepressed=1

        inc stop&
        sek&=((&gettickcount-zeit&)/10)-sekundaer_sek&
        DrawText 100,150,"Linke Bouton de la souris ist justement gedrückt";-1

    D'autre

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

    EndIf

    Si stop&=1

        locate 5,1
        Imprimer "Click.."

    D'autre

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

    Endif

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

        DrawText 100,150,"                                                                       ";-1
        settext edit&,str$(sek&/100)
        locate 5,1
        Imprimer "       "
        Text$="Linke Bouton de la souris wurde "+str$(sek&/100)+" Sekunden long gedrückt ......    "
        DrawText 4,100,text$;-1
        settext edit&,str$(sek&/100)

    EndIf

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

        CLS
        Imprimer "Für Ende s'il te plaît la fenêtre schliessen..."
        locate 5,14
        Imprimer "Linke Bouton de la souris pour belieben gedrückt tenir...."
        sek&=0
        stop&=0
        sekundaer_sek&=0
        zeit&=&gettickcount

    Endif

Endwhile

end