XProfan

Deutsch

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 zitieren Zeilenweise zitieren

maroro

gerade die Schleife macht sich für 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 Größe hat so leiten wir das Ereignis ein so ist es z.B. auch
möglich 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

Ladeanzahl:
		Herunterladen

18.12.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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