Article View: maus.lang.tpascal
Article #14Re: F: Zeitanzeige
From: Jan Walzer
Date: Mon, 06 Oct 1997 00:00
Date: Mon, 06 Oct 1997 00:00
49 lines
3792 bytes
3792 bytes
steffen@funker.in-berlin.de meinte am 30.09.97
zum Thema "F: Zeitanzeige":
SL> beim z.B. NC wird oben rechts die Uhrzeit angezeigt. Wie kann man das auf
SL> die gleiche Art und Weise realisieren, da� bei einem Programm die Uhrzeit
SL> angezeigt wird und man nebenbei Eingaben t�tigen kann?
Wie w�r's wenn du dich in den Timer-Interrupt einh�ngst ???
Musst ja nich gleich erschrecken ...
So schwer iss das was du willst garnicht.
Mach einfach folgendes:
Ruf Dir die Hilfe zu dem Befehl >KEEP< auf
Da hast du ein Listing von 'nem Programm, das sich in den Keyboard-Int.
einh�ngt, und beim Dr�cken einer Taste 'nen Klick losl��t ..
Du brauchst Dir nur die KeyClick-Procedure anzupassen (warscheinlich auch
umbenennen) und den KEEP-Befehl weglassen, (der sorgt daf�r das es ein TSR
wird)
Du mu�t auch Die Nummer des Interrupts �ndern (ich glaube auf $08 o.$00 -
mu�t mal probieren)
Am Ende des Programms mu�t du den Interrupt dann wiederherstellen.
So m��te das dann eigentlich gehen.
Du mu�t nur Aufpassen, da� deine Prozedur f�r die Zeit nicht zu lange
dauert, und der Interrupt inzwischen wiederaufgerufen wird, aber bei der
Prozedur mit der Zeit d�rfte das kein Problem sein (Standardm��ig wird der
Timer 18,2 mal pro Sekunde Aufgerufen)
Anschlie�end kannst du mit den Standard-Prozeduren (Read[Ln]...) arbeiten
und die Uhr hasste auch ...
PS.: Speichere jedesmal vor dem Start des Programms ab.
-��������-�-��� � � � ��-��� ��-��- �--�� � � � ���-�-�����������������--
��-��ʭ�����ʭ��ʭ��ʭ�-��|��ʭͭ�++ | ��-��-�ͭ��
| |��| | í| |˭+| |���+�+ ��alias | |�+|
��-��𭭭� �𭷭� ��+ ˭�+˭˭�� | ��-��-�˭-�+
-�����������������-�-��� � � � ��-���� � � � ���-�-��������������������--
__............................................................__
_.ss$$SS?����������������������������������������������������������?SS$$ss._
<$S0O*+-�� � � - = �[ Member of the NCC-Leuna E.V. ]� = - � � ��-+*O0S$>
<$S0O*+-�� ��-=�[ http://www.cyberjunkie.com/intelligy ]�=-�� ��-+*O0S$>
<$S0O*+-�� � � - = � [ intelligy@cyberjunkie.com ] � = - � � ��-+*O0S$>
'��?$$SSs.________________________________________________________.sSS$$?��'
~'������������������������������������������������������������'~
Technical Details
Message-ID:
<6fKW6KHwMjB@iq.ncc.east.de>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<6esgn-L0j8B@funker.in-berlin.de>Show Full Headers
Complete Article Headers
X-Google-Language: GERMAN,ASCII X-Google-Thread: 110467,6f42dda64e97a8ad X-Google-Attributes: gid110467,public X-Google-Thread: fd1d1,6f42dda64e97a8ad X-Google-Attributes: gidfd1d1,public X-Google-Thread: 110930,6f42dda64e97a8ad X-Google-Attributes: gid110930,public X-Google-Thread: 10263e,6f42dda64e97a8ad X-Google-Attributes: gid10263e,public From: INTELLIGY@ncc.east.de (Jan Walzer) Subject: Re: F: Zeitanzeige Date: 1997/10/06 Message-ID: <6fKW6KHwMjB@iq.ncc.east.de> X-Deja-AN: 278624886 References: <6esgn-L0j8B@funker.in-berlin.de> X-Gateway: ZCONNECT fact.rhein-ruhr.de [UNIX/Connect v0.74b4] Organization: Macintosh - Haters Newsgroups: maus.lang.tpascal,z-netz.sprachen.pascal,de.comp.lang.pascal,fido.ger.pascal