🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: maus.lang.tpascal
Article #14

Re: F: Zeitanzeige

#14
From: Jan Walzer
Date: Mon, 06 Oct 1997 00:00
49 lines
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-mail
References: <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