Datumsroutinen in GFA-Basic

Nur wenige Probleme lassen sich arithmetisch so schwer in den Griff kriegen wie die Verwaltung von Kalenderdaten. Mit den unregelmäßigen Monatslängen und den Schaltjahren arten entsprechende Routinen leicht in seitenlange IF-Abfragen und Additionsreihen aus. Es geht einfacher, wenn man ein paar Tricks kennt. Wir liefern Ihnen Routinen, mit denen Sie eine komplette Datumsverwaltung in Ihr Programm integrieren. Die Beispiele sind in GFA-Basic gehalten, jedoch ist es kein Problem, sie auf andere Programmiersprachen umzusetzen. Das Programm mit allen Routinen finden Sie auf der TOS-Diskette.

Betrachten wir die Vorgehensweise der einzelnen Funktionen. Beginnen wir mit der Prozedur »TAG.NR«. Sie berechnet, am wievielten Tag im Jahr ein bestimmtes Datum zutrifft. Sie rufen die Prozedur mit

auf, wobei Sie in den ersten drei Variablen das jeweilige Datum übergeben. Ob Sie das Jahr vierstellig (1990) oder zweistellig (90) angeben, spielt dabei keine Rolle. In der letzten Variablen tnr% liefert die Prozedur das Ergebnis zurück - das ist ein Wert zwischen 1 und 365 (366 bei Schaltjahren). Letzteres ist übrigens ein Sonderfall, der vorliegt, wenn die Jahreszahl durch 4 teilbar ist, und wird entsprechend abgefragt.

Die Prozedur »TAG.ZAHL« macht im großen und ganzen das gleiche - mit einem entscheidenden Unterschied: Sie gibt die Tageszahl nicht relativ zum Jahresanfang aus, sondern liefert einen Wert zurück, dessen Zählbeginn sich auf den 1. März des Jahres 0 bezieht.

Dieser Wert heißt auch julianisches Datum. Daten vor dem 1. März 0 bekommen ein negatives Vorzeichen -achten Sie darauf, wenn Sie den entsprechenden Wert in Ihrem eigenen Programm auswerten. Beispielsweise funktioniert die Modulo-Funktion(mod) nur bei positiven Zahlen richtig; ich habe deshalb auf ihre Verwendung in diesen Routinen bewußt verzichtet. TAG.ZAHL beachtet übrigens automatisch die Schaltjahre - ein Vorteil der etwas komplizierten Formel, deren ausführliche Erläuterung ich mir hier sparen möchte. Beachten Sie dabei, daß Sie das Datum korrekt vierstellig angeben - zwischen dem 1. April 90 und dem 1. April 1990 liegen 19 Jahrhunderte.

Mit einem absoluten Datumswert in einer einzigen Zahl läßt sich eine Menge anfangen - deshalb benötigen wir TAG.ZAHL auch in allen folgenden Routinen. Wissen Sie eigentlich, an welchem Wochentag Sie geboren wurden? Oder auf welchen Tag Weihnachten im Jahr 2000 fällt? Die Prozedur WELCHER.TAG sagt es Ihnen. Sie übergeben wieder das Datum getrennt nach Tag, Monat und Jahr, und in t$ liefert die Routine den Wochentag zurück. Dabei bedient man sich eines Tricks: Wir nehmen ein Orientierungsdatum, dessen Wochentag bekannt ist. Beispielsweise war der 9.10.1970 ein Freitag. Jetzt müssen wir nur noch bestimmen, wieviel Tage seit diesem Datum positiv oder negativ vergangen sind. Das teilen wir durch 7 (für die sieben Wochentage) und zählen zum Rest 5 dazu (denn der Orientierungstag war ein Freitag). Das Ergebnis ist der gewünschte Wochentag.

Interessant ist auch, zu einem Datum eine gewisse Anzahl Tage zu addieren: Der wievielte genau ist heute in drei Wochen? Oder in 90 Tagen, wenn die Garantie für Ihren neuen Joystick ausläuft?

Diese Aufgabe übernimmt die Prozedur »DAT.RECHNEN«. Ihr übergeben Sie zunächst das Ausgangsdatum sowie den Wert, den Sie hinzuaddieren möchten. Die Prozedur ruft TAG.ZAHL auf, um den absoluten Wert des Datums zu bestimmen, und zählt den Wert a% dazu. Das Subtrahieren des Wertes erreichen Sie durch ein negatives a% (welches Datum war heute vor 14 Tagen?). Nun möchten wir das Ergebnis aber auch wieder als Kalenderdatum vorliegen haben - hierzu dient »RECALC«. Dies ist die Umkehrfunktion von TAG.ZAHL. Das Ergebnis steht dann am Funktionsende in t2%, m2% und j2%.

