XProfan

Italia

E.T.

Aus akt. Anlass, hier mal ein ganz simpler Timer:

CLS
Var sec& = 10'timer in sekunden
Var warte& = 1000'wartezeit bis zur aktualisierung
print "Verbleibend: " + str$(sec&) + " Sekunden"'simple Anzeige

WhileLoop sec&

    Sleep warte&
    locate 0,0'positionieren
    print "                                                       "'simple Anzeige löschen
    locate 0,0'positionieren
    print "Verbleibend: " + str$(sec&-&loop) + " Sekunden"'simple Anzeige aktualisieren

EndWhile

Print "-------------------------"
print "habe fertig..."'aktion, wenn timer abgelaufen
waitinput
end

Lässt sich nat. verfeinern, so das auch das Programm auf 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 Zitat

Absatzweise Citazione Zeilenweise Citazione

maroro

gerade die Schleife macht sich per seine Anwendung nicht so gut
mit den Zeitpunkten aus XProfan auch nicht also was handgestricktes.

Zuerst ermitteln wir die aktuelle Zeit und rechnen sie in Sekunden um.

später ziehen wir diese Zeit von der aktuellen Zeit ab wenn die Differenz
die gewünschte Dimensione hat so leiten wir das Ereignis ein so ist es z.B. auch
possibile vorher noch mit ein paar Tönen auf die Ablaufende Zeit hinzuweisen.

wie zum Teufel fügt man Quelltext ein?

zeitrechnung.prf	1 kB

Hochgeladen:	18.12.2013

Downloadcounter:
		Download

18.12.2013 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Julian
Schmidt

Was hälst du von der Methode?

Kompilieren Markieren Separieren

CLS
print "Taste drücken um den Timer zu starten"
Waitinput
Var time& = &gettickcount

While (&gettickcount-time&)<=2000

EndWhile

print "Es sind 2 Sekunden vergangen...."
Waitinput
end