XProfan

Español

E.T.

Aus akt. Anlass, hier veces una bastante simpler Temporizador:

CLS
Var sec& = 10'timer en sekunden
Var warte& = 1000'wartezeit a a aktualisierung
imprimir "Verbleibend: " + str$(sec&) + " Sekunden"'simple Anzeige

WhileLoop sec&

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

EndWhile

Imprimir "-------------------------"
imprimir "habe fertig..."'aktion, si timer abgelaufen
waitinput
end

Lässt se nat. verfeinern, así el auch el Programa en 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 Cita Zeilenweise Cita

maroro

gerade el Bucle macht se para seine Anwendung no tan bueno
con el Zeitpunkten de XProfan auch no also qué handgestricktes.

Zuerst ermitteln wir el aktuelle Tiempo y rechnen ellos en Sekunden en.

später ziehen wir esta Tiempo de el aktuellen Tiempo de si la Differenz
el gewünschte Größe ha así guía wir el Ereignis una así es z.B. auch
posible vorher todavía con un pocos Tönen en el Ablaufende Tiempo hinzuweisen.

como para Diablo fügt uno Ver código fuente una?

zeitrechnung.prf	1 kB

Hochgeladen:	18.12.2013

Ladeanzahl:
		Descargar

18.12.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Was hälst du de el Método?

Kompilieren Marca Separación

CLS
imprimir "Taste drücken en el Temporizador a starten"
Waitinput
Var time& = &gettickcount

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

EndWhile

imprimir "Es son 2 Sekunden vergangen...."
Waitinput
end