Frage deutsch
~~~~~~~~~~~~
Wie kann man die Uhrzeit unabhägig vom Hauptprogramm in der Bildschirmzeile 1 anzeigen?
 

Question English
~~~~~~~~~~~~~~
How can I make an event-driven time-of-day display?
 

Antwort
~~~~~~~
[ von Hawkynt ( Hawkynt*gmx.de ) ]
.
Das geht "ereignisgesteuert" mit Hilfe des Befehls ON TIMER gemäß dem folgenden Beispielprogramm:
 
'*************************************************************************
' ONTIMER.BAS = Uhrzeitanzeige mit ON TIMER unabhaengig vom Hauptprogramm
' ===========
' (c)Hawkynt, 1999
'*************************************************************************
CLS
ON TIMER(1) GOSUB TIRQ1 'Timer-Interruptrogrammbearbeitung scharfmachen
TIMER ON
GOTO TIMEBRK: 'Uhrzeitbearbeitung ueberspringen
'
TIRQ1:
X% = POS(0) 'Cursorposition sichern
Y% = CSRLIN
LOCATE 1, 50
PRINT STRING$(8, 32);
LOCATE 1, 50
PRINT TIME$;
LOCATE Y%, X% 'Cursorposition wieder herstellen
RETURN
'
TIMEBRK: 'Hauptprogramm: Zahlenkolonne anzeigen
DO: i = i + 1: LOCATE 1, 1: PRINT i: LOOP WHILE INKEY$ = ""
'Abbruch mit beliebiger Tastenbetaetigung
 
Das obige Programm steht im Verzeichnis Progs\ zur Verfügung sowie online unter www.antonis.de/faq/progs/ontimer.bas .

[ The QBasic-MonsterFAQ --- Start Page: www.antonis.de/faq ]