XProfan

Français

E.T.

Aus akt. Anlass, ici la fois un entier simpler Minuteur:

CLS
Var sec& = 10'timer dans sekunden
Var warte& = 1000'wartezeit jusqu'à zur aktualisierung
imprimer "Verbleibend: " + str$(sec&) + " Sekunden"'simple Anzeige

WhileLoop sec&

    Sleep warte&
    locate 0,0'positionieren
    imprimer "                                                       "'simple Anzeige effacer
    locate 0,0'positionieren
    imprimer "Verbleibend: " + str$(sec&-&loop) + " Sekunden"'simple Anzeige aktualisieren

Endwhile

Imprimer "-------------------------"
imprimer "habe fertig..."'aktion, si timer abgelaufen
waitinput
end

Lässt sich nat. verfeinern, so cela aussi cela Programme sur Eingaben reagiert etc.

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

18.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

maroro

justement qui Boucle pouvoir sich pour sa Anwendung pas si bien
avec den Zeitpunkten aus XProfan aussi pas alors quoi handgestricktes.

d'abord ermitteln wir qui aktuelle Zeit et le calcul vous dans Sekunden um.

später tirer wir cet Zeit de qui aktuellen Zeit ab si le Differenz
qui gewünschte Taille hat so leiten wir cela Ereignis un so ist es z.B. aussi
possible auparavant encore avec un paire Tönen sur qui Ablaufende Zeit hinzuweisen.

comment zum Teufel fügt on Voir le texte source un?

zeitrechnung.prf	1 kB

Hochgeladen:	18.12.2013

Downloadcounter:
		Download

18.12.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

quoi hälst du de qui Methode?

Kompilieren Marque Séparation

CLS
imprimer "Taste drücken um den Minuteur trop starten"
Waitinput
Var time& = &gettickcount

Tandis que (&gettickcount-time&)<=2000

Endwhile

imprimer "Es sommes 2 Sekunden passé...."
Waitinput
end