XProfan

English

E.T.

from nude. Anlass, here time one integrally simpler Timer:

CLS
Var sec& = 10'timer in sec
Var warte& = 1000'wartezeit To to updating
print "Verbleibend: " + st$(sec&) + " Sekunden"'simple display

WhileLoop sec&

    Sleep warte&
    locate 0,0'positionieren
    print "                                                       "'simple display delete
    locate 0,0'positionieren
    print "Verbleibend: " + st$(sec&-&loop) + " Sekunden"'simple display update

EndWhile

Print "-------------------------"
print "habe ready..."'action, if timer run down
waitinput
end

let itself nat. verfeinern, so the too the program on Inputs reacted 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...

12/18/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

maroro

straight The Loop power itself for its application not so well
with the Zeitpunkten from XProfan neither means what handgestricktes.

first detect we The actually Time and calculate tappt im dunkeln in sec circa.

later wander we these Time from the actually Time ex if The difference
The desired Size has so manage we the incident one so is it z.B. too
possible before yet with a couple tint on The Expiring time hinzuweisen.

How to that devil's fügt one View source one?

zeitrechnung.prf	1 kB

Hochgeladen:	12/18/13

Downloadcounter:
		Download

12/18/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

what hälst You from the method?

Compile Mark Separation

CLS
print "Taste pressing around the Timer To starten"
Waitinput
Var time& = &gettickcount

While (&gettickcount-time&)<=2000

EndWhile

print "Es are 2 sec vergangen...."
Waitinput
end