Mit diesen Routinen haben Sie einige mächtige Werkzeuge, wenn es darum geht, Kalenderdaten rechnerisch zu erfassen. Tiefergehende Anwendungen bauen Sie auf diesem Grundgerüst auf. Die Einsatzgebiete sind dabei nicht nur auf den traditionellen Biorhythmus beschränkt. (Marc Kowalsky/ah)

Auflösungsunabhängig in Basic

Um Programme unabhängig von der Bildschirmauflösung zu schreiben, ist es erforderlich, diese zunächst zu ermitteln. Aufschluß über die aktuelle Bildschirmauflösung gibt die Xbios-Funktion »Getrez«. Diese Funktion liefert auf einem ST die Werte 0 bis 2 für die geringe, mittlere und hohe Auflösung. Werte größer 2 sind für weitere Auflösungen, wie z. B. die des TT reserviert.

(ah)

Bildschirm auf Diskette

Für den Atari gibt es bereits eine ganze Reihe von Programmen, die über Alternate Help den aktuellen Bildschirm speichern. Viele Produkte blockieren jedoch diese Tastenkombination. Um einen Screenshot trotzdem auf eine Diskette oder Festplatte zu bringen, bedienen wir uns einfach einer anderen Tastenkombination. Hierzu eignen sich die Sondertasten Shift, Control, Alternate und Caps Lock besonders gut. Der Atari verfügt über 1 Byte im Speicher, das den aktuellen Sondertastenstatus (»kbshift«) angibt. Offiziell ist die genaue Position dieses Bytes erst seit TOS 1.2 dokumentiert. Dort finden wir es über einen Zeiger im Betriebssystemheader an Adresse $24. Mit

erhalten wir den korrekte Adresse in A0. Dies gilt jedoch nur für TOS-Versionen ab 1.2. Bei allen älteren Versionen liegt »kb_shift« bei Adresse $E1B.

Da der Zugriff auf die Adresse $FC001B beim STE und TT mit Bomben bestraft wird (I/O-Bereich), müssen wir zuvor die Identität des Computers klären. Bei allen Geräten der ST-Serie beginnt das Betriebssystem an der Adresse $FC0000, sofern kein RAM-TOS vorliegt. Ist der oben erhaltene Wert für »_sysbase« gleich $FC0000, handelt es sich um einen ST, und eine weitere Unterscheidung bezüglich der TOS-Version ist nötig. Eine Version zur Ermittlung von »Kbshift« in GFA-Basic zeigt Listing 2.

Die Hauptroutine läuft im VBL-Interrupt und prüft ständig den Sondertastenstatus. Jede Sondertaste wird einem Bit in diesem Statusbyte zugeordnet. Den genauen Aufbau zeigt Tabelle 1. Das Programm prüft die Tastenkombination Shift Shift Control, wobei es CapsLock vorher ausmaskiert. Problematisch ist der Aufruf von GEMDOS-Routinen innerhalb eines Interrupts. Um Fehler weitgehend auszuschließen, legen wir »etv_critic« auf das Ende der Routine, um bei Schreib- und Lesefehlern eine Alertbox zu umgehen. Trotzdem ist es ratsam, die Maus für die Zeit des Speicherns links liegen zu lassen. Je nach Computertyp (ST oder TT) speichert »DUMP_IT.PRG« 32000 oder 153600 Bytes. Als Pfad dient das Hauptverzeichnis des Laufwerks, von dem das Programm gestartet wurde. (ah)

Listing 2. Den Status der Sondertasten in Basic ermitteln

Bitbelegung bei Kbshift

Listing 1. Screenshots über Sondertasten

GESUCHT: TIPS & TRICKS

TOS ist ein Magazin zum Mitmachen. Also, Programmierer und Anwender - egal, ob Einsteiger oder Profi - aufgepaßt! Wir suchen Programme und Anwendertips zur Veröffentlichung. Einschränkungen machen wir keine: Das Programm oder der Tip kann kurz oder lang sein. Selbstverständlich gibt es ein angemessenes Honorar für Ihre Veröffentlichung. Ihr Honorar richtet sich nach der Qualität der Einsendung. Pauschalhonorare haben wir nicht, schließlich würdigen wir gute Beiträge nicht nach Länge. Einschicken können Sie auch alles, was mit der Programmierung des ST zusammenhängt. Das muß keine Superroutine sein, eine genial programmierte C-Funktion oder ein Hinweis über Betriebssystemfehler hat gute Chancen, in dieser Rubrik veröffentlicht zu werden. Die Belohnung für Ihren abgedruckten Beitrag beträgt mindestens 50 Mark.

Ihr Programm [auf Diskette] mit ausführlicher Beschreibung richten Sie an:

ICP-Verlag * Redaktion TOS * Stichwort: Tips & Tricks * Wendelsteinstraße 3 * 8011 Vaterstetten