OS/2 Shareware BBS: InfoMgt

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / KIM21.INF (.txt) < prev next >

Wrap

OS/2 Help File | 1995-11-01 | 360KB | 14,449 lines

ΓòÉΓòÉΓòÉ 1. Info ╨¬ber.. ΓòÉΓòÉΓòÉ Online-Handbuch f╨ær Datenbankbefehle 1. KIM/2 Handuch 1.2 ΓòÉΓòÉΓòÉ 2. Updates ab Version 2.1 ΓòÉΓòÉΓòÉ Update Info Sehr geehrter Anwender, KIM wird stetig weiterentwickelt. An dieser Stelle werden ╨₧nderungen, die noch nicht in der Hauptbeschreibung fixiert sind, in Kurzform beschrieben. ╨₧nderungen werden nach einen halben Jahr aus dieser ╨¬bersicht entfernt, und in die Haupt╨æbersicht ╨æbernommen. Darstellung der Variablen : test,zeile (numerisch) text$,test$ (zeichen) ----------------------------------------------------------------------------- September 1995 ----------------------------------------------------------------------------- L╨önge des Inhalts einer Zeichenkettenvariable von 256 Zeichen auf 512 Zeichen erh╨ñht. ----------------------------------------------------------------------------- Bildschirmaufl╨ñsung ermitteln : ------------------------------- get_display spalten,zeilen ----------------------------------------------------------------------------- Verschl╨æsseln von Daten : ------------------------- <Key> ist die Grundlage der Verschl╨æsselung und Entschl╨æsselung Zeichenkette : crypt key$,text$ Zeichenketten-Array : crypt_array key$,arr$,start,ende z.B. Verschl╨æsseln text$="Dies ist ein Test" : key$="Mary" crypt key$,text$ F╨ær die Entschl╨æsselung benutzen Sie den gleichen <key$> crypt key$,text$ ----------------------------------------------------------------------------- Zahlenvariablen werden bei Stringaddition in Strings umgewandelt ! a=5 b=4 text= a + "und" + b ----------------------------------------------------------------------------- Bestimmen der Mausposition get_mouse_pos x,y ----------------------------------------------------------------------------- Multitasking mit KIM ! Sehen Sie hierf╨ær das Beispiel : NEW21A1.KIM ----------------------------------------------------------------------------- Die rechte Maustaste abfragen und ein Popup-Men╨æ an der Mausposition zeigen : modul mouse_right() deffloat x,y,dx,dy get_mouse_pos x,y rem "Pixel" eine neue Eigenschaft !!! def_popup_menu "pop",x,y;"pixel" def_popup_item "p1"," Programm beenden" def_popup_item "p2"," Beep " def_popup_item "p3"," Multitasking" add_item "pop","p1","p2","p3" win_paint "pop" endmod ----------------------------------------------------------------------------- Oktober 1995 ----------------------------------------------------------------------------- Neue Befehlsparameter f╨ær IGETREC_ARRAY igetrec_array dbnr,flag,trenn$,_felder$,_arr$,start,ende,index1,... ;len1,... ;_pos,op,indexnr,verglwert$ Eingabeparameter : dbnr Datenbank-Nr. flag 0=vorw╨örts / 1=r╨æckw╨örts bl╨öttern trenn$ Trennzeichen _felder$ Datenbankstruktur index1..n Felder (Index) len1..n L╨öngenangaben op Operator 0 entspricht = 1 entspricht > -1 entspricht < indexnr Entspricht dem Feld auf dem die Indexdatei existiert f╨ær den Vergleichswert <verglwert$> Wird die Indexnr als negativer Wert angegeben, erfolgt ein numerischer Vergleich. verglwert$ Vergleichswert f╨ær Auswertung Ausgabeparameter : _arr$ Datens╨ötze von <start> bis <ende> _pos Array muss gleiche Gr╨ñ╤üe haben wie _arr$ Positionen in der Datenbank f╨ær IGO_NR,.. Nun was kann man machen ? Mit IGETREC_ARRAY - Funktionen k╨ñnnen Sie eine selektive Auswahl von Datens╨ötze aus einer Datenbank holen. Zum Beispiel Sie m╨ñchten aus einer Kundendatenbank alle Kunden selektieren deren Kundennummer gr╨ñ╤üer, kleiner oder gleich 10000 ist. Daf╨ær ist es wichtig, da╤ü auf der Kundennummer ein Index besteht und der Index der aktive Index ist. Weiterhin m╨æssen Sie mit IREAD eine Positionierung durchf╨æhren, bevor Sie IGETREC_ARRAY benutzen. Beispiel : Kunden < 20000 istart 1,_felder iread 1,ok," 20000",_felder igetrec 1,_felder igetrec_array 1,0,"-",_felder,_arr,0,100,1,4,5,6 ;10,20,30,20;_pos,-1,-1,"20000" Beispiel : Kunden > 10000 istart 1,_felder iread 1,ok," 10001",_felder igetrec 1,_felder igetrec_array 1,0,"-",_felder,_arr,0,100,1,4,5,6 ;10,20,30,20;_pos, 1,-1,"10000" Beispiel : Kunden = 10000 istart 1,_felder iread 1,ok," 10000",_felder igetrec 1,_felder igetrec_array 1,0,"-",_felder,_arr,0,100,1,4,5,6 ;10,20,30,20;_pos, 0,-1,"10000" Bei diesen Vergleichen ist folgendes zu beachten : In der Datenbank ist das Indexfeld ein Charakterfeld. F╨ær den Vergleich werden die Werte in Zahlen gewandelt, da die Indexnr. als negativer Wert angegeben ist. ----------------------------------------------------------------------------- L╨ñschen einer Zeile in einer Tabelle : DEL_TABLE_REC "table_id" L╨ñscht eine Zeile aus einer Tabelle, dabei wird das verkn╨æpfte Datenarray auch korrigiert. ----------------------------------------------------------------------------- ΓòÉΓòÉΓòÉ 3. Hinweise zur Probierversion ΓòÉΓòÉΓòÉ Probierversion Allgemeines Falls Sie die KIM Testversion bestellt haben, ist der folgende Abschnitt f╨ær Sie. Sehr geehrter Tester, KIM ist eine leistungsf╨öhige Programmiersprache f╨ær OS/2, DOS und Windows. In der Orginalversion wird ein 400 seitiges deutsches Handbuch mitgeliefert. Das Handbuch f╨æhrt anhand mehrerer Beispiele in die Programmierung von KIM ein. F╨ær den erfahrenen Programmierer steht ein ausf╨æhrlicher Referenzteil zu Verf╨ægung. Weiterhin erhalten Sie ein lizenzfreies Runtime-Kit um ihre Programme an Dritte weiterzugeben. F╨ær den elektronischen Support bieten wir eine Mailbox an. Der Preis f╨ær die Testversion wird auf den Preis der Orginalversion angerechnet. KIM erhalten Sie bei : EDV-B╨æro Kohlenbach Hauptstr. 5 90547 Stein Tel. 0911 - 68894-01 (10 - 15 Uhr) Fax. 0911 - 68894-03 oder Software Gibson Tel. 09183 - 40052 Fax. 09183 - 242 ΓòÉΓòÉΓòÉ 4. Der Editor ΓòÉΓòÉΓòÉ Der Editor Allgemeine Hinweise Der KIM-Editor ist ein kleines Textverabeitungsprogramm, mit dessen Hilfe Sie den Code f╨ær Ihre KIM-Programme entwickeln, schreiben und speichern k╨ñnnen. Selbstverst╨öndlich besitzt er nicht die umfangreichen Optionen eines Systems wie Word oder Star Writer. Vielmehr ist dieser Editor speziell auf die bei der Programmierung mit KIM auftretenden Bed╨ærfnisse zugeschnitten. Neben normalen Funktionen wie Ausschneiden, Kopieren und Einf╨ægen von Text stehen besondere Optionen wie die Aktivierung des KIM-Debuggers oder der Aufruf einer Labeltabelle zur Verf╨ægung. Der KIM-Editor entspricht in seiner Bedienung den Standard- Editoren der entsprechenden Betriebssysteme (also MS-Write oder OS/2-Systemeditor) und sollte Ihnen deshalb gel╨öufig sein. Wir wollen hier nur auf die notwendigsten Grundlagen eingehen und verweisen Sie auf die Handb╨æcher zu Ihren Betriebssystemen. Aufruf Unter OS/2 : ╨⌐ffnen Sie den Ordner "KIM Datenbanksystem" und klicken Sie auf das Symbol : KIM-Editor. Unter DOS : Wechseln Sie in das Verzeichnis KIMxx mit: cd KIMxx (dann Enter-Taste dr╨æcken) Dies ist nicht notwendig, falls Sie in der Datei "Autoexec.bat" eine Pfadzuweisung PATH=\KIMxx angegeben wurde. Rufen Sie nun den Editor auf: KE (dann Enter-Taste dr╨æcken) Es erscheint der KIM-Editor auf Ihrem Monitor: Bereits vom ╨öu╤üerlichen her gleicht dieser Editor ziemlich den Standardeditoren der jeweiligen Betriebssysteme. Mit Hilfe des Systembuttons links oben k╨ñnnen Sie die Gr╨ñ╤üe der Programmoberfl╨öche ver╨öndern, zu anderen Programmen wechseln oder das Programm beenden (vgl. auch das Kapitel ╨æber Fenster und Programmoberfl╨öchen). Der Maximierungs- und der Minimierungsbutton rechts oben erlauben die Vollbild- bzw. die Symboldarstellung des Programmes. ╨¬ber die Scrollbars kann im Eingabefenster vorhandener Text durch das Fenster gerollt und somit vollst╨öndig eingesehen werden. In der Meldezeile wird der Name der jeweils geladenen Datei angezeigt. Haben Sie bei einer Neuerstellung einer Datei noch keine Speicherung vorgenommen, erscheint hier der Name "Noname.kim". Texteingabe Sie geben den Text in das Eingabefenster ein. Bewegen Sie dazu den Mauscursor in dieses Fenster und klicken Sie mit der linken Maustaste einmal. Es erscheint ein Eingabezeichen links oben im Fenster. Nun k╨ñnnen Sie ganz normal Text ╨æber die Tastatur eingeben. Um einen geschriebenen Text zu bearbeiten, mu╤ü er zuvor markiert werden. Dies gelingt durch Dr╨æcken der linken Maustaste und Hinwegbewegen des Mauscursors ╨æber den gew╨ænschten Text oder durch Dr╨æcken der SHIFT-Taste und Bewegen des Cursors mittels der Cursortasten (Pfeiltasten). Ein markierter Text kann durch Bet╨ötigen der Tastenkombination STRG+X ausgeschnitten werden. Mit STRG+V f╨ægen Sie einen Text aus dem Zwischenspeicher wieder an der Cursorposition in den Text ein. Mit STRG+C wird ein markierter Text kopiert. Men╨æ Datei Im Men╨æ Datei finden Sie Optionen zur Neuerstellung, Speicherung und zum Laden von Dateien. Zus╨ötzlich ist hier eine Option zum Beenden des Programmes enthalten. Durch Aktivieren des Men╨æpunktes NEU wird eine eventuell im Editierfenster vorhandene Datei entfernt und somit eine Neuerstellung einer Datei m╨ñglich. Daher erfolgt zun╨öchst eine Abfrage, ob Sie die alte Datei speichern m╨ñchten, bevor der Inhalt des Editierfensters gel╨ñscht wird. Mit dem Befehl LADEN k╨ñnnen Sie eine bereits vorhandene KIM- Datei in den Editor holen. Es erscheint ein Auswahlfenster, in welchem Sie den Namen und den Pfad der gew╨ænschten Datei angeben k╨ñnnen. Durch Best╨ötigung (Klick auf den OK-Button) wird die Datei geladen. Sie besitzen zwei M╨ñglichkeiten der Textspeicherung. Mit SPEICHERN f╨æhren Sie eine Schnellspeicherung durch. KIM verwendet hierbei als Dateinamen den im Meldefenster vorgegebenen. Haben Sie die Datei zuvor noch nie gespeichert, erh╨ölt sie dadurch den Namen "Noname.kim". Einen neuen Namen k╨ñnnen Sie einer Datei beim Aufruf von SPEICHERN UNTER verleihen. In diesem Falle ╨ñffnet sich wieder ein Auswahlfenster, in welchem Sie Pfad und Verzeichnis der Datei selektieren k╨ñnnen. Wenn Sie den Editor verlassen m╨ñchten, rufen Sie QUIT auf. Es erscheint noch eine Abfrage, ob Sie den Editor verlassen m╨ñchten. Durch Bet╨ötigen des OK-Buttons wird das Programm beendet. Men╨æ Bearbeiten In diesem Men╨æ finden Sie Optionen zum Suchen und Tauschen von Textbegriffen. Wenn Sie den Befehl SUCHEN aktivieren, ╨ñffnet sich ein Abfragefenster. Dort geben Sie den zu suchenden Begriff ein und best╨ötigen Ihre Wahl durch Dr╨æcken des OK-Buttons. KIM springt dann im Editierfenster zu der Position, an welcher sich der gesuchte Begriff befindet. Bei der Wahl der Option TAUSCHEN ╨ñffnet sich ein ╨öhnliches Fenster, welches aber zus╨ötzlich noch ein Feld mit der Bezeichnung "Ersetzen durch" beinhaltet. Geben Sie im Feld "Suchtext" den zu tauschenden Begriff vor und im Feld "Ersetzen durch" den Begriff, welcher daf╨ær eingesetzt werden soll. Nach Dr╨æcken des OK-Buttons wird im gesamten Text der entsprechende Tausch vorgenommen. Men╨æ Start Wenn Sie mit der Maus diesen Punkt anw╨öhlen, wird der im Editierfenster vorhandene Quellcode vom KIM-Interpreter verarbeitet und das ╨æber diesen Sourcecode erstellte Programm ausgef╨æhrt. Vor Aufruf dieses Befehls sollten Sie ihre Datei sichern, da es bei Programmfehlern zu einem Absturz des Editors und damit zu einem Datenverlust kommen kann. Ist das ╨æber diesen Befehl gestartete Programm beendet, kehren Sie automatisch zum Editor zur╨æck. Men╨æ Optionen In diesem Men╨æ finden Sie eine Anweisung, welche Ihnen bei der Aufsp╨ærung von Fehlern in Ihrem Programmcode hilft. Wenn Sie die Option FEHLERANALYSE w╨öhlen, untersucht KIM den im Editierfenster vorhandenen Code selbst╨öndig auf Verschachtelungsfehler bei IF-ENDIF- und FOR-NEXT-Schleifen. Es wird ╨æberpr╨æft, ob zu jedem IF das zugeh╨ñrige ENDIF und zu jedem FOR das entsprechende NEXT vorhanden ist. Entdeckt das Programm dabei einen Fehler, werden Sie mit genauer Zeilenangabe darauf hingewiesen. Labeltabelle Mit diesem Befehl ist es Ihnen m╨ñglich, sich schnell in einem Programmcode zu bewegen. Bei Aktivierung erscheint ein Auswahlmen╨æ mit allen im Text definierten Modulen. Sie k╨ñnnen durch Selektieren eines gew╨ænschten Modulnamens ╨æber Mausklick sofort zur Position im Programmcode springen, an welcher das Modul definiert ist. Das Auswahlfenster schlie╤üt sich dabei automatisch. ΓòÉΓòÉΓòÉ 5. Der Maskengenerator ΓòÉΓòÉΓòÉ Der Maskengenerator Mit dem bisher in diesem Kapitel erlernten sind Sie jederzeit in der Lage, Programmoberfl╨öchen mit vollst╨öndigen Eingabefeldern auszustatten. Sicher sind Ihnen dabei aber einige Dinge aufgefallen, die die Erzeugung dieser Oberfl╨öchen alles andere als bedienerfreundlich machen. So m╨æssen Sie bei der Definition der einzelnen Objekte im Programmcode bekanntlich die genaue Position derselben im zugewiesenen Fenster festlegen. Dies ist aber gar nicht so einfach, da Sie hierf╨ær mit einer recht unanschaulichen Ma╤üeinheit (Zeichen pro Zeile) jonglieren m╨æssen. Bis das Ergebnis auf dem Bildschirm zu Ihrer Zufriedenheit ausf╨öllt, d╨ærften mehrere Anl╨öufe notwendig sein. Eine M╨ñglichkeit, die einzelnen Objekte graphisch auf dem Monitor zu definieren w╨öre dabei nat╨ærlich sehr hilfreich. Deswegen steht Ihnen im KIM-Editor ein ╨öu╤üerst m╨öchtiges Utensil zur Verf╨ægung, der Maskengenerator. Mit Ihm k╨ñnnen Sie auf graphischen Wege eine Programmoberfl╨öche mit Eingabefeldern und zus╨ötzlichen Objekten definieren und automatisch den entsprechenden Programmcode daf╨ær erzeugen lassen. Starten Um den Maskengenerator zu starten, geben Sie auf der DOS- oder OS/2-Ebene nach dem Promptzeichen ein: KIM KMASK oder Starten Sie den Editor und w╨öhlen den Men╨æpunkt Maskengenerator. Die Men╨æleiste Im oberen Teil des Bildschirms erkennen Sie die Men╨æleiste des Maskengenerators. Sie k╨ñnnen zwischen den Punkten "Datei", "Objekt_neu", "Bearbeiten" und "Code" w╨öhlen. Einen Men╨æpunkt w╨öhlen Sie aus, indem Sie den Mauszeiger auf den gew╨ænschten Befehl bewegen und die linke Maustaste dr╨æcken. Es ╨ñffnet sich dann ein Pull-Down-Men╨æ bzw. wird der Befehl Code ausgef╨æhrt. Optional gelingt die Aktivierung ╨æber die Tastatur, wenn Sie die ALT-Taste gleichzeitig mit dem im Befehl unterstrichenen Buchstaben dr╨æcken, also z.B. ALT + D, um das Men╨æ "Datei" zu ╨ñffnen. Das Men╨æ Datei Im Men╨æ Datei befinden sich folgende Befehle: "Neu", "Laden", "Speichern", "Speichern unter" und "Quit". Diese Befehle lassen sich durch Klick mit der linken Maustaste auf die gew╨ænschte Anweisung aktivieren. Mit der Tastatur f╨æhren Sie die Befehle durch gleichzeitiges Dr╨æcken der SHIFT-Taste und des jeweils unterstrichenen Buchstaben im Befehlswort aus, z.B. beenden Sie den Maskengenerator durch Dr╨æcken von SHIFT + Q. Neu : Wenn sie den Befehl "Neu" aktivieren, wird der Inhalt des Editors gel╨ñscht, und Sie k╨ñnnen eine neue Programmaske erstellen. Falls Sie gerade eine andere Maske bearbeitet haben, fragt das Programm vor dem L╨ñschen, ob die alte Maske gespeichert werden soll oder nicht. Laden: Sie bekommen als m╨ñgliche ladbare Dateien alle Files angeboten, die die Endung *.msk besitzen und im Startverzeichnis C Es ist aber selbstverst╨öndlich m╨ñglich, Dateien aus anderen Verzeichnissen zu laden. Sie k╨ñnnen das aktuelle Verzeichnis durch Klick auf die beiden Punkte (entspricht dem DOS-Befehl cd..) im Feld "Dateien" wechseln. Klicken Sie auf die gew╨ænschte Datei. Diese erscheint dann im Feld "Datei/Pfad" und ist somit selektiert. Durch Klick auf die OK-Taste wird sie in den Maskengenerator geladen. Ein Klick auf den ABBRUCH-Button bringt Sie in das Hauptmen╨æ zur╨æck, ohne da╤ü eine Datei geladen wurde. Speichern: Eine bearbeitete Datei kann mit Hilfe dieser Option schnellgespeichert werden. Wenn Sie den Befehl ╨æber Mausklick oder durch Dr╨æcken von SHIFT + S aktivieren, erfolgt sofort eine Speicherung der Datei ohne weitere R╨æckfrage. Als Dateiname wird derjenige verwendet, der in der Meldezeile unterhalb der Men╨æleiste aufgef╨æhrt ist. Haben Sie noch keine Speicherung vorher durchgef╨æhrt, erh╨ölt die Datei den Namen "Noname.kim". Speichern unter: Mit dieser Option k╨ñnnen Sie eine Datei mit einem beliebigen Namen in einem beliebigen Verzeichnis speichern. Der Befehl l╨ö╤üt sich durch Mausklick darauf oder mit Hilfe der Tastenkombination SHIFT + U aufrufen. Es erscheint ein Meldungsfenster. Best╨ötigen Sie die Meldung mit OK (Mausklick darauf, ENTER- Taste oder "O" dr╨æcken), dann erscheint das bereits von dem Befehl "Laden" bekannte Untermen╨æ. W╨öhlen Sie wie dort beschrieben das gew╨ænschte Zielverzeichnis aus und geben Sie in das Feld Datei/Pfad den zuk╨ænftigen Dateinamen ein. Sind alle Eingaben zu Ihrer Zufriedenheit get╨ötigt, best╨ötigen Sie mit "OK". Sie k╨ñnnen das Untermen╨æ jederzeit mit ABBRUCH (Mausklick darauf oder ESC-Taste dr╨æcken) verlassen. Dann wird allerdings keine Speicherung vorgenommen. Quit: Wenn Sie den Maskengenerator verlassen m╨ñchten, klicken Sie mit der Maus den Befehl QUIT an. Optional l╨ö╤üt die Anweisung sich mit der Tastenkombination SHIFT + Q aktivieren. Es wird dann nachgefragt, ob Sie tats╨öchlich den Maskengenerator verlassen wollen. Wenn Sie den Maskengenerator noch nicht verlassen m╨ñchten, bringt Sie der Button "ABBRUCH" ohne weitere Konsequenzen in das Programm zur╨æck. Best╨ötigen Sie Ihre Entscheidung mit "OK", so verlassen Sie den Maskengenerator. Erstellen von Objekten Beim Aufruf des Maskengenerators erscheint das eigentliche Editierfeld v╨ñllig leer und bereit f╨ær Ihre Eingaben. Das Editierfeld wird sp╨öter bei der Codeerstellung als Programmfenster verwendet, in welches alle anderen zu definierenden Objekte eingef╨ægt werden. Ein Aufruf des Men╨æs OBJEKT_NEU zeigt Ihnen eine Liste aller Oberfl╨öchenobjekte, die mit Hilfe des Maskengenerators definiert werden k╨ñnnen: Feldname: Es wird eine Feldbezeichnung erstellt (entspricht dem Befehl DEF_PROMPT). String: Es wird ein allgemeines Eingabefeld erstellt (entspricht dem Befehl DEF_STRING). Datum: Es wird ein Datumsfeld erstellt (entspricht DEF_INPUT_DATE). Zeit: Es wird ein Zeitfeld erstellt (entspricht DEF_INPUT_TIME). Text: Es wird ein Textfeld erstellt (entspricht DEF_TEXT). Gruppe: Ein Gruppenobjekt wird definiert (analog zu der bei Fenster und Programmoberfl╨öchen besprochenen. Push-Button: Ein Push-Button wird erzeugt (entspricht DEF_BUTTON). Radio-Button: Ein Radiobutton wird definiert (dies entspricht dem Befehl DEF_BUTTON mit dem FLAG "RADIO"). Checkbox: Ein Checkbox-Button wird erzeugt (dies entspricht dem Befehl DEF_BUTTON mit dem FLAG "CHECKBOX"). Wenn Sie eines dieser Objekte durch Mausklick darauf (oder mit der ENTER-Taste nach Positionierung des Aktivierungsbalkens auf das Objekt) ausw╨öhlen, erscheint dieses links unten im Editierfenster des Maskengenerators: Bearbeiten von Objekten Nat╨ærlich ist die Erzeugung eines Maskenobjektes nur der erste Schritt. Die Objekte m╨æssen nun an die richtige Position im Fenster gesetzt und gegebenenfalls ver╨öndert werden. Verschieben eines Objekts Ein Objekt l╨ö╤üt sich verschieben, indem Sie mit der linken Maustaste in das Objekt klicken, diese gedr╨æckt halten und das Objekt zum neuen Standort auf dem Bildschirm ziehen. Wenn Sie die linke Maustaste loslassen, rastet das Objekt an der neuen Position ein. Um das Objekt endg╨æltig an einer Position zu fixieren und versehentliches Verschieben zu vermeiden, w╨öhlen Sie aus dem Men╨æ BEARBEITEN den Befehl "Fixieren" aus (Mausklick darauf oder durch Dr╨æcken der Tasten SHIFT + F). Das Objekt kann dann nicht mehr bearbeitet werden. Diese Fixierung l╨ö╤üt sich durch die Anweisung "Position neu" im Men╨æ BEARBEITEN wieder r╨æckg╨öngig machen. Haben Sie diese Option mittels Mausklick oder Tastenkombination SHIFT + P aktiviert, l╨ö╤üt sich das Objekt wieder verschieben und bearbeiten. Gr╨ñ╤üen╨önderung eines Objekts Sie klicken den Rand des Objekts mit der linken Maustaste an, halten diese gedr╨æckt und ziehen den Rand in die gew╨ænschte Richtung. Das Objekt beginnt sich nun zu vergr╨ñ╤üern oder zu verkleinern. L╨ñschen eines Objekts W╨öhlen Sie das entsprechende Objekt durch einen Doppelklick mit der linken Maustaste darauf aus. Anschlie╤üend aktivieren Sie die Option "L╨ñschen" aus dem Men╨æ BEARBEITEN (durch Mausklick darauf oder mit SHIFT + L). Haben Sie das Objekt zuvor nicht aktiviert, erhalten Sie eine Fehlermeldung mit der Mitteilung, da╤ü der Befehl nicht durchf╨æhrbar ist. ╨₧nderung der Objekteigenschaften Das mit OBJEKT_NEU definierte Objekt wird standardm╨ö╤üig erstellt. Nat╨ærlich k╨ñnnen Sie dieses Objekt im Maskengenerator noch individuell gestalten. Sobald Sie ein Objekt erstellt haben, erscheint es als rechteckiger Kasten links unten im Editierfenster. Innerhalb des Objekts befindet sich die ID-Kennung, die vom Maskengenerator routinem╨ö╤üig aus der Art des Objekts und der aktuellen Objektzahl gebildet wird. Haben Sie z.B. als drittes Objekt ein Datumsfeld definiert, so erh╨ölt dieses die Kennung "Datum3". Betrachten Sie die Combobox rechts in der Meldezeile. Dort finden Sie nun ebenfalls die ID-Kennung des neu erstellten Objekts. Dieser Combobox kommt nun eine besondere Bedeutung bei der ╨₧nderung von Objekteigenschaften zu. M╨ñchten Sie an einem Objekt Ver╨önderungen vornehmen, so ╨ñffnen Sie die Combobox durch einen Mausklick auf den Pfeil rechts von der Box. In der Combobox finden Sie die ID-Kennungen aller definierten Objekte. Klicken Sie auf die Kennung des entsprechenden Objekts. Diese erscheint nun auf als aktives Objekt oben in der Combobox. Gleichzeitig ╨ñffnet sich ein Untermen╨æ, das ╨₧nderungen dieses Objekts erlaubt. Im Feld "ID-Kennung" finden Sie die vom Maskengenerator routinem╨ö╤üig erstellte Bezeichnung f╨ær das definierte Objekt. Sie k╨ñnnen diese ╨öndern, indem Sie den alten Text markieren und durch Dr╨æcken der ENTF-Taste l╨ñschen. Nun ist das Feld f╨ær die Eingabe einer neuen Bezeichnung frei. Beachten Sie aber bitte, da╤ü Sie unbedingt eine ID-Kennung f╨ær das Objekt angeben m╨æssen, sonst kann der Programmcode f╨ær die Maske nicht korrekt erstellt werden. Im n╨öchsten Feld "Inhalt" k╨ñnnen Sie nach Wahl dem Objekt eine zus╨ötzliche Bezeichnung bzw. einen Vorgabetext verleihen (je nach Art des Objekts; Buttons und Gruppen erhalten eine Zusatzbezeichnung, Felder einen Vorgabetext). Eine Eintragung in dieses Feld ist aber nicht zwingend erforderlich. Geben Sie nichts an, wird im Programmcode an der entsprechenden Position ein Leerstring ╨æbergeben. Im Editierfeld des Maskengenerators erscheint nun im entsprechenden Objekt statt der ID-Kennung der hier eingegebene Inhalt. Die beiden langen freien Felder sind f╨ær die Definition von zus╨ötzlichen Eigenschaften des Objekts vorgesehen. Diese k╨ñnnen Sie wie bereits besprochen ╨æber FLAGS definieren. Einige FLAGS sind bereits in diesem Untermen╨æ aufgef╨æhrt. Eine vollst╨öndige Liste aller in KIM verf╨ægbaren FLAGS finden Sie im Abschnitt "Fenster und Programmoberfl╨öchen". Geben Sie die gew╨ænschten FLAGS wie gezeigt in Anf╨æhrungs- und Schlu╤üzeichen ein. M╨ñchten Sie mehrere FLAGS definieren, trennen Sie diese voneinander durch Kommata. Haben Sie die Objekteigenschaften zu Ihrer Zufriedenheit ver╨öndert, beenden Sie das Untermen╨æ "Eigenschaften" durch Mausklick auf den Button "Schlie╤üen". Erstellen des Programmcodes Wenn Sie die vollst╨öndige Programmaske mit Hilfe des Maskengenerators erstellt haben, besteht der letzte Schritt darin, den dazugeh╨ñrigen Programmcode zu erzeugen. Auch dies ╨æbernimmt der Maskengenerator selbst╨öndig f╨ær Sie. Klicken Sie in der Men╨æleiste den Befehl CODE an. Analog k╨ñnnen Sie durch Dr╨æcken der Tastenkombination ALT + C diese Anweisung aktivieren. Es ╨ñffnet sich das bereits vom Befehl Laden her bekannte Untermen╨æ, in welchem Sie den Namen der zu speichernden Datei sowie das Verzeichnis, in das die Datei geschrieben werden soll, angeben k╨ñnnen. Sind Sie mit Ihren Angaben zufrieden, klicken Sie auf den OK-Button. Der die Maske beschreibende Code wird daraufhin erstellt. Ist der Vorgang beendet, kehren Sie zum Maskengenerator zur╨æck, wo Sie weitere Eingaben t╨ötigen oder mit QUIT das Programm beenden k╨ñnnen. Bearbeiten des Codes Nat╨ærlich kann der Maskengenerator nicht einen vollst╨öndigen Code f╨ær eine ganze Programmoberfl╨öche erzeugen. So besitzen Sie keine M╨ñglichkeit, Men╨æleisten, Toolbars oder ╨öhnliches mit dem Maskengenerator zu definieren. Diese ╨₧nderungen m╨æssen nachtr╨öglich "per Hand" eingegeben werden. Des weiteren werden die zu den Feldern geh╨ñrenden Variablen nicht selbst╨öndig generiert. Diese m╨æssen nachtr╨öglich in den Code eingef╨ægt werden. Laden Sie hierzu die mit dem Maskengenerator erstellte Datei in den normalen KIM-Editor und ╨öndern Sie den Programmcode entsprechend. Individuelle Gestaltung Der Maskengenerator wird Ihnen unverschl╨æsselt mitgeliefert. Dadurch erhalten Sie die M╨ñglichkeit, dieses Utility nach Ihren W╨ænschen individuell umzugestalten. Gehen Sie aber bitte mit ╨₧nderungen im Quellcode des Maskengenerators sorgf╨öltig und vorsichtig um und variieren Sie nur die hier besprochenen Teile, wenn Sie sich noch nicht so sicher im KIM-Programmcode f╨æhlen. Denken Sie daran, da╤ü ein einziger gravierender Fehler im Code das Programm zum Absturz bringt. Wir empfehlen Ihnen deshalb, den urspr╨ænglichen Programmcode des Maskengenerators vor ╨₧nderungen in eine neue Datei zu kopieren, so da╤ü Sie im Falle eines durch Ihre ╨₧nderungen verursachten Programmabsturzes immer noch im Besitz eines funktionsf╨öhigen Programms sind. Gr╨ñ╤üe des Editierfensters Wie bereits besprochen stellt das Editierfenster des Maskengenerators die Oberfl╨öche Ihres zuk╨ænftigen Programms dar. In dieses Fenster positionieren Sie Ihre Maskenobjekte graphisch an die gew╨ænschten Stellen. Wenn Sie die Gr╨ñ╤üe dieses Fensters ╨öndern m╨ñchten, m╨æssen Sie sich in den Quellcode des Maskengenerators begeben. Laden Sie dazu die Datei KMASK.KIM in den KIM-Editor. Bewegen Sie nun den Cursor in die Codezeile 28. Dort werden die Variablen _x, _y, _breite und _hoehe definiert. ╨¬ber diese Variablen wird die Gr╨ñ╤üe des Editierfensters gesteuert. In den Codezeilen 29 bis 32 finden Sie als Voreinstellungen, da╤ü das Fenster von der Position 2,2 aus 75 Zeichen breit und 15 Zeichen hoch sein soll. Die Position der linken oberen Fensterecke sollten Sie nach M╨ñglichkeit nicht ╨öndern, da hiermit das Fenster so in den Maskengenerator eingef╨ægt wird, da╤ü man die Men╨æ- und Meldeleiste gut erkennen kann. Nach Belieben ver╨öndern k╨ñnnen Sie jedoch die Breite (╨æber _breite) und H╨ñhe (╨æber _hoehe) des Editierfensters. ╨₧ndern Sie dazu entsprechend den Variableninhalt in den Codezeilen 31 und 32. Vorgabe f╨ær Dateinamen Wenn Sie den Maskengenerator neu starten oder die Men╨æoption "Neu" w╨öhlen, wird der Inhalt des Editierfensters gel╨ñscht und die neue Datei erh╨ölt den Vorgabenamen "Noname.Kim". Wenn Sie einen anderen Dateinamen als Vorgabe w╨öhlen m╨ñchten, laden Sie wie beschrieben mit KE KMASK.KIM den Quellcode in den KIM- Editor und setzen den Cursor in die Zeile 35. Dort finden Sie die Wertzuweisung _dateiname = "Noname.Kim". ╨₧ndern Sie diese Codezeile, indem Sie der Variablen als Inhalt einen Namen Ihrer Wahl zuweisen. Farbeinstellungen des Maskengenerators Die Farbvorgaben des Maskengenerators lassen sich auf unterschiedliche Weise ╨öndern, entweder ╨æber das Betriebssystem oder durch Manipulation des Quellcodes. ╨₧nderung ╨æber Windows: Wenn Sie die Windows-Version von KIM besitzen, so ╨öndern Sie die Farbeinstellungen wie folgt. Rufen Sie das Fenster Hauptgruppe auf. Dort klicken Sie das Men╨æ Systemsteuerung an. In diesem Men╨æ rufen Sie den Punkt Farben auf. Dort k╨ñnnen Sie alle Farben des Programmfensters ╨öndern. Bedenken Sie aber, da╤ü so vorgenommene ╨₧nderungen f╨ær alle Windows-Programme sowie f╨ær Windows selbst g╨æltig sind. ╨₧nderung ╨æber OS/2: Rufen Sie den Maskengenerator auf und gehen Sie in die Ansicht Desktop - Icon View. Von dort starten Sie das Utility Color Palette. Bewegen Sie den Mauszeiger auf die gew╨ænschte Farbe, dr╨æcken die rechte Maustaste, halten diese gedr╨æckt und ziehen Sie den Cursor in den Fensterbereich des Maskengenerators, dem Sie die neue Farbe zuweisen wollen. Lassen Sie dann die rechte Maustaste los. Der entsprechende Fensterbereich besitzt nun die neue Farbe. Im Gegensatz zu Windows ist eine solche Farbver╨önderung bei OS/2 nur f╨ær das bearbeitete Programm g╨æltig. ╨₧nderung ╨æber den Quellcode: Laden Sie mit KE KMASK.KIM den Quellcode in den KIM-Editor. Bewegen Sie den Cursor in die Zeilen 39 und 40. Dort befinden sich die Definitionen von Farbpaletten. ╨₧ndern Sie die hier die Vordergrund- und Hintergrundfarben nach Ihren Vorstellungen. Die entsprechenden Farbcodes finden Sie in der Farbtabelle im Anhang. Beachten Sie bitte, da╤ü sich diese Farbpaletten im Originalcode nur auf die mit dem Maskengenerator neu erstellten Maskenobjekte beziehen. M╨ñchten Sie auch andere Bestandteile des Programmfensters beeinflussen, m╨æssen Sie den entsprechenden Definitionsbefehl f╨ær dieses Objekt im Code suchen, dort das FLAG "COLOR ON" anf╨ægen und anschlie╤üend mit COLOR ITEM diesem Objekt die gew╨ænschte Farbpalette zuweisen. N╨öheres ╨æber dieses Vorgehen finden Sie im Abschnitt 4.3. des Kapitels ╨æber Programmoberfl╨öchen und Fenster. Ein Hinweis hierzu: Die meisten Definitionsbefehle f╨ær die Programmbestandteile finden Sie im Modul fenster_inhalt. Das eigentliche Programmfenster wird in der Codezeile 44 definiert. ΓòÉΓòÉΓòÉ 6. Der Debugger ΓòÉΓòÉΓòÉ Der Debugger Um Ihren Programmcode auf etwaige Fehler hin zu ╨æberpr╨æfen, steht Ihnen nicht der Men╨æpunkt Fehleranalyse zur Verf╨ægung, sondern ein noch m╨öchtigeres Hilfsmittel, der KIM-Debugger. Mit dessen Hilfe k╨ñnnen Sie ihren Programmcode zeilenweise auf Unstimmigkeiten ╨æberpr╨æfen. Geben Sie dazu an der Position, von der aus Sie die ╨¬berpr╨æfung durchf╨æhren wollen, den Befehl START in Ihren Code ein. Es wird der gesamte Quellcode bis zum Schlu╤ü ╨æberpr╨æft, es sei denn, Sie beenden diesen Test vorzeitig, indem Sie an einer anderen Stelle den Befehl ENDE einf╨ægen. Wenn Sie nach Einf╨ægen von START nun das Programm aufrufen, erhalten Sie abwechselnd die Oberfl╨öche Ihres Programms und ein Debuggerfenster. Der KIM-Debugger arbeitet den Programmcode befehlsgem╨ö╤ü ab. Dies bedeutet, da╤ü der Quellcode nicht zeilenweise vom Debugger ╨æberpr╨æft wird, sondern in der Reihenfolge der Ausf╨æhrung der Befehle. Wird beispielsweise ein Label angesprungen, ╨æberpr╨æft der Debugger am Label weiter. Jeder einzelne Programmschritt wird Ihnen im oberen Feld. Auf diese Weise k╨ñnnen Sie den Ablauf eines Programms exakt nachvollziehen. Es ist Ihnen auch m╨ñglich, den Inhalt bestimmter Variablen an unterschiedlichen Positionen im Programmcode einzusehen. Auf der linken Seite im Debuggerfenster sind f╨ænf Felder mit der Bezeichnung Variable vorgesehen. Geben Sie dort nach Erscheinen des Debuggerfensters die Namen der zu ╨æberpr╨æfenden Variablen an. Der Debugger ermittelt dann selbst╨öndig bei jeder Codezeile den Inhalt dieser Variablen. Sie k╨ñnnen auch an irgendeiner Position w╨öhrend des Debugvorgangs einen neuen Variablennamen angeben und durch Bet╨ötigen des Buttons "Aktual." den Variableninhalt ╨æberpr╨æfen. Eine Codezeile bleibt so lange im oberen Informationsfeld, bis Sie durch Bet╨ötigen des Buttons "Weiter" die ╨¬berpr╨æfung fortsetzen. Sie k╨ñnnen den Debugger jederzeit mit Hilfe des Buttons "Deb.Ende" verlassen. Es wurde dann aber nicht der gesamte urspr╨ænglich zur ╨¬berpr╨æfung vorgesehene Codeabschnitt durchgesehen. Vergessen Sie nicht, nach Beendigung der ╨¬berpr╨æfung die Befehle START und ENDE wieder aus dem Programmcode zu entfernen, um das Programm normal betriebsf╨öhig zu machen. ΓòÉΓòÉΓòÉ 7. Grundbegriffe ΓòÉΓòÉΓòÉ Grundbegriffe Datenbank Die erstellten Datenbanken sind dBASE-kompatibel. Als Index wird der dBASE-IV Index unterst╨ætzt. (Andere Indexformate : FOXPRO und CLIPPER k╨ñnnen bestellt werden ) Systemkapazit╨öt : (dBASE IV - Index) Gr╨ñ╤üe der Datendatei : 1,000,000,000 Bytes Feldbreite : 256 Bytes Memofeld : 64 KB Anzahl der Felder : 128 Offene Datenbanken : 100 Anzahl Subindizes pro Index : 47 Datensatzbreite : 64 KB 0) Befehle Befehle sind reservierte W╨ñrter und d╨ærfen nicht als Variablennamen verwendet werden. Ein Befehl besteht aus einem Kommandowort und einem Parameterblock. Mehrere Befehle in einer Zeile m╨æssen mit einem Doppelpunkt getrennt werden. 1) Variablen Daten, die wir aus einer Datenbank lesen oder schreiben, stellen wir am Bildschirm dar. F╨ær so einen Vorgang m╨æssen Daten in sogenannten Variablen gespeichert werden. Variablen m╨æssen in KIM deklariert werden, bevor man Sie nutzt. Es gibt lokale und globale Variablen. Globale Variablen habe eine G╨æltigkeit in allen Modulen eines Programms. Eine globale Variable wird mit dem Unterstrich am Anfang des Variablennamens gekennzeichnet, (z.B. _test). Ein Variablenname kann 32 Zeichen lang sein. Deklarationen in Modulen gelten in der Regel als lokal. Mehrere Variablen k╨ñnnen mit Kommas getrennt deklariert werden. In KIM gibt es zwei Variablentypen : TEXT- und NUMERISCHE VARIABLEN. a) Numerische Variable Eine numerische Variable wird mit dem Befehl DEFFLOAT oder DIMFLOAT deklariert. KIM speichert einen numerische Werte als Flie╤ükommazahl. Mit DIMFLOAT wird ein Array von numerischen Variablen deklariert. Beispiel DEFFLOAT a,b,c,d DIMFLOAT test,1,100 Mit DIMFLOAT wird test1,test2,test3,...test100 deklariert. b) Stringvariable String- oder Textvariablen dienen zum Speichern von alphanumerischen Zeichenketten. F╨ær die Deklaration gibt es 4 Befehle : DEFSTRING, DIM,DEFINE,DIMMEMO Der Inhalt einer Stringvariablen kann bis zu 512 Zeichen beinhalten. Eine Stringvariable, die mit DIMMEMO deklariert wird, kann bis zu 64000 Zeichen lang sein. In KIM wird diese Form der Variable als MEMOVARIABLE bezeichnet. Beispiel DEFSTRING eingabe,text,ausgabe,datei DIM feld,1,100 DEFINE kunde1,20 as Name DEFINE kunde2,15 as Vorname DIMMEMO memo,10000 (Memovariable mit 10000 Bytes) MIT DIM werden die Variablen feld1,feld2,feld3,.. feld100 deklariert. Die Definition von Variablen mit DEFINE dient den Datenbankbefehlen. DEFINE-Variablen sind immer globale Variablen und m╨æssen durchgehend nummeriert sein. (kunde1,kunde2,kunde3...) Einer DEFINE-Variable kann ein Zusatzname mit AS zugeteilt werden. Im Programm kann die Variable mit einem Punkt und Zusatznamen angesprochen werden. Beispiel DEFINE kunde1,20 as Name DEFINE kunde2,15 as Vorname DEFSTRING text text=kunde.Vorname + " " + kunde.Name Der Wert 20 und 15 ist eine L╨öngenangabe der Variablen und f╨ær die Nutzung mit einer DBASE-kompatiblen Datenbank belanglos, da die L╨öngen der Datenbankfelder ╨æber die Datenbankstruktur festgelegt werden. 2.) Die Zuweisung = Anweisung text1="Hallo" bedeutet, da╤ü der Stringvariablen namens text1 der Inhalt "Hallo" zugewiesen wird. Allgemein gesprochen werden die Zeichen oder der Inhalt einer Variablen rechts vom Gleichheitszeichen der Variablen links davon zugewiesen. Die mathematische Bedeutung des Gleichheitszeichen (linke Seite = rechte Seite) mu╤ü hierbei nicht erf╨ællt sein. Mit dem Gleichheitszeichen kann man auch Variablen den Wert anderer Variablen zuweisen, aber nur zwischen Variablen gleichen Typs! 3) Operatoren a)Mathematische Operatoren Oftmals ist es notwendig, in einem Programm Rechenoperationen auszuf╨æhren. In KIM sind folgende mathematischen Operatoren anwendbar : + Addieren - Subtrahieren / Dividieren * Multiplizieren ^ Potenzieren Was die Anwendbarkeit und G╨æltigkeit dieser Operatoren angeht, so orientiert sich KIM an die g╨öngigen Rechenregeln. Zur Erinerung seien Ihnen an dieser Stelle die wichtigsten mathematischen Gebote noch einmal dargelegt : Punkt vor Strich Addieren und Subtrahieren sowie Multiplizieren und Dividieren sind untereinander gleichberechtigt und werden von links nach rechts abgehandelt. Division durch die Zahl Null ist verboten Potenzierung hat die h╨ñchste Priorit╨öt Klammerausdr╨æcke werden von innen nach au╤üen gerechnet. b) Vergleichsoperatoren Vergleiche sind ein wichtiger Bestandteil einer jeden Computersprache. Sie werden bei Erstellung eines Programms h╨öufig an einen Punkt kommen, wo Sie vom Computer fordern mΓäûssen, auf eine Entscheidung des Anwenders zu reagieren. Grunds╨ötzlich hat der Computer bei einem Vergleich zu entscheiden, ob eine Aussage wahr oder falsch ist, um entsprechend zu reagieren. Der Vergleich selbst wird mit einem Operator durchgef╨æhrt. In KIM k╨ñnnen Sie folgende Vergleichsoperatoren einsetzen : = ist gleich <= ist kleiner oder gleich >= ist gr╨ñ╤üer oder gleich <> ist ungleich < ist kleiner > ist gr╨ñ╤üer Alle Vergleichsoperatoren sind gleichberechtigt. Es steht Ihnen frei, welchen Operator Sie f╨ær ein bestimmtes Problem verwenden. Manchmal gibt es auch mehrere logische L╨ñsungen f╨ær eine Aufgabe. Bitte beachten Sie unbedingt, da╤ü Sie nur gleiche Variablentypen (und damit Datentypen) miteinander vergleichen, also nur Zahlenvariablen mit Zahlenvariablen und Stringvariablen mit Stringvariablen. Es ist sicher unsinnig, danach zu fragen, ob 3 gr╨ñ╤üer als "hallo" ist. c.) Logische Operatoren KIM unterst╨ætzt die logischen Operatoren OR und AND, um mehrere Vergleiche miteinander zu verkn╨æpfen. Logische Operatoren k╨Ännen nur in Verbindung mit IF/ENDIF und WHILE/WEND genutzt werden. Beispiel IF name="MEIER" AND ort="M╨¬NCHEN" THEN .... .... ENDIF d) Stringoperatoren KIM unterst╨ætzt die M╨ñglichkeit mehrere Strings (Zeichenketten) miteinander zu verkn╨æpfen. Daf╨ær dient der der Operator "+". Beispiel test = "Hallo " + "Franz" test2=test1+","+test2+","+test3 4) Typumwandlungen In KIM besteht die M╨ñglichkeit einer Typumwandlung, da╤ü Sie einen String in eine Zahl und eine Zahl in einen String umwandeln. a) FORM FORM zahl,stringvariable,stellen,l╨önge Mit dem Befehl FORM wird das Ergebnis eines numerischen Ausdrucks in einen alphanumerischen Text umgewandelt und in <stringvariable> gespeichert. Dabei kann man das Ergebnis auf Nachkommastellen formatieren und die L╨önge der Zeichenkette bestimmen (Weitere Infos siehe im Referenzteil). b)VAL VAL string,numerische Variable Hiermit k╨ñnnen Sie den Inhalt einer Stringvariable in eine Zahl umwandeln. (Dabei ist zu beachten : "hallo" -> 0 (Weitere Infos siehe Referenzteil) 5) Verzweigungen Verzweigungen sind einer der wichtigsten Bestandteile eines Programms. Mit Ihrer Hilfe erm╨ñglicht man dem Rechner, auf verschiedene Entscheidungen unterschiedlich zu reagieren. F╨ær das Programmieren von Verzweigungen benutzt man die Befehlskombination IF/THEN/ELSE/ENDIF. Beispiel IF a > b THEN .... .... ELSE .... .... ENDIF Ist der Ausdruck nach der IF-Anweisung erf╨ællt, werden die Anweisungen nach der THEN-Anweisung ausgef╨æhrt, bis die ELSE Anweisung erreicht ist. Dann wird der Programmteil bis zum ENDIF ╨æbersprungen. Ist der Ausdruck nach der IF-Anweisung nicht erf╨ællt, wird der Programmblock zwischen THEN und ELSE ╨æbersprungen und die Anweisungen nach dem ELSE-Befehl ausgef╨æhrt. Die Verschachtelung von IF/ENDIF Befehlen ist m╨ñglich. Der Befehl ELSE ist optional. Wird er weggelassen gilt f╨ær ENDIF das Gleiche wie f╨ær ELSE. Wichtig! Zu jedem IF geh╨ñrt ein ENDIF. 6) Schleifen Schleifen sind Programmabschnitte, in denen eine bestimmte Befehlsfolge mehrmals hintereinander durchlaufen werden kann. In KIM gibt es zwei Befehle f╨ær Schleifen : FOR/NEXT und WHILE/WEND a) FOR/NEXT Beispiel : FOR i=1 TO 10 [Anweisungsblock] .... .... NEXT Der Anweisungsblock wird 10 mal ausgef╨æhrt. Die Variable i ist die Laufvariable und wird um den Wert 1 erh╨ñht, bis der Endwert nach dem TO-Befehl erreicht wird. M╨ñchte man eine FOR/NEXT Schleife vorzeitig beenden, darf man die Schleife nicht mit einen Sprungbefehl verlassen, sondern mu╤ü die Laufvariable auf den Endwert +1 setzen. Beispiel : FOR i=1 TO 10 IF i=5 THEN I=11 : ENDIF NEXT b) WHILE/WEND Beispiel : WHILE a=0 and b=0 [Anweisungsblock] WEND Der Anweisungsblock wird so oft wiederholt, bis der Ausdruck nach dem WHILE-Befehl falsch ist. Schleifen k╨ñnnen bis auf 20 Ebenen verschachtelt werden. 7) Labels und unbedingte Spr╨ænge Begriffdefinition : GOTO (ital. Spaghetti) Labels sind Sprungmarkierungen in Programmen. Ein Label besteht aus dem Zeichen # und einem Labelnamen. Der Labelname darf 32 Zeichen lang sein. Beispiel #TEST Mit dem Befehl GOTO k╨ñnnen Sie einen unbedingten Sprung zu einem Label ausl╨ñsen. Beispiel GOTO #test .... .... #test .... .... 8) Unterprogramme und Module a) Unterprogramme Im Gegensatz zu den unbedingten Spr╨ængen, die durch den Befehl GOTO ausgel╨ñst werden, sind Spr╨ænge zu Unterprgrammen ein beliebtes und h╨öufig angewandtes Programmierungsutensil. Beispiel GOSUB #teilen .... .... END REM *** Unterprogramme *** #teilen .... .... .... RETURN Aktiviert wird das Unterprogramm mit GOSUB #teilen. Die Anweisungen zwischen dem Label #teilen und RETURN werden abgearbeitet und das Programm kehrt wieder zur GOSUB-Anweisung zur╨æck. In Unterprogrammen, die mit GOSUB aufgerufen werden, k╨ñnnen keine lokalen Variablen definiert werden. b) Module Ein Modul ist ein abgekapselter Programmteil mit lokalen Variablendefinitionen und einer Schnittstelle zur Parameter╨æbergabe. Das klingt komplizierter als es in Wirklichkeit ist. Die Befehle von KIM sind vordefinierte Module. Diese Module bestehen aus einem Befehlswort und einem Parameterblock. Die Befehle von KIM werden durch den Aufruf des Namens erreicht. Module, die vom Programmierer erstellt wurden, werden mit dem Befehl CALL und Modulnamen aufgerufen. Mit eigenen Modulen kann man den Befehlsvorrat erweitern. UEin Modulname darf aus 32 alphanumerischen Zeichen bestehen.F╨ær die Kapselung von Modulen gelten folgende Ausnahmen: Globale Variablen, ge╨ñffnete Datenbanken und definierte Oberfl╤ächenobjekte gelten f╨ær das gesamte Programm. Wurde eine Datenbank im Modul x ge╨ñffnet und beim Verlassen des Moduls nicht geschlossen, ist Sie im Modul y nutzbar. (Weitere Infos siehe Referenzteil) Beispiel CALL addiere (a,b,c) END REM *** Module **** MODUL addiere (float a, float b, float c) deffloat d d=a+b c=d ENDMOD 9) Include und Importdateien M╨ñchte man ein Programm aus ergonomischen Gr╨ænden in mehrere physikalische Dateien aufteilen und bei der Ausf╨æhrung wieder zusammenf╨ægen, geschieht dies mit sogenannten INCLUDE- und IMPORT-Dateien. Eine Includedatei wird beim Start des Programms in das Programm eingebunden. Eingef╨ægt in das Hauptprogramm wird eine Include-Datei durch den Befehl @Dateiname Beachten Sie, da╤ü zwischen dem Zeichen @ und dem Dateinamen kein Leerzeichen vorhanden ist. Importdateien werden zur Laufzeit des Programms geladen und ben╨ñtigen beim Start noch keinen Speicherplatz. Eine Importdatei darf 64 KB gro╤ü sein. Am Ende einer Importdatei befindet sich der Befehl IMPORTEND. Er veranlasst, die Importdatei aus dem Speicher zu entfernen. In Importdateien d╨ærfen keine weiteren Importdateien aufgerufen werden, keine Labels gesetzt werden, die vom Hauptprogramm genutzt werden und keine Module definiert werden. In Include-Dateien ist dies zul╨össig. (Info ╨æber die Syntax finden Sie im Referenzteil.) 10) Parametereingabe Parametereingaben lassen sich in KIM ╨æber mehrere Textzeilen eingeben. Dies macht ein Programm ╨æberschaubarer. Als Zeilentrennzeichen werden zwei Punkte ".." benutzt. Beispiel deffloat a,.. b,.. c,.. 10) Aliasvariablen In manchen F╨öllen ist es notwendig sehr allgemein g╨æltige Module zu schreiben. Mit einigen Befehlen ist dies aber nicht ohne weiteres m╨ñglich. Als Beispiel m╨ñchte ich hier den Befehl <INEXT> nennen. M╨ñchte man eine Routine schreiben, die es erm╨ñglicht in mehreren Datenbanken mit unterschiedlicher Recordstruktur zu bl╨öttern, wird es schwierig. Beispiel : INEXT 1,ok,kunden INEXT 2,ok,artikel INEXT 3,ok,lager In KIM gibt es eine M╨ñglichkeit diese Problem zu l╨ñsen : modul blaettern (float dbnr , float ok , char struktur ) inext dbnr,ok,(1)struktur(1) endmod (1)=Kaufm╨önnische UND - Zeichen (SHIFT-6) Was geschieht ? Der Inhalt von <struktur> wird ersetzt mit (1)struktur(1). call blaettern(1,ok,"kunden") call blaettern(2,ok,"artikel") call blaettern(3,ok,"lager") ΓòÉΓòÉΓòÉ 8. Eventfunktionen ΓòÉΓòÉΓòÉ Eventfunktionen Allgemeines Neu in KIM 2.1 sind die sogenannten Userfunktionen.(Eventfunktionen) Beispiel der alten Funktionsweise : Sie haben einen Button definiert und an ein Fensterobjekt addiert. Dr╨æcken Sie den Button, haben Sie bis jetzt ╨æber die Funktion "get_item_pos" festgestellt ob die linke Maustaste oder die ENTER- Taste gedr╨æckt wurde. Nun musste man noch pr╨æfen welches Objekt angesprochen wurde und hat dann einen entsprechenden Programmcode gestartet. Neu : Der Userfunktionsname besteht aus dem Namen des Objekts und einen Ergeignis. ( z.B. "Button1_select()" Wird z.B. ein Button "Button1" angeklickt, wird die Funktion Button1_select() aufgerufen. Die alte Programmierweise kann beibehalten werden. Eine Userfunktion mu╤ü nicht definiert sein. Ist aber f╨ær die Zukunft aber der schnellere Weg. Verf╨ægbare Events Userfunktion Ereignis ------------------------------------------------------------------- Button1_select() -> Objekt wird angeklickt oder mit ENTER ausgew╨öhlt, entspricht taste=13 Button1_getfocus() -> Objekt erh╨ölt den Fokus Button1_lostfocus() -> Objekt verliert den Fokus Button1_doubleclick() -> Nur wenn Objekt bei Definition die Eigenschaft : "double_click" erh╨ölt. Button1_validate() -> Bei Eingabefehler, z.B. Eingabe au╤üerhalb des g╨æltigen Bereichs. Button1_changed() -> User hat Feldeintrag ge╨öndert // Funktioniert nur bei def_string momentan WinID_timer() -> s. DEF_WINDOW Beispiel def_window "window",... def_button "button1",.. add_item "window","button1" win_paint "window" while i<>1000 win_ev i wend end rem **************************************** rem Eventfunktion rem **************************************** modul button1_select() rem Wenn Button gedr╨æckt wurde, dann soll ein Ton erklingen beep endmod Tastaturevents Eventfunktion um die Tastatureingaben abzufangen : Vorher mu╤ü die entsprechende Taste mit SET_KEYMAP definiert sein. MODUL SYSTEM_KEYPRESS() if system.keypress=10005 then beep endif ENDMOD Innerhalb der Funktion SYSTEM_KEYPRESS wird ein logischer Tastenevent an die Variable <system.keypress> ╨æbergeben. Diese Variable mu╤ü nicht deklariert werden. Dies ╨æbernimmt KIM. Die Variable <system.keypress> liefert nur gemappte Tasten zur╨æck ! Userfunction-Arrays Nehmen wir an, Sie haben eine Maske mit 30 Datumseingaben. Nun m╨ñchten wir bei allen 30 Feldern pr╨æfen ob die Eingabe korrekt war. Die Datumseingabeobjekte tragen die Kennung : inp1,inp2,...,inp30. In der oben beschriebenen Weise sieht das so aus : modul inp1_validate() deffloat flag msgbox "Datumseingabeformat falsch ! ( TT.MM.YYYY ) ",0,flag,"" setfocus "inp1" endmod modul inp2_validate() deffloat flag msgbox "Datumseingabeformat falsch ! ( TT.MM.YYYY ) ",0,flag,"" setfocus "inp2" endmod u.s.w ( 27 x ) modul inp30_validate() deffloat flag msgbox "Datumseingabeformat falsch ! ( TT.MM.YYYY ) ",0,flag,"" setfocus "inp30" endmod KIM unterst╨ætzt folgende M╨ñglichkeit : Das Modul wird ohne "Index" deklariert und erh╨ölt als Platzhalter das Zeichen # : modul inp#_validate() deffloat flag,taste def_string obj$,alt$ get_item_pos obj$,taste,alt$ msgbox "Datumseingabeformat falsch ! ( TT.MM.YYYY ) ",0,flag,"" setfocus alt$ endmod GET_ITEM_POS wird benutzt, um eine Positionierung des Cursors f╨ær die Neueingabe durchzuf╨æhren. GET_ITEM_POS liefert das aktive und das zuletzt aktive Objekt zur╨æck. Beim Aufruf einer Userfunction wird zuerst nach einer eindeutigen Kennung gepr╨æft ( z.B. inp1_validate ). Wird keine eindeutige Kennung gefunden, pr╨æft KIM auf eine Array-Variante (z.b. inp#_validate. ). Wenn "inp1_validate" und "inp#_validate" existieren, dann erfolgt nur der Aufruf von "inp1_validate". Wenn im gleichen Programm "inp2_validate" nicht definiert wurde, pr╨æft KIM wieder auf eine Array-Variante. So ist es m╨ñglich beide Funktionstypen in einem Programm zu nutzen. ΓòÉΓòÉΓòÉ 9. Datenbankbeschreibung ΓòÉΓòÉΓòÉ Datenbank ╨¬bersicht In diesem Kapitel lernen Sie das Herzst╨æck eines KIM-Programms kennen, die Datenbank. Mit ihr werden alle ins Programm eingegebenen Informationen gespeichert und verwaltet. Wir werden den Aufbau von Datenbanken und den zugeh╨Ärigen Indexdateien besprechen. Anschlie╤üend wird gezeigt, wie mit Datenbanken gearbeitet wird, wie Datens╨ötze eingef╨ægt, gel╨ñscht, herausgesucht und gel╨ñscht werden k╨ñnnen. Ein wichtiger Abschnitt befa╤üt sich mit der Verkn╨æpfung von Datenbanken zu Relationen. Es werden die Kriterien f╨ær den erfolgreichen Aufbau einer Relation vorgestellt. Anschlie╤üend wird der Aufbau und das Arbeiten mit Relationen besprochen, wobei unter anderem die M╨ñglichkeiten zur Umorganisation der relationalen Datenbanken und der Definition von Abfragefiltern im Mittelpunkt stehen. Zum Schlu╤ü wird die Datenbank in einem Netzwerk vorgestellt. Hier sind vor allem die diversen Sperrvorrichtungen von Interesse, welche KIM f╨ær die Besonderheiten des Netzwerkbetriebs bereith╨ölt. Sie erfahren, wie man Datens╨ötze und Datenbanken vor Ver╨önderungen sch╨ætzen kann. Einf╨æhrung Datenbanken stellen das Herzst╨æck eines jeden KIM-Programmes dar. Die gesamte Programmiersprache ist darauf spezialisiert, die Probleme bei der Erstellung von Datenbanken m╨ñglichst gut und elegant zu meistern. Unter einer Datenbank versteht man allgemein ein System, das Informationen nach einer festgelegten Ordnung ablegt. Aus diesem System kann man Informationen abfragen ("Daten abheben") oder Informationen in das System einf╨ægen ("Daten einzahlen"). Diese kleine Erkl╨örung zeigt bereits, da╤ü der Vergleich mit einer Bank bei diesem System gar nicht so abwegig ist. Nun darf man sich eine Datenbank aber nicht so vorstellen, als ob Daten dort wahllos in eine Datei gesteckt werden wie Socken in eine Schublade. Vielmehr werden darin Daten nach einem vorgegebenem System geordnet. Die einfachste M╨ñglichkeit, Daten zu ordnen, best╨ænde beispielsweise darin, alle Daten bez╨æglich Ihres Anfangsbuchstabens alphabetisch zu ordnen. Damit w╨öre bereits eine deutlich bessere Datenverwaltung realisiert als bei einem einfachen Hineinstopfen aller Daten in eine Datei. Aber auch damit wollen wir es nicht bewenden lassen. Oft m╨ñchte man erreichen, da╤ü verschiedene Dateneingaben, die miteinander verbunden sind, auch so in einer Datenbank aufbewahrt werden, da╤ü Sie gemeinsam abrufbar sind. Ein Beispiel daf╨ær w╨öre, da╤ü man beim Abfragen eines Namens auch gleichzeitig den zugeh╨ñrigen Vornamen aus der Datenbank hervorholen kann. Nat╨ærlich sind moderne Datenbanken dazu in der Lage. Das Geheimnis besteht darin, da╤ü zueinander geh╨ñrende Daten gemeinsam als ein Datensatz abgespeichert werden. Wird nach einer bestimmten Information gefragt, zeigt die Datenbank sofort den gesamten Datensatz an. Die Ordnung der Datens╨ötze zueinander erfolgt ╨æber eine Indexdatei, in welcher das Kriterium vorgegeben ist, nach welchem die Ordnung erfolgen soll. Dieses Ordnungssystem funktioniert aber nur dann, wenn das Format aller Datens╨ötze identisch ist. Was damit gemeint ist, sei in folgendem Beispiel erl╨öutert: Ein Datensatz ist aus mehreren verschiedenen Feldern aufgebaut, wobei jedes Feld eine andere Information beinhaltet. Wenn wir beispielsweise mit einem Namen gleichzeitig den zugeh╨ñrigen Vornamen und die entsprechende Adresse speichern wollen, ben╨ñtigen wir einen Datensatz, der aus drei Feldern besteht. Das erste Feld enth╨ölt die Daten, die den Namen betreffen, das zweite und das dritte Feld entsprechend diejenigen f╨ær den Vornamen und die Anschrift. Symbolisch gesehen stellt die Datenbank den einen Aktenschrank dar. Sie sehen, da╤ü in der Datenbank bereits die Struktur der Datens╨ötze vorgegeben ist. Bildlich gesprochen "passen" n╨ömlich nur Schubladen (sprich Datens╨ötze) in den Schrank (die Datenbank), die das entsprechende Format besitzen, also die Aufteilung in drei F╨öcher mit der gew╨ænschten L╨önge. W╨ærde man versuchen, eine Schublade mit zwei oder vier F╨öchern in den Schrank zu schieben, w╨ærde man keinen Erfolg haben. Das heute als Standard geltende Datenbankformat ist das xBASE- Format. Dies bedeutet, da╤ü praktisch alle g╨öngigen Datenbanksysteme auf dem oben geschilderten Datensatzsystem zur Datenverkn╨æpfung und den daraus folgenden Konsequenzen basieren. Sie unterscheiden sich lediglich in der Art der Datensatzverwaltung ╨æber Indizes und programmtechnischen Details (beispielsweise ist dBASE eine Interpretersprache, w╨öhrend Clipper compiliert wird). KIM unterst╨ætzt ebenfalls das xBASE-Format. Sie k╨ñnnen bei der Installation von KIM w╨öhlen, welche Art von Indexverwaltung Sie ben╨ætzen wollen. Es wird standardm╨ö╤üig das dBASE-System mitgeliefert. Optional k╨ñnnen Sie jedoch auch Foxpro- oder Clipper-Indexsysteme erwerben. Die Recordstruktur Zu einem Datenbankprogramm geh╨ñren folgende Komponenten: a) die Datenbank selbst; b) die Eingabefelder, ╨æber welche die Kommunikation zwischen Bediener und Datenbank erfolgt; c) die Feldvariablen, welche die Verbindung zwischen Datenfeld und Datenbank herstellen: Diese drei Komponenten sind untrennbar miteinander verbunden. Eingaben in die Datenbank k╨ñnnen nur ╨æber Eingabefelder get╨ötigt werden. In das Programm gelangen diese Eingaben dann ╨æber die den Feldern zugrunde liegenden Variablen, von wo sie in die Datenbank ╨æbernommen werden k╨ñnnen. Andererseits werden Datens╨ötze aus der Datenbank ╨æber diese Feldvariablen in die Eingabefelder geladen. Die Gesamtheit aller den Eingabefeldern zugrunde liegenden Variablen, ╨æber die Datens╨ötze in eine Datenbank eingelesen werden, bezeichnet man als RECORDSTRUKTUR. Wie man eine Recordstruktur erstellt, haben wir im Prinzip bereits im Kapitel ╨æber Eingabefelder erfahren. Der erste Schritt bei der Erzeugung von Datenbanken besteht also in der Definition der erforderlichen Feldvariablen. Dies geschieht unter Verwendung von Define-Variablen bzw. Memo- Variablen, wobei Sie unbedingt Gebrauch von der Option machen sollten, den Define-Variablen ╨æber AS eine Zusatzbezeichnung zuzuordnen. Dies erleichtert das Auffinden der einem bestimmten Feld zugrunde liegenden Variablen im Quellcode bei weitem. Aber Sie k╨ñnnen auch ein globales Array benutzen. Anschlie╤üend erstellen Sie die ben╨ñtigten Eingabefelder. Sie k╨ñnnen hierbei selbstverst╨öndlich vom Maskengenerator Gebrauch machen. Details hierzu sowie Informationen ╨æber M╨ñglichkeiten der Formatierung von Eingaben in Eingabefeldern entnehmen Sie bitte dem Kapitel ╨æber Eingabefelder. Damit ist das Ger╨æst des Datenbankprogramms erstellt. Nun m╨æssen wir uns der Definition der eigentlichen Datenbank zuwenden. Die Feldstruktur KIM orientiert sich beim Feldformat von Datens╨ötzen an den von xBASE vorgegebenen Richtlinien. Wir wollen an dieser Stelle keine Einf╨æhrung in das xBASE-Sprachsystem geben, sondern uns nur auf die Erkl╨örung auch f╨ær KIM wichtiger Ausdr╨æcke und Details beschr╨önken. Auch bei der Erstellung der Datenbankfeldstruktur gilt es zun╨öchst, die erforderlichen Feldvariablen zu definieren. Hierbei k╨ñnnte man nat╨ærlich auf die bereits f╨ær die Recordstruktur verwendeten Define-Variablen zur╨æckgreifen. Ihr Programm wird aber flexibler, wenn Sie der Feldstruktur andere Variablen zuordnen. Dann k╨ñnnten Sie die Datenbank auch ╨æber andere Recordstrukturen ansprechen (dies w╨öre beispielsweise bei MDI-Systemen n╨ætzlich). Au╤üerdem ist es nicht notwendig, Define-Variablen f╨ær die Erzeugung der Datenbankfelder zu benutzen. Im von KIM unterst╨ætzten xBASE-Format wird die L╨önge der einzelnen Datenbankfelder intern gesteuert und mu╤ü nicht bei der Definition der Feldvariablen angegeben werden. Darum besteht kein Grund mehr, dieses Variablenfeld mit DEFINE zu erzeugen, zumal dies mit dem Befehl DIM weitaus schneller zu bewerkstelligen ist. Nehmen wir an, wir wollen eine Datenbank erstellen, die folgende Datensatzstruktur besitzen soll: Feld1 zur Speicherung von Namen mit einer L╨önge von 20 Zeichen; Feld2 zur Speicherung von Vornamen mit einer L╨önge von 20 Zeichen; Feld3 zur Speicherung der Adressen mit einer L╨önge von 50 Zeichen; Feld4 zur Speicherung von Kommentaren mit einer L╨önge von 255 Zeichen. Die Definition der Feldvariablen erfolgt ╨æber DIM, wobei zu beachten gilt, da╤ü in Datenbanken mit xBASE- Format das letzte Feld als Datensatz-Endkennung leer bleiben mu╤ü. Es ist daher ein Feld mehr als notwendig zu definieren: DIM feld 1, 5 Eine Datenbank darf maximal 255 Felder besitzen. Nun m╨æssen die einzelnen Felder des Datensatzes n╨öher definiert werden. Zur Verdeutlichung der Vorgehensweise haben wir dem eine Kommentarzeile vorangestellt, in der die Bedeutung der einzelnen Eingaben erkl╨ört wird. Wir empfehlen ihnen, in jedem Programm bei der Datenbankdefinition aus ╨¬bersichtlichkeitsgr╨ænden diese Kommentarzeile zu verwenden. Vergessen Sie aber nicht, die Anweisung REM voranzustellen, damit KIM diese Zeile als Kommentar erkennt. REM Bezeichnung Typ L╨önge Nachkommastellen feld1=" Name, C, 20, 0" feld2=" Vorname, C, 20, 0" feld3=" Adresse, C, 50, 0" feld4=" Kommentar, M, 10, 0" feld5=" " Sie erkennen, da╤ü ein Feld mehr als zur Beschreibung des Datensatzes definiert wird. Diesem wird aber kein Inhalt zugewiesen. Wie bereits erl╨öutert dient dieses Feld dazu, das Ende einer Datensatzstruktur anzuzeigen. Es ist unbedingt notwendig, eine Datensatzstruktur mit einem Leerfeld abzuschlie╤üen, ansonsten kann die Datenbank nicht ge╨ñffnet werden. Noch eine weitere Vorbemerkung: Aus Gr╨ænden der ╨¬bersichtlichkeit wurden die einzelnen Feldbeschreibungen tabulatorisch eingegeben. Es ist aber nicht erlaubt, bei der Feldbeschreibung im Quellcode Tabulatoren zu verwenden. Die Datenbank kann sonst nicht erstellt werden. Die einzelnen Feldeintr╨öge m╨æssen jeweils durch ein Komma voneinander getrennt werden. Der erste Feldeintrag legt die Feldbezeichnung fest, also welcher Inhalt in der Variablen erwartet wird. Dies hat nicht nur ╨¬bersichtlichkeitsgr╨ænde, sondern ist wichtig f╨ær die Datenbankverwaltung ╨æber Indizes. Indizes orientieren sich n╨ömlich an den Feldbezeichnungen. Der zweite Eintrag legt den Variablentyp fest. Auch dies wird n╨ömlich Datenbankintern gesteuert. Obwohl ╨æber DIM eigentlich nur Arrays von Stringvariablen erstellt werden k╨ñnnen, k╨ñnnen die so erzeugten Variablen innerhalb der Datenbank umfunktioniert werden. Folgende Variablentypen stehen Ihnen innerhalb der Datenbank zur Verf╨ægung: C Stringvariable (c=character) N Zahlenvariable (n=numerisch) M Memo-Variable (m=memo) D Datums-Variable (d=Datum) L/F Logischer Operator (Boolescher Operator, True /False) Geben Sie das Zeichen f╨ær den gew╨ænschten Variablentyp an, und innerhalb der Datenbank verh╨ölt sich die Variable dementsprechend. Au╤üerhalb der Datenbank handelt es allerdings immer um eine Stringvariable, da sie ja mit DIM erstellt wurde. Neu ist die in KIM nicht vorhandene Variable des L-Typs. Diese Variablen d╨ærfen nur einen der beiden logischen Operatoren ".TRUE." oder ".FALSE." bzw. ".YES." oder ".NO." als Inhalt besitzen. An Ihrer Statt k╨ñnnen die Abk╨ærzungen ".T." und ".F." bzw. ".Y." oder ".N." verwendet werden. Der dritte Eintrag in der Feldvariablen definiert die Feldl╨önge. Die letzte Angabe schlie╤ülich bezieht sich auf die Anzahl der erlaubten Nachkommastellen in der Variablen. Hier etwas anderes als eine Null einzugeben ist nur sinnvoll, wenn Sie Dezimalzahlen als Eingabe in dieses Feld erwarten. Die Indexstruktur Ohne Indexverwaltung ist eine Datenbank nicht besonders funktionsf╨öhig, da es dann unm╨ñglich w╨öre, Daten herauszusuchen. Die Daten w╨ærden einfach in der Reihenfolge ihrer Abspeicherung in die Datenbank eingeordnet. Der n╨öchste Schritt nach der Definition der Datensatzstruktur mu╤ü also darin bestehen, eine Indexstruktur f╨ær die Datenbank aufzubauen. F╨ær jede gew╨ænschte Verwaltungsoperation mu╤ü eine gesondertes Indexfeld definiert werden. M╨ñchten Sie beispielsweise alle Datens╨ötze nach dem Namen ordnen, m╨æssen Sie hierf╨ær ein Indexfeld generieren. M╨ñchten Sie sich aber zus╨ötzlich die Option offenhalten, alle Daten gesondert nach der Adresse zu sortieren, m╨æssen Sie daf╨ær ein zweites Indexfeld erzeugen. Beachten Sie aber bitte, da╤ü sich der Umfang der (physikalischen) Indexdatei mit jedem neuen Indexfeld vergr╨ñ╤üert und damit die Laufgeschwindigkeit des Programms herabsetzt. Um dies zu vermeiden, sollten Sie bei der Verwendung von mehreren Indexfeldern diese in verschiedenen Indexdateien erzeugen. Wie wir sp╨öter sehen, wird beim Γòôffnen der Datenbank jeweils nur eine Indexdatei ge╨ñffnet. Andere Indexdateien werden nur auf Bedarf ge╨ñffnet und verlangsamen daher die Laufgeschwindigkeit des Programms nicht. Jedes Indexfeld wird durch eine Feldvariable beschrieben. Es gilt also zun╨öchst wieder die erforderlichen Feldvariablen zu definieren, wobei wie bei der Datensatzstruktur eine Variable mehr als notwendig f╨ær die Endkennung der Indexdatei erstellt werden mu╤ü: DIM index, 1, 3 Eine Indexdatei darf maximal 255 Indexfelder beinhalten. Dann erfolgt die n╨öhere Beschreibung der Indexfelder. Auch hier wollen wir zur Verdeutlichung eine Kommentarzeile voranstellen: REM Indexname Ausdruck Filter Unique Absteigend Index1=" name_tag , Name , Name='Meier', 0, 0" Index2=" adresse_tag, Adresse , , 0, 0" Index3=" " Der erste Eintrag in der Variablen legt die ID-Kennung f╨ær den entsprechenden Index fest. ╨¬ber diesen Indexnamen kann der Index angesprochen werden. Der Eintrag in der Rubrik "Ausdruck" bestimmt, auf welches Feld des Datensatzes der entsprechende Index zeigt. Ist dieser Index aktiviert, dann werden alle Daten in der Bank anhand der Eintragungen in diesem Datensatzfeld geordnet. Des weiteren kann nur nach Daten in diesem Feld gesucht werden. Es steht Ihnen aber frei, den Index gleichzeitig auf mehrere Datensatzfelder zu setzen. M╨ñchten Sie beispielsweise, da╤ü die Daten sowohl nach Namen als auch nach Vornamen sortiert werden, geben Sie in dieser Spalte "Name+Vorname" an. Die Priorit╨öt besitzt jeweils der erste Eintrag, also hier Name. Es kann dann auch nach Daten in beiden Feldern gesucht werden. Dies ist besonders dann w╨ænschenswert, wenn der gesuchte Begriff mehrfach in der Datenbank erscheint. Es kann dann anhand der Daten im zweiten selektierten Feld eine Unterscheidung getroffen werden. Eine zus╨ötzliche Option bei Suchaktionen stellt die Rubrik "Filter" dar. Hier k╨ñnnen Sie Voreinstellungen definieren, an denen sich die Suche orientiert. Als Beispiel ist im ersten Feld ein Filter auf den Namen "Meier" gesetzt. Bei einer Suche werden dann nur Datens╨ötze ber╨æcksichtigt, die im Feld "Name" den Eintrag "Meier" besitzen. Filter werden ╨æber Ausdr╨æcke der dBASE-Sprache und nicht mit KIM-Befehlen erzeugt. Aufgrund Ihrer Bedeutung und Ihres Umfanges sollen diese Filteroperationen im anschlie╤üenden Unterkapitel behandelt werden. Der vierte Feldeintrag "Unique" legt fest, ob ein Feldeintrag in der Datenbank mehrmals vorkommen darf oder nicht. Dies kann beispielsweise dann der Fall sein, wenn mehrere Datens╨ötze mit dem Namen "Meier" eingef╨ægt werden sollen oder nicht. Unabh╨öngig davon, ob sich die ╨æbrigen Feldeintr╨öge voneinander unterscheiden oder nicht, k╨ñnnen Sie eine Mehrfacheintragung ╨æber Unique generell unterbinden. Setzen Sie f╨ær Unique eine Null, so sind Mehrfacheintr╨öge in dem Feld erlaubt, auf welches der entsprechende Index zeigt. Der Wert 1 f╨ær Unique hingegen verbietet jegliche Mehrfacheintragung in dem entsprechenden Feld. Sinnvoll ist die Unterbindung von Mehrfacheintragungen sicherlich in Datenfeldern, in denen jeder Wert immer nur einmal vorkommen darf (z.B. Kundennummern). Unsinnig hingegen ist dieses Verbot bei Feldern wie z.B. einer Datumseingabe, da hier Mehrfacheintragungen praktisch unvermeidlich sind. ╨¬ber "Aufsteigend" schlie╤ülich regulieren Sie den Sortiervorgang in der Datenbank. Geben Sie hier eine Null ein, so werden alle Daten aufsteigend, also von a nach z geordnet, falls dieser Index aktiviert ist. Eine 1 in dieser Rubrik f╨æhrt hingegen zum absteigenden Sortieren, also von z nach a. Filter Wie bereits erw╨öhnt besitzen Sie die M╨ñglichkeit, Suchaktionen innerhalb einer Datenbank zu beeinflussen, indem Sie f╨ær den entsprechenden Index einen Filter setzen. Diese Filter werden nicht ╨æber KIM-Befehle gesteuert, sondern ╨æber Ausdr╨æcke aus der diesen Datenbanken zugrunde liegenden dBASE-Sprache. Es soll hier nicht ein vollst╨öndiger Einblick in dBASE gegeben werden, sondern lediglich eine ╨¬bersicht ╨æber die dBASE- Anweisungen, die Sie zur Filterdefinition von Indizes brauchen. Beachten Sie bitte, da╤ü dBASE-Ausdr╨æcke nur innerhalb der Datenbank G╨æltigkeit besitzen. Im normalen KIM-Programmcode sind Sie unwirksam und verursachen als unbekannte Eingaben Fehlermeldungen. Bei der Erstellung von KIM-Programmen ben╨ñtigen Sie deshalb dBASE-Anweisungen nur bei der Erstellung von Indexfiltern und interaktiven Abfragen bei Relationen (siehe sp╨öter). Im Anhang finden Sie eine kurze Einf╨æhrung in die dBASE-Sprache. Sehen Sie dort bitte nach, wenn Sie nicht alles verstehen, was in diesem Kapitel verwendet wird. Setzen des Filters auf einen bestimmten Datenwert: Wenn Sie m╨ñchten, da╤ü nur Datens╨ötze angezeigt werden, die einen bestimmten Eintrag im vom Index ausgezeichneten Feld besitzen, setzen Sie einen Filter mit diesem Wert in das Indexfeld. M╨ñchten Sie beispielsweise, da╤ü stets nur alle Datens╨ötze angezeigt werden, die den Namen "Meier" beinhalten, so gehen Sie in das auf "Name" zeigende Indexfeld und setzen dort den Filter Name="Meier" . Dieser Filter hat nur einen Sinn, wenn er im richtigen Indexfeld steht. Setzen Sie den Filter beispielsweise in das Indexfeld, welches als Suchausdruck "Vorname" enth╨ölt, wird kein Datensatz bei einer Suchoperation gefunden werden, da nat╨ærlich kein Datensatz im Feld Vorname den Eintrag "Meier" enth╨ölt. Sinnvoll wird dieser Filter vor allem, wenn Sie beispielsweise nach allen Datens╨ötzen suchen wollen, die an einem bestimmten Tag gespeichert wurden. Dies gelingt mit dem Filter Datum=Date(), den Sie in das Indexfeld setzen, welches auf das Feld "Datum" zeigt. In die runde Klammer geben Sie das gew╨ænschte Datum ein. Geben Sie dort kein Datum vor, wird das aktuelle Systemdatum f╨ær diese Anweisung herangezogen. Sie k╨ñnnen auch nach Datens╨ötzen suchen lassen, die an einem bestimmten Tag, in einem bestimmten Monat oder Jahr erstellt wurden. Hierzu dienen die Filter Datum=Day(), Datum=month(), Datum=year(). Geben Sie jeweils das gew╨ænschte Datum in die runden Klammern ein. Der Ausdruck sucht sich selbst╨öndig Tag, Monat oder Jahr heraus und wandelt dies in einen numerischen Zahlenwert um. Es ist auch m╨ñglich, hierbei das Systemdatum vorzugeben. Setzen Sie dann einfach den Ausdruck date() in die runden Klammern, also z.B. Datum=Day(date()). Beachten Sie bitte, da╤ü diese Filter Priorit╨öt vor allen anderen KIM-Befehlen besitzen. Gleichg╨æltig welche Suchkriterien Sie auf der Programmoberfl╨öche eingeben, werden nur die Datens╨ötze ber╨æcksichtigt, die dem Filterausdruck entsprechen. Vergleichsfilter Selbstverst╨öndlich ist es m╨ñglich. Filter nicht nur auf bestimmte Werte zu setzen, sondern beispielsweise alle Datens╨ötze herauszufiltern, die nach einem bestimmten Datum eingegeben wurden. Sie gehen dabei genauso wie gerade beschrieben vor, nur verwenden Sie statt des Gleichheitszeichens einen der folgenden Operatoren: <> (oder #) Ungleich < Kleiner als > Gr╨ñ╤üer als <= Kleiner oder gleich >= Gr╨ñ╤üer oder gleich $ enth╨ölt das folgende Zeichen Mit Hilfe dieser dBASE-Vergleichsoperatoren ist es m╨ñglich, Filter zu erstellen, die bestimmte Datens╨ötze bei Suchaktionen nicht ber╨æcksichtigen. Sie k╨ñnnen auch mehrere Vergleiche durch logische d-BASE- Operatoren miteinander verkn╨æpfen. M╨ñchten Sie z.B., da╤ü nur Datens╨ötze ber╨æcksichtigt werden sollen, die zwischen dem 12. Tag und 25.Tag eines Monats eingegeben wurden, so setzen Sie den Filter "Datum<=25 .AND. Datum<=12". dBASE kennt drei logische Operatoren: .NOT. Nicht .AND. Und .OR. Oder Beachten Sie bitte, da╤ü diese logischen Operatoren in dBASE von Punkten eingerahmt sein m╨æssen. Neuerstellung und ╨⌐ffnen einer DB Der Definitionsteil bei der Erstellung der Datenbank ist damit abgeschlossen. Wir k╨ñnnen nun daran gehen, die neue Datenbank aufzurufen. Dies geschieht mit ICREATE id_string, def_felder$, def_index$ F╨ær id_string geben Sie die Bezeichnung der Datenbank an. ╨¬ber die Variable def_felder$ legen Sie fest, welches Array die Definition der Datensatzstruktur (Feldstruktur) der Datenbank enth╨ölt. Letztendlich bestimmt def_index$, welches Array die Definition der Indexstruktur enth╨ölt. Durch diesen Befehl werden die Dateien "id_string.dbf" und id_string.mdx (cdx/ndx)" erstellt, wobei f╨ær id_string jeweils die Bezeichnung der gerade erstellten Datenbank eingesetzt wird. In diesen Dateien werden alle Datens╨ötze im dBASE-Format und eine Informationsdatei, welche die Indexstruktur der Datenbank enth╨ölt, gespeichert. Deshalb mu╤ü der Inhalt dieser Dateien unbedingt mit dem Aufbau der erstellten Datenbank im Einklang stehen. Um Fehler zu vermeiden (wenn beispielsweise zuf╨öllig bereits gleichnamige Dateien vorhanden sind), m╨æssen Sie alle Dateien mit diesen Namen vor der Erstellung der Datenbank l╨ñschen. Dies erreichen Sie mit KILL "id_string.dbf" KILL "id_string.mdx" Der Befehl KILL l╨ñscht eine nachstehend angegebene Datei. Auch hier geben Sie f╨ær id_string die Bezeichnung der zu erstellenden Datenbank an. Beachten Sie unbedingt, da╤ü die L╨ñschung dieser Dateien nur dann erfolgen darf, wenn Sie eine Datenbank neu erstellen. W╨ærden Sie diese Prozedur vor dem ╨⌐ffnen einer bereits bestehenden Datenbank durchf╨æhren, w╨ærden Sie damit den gesamten Inhalt der Datenbank l╨ñschen! Der letzte Schritt besteht nun darin, die erstellte Datenbank zu ╨ñffnen. Gleichzeitig m╨æssen Sie die zugeh╨ñrige Indexdatei ╨ñffnen (Indexdateien werden nicht automatisch mit der Datenbank ge╨ñffnet!!) und eines der darin enthaltenen Indexfelder zum aktiven Index machen. Dazu ben╨ñtigen Sie drei Befehle: IOPEN nr, id_string IOPEN_INDEX nr, id_string ISET nr, index$, expr$ Beim ╨⌐ffnen mit IOPEN erh╨ölt die Datenbank eine Kennummer (╨æber nr), ╨æber die sie mit allen folgenden Befehlen angesprochen werden kann. F╨ær id_string geben Sie die Bezeichnung der Datenbank ein. Dieselbe Bedeutung besitzen diese Variablen beim Γòôffnungsbefehl IOPEN_INDEX f╨ær die Indexdatei. Es ist ╨æbrigens erlaubt, mehrere Indexdateien gleichzeitig zu ╨ñffnen, die sich auf eine Datenbank beziehen. ISET legt schlie╤ülich den aktiven Index fest. Geben Sie hier zun╨öchst die Nummer der Datenbank an, auf die sich der Index beziehen soll. F╨ær index$ geben Sie die Bezeichnung des Indexfeldes in der Indexdatei an, welches aktiv sein soll. Expr$ ist eine R╨æckgabevariable. Hier wird an das Programm zur╨æckgegeben, auf welches Feld im Datensatz der aktive Index zeigt. Wir wollen als Zusammenfassung eine neue Datenbank erstellen, bzw. falls es diese bereits geben sollte, einfach nur ╨ñffnen. Im letzteren Fall ist es nicht n╨ñtig, Datensatzstruktur und Indexstruktur neu zu definieren und sogar verboten, die Dateien "id_string.dbf" und "id_string.mdx" zu l╨ñschen. Programmtechnisch stellt dieses Problem eine Verzweigung dar. Wir fragen zu Beginn, ob es die Datenbankdatei "id_string.dbf" schon gibt. Dies erreichen wir mit dem Befehl EXIST (siehe Referenzteil). Ist die Datei bereits vorhanden, springen wir gleich zur Γòôffnungsanweisung f╨ær die Datenbank. Andernfalls mu╤ü zun╨öchst der Definitionsteil durchgef╨æhrt werden: REM Zun╨öchst werden die ben╨ñtigten lokalen Variablen definiert DEFSTRING expr DEFFLOAT a REM Jetzt die Abfrage, ob die Datenbank schon existiert EXIST "test.dbf", a IF a<>1 THEN REM Falls nein, dann mu╤ü Sie neu definiert werden dim feld,1,5 dim index, 1, 3 REM Zun╨öchst wird die Datensatzfeldstruktur definiert REM Bezeichnung Typ L╨önge Nachkommastellen feld1=" NAME, C, 20, 0" feld2=" VORNAME, C, 20, 0" feld3=" ADRESSE, C, 50, 0" feld4=" KOMMENTAR, M, 10, 0" feld5=" " REM Die Definition der Indexstruktur REM Bezeichnung Ausdruck Filter Unique Aufst. Index1=" NAME_TAG , NAME , DEL()<>"*" , 0, 0" Index2= ADRESSE_TAG, ADRESSE, , 0, 0" Index3=" " REM Eventuelle alte Datenbankdateien l╨ñschen KILL "test.dbf" KILL "test.cdx" ICREATE "test", feld, index ENDIF REM Die Datenbank wird mitsamt Indexdatei ge╨ñffnet, das Feld REM Name_tag als aktiver Index ausgew╨öhlt. IOPEN 1, "test" IOPEN_INDEX 1, "test" ISET 1, "NAME_TAG", expr Diese Codesequenz k╨ñnnen Sie als Modul zur Erstellung einer Datenbank in ein Programm einbauen. F╨ær sich alleine ist es aber selbstverst╨öndlich nicht lauff╨öhig, da das ganze Ambiente wie Programmoberfl╨öche usw. noch fehlt. Zus╨ötzliche Indexdatei und Reorg. Wie bereits bemerkt wurde, mu╤ü f╨ær das Setzen eines neuen Index ein Indexfeld in der Indexdatei erstellt werden. Da Indexdateien physikalische Dateien sind, wird die Laufgeschwindigkeit des Programms um so mehr herabgesetzt, je gr╨ñ╤üer die zugeh╨ñrige Indexdatei ist. Falls Sie sich mehrere Indexoptionen offenhalten wollen, ist es daher ratsam, die dazu erforderlichen Indexfelder in verschiedenen Indexdateien zu definieren. Es ist n╨ömlich erlaubt, mehrere Indexdateien gleichzeitig zu ╨ñffnen, die sich auf dieselbe Datenbank beziehen. Ein zus╨ötzliche Indexdatei l╨ö╤üt sich jederzeit innerhalb des Programms erstellen. Gehen Sie dabei zun╨öchst genauso vor wie bei der Basisindexdatei. Definieren Sie die gew╨ænschten Indexfelder: DIM ZINDEX 1,2 REM Bezeichnung Ausdruck Filter Unique Aufst. ZIndex1= "VORNAME_TAG , VORNAME , , 0 , 0" ZIndex2="" Beachten Sie bitte, da╤ü Sie f╨ær die neue Indexdatei andere Feldbezeichnungen verwenden m╨æssen als f╨ær die Basisindexdatei. Des weiteren mu╤ü die neue Indexdatei einen anderen Namen erhalten als die Basisindexdatei, die ja denselben Namen tr╨ögt wie die Datenbank. Damit wird aber bei der Erstellung der neuen Indexdatei eine zus╨ötzliche Datei "*.mdx" erzeugt (wobei f╨ær den Platzhalter * der Name der neuen Indexdatei eingef╨ægt wird). Analog zu unserem Vorgehen bei der Neuerstellung der Datenbank mu╤ü vor der Neuerstellung dieser Datei "*.mdx" jede Datei desselben Namens gel╨ñscht werden. Nehmen wir an, da╤ü die neue Indexdatei den Namen "testx" erhalten soll, dann m╨æssen Sie eingeben: KILL "testx.mdx" Nun k╨ñnnen wir die neue Indexdatei generieren: IMAKEINDEX nr, indexname, indexfeld F╨ær nr geben Sie die Kennung der zugeh╨ñrigen Datenbank ein. Anstelle der Variablen indexname geben Sie die Bezeichnung der neuen Indexdatei an, hier "testx". Wie gesagt darf dieser Name nicht identisch sein mit demjenigen der Basisindexdatei. Keinesfalls darf eine Endung (z.B. cdx/mdx) an den Indexnamen angef╨ægt werden! F╨ær indexfeld schlie╤ülich geben Sie den Namen der Feldvariablen an, ╨æber die die neuen Indexfelder erzeugt wurden, also in unserem Beispiel "zindex". Diese Indexdatei kann danach wie gewohnt mit IOPEN_INDEX ge╨ñffnet werden. Mit ISET sind Sie dann in der Lage, einen Index der neuen Datei zu aktivieren. Es steht Ihnen frei, innerhalb eines Programms beliebig viele Indexdateien zu erzeugen. Sollten wider Erwarten w╨öhrend des Programmablaufs Fehler in einer Indexdatei auftreten, so haben Sie die M╨ñglichkeit, eine Reorganisation der Indexdatei durchzuf╨æhren: IREINDEX nr Damit werden alle ge╨ñffneten Indexdateien reorganisiert, die zur entsprechenden Datenbank (╨æber nr angesprochen) geh╨ñren. Schlie╤üen von Datenbanken und Indizes Sie k╨ñnnen mit Hilfe eines Befehles alle ge╨ñffneten Indexdateien einer Datenbank schlie╤üen: ICLOSE_INDEX nr Es werden alle Indexdateien der Datenbank geschlossen, deren Kennummer Sie f╨ær nr eingegeben haben. Die Datenbank selbst bleibt aber ge╨ñffnet!! Am Ende eines Programmes mu╤ü die ge╨ñffnete Datenbank geschlossen werden, um alle Inhalt darin auf die Festplatte in der .dbf-Datei zu speichern. Dies geschieht mit ICLOSE nr Auch hier geben Sie f╨ær nr die Bezeichnung der entsprechenden Datenbank an. Au╤üer der Datenbank werden alle zugeh╨ñrigen Indexdateien mit dieser Anweisung geschlossen und die aktuellen Inhalte der Datenbank- und Indexdateien gespeichert. F╨æhren Sie diesen Befehl unbedingt am Programmende aus, sonst kann es zu Datenverlusten kommen! Haben Sie mehrere Datenbanken ge╨ñffnet, k╨ñnnen Sie diese alle mit ICLOSE schlie╤üen, wenn Sie als Kennummer f╨ær die zu schlie╤üende Datenbank 99 eingeben. Daraufhin werden alle offenen Datenbanken und Indexdateien geschlossen. Hinzuf╨ægen und Entfernen Wir wollen uns nun der Bearbeitung von Datens╨ötzen einer Datenbank zuwenden. Daf╨ær mu╤ü eine Datenbank aber zun╨öchst Datens╨ötze enthalten. Ein neuer Datensatz mu╤ü zun╨öchst einmal in die Eingabefelder auf der Programmoberfl╨öche eingegeben werden. Anschlie╤üend werden die Daten in die den Eingabefeldern zugrunde liegenden Variablen, welche die Recordstruktur bilden, ╨æbergeben. Dies ist uns alles bereits aus dem Kapitel ╨æber Eingabefelder bekannt. Jetzt m╨æssen die Daten aus der Recordstruktur der Datenbank angef╨ægt werden. Dies gelingt mit IADD nr, s$ Zun╨öchst mu╤ü wieder die Kennummer der entsprechenden Datenbank aufgef╨æhrt werden. Anschlie╤üend ist f╨ær s$ der Feldname der Recordstruktur anzugeben, aus der ein Datensatz der Datenbank angef╨ægt werden soll. Der neue Datensatz wird automatisch von der Indexdatei entsprechend des aktiven Index einsortiert. Gleichzeitig wird der neue Datensatz zum aktuellen Datensatz gemacht. In einer Datenbank ist immer ein Datensatz der aktuelle Datensatz. Nur der aktuelle Datensatz kann mit Befehlen bearbeitet werden. Man mu╤ü sich dabei vorstellen, da╤ü ein Datenbank intern mit einer Markierung versehen wird, dem sogenannten Datenbanksatzzeiger. Der Datensatz, auf den dieser Zeiger deutet, ist der aktuelle Datensatz: Datenbankzeiger Der jeweils aktuelle Datensatz kann aus der Datenbank entfernt werden. Dies geschieht bei Datenbanken im dBASE-Format in zwei Etappen. Zun╨öchst wird der aktuelle Datensatz als gel╨ñscht markiert. Dies erreicht man mit dem Befehl: IDEL nr F╨ær nr m╨æssen Sie wie ╨æblich die Bezeichnung der Datenbank angeben, aus der ein Datensatz entfernt werden soll. Der Datenbanksatzzeiger wird automatisch auf den n╨öchsten Datensatz gestellt, der dadurch aktueller Satz wird. Damit ist der Datensatz aber noch nicht endg╨æltig gel╨ñscht, sondern nur als zum L╨ñschen markiert. Die Operation kann r╨æckg╨öngig gemacht werden mit IUNDEL nr Auch hier steht nr f╨ær die Datenbankbezeichnung. Es wird die L╨ñschmarkierung vom aktuellen Datensatz entfernt und dieser damit zu einem ganz normalen Datensatz. Wenn Sie genau aufgepa╤üt haben, ist Ihnen nicht entgangen, da╤ü mit IDEL der Datenbanksatzzeiger automatisch weiterbewegt wird. IUNDEL wirkt aber seinerseits nur auf den aktuellen Datensatz. Bevor die L╨ñschung mit IUNDEL wieder r╨æckg╨öngig gemacht werden kann, mu╤ü der Datenbanksatzzeiger auf den markierten Datensatz bewegt werden. Wie dies m╨ñglich ist, erfahren Sie im n╨öchsten Kapitel. Wenn Sie die L╨ñschung unmittelbar danach wieder r╨æckg╨öngig machen wollen, ist dies relativ einfach, da der Datenbanksatzzeiger einfach wieder um einen Satz zur╨æckgesetzt werden mu╤ü (mit IPREV). Viel schwieriger ist es, die L╨ñschung zu einem sp╨öteren Zeitpunkt r╨æckg╨öngig zu machen. Der Datenbanksatzzeiger kann nat╨ærlich mittlerweile sehr weit entfernt vom gel╨ñschten Datensatz sein. Die L╨ñsung besteht darin, den Datenbanksatzzeiger Schritt f╨ær Schritt durch die Datenbank zu bewegen und bei jedem Datensatz nachzufragen, ob dieser als gel╨ñscht markiert ist. Diese Nachfrage f╨æhrt man mit folgender Anweisung durch: IDELCHECK nr, ok Der aktuelle Datensatz der ╨æber nr gekennzeichneten Datenbank wird daraufhin ╨æberpr╨æft, ob er zur L╨ñschung markiert ist. ╨¬ber ok liefert der Befehl dem Programm das Resultat der ╨¬berpr╨æfung zur╨æck. Erh╨ölt ok den Wert 0, ist der Datensatz als gel╨ñscht markiert. Ansonsten handelt es sich um einen ganz normalen Datensatz. Zur Verdeutlichung wollen wir ein kleines Suchprogramm vorstellen, das einen als gel╨ñscht markierten Datensatz aufsp╨æren soll. Die Befehle ISTART und INEXT wollen wir unkommentiert verwenden, sie werden im n╨öchsten Abschnitt vorgestellt: REM Der aktuelle Datensatz wird ╨æberpr╨æft IDELCHECK nr, ok WHILE ok<>0 REM Ist dieser nicht markiert, wird der n╨öchste Satz kontrolliert INEXT nr, pos, s$ IDELCHECK nr, ok REM Ist das Datenbankende erreicht,kehrt man REM zum Datenbankanfang zur╨æck IF pos=3 AND ok<>0 THEN ISTART nr, s$ ENDIF WEND Selbstverst╨öndlich ist dieses Beispielprogramm f╨ær sich alleine nicht lauff╨öhig. Es mu╤ü in ein vollst╨öndiges Programm eingebaut werden. Zum Abschlu╤ü sei noch eine M╨ñglichkeit erw╨öhnt, wie ein als gel╨ñscht markierter Datensatz in einer ge╨ñffneten Datenbank unwiederbringlich entfernt werden kann. Geben Sie hierzu ein: IPACK nr Es werden dann alle markierten Datens╨ötze aus der entsprechenden Datenbank irreversibel gel╨ñscht. Die Anzahl aller in einer Datenbank vorhandenen Datens╨ötze l╨ö╤üt sich mit ILEN nr, laenge ermitteln. Mit nr legen Sie entsprechende Datenbank ╨æber ihr Handle fest. ╨¬ber die Variable laenge wird Ihnen dann mitgeteilt, wieviele Datens╨ötze dort enthalten sind. Bewegen des Datenbankzeigers Im vorhergehenden Abschnitt haben wir bereits einige M╨ñglichkeiten kennengelernt, den Datenbanksatzzeiger innerhalb der Datenbank von einem Datensatz zu einem anderen zu bewegen. Hier sollen alle diesbez╨æglichen Anweisungen zusammengestellt werden. Will man den Datenbanksatzzeiger um einen Datensatz gem╨ö╤ü des aktuellen Index weiter bewegen, verwendet man INEXT: INEXT nr, pos, s$ In der mit nr angesprochenen Datenbank wird der Zeiger um eine Position weiter bewegt. Die Variable pos dient zur R╨æckgabe der Information, ob der Datenbankanfang oder das Datenbankende erreicht worden sind. Im ersteren Fall erh╨ölt pos den Wert pos=4, im andern Fall den Wert pos=3. Ist das Dateiende erreicht, wird der Datenbanksatzzeiger nicht weiter verstellt, der letzte Satz bleibt aktiviert. Mit s$ geben Sie die Recordstruktur an, in die der neue aktuelle Datensatz geladen werden soll. Von dort aus kann er den Eingabefeldern zur Bildschirmausgabe ╨æbergeben werden. Der Zeiger wird mit IPREV um einen Datensatz zur╨æckgesetzt: IPREV nr, pos, s$ Die Variablen haben dieselbe Bedeutung wie bei INEXT. Ist der Datenbankanfang erreicht, wird der Zeiger nicht mehr verstellt. Der erste Datensatz bleibt aktuell. Diese beiden Befehle eignen sich hervorragend zum Bl╨öttern in einer Datenbank. Wir werden sp╨öter in den Beispielprogrammen viel von diesen Befehlen Gebrauch machen. Sie haben auch die M╨ñglichkeit, den Zeiger zum Anfang oder Ende der Datenbank zu bewegen. Ersteres gelingt mit ISTART, letzeres mit IENDE: ISTART nr, s$ IENDE nr, s$ ╨¬ber nr sprechen Sie die Datenbank an, s$ legt die Recordstruktur fest, der der neue Datensatz zugewiesen werden soll. Eine zus╨ötzliche Bewegung n╨ætzt die Nummern aus, die Datens╨ötze bei ihrer Aufnahme in eine Datenbank automatisch erhalten. Diese Nummern sind unver╨önderlich und unabh╨öngig davon, nach welchem Kriterium die Datenbank sortiert wird. Die Nummer des aktuellen Datensatzes erfahren sie mit IGET_NR nr, pos ╨¬ber die Variable pos wird die entsprechende Nummer zur╨æckgegeben. Sie k╨ñnnen diese vermerken und den Datensatz dann wie folgt ansprechen: IGO_NR nr, pos Der Datensatzzeiger wird nun auf den Datensatz mit der in pos vermerkten Nummer gesetzt und damit zum aktuellen Datensatz. Wenden Sie die Befehle zum Bewegen des Datenbanksatzzeigers in einer Datenbank an, die keine Datens╨ötze enth╨ölt, so bekommen Sie als Quittung eine Fehlermeldung, da╤ü keine Daten in der Datenbank gespeichert sind. Suchen und Laden Wir wollen nun versuchen, einen bestimmten Datensatz aus der Datenbank herauszusuchen und auf dem Bildschirm anzeigen zu lassen. Der erste Schritt mu╤ü nat╨ærlich darin bestehen, dem Anwender die Eingabe einer Suchvorgabe zu erm╨ñglichen. Wie dies programmtechnisch realisiert wird, werden wir sp╨öter in Beispielprogrammen kennenlernen. Uns soll hier nur interessieren, da╤ü der zu suchende Begriff (der Schl╨æsselwert) letztendlich in einem Eingabefeld erscheinen mu╤ü, von wo er in die entsprechende Variable der Recordstruktur eingelesen werden kann. Aus der Recordstruktur kann die Suchvorgabe leicht der Datenbank ╨æbergeben werden, n╨ömlich mit IREAD nr, ok, suchstring$, s$ Aus der Variable suchstring$ der Recordstruktur s$ wird der entsprechende Begriff in die Datenbank mit bei nr angegebenen Bezeichnung eingelesen. Es beginnt automatisch die Suche nach diesem Begriff. Das Ergebnis wird ╨æber die Variable ok mitgeteilt. Kann der Begriff gefunden werden, erh╨ölt ok den Wert 0, ansonsten wird ein Wert ungleich Null ╨æbergeben. Der Datenbanksatzzeiger wird nun auf den Datensatz gestellt, der den Suchbegriff enth╨ölt. Beachten Sie aber bitte, da╤ü das Suchkriterium mit dem aktiven Index ╨æbereinstimmen mu╤ü. Sie k╨ñnnen beispielsweise nicht nach einer Adresse suchen, wenn der Index auf das Feld "Name" gesetzt ist. Um den aktuellen Datensatz in die Variablen der Recordstruktur einzulesen, bedienen Sie sich der Anweisung IGETREC: IGETREC nr, s$ F╨ær nr geben Sie wie ╨æblich die Bezeichnung der Datenbank an, aus der der aktuelle Datensatz herausgeholt werden soll. Mit s$ legen Sie die Recordstruktur fest, in welche die Inhalte der Datenbank ╨æbergeben werden sollen. Um den herausgesuchten Datensatz auf dem Monitor anzuzeigen, mu╤ü nur noch der Inhalt der Recordstruktur in Eingabefeldern angezeigt werden. Wie dies mit SET_ITEM_ARRAY funktioniert, haben wir bereits im Kapitel ╨æber Eingabefelder kennengelernt. Es ist auch m╨ñglich, mehrere Datens╨ötze gleichzeitig in ein Array einzulesen. Dies ist besonders bei der Erstellung von Listen vorteilhaft. Eine Liste sollte ja nach M╨ñglichkeit alle Datens╨ötze einer Datenbank anzeigen k╨ñnnen. Damit dazu nicht viele Male nacheinander IGETREC eingesetzt werden mu╤ü, steht Ihnen folgendes zur Verf╨ægung: IGETREC_ARRAY nr, flag, trenn$, dbstruct$, array$, start, ende, feld1, feld2, .. Der etwas ausf╨æhrlichere Parameterblock l╨ö╤üt Ihnen einigen Spielraum bei der Listenerstellung. Zun╨öchst mu╤ü die Kennummer der Datenbank (nr) angegeben werden. Anschlie╤üend legen Sie ╨æber flag fest, welche Datens╨ötze au╤üer dem aktuellen in die Liste hineingenommen werden sollen. Mit flag=0 erreichen Sie, da╤ü vom aktuellen Datensatz aus die folgenden Datens╨ötze angesprochen werden, w╨öhrend flag=1 die Datens╨ötze vor dem aktuellen aktiviert. In einer Liste wird der Inhalt einer Datenbank normalerweise so angezeigt, da╤ü die Eintr╨öge in den einzelnen Variablen feld1 , feld2 usw. untereinander angeordnet werden. Um dies zu erreichen, m╨æssen die Felder eines Datensatzes wieder voneinander getrennt werden. Dies wird programmtechnisch dadurch erreicht, da╤ü ein Trennzeichen zwischen die einzelnen Datensatzfelder eingef╨ægt wird. Dieses Trennzeichen k╨ñnnen Sie ╨æber trenn$ selektieren. Als n╨öchstes gilt es, die Feldvariablen anzugeben, die die Datenbankstruktur aufbauen. In unserem obigen Beispiel handelte es sich um die Variablen feld1 bis feld4. ╨¬ber array$ wird das Array bestimmt, in das die entsprechenden Inhalte der Datenbank eingelesen werden sollen. Hierbei legen Sie mit start und ende die erste und die letzte zu benutzende Variable in diesem Array fest. Letztendlich geben Sie diejenigen Datenbankfeldvariablen an, deren Inhalte in die Liste ╨æbergeben werden sollen. Sie haben also die M╨ñglichkeit, gezielt nur Teile von Datens╨ötzen anzeigen zu lassen. M╨ñchten Sie in unserem obigen graphischen Beispiel nur jeweils den Namen und den Vornamen in der Liste auff╨æhren, so geben Sie nur feld1 und feld2 an und lassen feld3 unber╨æcksichtigt. ╨₧ndern Nat╨ærlich mu╤ü es eine M╨ñglichkeit geben, in der Datenbank bereits vorhandene Datens╨ötze nachtr╨öglich wieder zu ╨öndern. Hierzu sucht man zun╨öchst den gew╨ænschten Datensatz aus der Datenbank heraus, damit er zum aktuellen Datensatz wird und l╨ö╤üt sich diesen am Bildschirm anzeigen. Nun f╨æhren Sie in den Datenfeldern der Eingabemaske die gew╨ænschten ΓöÇnderungen durch. Der neue Inhalt mu╤ü in die Variablen der Recordstruktur ╨æbergeben werden. Anschlie╤üend wird die folgende Anweisung aufgerufen: IMODREC nr, s$ Der aktuelle Datensatz in der mit nr bezeichneten Datenbank wird mit dem Inhalt der Recordstruktur s$ ╨æberschrieben. Wir wollen zur Verdeutlichung ein kleines Modul erstellen, da╤ü eine Speicherung der am Monitor in den Datenfeldern vorgenommenen ΓöÇnderungen erm╨ñglicht. F╨ær sich alleine ist es nat╨ærlich nicht lauff╨öhig. Wir wollen davon ausgehen, da╤ü bereits der aktuelle Datensatz in der Recordstruktur geladen und am Monitor angezeigt ist. Es existieren drei Datenfelder "Name", "Vorname" und "Adresse". Analog sind in der Recordstruktur drei Variablen s1 bis s3 enthalten. Die ΓöÇnderungen werden jetzt am Bildschirm vorgenommen, anschlie╤üend mit Aktivierung eines Men╨æbefehls folgendes Modul aufgerufen: MODUL Daten_speichern () GET_ITEM "Name", s1 GET_ITEM "Vorname", s2 GET_ITEM "Adresse", s3 IMODREC 1, s Mehr ist nicht notwendig, da der aktuelle Datensatz je bereits am Monitor angezeigt ist. Es erfolgt lediglich ein Umschreiben der Daten in der Datenbank. Die Anweisung GET_ITEM wurde im Kapitel ╨æber Datenfelder erl╨öutert. Hiermit wird der Inhalt eines Datenfeldes in eine Variable ╨æbergeben. Ermitteln der Feldstruktur Sollte aus irgendeinem Grund der Fall eintreten, da╤ü Sie mit einer Datenbank arbeiten m╨æssen, deren Aufbau Ihnen nicht bekannt ist, brauchen Sie nicht zu verzweifeln. KIM h╨ölt einen Befehl bereit, der die Feldstruktur einer Datenbank und der zugeh╨ñrigen Indexdatei selbst╨öndig ermittelt. Es handelt sich dabei um IGETSTRUCT nr, def_felder, def_index, zahl Sie m╨æssen lediglich die Kennummer der gew╨ænschten Datenbank vorgeben. Zur╨æckgegeben wird Ihnen dann ╨æber def_felder die Feldstruktur der Datenbank, ╨æber def_index die Feldstruktur der Indexdatei und ╨æber zahl die Gesamtanzahl der Feldnamen in der Datenbank. Somit entspricht der Aufbau der R╨æckgabewerte denen im Befehl ICREATE. Zur Verdeutlichung wollen wir ein kleines Programmodul entwickeln, welches den Aufbau einer Datenbank ermittelt. Zun╨öchst m╨æssen die ben╨ñtigten Variablen definiert werden, wobei sinnvollerweise bei def_felder und def_index die Maximalzahl an m╨ñglichen Feldvariablen in Datenbank- und Indexdatei, n╨ömlich 255, angegeben werden sollten. Anschlie╤üend wird die Datenbank ge╨ñffnet und die Struktur ermittelt: REM Ermittlung der Feldstruktur einer Datenbank deffloat zahl, i dim felder, 1, 255 dim index, 1, 255 dim def_felder, 1, 255 dim def_index, 1, 255 iopen 1, datei istart 1, felder igetstruct 1, def_felder, def_index, zahl ΓòÉΓòÉΓòÉ 10. Eingabefelder ΓòÉΓòÉΓòÉ Eingabefelder ╨¬bersicht In diesem Kapitel werden Sie alles ╨æber Eingabefelder erfahren. Eingabefelder besitzen eine essentielle Bedeutung bei der Kommunikation zwischen Anwender und Datenbankprogramm. ╨¬ber sie verl╨öuft Dateiein- und ausgabe. KIM h╨ölt vier unterschiedliche Typen von Eingabefelder f╨ær Sie bereit, die der Reihe nach behandelt werden. Es soll aufgezeigt werden, wie die Felder ╨æber bestimmte Variablen mit dem eigentlichen Programm verkn╨æpft sind. Den Abschlu╤ü des ersten Teils dieses Kapitels bilden die verschiedenen Optionen, mit denen der eingegebene Feldinhalt nachtr╨öglich formatiert, bearbeitet und ver╨öndert werden kann. Im zweiten Abschnitt werden Sie eine M╨ñglichkeit kennenlernen, wie Eingabefelder und sogar ganze Feldmasken auf viel einfachere Art und Weise als ╨æber die Definition "per Hand" erzeugt werden k╨ñnnen. Hierzu dient der Maskengenerator. Es wird die Handhabung dieses Utility-Programmes erkl╨ört, wie man neue Feldobjekte erstellt und diese nachtr╨öglich modifizieren kann. Zum Schlu╤ü folgt ein Ausblick f╨ær professionellere KIM- Anwender. Es wird erl╨öutert, wie einige Voreinstellungen des Maskengenerators ╨æber den Quellcode bzw. die Betriebssysteme modifiziert werden k╨ñnnen. Dazu wird der Quellcode des Maskengenerators absichtlich unverschl╨æsselt mitgeliefert. Von dieser M╨ñglichkeit sollten aber nur ge╨æbte KIM-Programmierer Gebrauch machen, da Manipulationen im Quellcode leicht zu Programmabst╨ærzen f╨æhren k╨ñnnen. Erstellen von Eingabefeldern Eingabefelder stellen das Verbindungsglied zwischen dem Programm und der Oberfl╨öche dar. ╨¬ber diese Felder k╨ñnnen Sie Eingaben t╨ötigen, die das Programm speichern und bearbeiten kann. Andererseits ist das Programm aber auch in der Lage, ╨æber solche Eingabefelder Datenbankeintr╨öge oder Werte von Variablen an den Benutzer auszugeben. Eingabefelder erscheinen im Normalfall als rechteckige Kasten auf Ihrer Programmoberfl╨öche. Wenn Eingaben in die Felder get╨ötigt werden k╨ñnnen, befindet sich ein blinkender Cursor im Feld. Im Normalfall ist in KIM-Programmen jedem Eingabefeld eine Variable (meist eine ╨æber DEFINE erstellte Feldvariable) zugeordnet. Eingabefelder unterscheiden sich daher oft in der Art der Eingabe, die sie akzeptieren, und sind nur selten identisch. Sie besitzen zwei M╨ñglichkeiten, um Eingabefelder zu erzeugen. Zum einen k╨ñnnen Sie den daf╨ær erforderlichen Programmcode per Hand erstellen, was wir in den ersten Abschnitten dieses Kapitels aus didaktischen Gr╨ænden vorf╨æhren werden. Die andere, weitaus effizientere Methode besteht in der Verwendung des Maskengenerators. Im zweiten Teil dieses Kapitels werden wir dieses m╨öchtige Utensil des KIM-Editors im Detail kennenlernen und mit ihm Eingabefelder erstellen. Im Prinzip kann man vier unterschiedliche Arten von Eingabefeldern unterscheiden. Die wichtigsten Felder sind sicherlich diejenigen, die eindeutige Texteingaben wie Namen, Vornamen, Adressen usw. erwarten und diese in die entsprechenden Feldvariablen ╨æbergeben. Wir wollen diese Felder als allgemeine Eingabefelder bezeichnen. Oft enth╨ölt ein Datenbankprogramm mindestens ein Feld, in dem irgendein Text ohne Einschr╨önkung eingegeben werden kann. Da diese Felder oft zur Angabe von Kommentaren verwendet werden, wollen wir sie Kommentarfelder nennen. Die letzten beiden Feldarten dienen speziell zur Eingabe bzw. Ausgabe von Datum und Uhrzeit. Sie sollen daher als Datums- und Zeitfelder bezeichnet werden. Allgemeine Eingabefelder Die wichtigsten Felder eines Datenbankprogramms sind sicherlich die allgemeinen Eingabefelder. Hier werden die Daten eingegeben, die eigentlich als Informationen in der Datenbank gespeichert werden sollen. Gleichzeitig werden ╨æber diese Felder die Daten aus der Datenbank wieder auf dem Bildschirm ausgegeben. Ein kennzeichnendes Merkmal allgemeiner Eingabefelder ist Ihre definierte L╨önge und Ihre Bedeutung f╨ær die Eingabe und Anzeige Datenbankrelevanter Informationen. Hinter jedem allgemeinen Eingabefeld steht eine Feldvariable, der der Inhalt des Feldes zugewiesen wird und anschlie╤üend in die Datenbank ╨æbergeben werden kann. F╨ær die Aufgabe einer Feldvariable eignen sich am besten DEFINE- Variablen. Diese k╨ñnnen bekanntlich mit einer Zusatzbezeichnung vordefiniert werden, was f╨ær dieses Programmierungsproblem das beste ist. Durch die Zusatzbezeichnung erkennen Sie im Quellcode Ihres Programmes sofort, welche Variable welchem Feld zugeordnet ist. Unerheblich ist hingegen die Festlegung einer bestimmten Variablenl╨önge. Wie wir sp╨öter kennenlernen werden, wird die Feldgr╨ñ╤üe in Datens╨ötzen innerhalb der Datenbank festgelegt. Darum ist es unerheblich, wie gro╤ü die hier definierten Feldvariablen sind. Der erste Schritt bei der Erstellung allgemeiner Eingabefelder besteht also in der Definition der entsprechenden Feldvariablen. Beispielsweise sollte eine Variable mit der L╨önge von 10 Zeichen, die dem Eingabefeld "Name" zugewiesen ist, so erzeugt werden: DEFINE feld1, 10 AS Name Nun k╨ñnnen wir daran gehen, das eigentliche Eingabefeld zu definieren. Diese geschieht mit der Anweisung: DEF_STRING id_string, x, y, len, text$, wert Anstelle der Variablen id_string geben Sie wie ╨æblich die Kennung des Objekts an, ╨æber die es angesprochen werden kann. ╨¬ber x und y legen Sie die Position des linken oberen Ecks des Feldes in dem Fenster fest, dem es zugewiesen wird (wie wir bereits im Kapitel ╨æber Programmoberfl╨öchen kennengelernt haben, m╨æssen alle Oberfl╨öchenobjekte einem Fenster zugewiesen werden). Mit len legen Sie die L╨önge des Eingabefeldes fest. Aus logischen Erw╨ögungen sollte das Eingabefeld genauso lang sein wie die zugeh╨ñrige Feldvariable, dies ist aber nicht zwingend notwendig. Weiterhin besitzen Sie die M╨ñglichkeit, einen Vorgabetext zu definieren, der im Eingabefeld jedesmal beim Programmstart erscheinen soll. Hierzu weisen Sie der Variablen text$ den entsprechenden Vorgabetext zu. Normalerweise sollten Sie als Vorgabetext den aktuellen Feldinhalt der Variable aus der Datenbank im Feld anzeigen lassen. Wie wir noch erfahren werden, wird beim ╨⌐ffnen einer Datenbank ein Datensatz zum aktuellen Datensatz erhoben. ╨¬ber wert legen Sie fest, wie lang das Objekt auf dem Monitor erscheint. Ist len gr╨ñ╤üer als wert, k╨ñnnen mehr Zeichen ╨æbergeben als angezeigt werden. Der Inhalt wird dann durch das Objekt gescrollt. Dieses Eingabefeld erscheint aber praktisch unsichtbar im entsprechenden Fenster, da keine Umrandung vorhanden ist. Wenn Sie ein Eingabefeld im Fenster sichtbar machen wollen, m╨æssen Sie das FLAG "BORDER" der Definitionsanweisung hintanstellen (bez╨æglich zu FLAGS siehe den entsprechenden Abschnitt im Kapitel "Fenster und Programmoberfl╨öchen"). Des weiteren k╨ñnnen Sie ein speziell f╨ær diesen Befehl vorhandenes FLAG einsetzen. Setzen Sie das FLAG "PASS", so wird dieses Eingabefeld als Eingabefeld f╨ær ein Passwort umfunktioniert. Der hier eingegebene Text erscheint dann unsichtbar im Feld. In das so erstellte Eingabefeld k╨ñnnen Sie jetzt neue Eingaben t╨ötigen. Der letzte Schritt besteht dann darin, den neuen Inhalt des Eingabefeldes in die entsprechende Feldvariable zu ╨æbergeben. Dies gelingt durch den Befehl: GET_ITEM id_string, feld1 F╨ær id_string geben Sie die Kennung des Eingabefeldes an, feld1 bezeichnet die Feldvariable, der der neue Inhalt zugewiesen werden soll. Das eigentliche Eingabefeld mitsamt Verbindung zum Programm w╨öre damit erstellt. Das Programm wird nat╨ærlich anwenderfreundlicher, wenn Sie auf der Programmoberfl╨öche vor jedem Eingabefeld eine Bezeichnung anf╨æhren, die dem Benutzer erkl╨ört, welcher Inhalt in dem Eingabefeld plaziert werden soll. Diese Erkl╨örung erstellen mittels des Befehls: DEF_PROMPT id_string, x, y, "Text" Auch dieses neue Textobjekt erh╨ölt eine Kennung ╨æber id_string. Die Werte in den Variablen x und y legen fest, an welcher Position der Text im zugewiesenem Fenster erscheinen soll. Berechnen Sie diese Werte genau, damit der Text auch bei dem Eingabefeld steht, zu dem er geh╨ñrt. Anstelle von "Text" geben Sie die gew╨ænschte Bezeichnung ein. Ein in ein allgemeines Eingabefeld eingegebener Inhalt kann, wie sp╨öter in diesem Kapitel erl╨öutert, nachtr╨öglich bearbeitet und formatiert werden. Sie k╨ñnnen dies in gewissem Umfang aber bereits bei der Definition des Eingabefeldes tun. Hierzu dient die Anweisung DEF_INPUT (im Gegensatz zur oben vorgestellten allgemeineren Form DEF _STRING): DEF_INPUT id_string, x, y, len, text$, maske, schablone Die ersten f╨ænf Variablen id_string, x, y, len und text$ entsprechen in Ihrer Bedeutung dem Parameterblock des bereits bekannten Befehls DEF_STRING. Neu sind die Formatieroptionen ╨æber die Variablen maske und schablone. Hier k╨ñnnen Sie vorgeben, welche Zeichen ╨æberhaupt als Eingabe zugelassen werden und diese sofort in Gro╤übuchstaben verwandeln. Eine Liste an Vorgaben in der Variable maske soll Ihre M╨ñglichkeiten verdeutlichen: maske=c Alle alphanumerische Zeichen k╨ñnnen eingegeben werden. maske=C Alle alphanumerische Zeichen k╨ñnnen eingegeben werden,es erfolgt aber sofort Umwandlung in Gro╤übuchstaben. maske=a Nur die Buchstaben von a-z ohne Zahlen und Sonderzeichen k╨ñnnen eingegeben werden. maske=A Analog wie bei maske=a, aber alle Zeichen werden sofort in Gro╤übuchstaben umgewandelt. maske=N Nur Zahlen k╨ñnnen eingegeben werden. maske=x Es k╨ñnnen nur druckbare Zeichen eingegeben werden. maske=X Analog wie bei maske=x, aber alle Zeichen werden sofort in Gro╤übuchstaben umgewandelt. maske=L Es k╨ñnnen alle Zeichen eingegeben werden, die in der Variablenschablone vorgegeben werden. Nur bei dieser Option ist es notwendig, der Variablenschablone einen Inhalt zuzuweisen. Bis zu 255 beliebige Zeichen sind so als Eingabe vorgebbar. Kommentarfelder Neben den allgemeinen Eingabefeldern, ╨æber die die eigentlichen Datens╨ötze definierter L╨önge ╨æbergeben werden, findet man oft in Datenbankprogrammen ein zus╨ötzliches, meist gr╨ñ╤üeres Eingabefeld, welches eine beliebige Texteingabe erlaubt. Ein solches Eingabefeld erm╨ñglicht dem Anwender die Angabe von Kommentaren beliebige L╨önge, um seinen Datens╨ötzen zus╨ötzliche Informationen mitzugeben. Ein solches Kommentarfeld ist daher extrem benutzerfreundlich und sollte nach M╨ñglichkeit in jedem Programm vorhanden sein. Damit die Kommentare den entsprechenden Datens╨ötzen in der Datenbank angef╨ægt werden k╨ñnnen, mu╤ü das Kommentarfeld ebenfalls ╨æber eine Feldvariable mit dem Programm verkn╨æpft werden. Hierf╨ær sind DEFINE-Variablen nat╨ærlich geeignet, aber auf 255 Zeichen L╨önge beschr╨önkt. Wenn man l╨öngere Kommentareintragungen zulassen m╨ñchte, mu╤ü als Variable im Hintergrund eine MEMO-Variable eingesetzt werden. Wie bereits besprochen k╨ñnnen MEMO-Variablen bis zu 64000 Zeichen Inhalt aufnehmen. Das eigentliche Kommentarfeld sollte dann ebenfalls unabh╨öngig von irgendwelchen Zeichenbeschr╨önkungen sein. Ein mit DEF_STRING erstelltes Eingabefeld kann aber nur maximal eine Zeile lang sein. Deshalb gibt es den anderen Befehl: DEF_TEXT id_string, x, y, breite, hoehe, anzahl, array ╨¬ber id_string vergeben Sie wie ╨æblich die Objektkennung. x und y legen die Position der linken oberen Ecke des Feldes in dem Fenster fest, dem das Feld zugewiesen wird. ╨¬ber breite und hoehe wird bestimmt, wie breit und hoch das Kommentarfeld werden soll. Nat╨ærlich k╨ñnnen Sie auch diesem Feld einen Vorgabetext zuweisen, der jedesmal beim Programmstart darin erscheint. Hierzu ╨æbergeben Sie der Variablen array den entsprechenden Vorgabetext, wobei es sich dabei nat╨ærlich wieder um eine Variable mit Datenbankinhalt handeln kann. Letztendlich legen Sie mit der Variablen anzahl fest, wie viele Zeichen in das Eingabefeld eingef╨ægt werden d╨ærfen. Beachten Sie dabei, da╤ü der Maximalinhalt durch die Natur der zugrunde liegenden Feldvariablen determiniert ist. Im g╨ænstigsten Falle, wenn es sich um eine MEMO-Variable handelt, sind dies 64000 Zeichen. Das so erzeugte Kommentarfeld geht aber ╨æber den Status einer einfachen Eingabebox hinaus. Sie k╨ñnnen hier auf einfache Editierfunktionen zur╨æckgreifen, die denen der Zwischenablage unter Windows bzw. dem Systemeditor unter OS/2 entsprechen. N╨öheres erfahren Sie in den Handb╨æchern Ihrer Betriebssysteme. Zeitfelder KIM erlaubt Ihnen auch, Eingabefelder zu erstellen, die speziell f╨ær die Eingabe einer Uhrzeit gedacht sind. Das Zeitfeld wird dann wie folgt definiert: DEF_INPUT_TIME id_string, x, y, len, vorgabe$, intervall$ Wie ╨æblich wird eine Objektkennung ╨æber id_string zugewiesen, x und y legen die Position der linken oberen Ecke des Feldes in dem Fenster fest, dem es zugewiesen wird. Mit len bestimmen Sie die L╨önge des Eingabefeldes, wobei Sie wie immer an die L╨önge der Feldvariablen gebunden sind. Auch in diesem Feld k╨ñnnen Sie eine Vorgabe erzeugen, die jedesmal beim Programmstart darin erscheint. Geben Sie hierzu ╨æber die Variable vorgabe$ den gew╨ænschten Eintrag ein. Wenn Sie keine Vorgabe festlegen, sucht sich der Rechner automatisch aus dem ROM-BIOS die aktuelle Uhrzeit und schreibt sie in das Eingabefeld. Das hierf╨ær verwendete Format ist das ╨æbliche deutsche, also z.B. 19 Letztendlich k╨ñnnen Sie festlegen, da╤ü nur eine Uhrzeit eingetragen werden kann, die in einem bestimmten Intervall liegt. Dieses Zeitintervall bestimmen Sie ╨æber intervall$. M╨ñchten Sie beispielsweise, da╤ü nur eine Uhrzeit zwischen 12.00 Uhr und 14.00 Uhr in das Eingabefeld eingegeben werden darf, so geben Sie in die Variable folgendes ein: "12.00..14.00". Beachten Sie bitte, da╤ü auch hier das deutsche Format f╨ær die Zeitangabe vorgeschrieben ist. M╨ñchten Sie kein Vorgabeintervall festlegen, ╨æbergeben Sie einfach einen Leerstring " ". Es stehen Ihnen zahlreiche FLAGS zur Verf╨ægung, um das Format dieses Eingabefeldes zu beeinflussen (siehe Objekteigenschaften). Um die Eingaben in die Datenbank zu ╨æbergeben, verkn╨æpfen Sie das Eingabefeld wie bereits besprochen ╨æber GET_ITEM mit der Feldvariablen. Eine Feldbezeichnung auf der Programmoberfl╨öche erstellen Sie auf bekannte Weise ╨æber DEF_PROMPT. Datumsfelder Zuletzt k╨ñnnen Sie auch Eingabefelder definieren, die speziell zur Eingabe von Datumsangaben konzipiert sind. Diesen Feldern liegt ebenfalls eine zuvor zu erzeugende DEFINE-Variable zugrunde. Die eigentliche Definition erfolgt dann ╨æber DEF_INPUT_DATE id_string, x, y, len, vorgabe$, range Die Variablen id_string, x, y, len und vorgabe$ entsprechen in Ihrer Bedeutung exakt den Variablen aus dem Parameterblock des Befehls DEF_INPUT_TIME. Geben Sie keinen Vorgabetext ╨æber vorgabe$ ein, sucht der Computer aus dem ROM-BIOS das aktuelle Tagesdatum und schreibt dieses in die Variable. Das hierbei verwendete Format sieht so aus: TT/MM/YY, also z.B. 12/06/1993. ╨¬ber range k╨ñnnen Sie auch hier ein Vorgabeintervall festlegen, in welchem das einzutragende Datum liegen mu╤ü, z.B. "01/01/1988..01/10/1988". Das als Eingabe akzeptierte Datum mu╤ü dann in diesem Intervall liegen. Wird keine Vorgabe gew╨ænscht, ╨æbergeben Sie den Leerstring " ". Beachten Sie bitte, da╤ü bei Eingabe eines Datums immer das Jahrhundert bei der Jahreszahl stehen mu╤ü, also 1991 und nicht 91. Bearbeiten von Dateneingaben Hinzuf╨ægen und Entfernen von Leerzeichen Oft werden die in die Felder eingegebenen Inhalte nicht den vollen Platz der zugeh╨ñrigen Feldvariablen beanspruchen. Wenn beispielsweise ein aus f╨ænf Buchstaben bestehendes Wort in eine Feld von zehn Zeichen Gr╨ñ╤üe eingegeben wird, h╨öngt KIM zus╨ötzlich f╨ænf Leerzeichen an das Wort an. Dies kann im Einzelfall unerw╨ænscht sein, da dadurch die Gr╨ñ╤üe der Datens╨ötze steigt. Abhilfe schafft hier der Befehl: COMPRESS string$ Geben Sie einfach den Namen der zu bearbeitenden Stringvariablen an. Es werden aus dieser Variablen alle Leerzeichen nach dem eigentlichen Inhalt entfernt. Es w╨öre allerdings m╨æhselig, auf diese Art ein ganzes Variablenarray zu bearbeiten. Deshalb steht Ihnen ein kleine Abart von COMPRESS zur Verf╨ægung, der speziell auf Arrays zugeschnitten ist. Nehmen wir an, Sie m╨ñchten die Variablen 1 bis 3 des Arrays Feld von ╨æbersch╨æssigen Leerzeichen befreien, so geben Sie ein: COMPRESS2 feld,1,3 Bereits kennengelernt haben wir ja die Anweisung CLEAR, die den gesamten Inhalt von Variablen eines Arrays l╨ñscht. Es kann aber auch vorkommen, da╤ü links vor dem Inhalt in einer Stringvariablen Leerzeichen vorhanden sind (z.B. wenn bei der Eingabe in ein Feld nicht beim ersten Zeichen ganz links begonnen wurde). Diese Leerzeichen lassen sich mit LTRIM wieder entfernen: LTRIM string$ Damit werden alle Leerzeichen links vom Variableninhalt gel╨ñscht. Manchmal kann es aber geradezu erw╨ænscht sein, an den Inhalt einer Stringvariablen Leerzeichen anzuf╨ægen, um z.B. mehrere Variablen auf eine bestimmte L╨önge zu formatieren. Um Leerzeichen links vom Inhalt einzuf╨ægen, bedienen Sie sich der Anweisung RSET: RSET laenge, string$ F╨ær die Variable laenge geben Sie die Anzahl der Zeichen an, die die zu bearbeitende Variable string$ nach der Operation besitzen soll. Wenn Sie z.B. die Variable text="Hallo" mit f╨ænf Leerzeichen links vom Inhalt f╨ællen m╨ñchten, geben Sie ein: RSET 10, text Das Ergebnis sieht dann so aus: text=" Hallo". Analog k╨ñnnen Sie mit SET Leerzeichen nach dem Inhalt einer Variablen anf╨ægen, wobei Sie bei RSET verfahren: SET laenge, string$ Die Gr╨ñ╤üe des Inhalts einer Stringvariablen ermitteln Sie mit dem Befehl LEN: LEN string$, zahl Es wird dann ermittelt, wieviel Zeichen sich in der Variablen string$ befinden, wobei Leer- und Satzzeichen mitgez╨öhlt werden. Das Ergebnis wird in die Zahlenvariable zahl ╨æbergeben, aus der es abgerufen werden kann. Beachten Sie, da╤ü all diese Operationen nur mit String-(bzw. Define- oder Memo-)- variablen durchgef╨æhrt werden k╨ñnnen, nicht aber mit Zahlenvariablen. Umwandlung von Gro╤ü- und Kleinbuchstaben KIM erlaubt Ihnen, den Inhalt von Stringvariablen gesamt in Gro╤ü- oder Kleinbuchstaben zu verwandeln. Um Gro╤übuchstaben in Kleinbuchstaben umzuwandeln, bedienen Sie sich des Befehls LCASE: LCASE string$ Analog lassen sich mit UCASE alle Kleinbuchstaben in Gro╤übuchstaben modifizieren: UCASE string$ Selbstverst╨öndlich ergeben diese Anweisungen nur einen Sinn bei Stringvariablen, nicht aber bei Zahlenvariablen. Suchen KIM erm╨ñglicht Ihnen auch, in Variablen nach einem bestimmten Inhalt zu suchen. Wenn Sie beispielsweise wissen m╨ñchten, ob in der Variablen name der Begriff "Meier" zu finden ist, so geben Sie den Suchbegriff in eine Variable suchen ein: IN name, suchen, gefunden Das Programm sucht nun in der Variablen name nach dem in der Variablen suchen vorgegebenen Inhalt. Das Resultat des Suche wird in der Variablen gefunden gespeichert. War die Aktion erfolgreich, so wird die Position des Begriffs im String als Zahl ╨æbergeben. War die Suche negativ, erh╨ölt gefunden den Wert -1. Selbstverst╨öndlich k╨ñnnen Sie auch nur nach einem einzigen Zeichen suchen. Speziell f╨ær die Suche in Arrays vorgesehen ist der Befehl FIND: FIND array$, start, ende, suchen, gefunden Geben Sie das zu durchsuchende Array und anschlie╤üend die Kennummern der Feldvariablen an, bei denen die Suche begonnen bzw. beendet werden soll. Der zu suchende Begriff wird in der Variablen suchen vorgegeben, das Ergebnis analog zu IN in der Variablen gefunden gespeichert. Ver╨öndern Selbstverst╨öndlich sollten Sie in der Lage sein, den Inhalt von Variablen nach der Eingabe zu manipulieren. KIM stellt Ihnen hierf╨ær mehrere M╨ñglichkeiten zur Auswahl. Ein bestimmtes Zeichen einf╨ægen k╨ñnnen Sie mit FILLSTR. Wenn Sie beispielsweise f╨ænfmal das Zeichen "A" in die Variable Zeichen eingeben m╨ñchten, gehen Sie so vor: FILLSTR 5, Zeichen, "A" Beachten Sie bitte, da╤ü damit nur ein Zeichen auf einmal (allerdings in beliebiger Anzahl) in eine Variable eingef╨ægt werden kann. Ganze Textst╨æcke bzw. der Inhalt anderer Variablen lassen sich mittels STRADD einf╨ægen: STRADD string$, "Text" Der Variablen string$ wird so ein Text zugef╨ægt. Setzen Sie anstelle von text den Namen einer Variablen ein, so wird deren Inhalt in string$ eingef╨ægt. Im Gegensatz dazu k╨ñnnen Sie mit STRDEL wieder St╨æcke aus dem Inhalt einer Variablen entfernen. Nehmen wir an, Sie haben eine Variable Name mit dem Inhalt "Meisinger", m╨ñchten diesen Inhalt aber in "Meier" ╨öndern. Sie geben ein: STRDEL Name, 4,4 Die erste Zahl nach dem Variablennamen gibt die Position im Inhalt an, ab der Zeichen gel╨ñscht werden sollen. Die zweite Zahl legt fest, wieviele Zeichen ab dieser Position entfernt werden. In unserem Falle waren das vier Zeichen ab der Position vier, also die Zeichen "sing". Es ist Ihnen auch m╨ñglich, nur Teile des Inhalts einer Stringvariablen in eine andere Variable zu kopieren. Hierzu dient die Anweisung MID: MID string$, neu$, anfang, anzahl Hiermit werden Teile aus der Variablen string$ in die Variable neu$ eingef╨ægt. Mit anfang legen Sie die Position im Inhalt der Variablen string$ fest, ab der Zeichen kopiert werden sollen. Anzahl bestimmt die Zahl der Zeichen ab der selektierten Position, welche in neu$ eingef╨ægt werden. Der Inhalt einer Stringvariablen l╨ö╤üt sich zerlegen und auf mehrere andere Variablen eines Arrays verteilen. Hierbei orientiert sich KIM an ein von Ihnen festzulegendes Trennzeichen: SELECT string$, ord, s$, m, n Der Inhalt der Variablen string$ wird geteilt und in die Variablen m bis n des Arrays s$ ╨æbergeben. Die Teilung erfolgt an dem Trennzeichen, dessen ASCII-Codewert (vgl. Tabelle im Anhang dieses Buches) Sie in die Variable ord schreiben m╨æssen. Sie k╨ñnnen auch den Inhalt einer Stringvariablen ganz oder teilweise austauschen. Rufen Sie hierzu auf: REPLACE text$, alt$, neu$ In der Variablen text$ wird dann die in alt$ aufgef╨æhrte Zeichenkette gegen den Inhalt von neu$ ausgetauscht. Eine Besonderheit stellen letztendlich Stringvariablen dar, deren Inhalt aus einem mathematischen Ausdruck wie z.B. "2+3" besteht. Ist dies der Fall, haben Sie die M╨ñglichkeit, diese Berechnung durchf╨æhren zu lassen: EVAL string$, erg Die mathematische Rechnung in der Variablen string$ wird durchgef╨æhrt, das Ergebnis in der Variablen erg gespeichert. Alle bisherigen Befehle haben sich auf Stringvariablen bezogen. Zuletzt wollen wir noch eine Anweisung Zahlenvariablen betreffend kennenlernen. Will man den Inhalt einer Zahlenvariablen teilen, so kann das eigentlich nur an einer logischen Position geschehen, n╨ömlich am Komma in einer Dezimalzahl. Der Befehl FRAC erledigt dies: FRAC zahl, vor nach Der Inhalt der Variable zahl (bei dem es sich nur um eine einzige Zahl handeln kann) wird geteilt. Die Vorkommastellen werden der Variablen vor ╨æbergeben, die Nachkommastellen der Variablen nach. Somit entspricht FRAC der String-Anweisung SELECT, ist aber naturgem╨ö╤ü weniger flexibel in Bezug auf die Teilungsposition. ΓòÉΓòÉΓòÉ 11. Programmieren mit KIM ΓòÉΓòÉΓòÉ Programmieren mit KIM Einf╨æhrung In diesem Kapitel wollen wir das bisherige theoretische Wissen anwenden und funktionst╨æchtige Programme mit KIM erstellen. Dazu ben╨ñtigen wir aber noch einige weitere Informationen. So wurde zwar bisher vorgestellt, wie Programmoberfl╨öchen, Fenster, Eingabemasken oder Datenbanken erzeugt werden k╨ñnnen, aber gewisserma╤üen blieben all diese Programmelemente ohne "Leben", da bisher nicht darauf eingegangen wurde, wie sie angesprochen und aktiviert werden k╨ñnnen. In diesem Abschnitt wollen wir den bereits bekannten Rohbau zu lauff╨öhigen Programmen verkn╨æpfen. Events Programme, welche unter graphischen Benutzeroberfl╨öchen wie Windows oder OS/2 laufen, benutzen praktisch immer einen eventorientierten Programmablauf. Darunter versteht man, da╤ü ein solches Programm solange "unt╨ötig" wartet, bis der Anwender ein Ereignis (ein Event) ausl╨ñst, auf welches das Programm dann reagiert. Ein solches Event kann ein Mausklick auf einen Funktionsbutton oder einen Men╨æpunkt sein, aber auch das Ausl╨ñsen eines Hotkeys. Alle auftretenden Ereignisse werden von einem sogenannten Event-Manager gesteuert. Dieser ist kein KIM-spezifisches Element, sondern ist Bestandteil des Betriebssystems. Das ist nat╨ærlich auch notwendig, damit beispielsweise die Befehle des Systemmen╨æs, welche nicht auf KIM bezogene Aktionen ausl╨ñsen, ordnungsgem╨ö╤ü durchgef╨æhrt werden k╨ñnnen. Des weiteren kann nur so das Multitasking, also das gleichzeitige Bearbeiten mehrerer Programme zur gleichen Zeit, vom Betriebssystem gew╨öhrleistet werden. Der Event-Manager des Betriebssystems (egal, um welches es sich dabei handelt)wird von KIM aus durch folgenden Befehl angesprochen: WIN_EV i Hierdurch wird die Kontrolle ╨æber alle Computeraktionen an den Event-Manager ╨æbergeben. Dieser ╨æberpr╨æft nun alle vom Anwender ausgel╨ñsten Ereignisse und gibt entsprechend einen numerischen Wert ╨æber die Variable i an das Programm zur╨æck. Es ist f╨ær Sie nicht relevant, welche Werte bei bestimmten Ereignissen genau ╨æbergeben werden. Wichtig ist lediglich, da╤ü beim Beenden des Programmes (wenn also alle Fenster geschlossen werden) vom Event-Manager der Wert 1000 an das KIM-Programm zur╨æckgegeben wird. Wie l╨ö╤üt sich nun die Event-orientierte Steuerung programmtechnisch durchf╨æhren? Es ist einsichtig, da╤ü die L╨ñsung dieser Aufgabe im Erstellen einer Schleife besteht. Innerhalb dieser Schleife wird der Event-Manager mittels WIN_EV aufgerufen. Sobald der Benutzer ein Ereignis ausl╨ñst, teilt der Event-Manager dies dem Programm mit und gibt die Kontrolle an das KIM-Programm zur╨æck, damit dieses geeignet auf das Event reagieren kann. Ist dies geschehen, kehrt das Programm zum Schleifenbeginn zur╨æck, um auf ein neues Ereignis zu warten. Diese Schleife wird erst dann beendet, wenn der Event-Manager den Wert 1000 zur╨æckgibt. Dann ist das Programm vom Benutzer f╨ær beendet erkl╨ört worden. Nach der Schleife wird dementsprechend auch das KIM-Programm abgeschlossen. Ge╨ñffnete Datenbanken m╨æssen hierzu mit ICLOSE geschlossen werden, ehe der Befehl END den Programmcode abschlie╤üt. Denken Sie unbedingt daran, mit END das Programm zu beenden, da sonst Fehlfunktionen auftreten k╨ñnnen. Wie erreicht man, da╤ü ein KIM-Programm entsprechend der vom Anwender ausgel╨ñsten Ereignisse reagiert? Im Normalfall werden bei graphischen Benutzeroberfl╨öchen alle Events mit Hilfe einer Maus aktiviert. Der Event-Manager registriert, welches Oberfl╨öchenobjekt selektiert (auf welches Objekt der Mauscursor zeigt) und welche Maustaste gedr╨æckt wurde. Im Normalfall steht dabei die linke Maustaste f╨ær die Enter-Taste, also die Best╨ötigung der Auswahl. Diese Informationen k╨ñnnen Sie mit folgender Anweisung in Ihr KIM-Programm einlesen: GET_ITEM_POS id_string, taste ╨¬ber die Variable id_string wird die Kennung des ausgew╨öhlten Objekts zur╨æckgegeben. In der Variablen <taste> wird der ASCII-Codewert der zuletzt gedr╨æckten Taste gespeichert. Handelt es sich dabei um die linke Maustaste, wird der Wert 13 ╨æbergeben. Nun mu╤ü nat╨ærlich eine Programmverzweigung folgen, da unterschiedliche Events verschiedene Aktionen ausl╨ñsen sollen. Wir wollen dabei beachten, da╤ü der Quellcode eines Programmes so ╨æbersichtlich wie m╨ñglich aufgebaut sein sollte. Deshalb sollten die einzelnen IF-Anweisungen nicht in der gerade beschriebenen Event-Schleife (die Schleife, in welcher der Event-Manager angesprochen wird) aufgef╨æhrt sein, sondern m╨ñglichst in einem gesonderten Modul angef╨ægt werden. Dieses Modul wird aus der Event-Schleife heraus bei entsprechenden Ereignissen aktiviert, arbeitet die entsprechenden Aktionen ab und f╨æhrt danach das Programm in die Event-Schleife zur╨æck. Wir wollen als Beispiel eine typische Event-Schleife erstellen. Am geeignetsten ist hierf╨ær eine WHILE-WEND-Schleife, die dann abgebrochen wird, wenn die Variable _i vom Event-Manager den Wert 1000 zugewiesen bekommt. Innerhalb der Schleife wird der Event-Manager aktiviert. Die von diesem zur╨æckgegebenen Resultate eines ausgel╨ñsten Ereignisses werden mit GET_ITEM_POS in das Programm eingelesen. Daraufhin wird ein Modul namens <auswerten> aktiviert, da╤ü die Auswertung der entsprechenden Events ╨æbernimmt. In unserem Beispiel wird dieses Modul aufgerufen, wenn die linke Maustaste (oder Enter-Taste) gedr╨æckt wurde. Mit WEND kehrt man anschlie╤üend zum Schleifenbeginn zur╨æck. Nach Schleifenabbruch (bei _i=1000) werden Datenbanken geschlossen und das Programm beendet. REM Event-Schleife f╨ær ein beliebiges Programm DEFFLOAT _i, taste DEFSTRING objekt WHILE _i<>1000 WIN_EV i GET_ITEM_POS objekt, taste IF taste=13 THEN CALL auswerten (objekt, i) ENDIF WEND ICLOSE END Diese Event-Schleife ist nat╨ærlich f╨ær sich allein kein vollst╨öndiges Programm und somit nicht lauff╨öhig. Um auf ein Event zu reagieren, bietet KIM noch eine weitere elegante M╨ñglichkeit : die Eventfunktionen. Wir haben gelernt, da╤ü jedes Objekt eine ID-Kennung besitzt. F╨ær eine ID-Kennung sollte ein sprechender Name genommen werden. (z.B die ID-Kennung "BUTTON1" f╨ær ein Buttonobjekt ) Eine Eventfunktion ist ein Modul mit einem zusammengesetzten Modulnamen. Der erste Teil des Modulnamens entspricht der ID-Kennung und der zweite Teil der Eventidentifizierung. MODUL BUTTON1_SELECT() ENDMOD Sobald ein Event erzeugt wird, pr╨æft KIM ob ein entsprechendes Modul definiert ist. Ist dies der Fall, wird das Modul ausgef╨æhrt. Die Nutzung von Eventfunktionen f╨æhrt zu geringf╨ægig mehr Code, aber ist in den meisten F╨öllen die ╨æbersichtlichere Variante. REM Event-Schleife f╨ær ein beliebiges Programm DEFFLOAT _i WHILE _i<>1000 WIN_EV i WEND ICLOSE END REM **** Programm beenden wenn Button gedr╨æckt **** MODUL BUTTON1_SELECT() _i=1000 ENDMOD Eine Kombination aus der ersten und zweitern Version ist erlaubt. Aufbau eines KIM-Programmes Wir haben nunmehr alle notwendigen Bestandteile eines KIM-Programmes kennengelernt. Diese sollen hier rekapituliert und in der richtigen Reihenfolge angeordnet werden. Am Anfang eines Programmcodes hat immer die Definition der Programmoberfl╨öche zu stehen. Definieren Sie also zun╨öchst ein Hauptfenster. Anschlie╤üend erzeugen Sie alle weiteren Oberfl╨öchenobjekte und weisen diese dem Hauptfenster mittels ADD_ITEM oder ADD_ITEM_ARRAY zu. Beachten Sie dabei, da╤ü das Hauptfenster als erstes Fenster ge╨ñffnet wird. Der n╨öchste Schritt besteht im Definieren und ╨⌐ffnen einer zugeh╨ñrigen Datenbank. Halten Sie sich dabei an die im Kapitel Programmieren von Datenbanken beschriebene Vorgehensweise. Danach kann das Hauptfenster und damit die Programmoberfl╨öche aufgerufen werden. Dies geschieht bekanntlicherweise mit WIN_PAINT. Das eigentliche Programm folgt im Anschlu╤ü daran. Programmieren Sie eine Eventschleife, in welcher die Programmsteuerung an den Event-Manager des Betriebssystems ╨æbergeben wird. Bei entsprechenden Ereignissen mu╤ü eine Verzweigung aktiviert werden, in der die Events ausgewertet werden. Wird der Wert 1000 zur╨æckgegeben, ist das Programm als beendet anzusehen. Alle ge╨ñffneten Datenbanken m╨æssen dann geschlossen und der Quellcode mit END terminiert werden. Im Einzelfall kann nat╨ærlich der eine oder andere Teil im Programm nicht vorhanden sein. Bei unseren Beispielprogrammen wird dies manchmal auftreten. So ist es m╨ñglich, ein Programm auch ohne Eventschleife funktionsf╨öhig zu machen. Hierzu mu╤ü der Befehl DUMMY_EVENT eingebaut werden. Auch dadurch wird der Event-Manager aktiviert. Es erfolgt aber keine R╨æckgabe von Events an das Programm. Folgerichtig k╨ñnnen keine Aktionen in einem solchen Programm ausgef╨æhrt werden. Vielmehr dienen solche Werke lediglich zum Erzeugen von Programmoberfl╨öchen. Mit dem Schlie╤üen des letzten Fensters beendet der Event-Manager automatisch das Programm. Aus Gr╨ænden der ╨¬bersichtlichkeit sollten m╨ñglichst viele Programmteile aus dem Hauptprogramm ausgelagert werden. Dies erreicht man durch die Erzeugung von Modulen, in denen alle wichtigen Teile enthalten sind und welche vom Hauptprogramm aus aktiviert werden. Des weiteren haben Module den Vorteil, da╤ü sie nicht nur in einem einzigen Programm benutzt werden k╨ñnnen, sondern beliebig oft verwendbar sind. Ein typischer Programmablauf unter KIM k╨ñnnte dann schematisch wie folgt aussehen: - Variablendefinition - Definition des Hauptfensters und Objekte (Oberfl╨öche) - Definition und ╨⌐ffnung einer Datenbank - Darstellen der Oberfl╨öche mit WIN_PAINT - Eventschleife (Aufruf verschiedener Eventfunktionen) - Schlie╤üen der Datenbanken - Programmende (END) Beispiele Programmoberfl╨öchen In diesem Abschnitt wollen wir beispielhaft einige verschiedene Programmoberfl╨öchen erstellen. Dabei soll die Komplexit╨öt derselben schrittweise gesteigert werden. Zun╨öchst wird ein Hauptfenster mit dem notwendigsten Inhalt erzeugt. Im Anschlu╤ü daran werden zus╨ötzliche Objekte definiert und dem Hauptfenster hinzugef╨ægt. Einfaches Hauptfenster Grundlage jeder noch so komplexen Programmoberfl╨öche ist ein Hauptfenster. Wie bereits im entsprechenden Kapitel erl╨öutert sollte ein Hauptfenster zumindest folgende Objekte besitzen: - Eine Begrenzung ist unbedingt notwendig, da sonst beim Hinzuf╨ægen weiterer Objekte Fehler auftreten. - Einen Systembutton zur Kommunikation mit dem Betriebssystem (wahlweise) - Maximierungs- und Minimierungsbuttons (wahlweise) Wie hat das Programm auszusehen, welches dieses Fenster erzeugt? Halten wir uns an den typischen Programmablauf. Zun╨öchst wird der Befehl das Modul zur Erzeugung des Fensters aufgerufen, anschlie╤üend wird das Fenster mit WIN_PAINT auf dem Monitor angezeigt. Da noch keine Datenbank bzw. weitere Objekte definiert werden sollen, kommen wir gleich zur Eventschleife. Es geht uns jetzt nur um die Oberfl╨öche, nicht um irgendwelche Programmfunktionen. Deshalb werden wir statt einer Eventschleife den Befehl DUMMY_EVENT verwenden (siehe vorhergehenden Abschnitt). Damit ist das Programm auch schon fertig: REM Programm zur Erzeugung eines einfachen Hauptfensters REM Zun╨öchst das Hauptprogramm CALL fenster() WIN_PAINT "window" DUMMY_EVENT END REM Nun das Modul mit der Definition des Fensters MODUL fenster() def_window_st "window",1,1,20,10,"Testfenster" ENDMOD Wichtig ! Objekt-IDs k╨ñnnen global angesprochen werden. Beenden l╨ö╤üt sich das Programm, indem sie mit der linken Maustaste den Systembutton (links oben) anklicken. Es ╨ñffnet sich dann das Systemmen╨æ. W╨öhlen Sie dort die Option "Schlie╤üen" (bzw. "Close") aus. Das Hauptfenster wird geschlossen, woraufhin der Event-Manger sofort das Programm f╨ær beendet erkl╨ört. Sie kehren zu Ihrem Betriebssystem zur╨æck. Hauptfenster mit Toolbar Als n╨öchste wollen wir unsere Programmoberfl╨öche um eine Toolbar erweitern. Diese soll aus f╨ænf Buttons mit den Aufschriften "Neu", "Speichern", "L╨ñschen", "Finde" und "Beenden" bestehen. Es geht uns hier wohlgemerkt nur um den Aufbau der Oberfl╨öche. Die entsprechenden Aktionen sollen und k╨ñnnen noch nicht ausgef╨æhrt werden, da weder Eingabefelder noch Datenbanken im Programm vorhanden sind. Vom Programmablauf her gibt es kaum Neuerungen. Wir bleiben unserer Linie treu.Beachten Sie bitte, da╤ü hier die Positionierung der Toolbar ╨æber das FLAG "REGION OFF" erfolgt, wodurch das Objekt so weit wie m╨ñglich an den oberen Fensterrand gesetzt wird. M╨ñchten Sie Ihre Toolbar anders plazieren, m╨æssen Sie die entsprechenden Positionswerte angeben und das FLAG weglassen. Der Programmcode lautet dann: REM Programm zur Erzeugung eines Hauptfensters mit Toolbar REM Zun╨öchst das Hauptprogramm CALL fenster() WIN_PAINT "window" DUMMY_EVENT END REM Nun das Modul mit der Definition des Fensters MODUL fenster() def_window_st "window",1,1,50,10,"Testfenster" def_toolbar "toolbar", 0, 0, 60, 5,;"region off" def_button "b0", 0, 0, 10, " ", "Neu" def_button "b1", 0, 0, 10, " ", "Speichern" def_button "b2", 0, 0, 10, " ", "Loeschen" def_button "b3", 0, 0, 10, " ", "Finde" def_button "b4", 0, 0, 10, " ", "Beenden" add_item "toolbar",.. "b0",.. "b1",.. "b2",.. "b3",.. "b4" add_item "window", "toolbar" ENDMOD Die Arbeitsweise von KIM ist einfach. Es werden Objekte mit bestimmten ID-Kennungen (z.B b0,b1,...) definiert. Nun mu╤ü man die Einzelobjekte (childobjects)einem ╨æbergeordneten Objekt (parentobject) zuordnen. Dies geschieht ╨æber den Befehl IADD. Also, die Buttons addiert man (zuweisen) an das Toolbar-Objekt, und anschlie╤üend addiert man das Toolbarobjekt an das Fenster. Wichtig ! Ein Objekt kann nur an ein ╨æbergeordnetes Objekt addiert werden. Bei der Benutzung von Objekt-IDs wird Klein- und Gro╤üschrift unterschieden. ( "bu" <> "Bu" ) Hauptfenster mit Toolbar und Meldungsfenster Nun soll eine Verfeinerung der eben erstellten Programmoberfl╨öche realisiert werden. Einem der Buttons der Toolbar, n╨ömlich demjenigen zum Beenden des Programms, soll Leben eingehaucht werden. Wir wollen auf Klick mit der linken Maustaste auf diesen Button erreichen, da╤ü sich ein Meldefenster mit der Frage "Programm beenden ?" ╨ñffnet. Ein Klick auf den OK-Button soll das Programm dann tats╨öchlich abbrechen. Es reicht dann nat╨ærlich nicht mehr aus, dem Event-Manager lediglich ╨æber DUMMY_EVENT die Kontrolle zu ╨æbergeben, da jetzt auf eine Aktion des Anwenders reagiert werden mu╤ü. Der Aufbau der Event-Schleife wurde bereits in der Einleitung besprochen. Sie wird so lange vom Programm durchlaufen, bis die Laufvariable i den Wert 1000 erh╨ölt. Der Code sieht dementsprechend so aus: DEFFLOAT _i CALL fenster() WIN_PAINT "window" WHILE _i<>1000 WIN_EV _i WEND END REM Nun das Modul mit der Definition des Fensters MODUL fenster() def_window_st "window",1,1,50,10,"Testfenster" def_toolbar "toolbar", 0, 0, 60, 5,;"region off" def_button "b0", 0, 0, 10, " ", "Neu" def_button "b1", 0, 0, 10, " ", "Speichern" def_button "b2", 0, 0, 10, " ", "Loeschen" def_button "b3", 0, 0, 10, " ", "Finde" def_button "b4", 0, 0, 10, " ", "Beenden" add_item "toolbar",.. "b0",.. "b1",.. "b2",.. "b3",.. "b4" add_item "window", "toolbar" ENDMOD rem Eventfunktion wird aufgerufen wenn BUTTON gedr╨æckt MODUL b4_select() DEFFLOAT flag MSGBOX "Programm beenden ?", 1, flag, " " IF flag=1 THEN _i=1000 ENDIF ENDMOD Die Variable _I ist global.( siehe Variablendefinitionen mit angehenden Unterstrich "_"). Wichtig ! Eventfuktionen besitzen keine ╨¬bergabeparameter. ╨¬bergaben m╨æssen ╨æber globale Variablen erfolgen. Damit sind wir bereits ╨æber den Status einer einfachen Programmoberfl╨öche hinausgegangen. Das Programm ist in der Lage, dem Wunsch des Anwenders auf Abbruch zu entsprechen und das Programm zu beenden. Wir wollen weitere Programmaktionen nun aber noch eine Weile zur╨æckstellen und uns zun╨öchst der Erstellung weiterer Oberfl╨öchenobjekte zuwenden. Hauptfenster mit Pulldown-Men╨æ Als n╨öchstes Element einer Programmoberfl╨öche wollen wir ein funktionsf╨öhiges Pulldown-Men╨æ erzeugen. Um den Programmcode kurz zu halten, wollen bei diesem Beispiel keine Toolbar einbauen. Prinzipiell k╨ñnnen aber beide Elemente gleichzeitig in einem Hauptfenster definiert werden. Ein Pulldown-Men╨æ wird automatisch immer so weit oben wie m╨ñglich im Hauptfenster erzeugt. Dies hat Priorit╨öt vor dem FLAG "Region off", das wir bei der Toolbar gesetzt haben. Ein Pulldown-Men╨æ w╨ærde deshalb immer oberhalb einer Toolbar im Fenster erzeugt. Wir wollen ein Pulldown-Men╨æ mit folgendem Aufbau erstellen: Datei Bearbeiten Hilfe Info Neu Loeschen Index Speichern Suchen ... Grundbegriffe Beenden ... Allgemeines Tasten Die Hauptmen╨æpunkte werden als Pulldown-Items definiert, die Unter- punkte als Pop-Up-Items. Wir wollen die Abbruchsaktion beim Selektieren von "Beenden" beibehalten (analog zum vorhergehenden Beispiel), nur soll dies jetzt beim Ausw╨öhlen des Pulldown-Men╨æpunktes geschehen. Die einzelnen Men╨æpunkte sollen auch ╨æber Hot-Keys aktivierbar sein. Deswegen setzen wir bei der Definition der Men╨æpunkte das Zeichen " vor den Buchstaben, der in Verbindung mit der ALT-Taste den Befehl aktivieren soll. Der Hot-Key-Buchstabe erscheint dann unterstrichen. DEFFLOAT _i CALL fenster() WIN_PAINT "window" WHILE _i<>1000 WIN_EV _i WEND END REM Nun das Modul mit der Definition des Fensters MODUL fenster() def_window_st "window",1,1,50,10,"Testfenster" DEF_PULLDOWN_ITEM "p1", " 1 DEF_PULLDOWN_ITEM "p2", " 1 DEF_PULLDOWN_ITEM "p3", " 1 DEF_PULLDOWN_ITEM "p4", "Info", 0 DEF_PULLDOWN_ITEM "p31","Index",1 DEF_POPUP_ITEM "a1"," DEF_POPUP_ITEM "a2"," DEF_POPUP_ITEM "a3","B " DEF_POPUP_ITEM "b1"," DEF_POPUP_ITEM "b2","Su " DEF_POPUP_ITEM "c1"," DEF_POPUP_ITEM "c2"," DEF_POPUP_ITEM "c3"," ADD_ITEM "p1",.. "a1",.. "a2",.. "a3" ADD_ITEM "p2",.. "b1",.. "b2" ADD_ITEM "p31",.. "c1",.. "c2" ADD_ITEM "p3",.. "p31",.. "c3" DEF_PULLDOWN_MENU "menu", 0; "border" ADD_ITEM "menu",.. "p1",.. "p2",.. "p3",.. "p4" ADD_ITEM "window", "menu" ENDMOD rem Eventfunktion wird aufgerufen wenn Men╨æpunkt selektiert wird MODUL a3_select() DEFFLOAT flag MSGBOX "Programm beenden ?", 1, flag, " " IF flag=1 THEN _i=1000 ENDIF ENDMOD Wichtig ! Die Definition eines Pulldown-Men╨æs ist simpel, wenn man einmal die Vorgehensweise verstanden hat. Wir haben 4 Hauptmen╨æpunkte. Diese werden mit DEF_PULLDOWN_ITEM definiert. Besitzt ein Hauptmen╨æpunkt weitere Unterpunkte, erh╨ölt es als Flag den Wert 1. Gibt es keine weiteren Unterpunkte dann erh╨ölt der Men╨æpunkt den Wert 0 (siehe Men╨æpunkt : Info ). Untermen╨æpunkte werden mit DEF_POPUP_ITEM definiert, solange Sie keine weiteren Untermen╨æpunkte haben. Ist dies nicht der Fall, gilt die Regelung der Hauptmen╨æpunkte (siehe Men╨æpunkt : Index). Hauptfenster mit Toolbar und Eingabemaske Das letzte Beispielprogramm zu den Oberfl╨öchen soll zus╨ötzlich zu einem Bedienungsmen╨æ eine Eingabemaske besitzen, ╨æber welche ein Datentransfer zu einer (noch nicht vorhandenen) Datenbank m╨ñglich w╨öre. Damit n╨öhern wir uns endg╨æltig vollst╨öndigen Programmoberfl╨öchen an. Es sollen drei allgemeine Datenfelder f╨ær die Angabe von Namen, Vornamen und Wohnort sowie ein Memofeld f╨ær die Angabe l╨öngerer Texte wie Kommentare erstellt werden. Der Programmcode daf╨ær l╨ö╤üt sich nat╨ærlich mit Hilfe des Maskengenerators generieren. Wir wollen aber aus didaktischen Gr╨ænden eine Programmierung "zu Fu╤ü" durchf╨æhren. Es soll hier auch auf die Erstellung einer den Datenfeldern zugrundeliegenden Recordstruktur nicht verzichtet werden, obwohl diese nur in Verbindung mit einer Datenbank sinnvoll w╨öre. Will man eine Eingabemaske per Hand erzeugen, kommt man nicht um das sorgf╨öltige Positionieren der Objekte im Hauptfenster herum. Es bedarf gerade am Anfang einiger Anl╨öufe, bis man ein Gef╨æhl f╨ær die Distanzen auf dem Monitor entwickelt hat. Die in KIM g╨æltige Einheit sind Zeichen. Setzt man beispielsweise die Feldbezeichnung "Name" auf die Position 1,0, so bedeutet dies, da╤ü das Objekt ein Zeichen vom linken Fensterrand sowie ein Zeichen unterhalb des oberen Fensterrands beginnt. Hierbei wird der obere Fensterrand durch Toolbars oder Pulldown-Men╨æs entsprechend zum unteren Ende dieser Objekte hin verlagert. Bedenken Sie bei der Positionierung mehrerer Objekte in einer Zeile (gleicher x-Wert) immer die L╨önge der Objekte. Lassen Sie das zweite Objekt zu fr╨æh in der Zeile beginnen, kommt es zu ╨¬berschneidungen. Wir wollen alle Felder mit einer Begrenzung versehen (FLAG "border" setzen) und im Kommentarfeld keinen Zeilenumbruch erlauben (FLAG "wrap off" setzen). Um obiges Programm zu realisieren, m╨æssen wir im Hauptprogramm die Recordstruktur definieren und das Modul <fenster> um den Code f╨ær die Eingabefelder und die Feldbezeichnungen erweitern. Zus╨ötzlich soll das Kommentarfeld Scrollbars erhalten, die durch Angabe von Nullen an den rechten und unteren Feldrand gesetzt werden (vgl. Kapitel Fenster und Programmoberfl╨öchen). Beibehalten wollen wir unseren Programmabbruch ╨æber Aktivierung des "Beenden"-Buttons. Deshalb mu╤ü die Event-Schleife und das Modul auswerten im Programm erhalten sein. Unser Code besitzt dann folgendes Gesicht: DEFFLOAT _i DEFINE soft1, 40 AS Name DEFINE soft2, 40 AS Vorname DEFINE soft3, 40 AS Wohnort DIMMEMO soft4, 10000 CALL fenster() WIN_PAINT "window" WHILE _i<>1000 WIN_EV _i WEND END REM Nun das Modul mit der Definition des Fensters MODUL fenster() def_window_st "window",1,1,65,15,"Testfenster" def_toolbar "toolbar", 0, 0, 60, 5;"region off" def_button "b0", 0, 0, 10, " ", "Neu" def_button "b1", 0, 0, 10, " ", "Speichern" def_button "b2", 0, 0, 10, " ", "Loeschen" def_button "b3", 0, 0, 10, " ", "Finde" def_button "b4", 0, 0, 10, " ", "Beenden" add_item "toolbar",.. "b0",.. "b1",.. "b2",.. "b3",.. "b4" add_item "window", "toolbar" DEF_PROMPT "aus1", 1, 0, "Name" DEF_PROMPT "aus2", 1, 1, "Vorname" DEF_PROMPT "aus3", 1, 2, "Wohnort" DEF_PROMPT "aus4", 1, 3, "Kommentar" DEF_STRING "inp1", 10, 0, 40, soft1; "border" DEF_STRING "inp2", 10, 1, 40, soft2; "border" DEF_STRING "inp3", 10, 2, 40, soft3; "border" DEF_TEXT "inp4", 1, 4, 49, 5, 10000, soft4; "border", "wrap off" DEF_SCROLLBAR "scroll1", 0, 0, 0, 0, 0 DEF_SCROLLBAR "scroll2", 1, 0, 0, 0, 0 ADD_ITEM "inp4",.. "scroll1",.. "scroll2" ADD_ITEM_ARRAY "window", "aus",1,4 ADD_ITEM_ARRAY "window", "inp",1,4 ENDMOD rem Eventfunktion wird aufgerufen wenn BUTTON gedr╨æckt MODUL b4_select() DEFFLOAT flag MSGBOX "Programm beenden ?", 1, flag, " " IF flag=1 THEN _i=1000 ENDIF ENDMOD Wichtig ! Objekte mit einer fortlaufenden Kennung k╨ñnnen mit ADD_ITEM_ARRAY an das Parentobjekt addiert werden. Eine DEFINE-Variable ist eine globale Variable. Eine einfache Terminverwaltung Nachdem wir durch die Programmierung von Oberfl╨öchen bereits einen Einblick in die Technik der Erstellung eines Programms mit KIM gewonnen haben, wollen wir uns nun der hohen Schule der Datenbankprogrammierung zuwenden. Im Gegensatz zu den bisherigen Programmen m╨æssen wir ein Modul hinzuf╨ægen, in welchem eine Datenbank definiert und erstellt wird. Des weiteren m╨æssen entsprechende Datenbankbefehle im Hauptprogramm aufgenommen werden. Wir wollen aber gleich einen Schritt weitergehen. Da man eine Datenbank auf dem Monitor nicht sehen kann, w╨öre es eine reine Spielerei, lediglich eine Datenbank zu definieren, ohne mit dieser zu arbeiten. Wir werden also unseren Funktionsbuttons und Men╨æpunkten Leben einhauchen und entsprechende Programmfunktionen erstellen. Nach diesem Abschnitt sollten Sie in der Lage sein, mit jedem programmtechnischen Problem unter KIM fertig zu werden. Unser erstes vollst╨öndiges Programm soll ein elektronischer Terminkalender sein. Es soll die Eingabe von Datum und Uhrzeit eines Termins ebenso wie des Namen desjenigen, auf den sich der Termin bezieht m╨ñglich sein. Zus╨ötzlich soll ein l╨öngeres Textfeld erstellt werden, da╤ü die Angabe zus╨ötzlicher Informationen zu dem betreffenden Termin erlaubt. Nat╨ærlich m╨æssen dem Benutzer gewisse Bedienungsfunktionen zu dem Programm angeboten werden. Deshalb soll eine Toolbar definiert werden, die ╨æber Buttons die Neueingabe von Terminen sowie deren Speicherung und L╨ñschung erm╨ñglicht. Au╤üerdem soll ein Vor- und Zur╨æckbl╨öttern in der Datendatei analog zum Umbl╨öttern von Buchseiten zur Verf╨ægung gestellt werden. Ein wichtiger Bestandteil ist nat╨ærlich eine Suchfunktion zum Finden bestimmter Termine. Schlie╤ülich darf eine Funktion zur Programmbeendigung nat╨ærlich nicht fehlen. a) Die Programmoberfl╨öche der Terminverwaltung F╨ær die Oberfl╨öche k╨ñnnen wir praktisch unver╨öndert das Module <fenster> des letzten Beispiels zu Programmoberfl╨öchen ╨æbernehmen. Die graduellen Unterschiede sollten kein Problem darstellen. b) Datenbank Neu ist f╨ær uns die Erstellung der Datenbank. Wir werden ein neues Modul <db_oeffnen> schreiben, in welchem die Datensatz- und Indexstruktur der Datenbank sowie die Recordstruktur festgelegt sind. Die Recordstruktur besteht aus Define- Variablen f╨ær die Zeit-, Datums- und Datenfelder sowie einer Memo-Variablen f╨ær das Kommentarfeld. Erinnern Sie sich daran, da╤ü die Verwendung von Define-Variablen nicht zwingend notwendig ist, und ich an dieser Stelle ein normales Stringarray benutzen werde. Die eigentlichen Datensatzfeldl╨öngen werden bekanntlich innerhalb der Datenbank festgelegt. Falls Ihnen die Feldstruktur unklar ist, sehen Sie bitte im Kapitel ╨æber Datenbankprogrammierung nach. Die Neudefinition der Datenbank- und Indexstruktur soll nur vorgenommen werden, wenn keine Datenbank vorhanden ist (sonst w╨ærden alte Daten gel╨ñscht). Wir werden daher eine Abfrage ╨æber EXIST einbauen, die ermittelt, ob die Datei "termin.dbf" bereits vorhanden ist (diese Datei wird ja bei Erstellung der Datenbank angelegt). Ist dies der Fall, wird die bestehende Datenbank und die Indexdatei sofort mit IOPEN bzw. IOPEN_INDEX ge╨ñffnet. Ansonsten erfolgt die Definition der Feldstrukturen und die vorsichtshalber eingebaute L╨ñschung eventuell vorhandener .dbf- und .cdx-Dateien, bevor mit ICREATE eine Datenbank neu erstellt wird. c) Suchfunktion Essentiell bei einer Terminverwaltung ist nat╨ærlich eine Suchfunktion. Die Realisierung derselben erstreckt sich ╨æber mehrere Programmebenen. Zuerst mu╤ü in der Indexstruktur festgelegt werden, nach welchen Daten ╨æberhaupt gesucht werden darf. Wir wollen hier m╨ñglichst einfach vorgehen und alle Datenfelder mit Ausnahme des Kommentar- und des Zeitfeldes als Indexfelder auszeichnen. In sp╨öteren Programmen werden Verfeinerungen (z.B. ╨æber Filter) vornehmen. Damit ist die Grundlage gelegt. d) Suchfenster Die Definition f╨ær dieses Fenster befindet sich im Modul <erstelle_suchfenster>. Beachten Sie, da╤ü nur die Zusatzobjekte neu definiert werden. Das eigentliche Fenster wird analog zum Hauptfenster erzeugt. Der eigentliche Suchvorgang wird im Modul <fenster_suchen> durchgef╨æhrt. Wie Sie erkennen k╨ñnnen, ist dort eine zweite Event-Schleife programmiert, welche die Aktionen des Anwenders im Suchfenster auswertet. e) Weitere Operationen Als letzte Funktion soll neben dem bereits bekannten Abbruch des Programms eine Datenspeicherung erm╨ñglicht werden. Hierzu wird der Inhalt aller Datenfelder in die Recordstruktur eingelesen (dies ist aus ╨¬bersichtlichkeitsgr╨ænden in einem Modul Daten_schreiben mit GET_ITEM realisiert) und anschlie╤üend mit IMODREC der aktuelle Datensatz umgeschrieben und gleichzeitig gespeichert. Das L╨ñschen eines Datensatzes ist gar nicht so einfach, da IDEL nur einen Datensatz als gel╨ñscht markiert, aber nicht wirklich entfernt. Dies w╨ærde erst der Befehl IPACK bewirken, dessen Ausf╨æhrung aber beim Vorhandensein vieler Daten einige Zeit erfordert. Wir wollen deshalb einen anderen Weg w╨öhlen und in der Indexstruktur einen Filter einbauen, welcher die Anzeige aller als gel╨ñscht markierter Datens╨ötze unterdr╨æckt. Diese sind wohlgemerkt noch vorhanden, aber nicht mehr einsehbar. Der entsprechende dBASE-Ausdruck lautet DEL()<>"*". Der Befehl DEL gibt ein * f╨ær alle als gel╨ñscht markierten Datens╨ötze zur╨æck. Die folgende Anweisung filtert dann genau diese Datens╨ötze heraus. Beachten Sie bitte, da╤ü Zeilen, in welchen Anf╨æhrungszeichen zur ╨¬bergabe von dBASE-Ausdr╨æcken verwendet werden (dies ist Vorschrift), zwischen Hochkommas ' gesetzt werden m╨æssen, da es verboten ist, zweimal Anf╨æhrungszeichen zu verwenden. Vergessen Sie nicht, zum Schlu╤ü des Programms die Datenbank mit ICLOSE zu schlie╤üen. Hier nun der vollst╨öndige Programmcode: rem Datum : M╨örz 1995 rem Version : 1.0 rem Programm : Terminverwaltung mit DBASE-Datenbank rem Datei : TERMIN.KIM rem Programmierer : EDV-Kohlenbach rem Zun╨öchst die Definition einiger Variablen und das Laden der Icondatei deffloat a,_i rem Definition der Felder 1-4 f╨ær die Datenbank dim _felder,1,3 DIMMEMO _felder4, 10000 rem Hilfetaste definieren SET_KEYMAP "F12",10001,1 call db_oeffnen() call fenster() win_paint "window" while _i<>1000 win_ev _i wend iclose 1 end rem --------------------------------------------------------------------- rem U N T E R P R O G R A M M E rem --------------------------------------------------------------------- rem Modul zur Definition und Erstellung einer Datenbank mit Recordstruktur modul db_oeffnen() DEFFLOAT a DEFSTRING expr rem Nun eine Abfrage, ob die Datenbank schon existiert; falls nicht: Neuerstellung exist "termin.dbf",a IF a<>1 THEN dim feld,1,10 dim index,1,10 feld1=" TIME , C , 10 , 0" feld2=" DATUM , D , 10 , 0" feld3=" NAME , C , 40 , 0" feld4=" MEMO , M , 10 , 0" feld5="" rem In Variable <feld5> kein Leerzeichen !!! index1=' NAME_TAG , NAME , DEL()<>"*", 0, 0' index2=' DATUM_TAG , DATUM , DEL()<>"*", 0, 0' index3="" rem Eventuell bereits existierende Dateien werden gel╨ñscht kill "termin.dbf" kill "termin.cdx" kill "termin.fpt" kill "termin.dpt" rem Die Datenbank wird neu erstellt icreate "termin",feld,index rem Mindestens ein Leersatz, sonst funktionieren die rem Datenbankbefehle nicht ! iopen 1,"termin" iopen_index 1,"termin" iadd 1,_felder iclose 1 ENDIF rem Die Datenbank und die Indexdatei werden ge╨ñffnet IOPEN 1,"termin" IOPEN_INDEX 1,"termin" rem Felder k╨ñnnen ╨æber Namen aus der DBASE-DB angesprochen werden rem z.B. _FELDER.NAME oder _FELDER.DATUM dbfields 1,_felder rem Der aktuelle Index wird ausgew╨öhlt und der erste Datensatz geladen iset 1,"DATUM_TAG",expr istart 1,_felder ENDMOD rem Definition des Hauptfensters MODUL fenster() def_window_st "window",1,1,62,15,"Testfenster" def_toolbar "toolbar", 0, 0, 60, 5;"region off" def_button "b0", 0, 0, 10, " ", " def_button "b1", 0, 0, 10, " ", " def_button "b2", 0, 0, 10, " ", ">>>" def_button "b3", 0, 0, 10, " ", "<<<" def_button "b4", 0, 0, 10, " ", " def_button "b5", 0, 0, 10, " ", " def_button "b6", 0, 0, 10, " ", "S add_item "toolbar",.. "b0",.. "b1",.. "b2",.. "b3",.. "b4",.. "b5",.. "b6" rem Alternative : ADD_ITEM_ARRAY rem ADD_ITEM_ARRAY "toolbar","b",0,6 add_item "window", "toolbar" DEF_PROMPT "aus1", 1, 0, "Zeit " DEF_PROMPT "aus2", 1, 1, "Datum " DEF_PROMPT "aus3", 1, 2, "Name " DEF_PROMPT "aus4", 1, 3, "Kommentar " DEF_INPUT_TIME "inp1", 10, 0, 10, "",""; "border" DEF_INPUT_DATE "inp2",10,1,14," . . ","" ;"border" DEF_STRING "inp3", 10, 2, 40, ""; "border" DEF_TEXT "inp4", 1, 4, 49, 5, 10000, ""; "border", "wrap off" DEF_SCROLLBAR "scroll1", 0, 0, 0, 0, 0 DEF_SCROLLBAR "scroll2", 1, 0, 0, 0, 0 ADD_ITEM "inp4",.. "scroll1",.. "scroll2" ADD_ITEM_ARRAY "window", "aus",1,4 ADD_ITEM_ARRAY "window", "inp",1,4 rem Statuszeile am unteren Fensterrand DEF_STATUSBAR "status",1 DEF_PROMPT "statustext",1,0,"F12=Hilfe ";"color on" DEF_PALETTE 1,0,7 COLOR_ITEM "statustext",1 ADD_ITEM "status","statustext" ADD_ITEM "window","status" ENDMOD rem Daten aus den Eingabefeldern werden gespeichert modul b0_select() call daten_schreiben() imodrec 1,_felder endmod rem Aktueller Datensatz wird gel╨ñscht modul b1_select() idel 1 igetrec 1,_felder call daten_ausgeben() endmod rem Der n╨öchste Datensatz wird herausgesucht und angezeigt modul b2_select() deffloat a inext 1,a,_felder call daten_ausgeben() endmod rem Der vorhergehende Datensatz wird herausgesucht und angezeigt modul b3_select() deffloat a iprev 1,a,_felder call daten_ausgeben() endmod rem Programm beenden MODUL b4_select() DEFFLOAT flag MSGBOX "Programm beenden ?", 1, flag, " " IF flag=1 THEN _i=1000 ENDIF ENDMOD rem Die Eingabefelder werden f╨ær eine Neueingabe geleert modul b5_select() clear _felder,1,4 iadd 1,_felder call daten_ausgeben() setfocus "inp1" endmod rem Die Suchfunktion wird aufgerufen modul b6_select() call fenster_suchen() igetrec 1,_felder call daten_ausgeben() endmod rem Ausgabe von Daten auf dem Bildschirm modul daten_ausgeben() set_item_array "inp",_felder,1,4 endmod rem Einlesen von Daten aus den Eingabefeldern in die Recordstruktur modul daten_schreiben() get_item_array "inp",_felder,1,4 endmod rem Suchfunktion MODUL fenster_suchen() defstring obj deffloat ii,taste call erstelle_suchfenster() win_paint "suche" while ii<>1000 win_ev ii get_item_pos obj,taste if taste=13 then if obj="bx1" then call such_auswerten() ii=1000 endif if obj="bx2" then ii=1000 endif endif wend event_on_item "suche","end" endmod rem Suchen von Datens╨ötzen MODUL such_auswerten() DEFSTRING expr deffloat ok DIM dat,1,3 get_item "kr2",_felder.name compress _felder.name if _felder.name<>"" then iset 1, "Name_Tag", expr iread 1, ok, _felder.name, soft exitmod endif get_item "kr1", _felder.datum if _felder.datum<>"" then iset 1, "Datum_Tag",expr select _felder.datum,46,dat,1,3 _felder.datum=dat3+dat2+dat1 iread 1, ok, _felder.datum, _felder endif endmod rem Definition des Suchfensters MODUL erstelle_suchfenster() def_window_st "suche", 3, 2, 50, 12, "Suchen";"modal","move off" rem Zus╨ötzliche Objekte werden definiert und dem Fenster angef╨ægt def_prompt "such1",10,0,"Geben Sie einen Suchbegriff" def_prompt "such2",10,1,"im entsprechenden Feld an" def_prompt "such3",1,3,"Name " def_prompt "such4",1,4,"Datum " def_input_date "kr1",10,4,14," . . ","" ;"border" def_string "kr2",10,3,20,"";"border" def_button "bx1",3,8,20,""," beginnen" def_button "bx2",25,8,20,""," add_item "suche",.. "such1",.. "such2",.. "such3",.. "such4",.. "kr1",.. "kr2",.. "bx1",.. "bx2" endmod rem Pr╨æfen ob Datumkorrekt eingegeben modul inp2_validate() deffloat flag msgbox "Datum mu╤ü in der Form TT.MM.YYYY eingegeben werden",0,flag,"" setfocus "inp2" endmod modul inp2_lostfocus() defstring date deffloat flag get_item "inp2",date if date="" msgbox "Datum mu╤ü in der Form TT.MM.YYYY eingegeben werden",0,flag,"" setfocus "inp2" endif endmod rem Auf Taste F1 reagieren modul system_keypress() if system.keypress=10001 then call hilfe(system.object) endif endmod rem Hilfefenster modul hilfe(char o) deffloat flag if o="inp1" then msgbox "Hilfe f╨ær Feld INP1",0,flag,"" else msgbox "Hier k╨ñnnte eine allgemeine Hilfe stehen !",0,flag,"" endif endmod rem ************** Ende des Programms ******************* Zum Schlu╤ü ╨¬ber das Programmieren wurden schon tonnenweise B╨æcher geschrieben. Ich glaube eine Tonne liegt in meinen Keller! Die vorgestellten Programme werden nicht alle ihre Fragen beantworten k╨ñnnen. F╨ær das Umsetzen einer Idee zu einen Programm braucht es Erfahrung. Wenn man die Befehle einer Sprache beherrscht, hei╤üt dies noch nicht das man Programmieren kann ! Als Einsteiger empfehle ich kleine Programme zu entwickeln, wie z.B. einen einfachen Taschenrechner oder eine W╨öhrungsumrechnung. Steigern Sie den Schwierigkeitsgrad ihrer Programme. Versuchen Sie Routinen allgemein zu halten, damit diese in anderen Programmen genutzt werden k╨ñnnen. Ich werde in Zukunft diese elektronische Hilfe erweitern, und weitere Erfahrungswerte einbringen. Kohle ΓòÉΓòÉΓòÉ 12. Objekteigenschaften ΓòÉΓòÉΓòÉ FLAGS Objekteigenschaften Ob ein Eingabefeld eine Umrandung besitzt oder nur Gro╤übuchstaben eingeben werden d╨ærfen, bestimmen Sie ╨æber die Objekteigenschaften (OE). OEs sind wie Schalter, die eine Eigenschaft aktivieren oder deaktivieren. In den meisten F╨öllen werden die OEs schon bei der Definition eines Objekts ╨æbergeben : DEF_STRING "id",x,y,len,text ; "oe1","oe2",... Nach einem Strichpunkt erfolgt mit Komma getrennt, die ╨¬bergabe der OEs. OEs werden im in Kleinbuchstaben angegeben. Verf╨ægbare OEs : Allgemein : "color on" Farbwerte eines Objekt k╨ñnnen ver╨öndert werden "border" Ein Rand wird um das Objekt gezeichnet "current off" Kann nicht das akt. Objekt werden "select off" Schaltet die M╨ñglichkeit einer Selektion des Objekts aus "region off" Das Objekt erh╨ölt die komplette Fensterfl╨öche "view only" Schaltet den Editiermodus aus "bitmap" Hiermit teilen Sie mit, da╤ü das Objekt ein Bitmap beinhaltet "editmode" Objekt l╨össt sich am Bildschrim bewegen und ╨öndern. "redisplay" Objekt wieder zeichnen "minicell" Koordinaten auf 1/10 Schritte setzen "pixel" Koordinaten Pixelorientiert "no_status" Kein Status "current" Objekt erh╨ölt den Status "aktuelles" Objekt "changed" Objekt erh╨ölt den Status "ge╨öndertes" Objekt "invalid" Objekt erh╨ölt den Status "falsche Eingabe" "select" Objekt erh╨ölt den Status "selektiertes" Objekt "destroy off" L╨ñschen und entfernen des Objekts nicht m╨ñglich "normal hotkey" Der Hotkey kann ohne die ALT-Taste angesprochen werden "repeat" Objekt reagiert auf gedr╨æckten Tastendruck Eingabefelder : "right" Texteingabe wird rechtsb╨ændig gesetzt "clear" Feldinhalt wir bei Eingabe gel╨ñscht "center" Texteingabe erfolgt zentriert "lcase" Umwandlung in Kleinbuchstaben "ucase" Umwandlung in Gro╤übuchstaben "wrap off" Zeilenumbruch wird ausgeschaltet "pass" Passworteingabe bei DEF_STRING Liste, Combobox : "sort" Elemente einer Liste werden sortiert "multi" Mehrfachauswahl aus einer Liste "auto select" Selektiert in einer Gruppe von Radiobuttons den ersten Button, wenn die Gruppe selektiert wird Fenster : "lock" Fenster kann nicht geschlossen werden "mdi" Fenster wird als MDI-Objekt behandelt "dialog" Fenster wird als Dialogbox behandelt "modal" Verhindert, da╤ü andere Fenster Events erhalten, bis das Fenster geschlossen wird "move off" Verhindert die ╨₧nderung der Position "size off" Verhindert die ╨₧nderung der Gr╨ñ╤üe "current off" Das Objekt kann nicht selektiert werden "temp" Das Fenster wird geschlossen, wenn ein anderes Fenster selektiert wird "maximized" Darstellung des Fensters mit max. Gr╨ñ╤üe "minimized" Symboldarstellung (DEF_WINDOW mit Iconangabe) Men╨æs : "checkmark" Objekt erh╨ölt bei Auswahl einen Hacken "sep" Objekt dient als Trennstrich Buttons : "double_click" Button kann ╨æber einen Doppelklick aktiviert werden "down_click" Button wird beim Herunterdr╨æcken aktiviert "toggle off" Klickbewegung wird ausgeschaltet "auto size" H╨ñhe und Breite werden automatisch berechnet "checkbox" Button wird als Checkbox dargestellt "3d_off" Darstellung ohne Schatten "radio" Darstellung als Radiobutton "set" Ein Radiobutton oder eine Checkbox als gesetzt setzen Icons : "icon minimize" Definiert dieses Objekt als Symbol "icon double_click" Icon kann durch Doppelklick selektiert werden Zeiteingabe : "time : " Trennzeichen ist der Doppelpunkt "time 100" Eingabe als Millisekunden "time hours off" Eingabe ohne Stunden "time seconds on" Sekunden k╨ñnnen eingegeben werden "time minutes off" Minuteneingabe deaktivieren "time sep off" Kein Trennzeichen "time lcase" Eingabe in Kleinbuchstaben "time ucase" Eingabe in Gro╤übuchstaben "time system" Vorbelegung mit Systemzeit "time 12" 12 Stunden Uhrzeit "time 24" 24 Stunden Uhrzeit "time fill" Zahlen kleiner als 10 werden auf zwei Stellen mit einer f╨æhrenden Null aufgef╨ællt. Numerische Eingabe ( DEF_NUMBER) "scientific" Wissenschaftliche Schreibweise aktiviert (z.B. 2E-2) "decimal 0" Keine Nachkommastelle "decimal 1" Eine Nachkommastelle "decimal 2" ... "decimal 3" ... "decimal 4" ... "decimal 5" ... "decimal 6" Sechs Nachkommastellen "currency" W╨öhrung "commas" Komma statt Punkt (Automatisch) "percent" Prozenteingabe (%) Drag und Drop f╨ær Objekte in einer Liste oder Eingabefeld "drag move" Objekt kann verschoben werden "drag copy" Objekt kann kopiert werden "drop accept Objekt erlaubt Drag Drop Nachtr╨ögliches ╨₧ndern von Eigenschaften : F╨ær diesen Zweck steht folgende Funktion zur Verf╨ægung : SET_ITEM_STATUS "id",flag,"oe1",... Ermitteln von Eigenschaften eines Objekts : GET_ITEM_STATUS "id","status",ok ΓòÉΓòÉΓòÉ 13. Datenbankfilter / Fehlercodes ΓòÉΓòÉΓòÉ DBASE-Ausdr╨æcke Allgemeine Hinweise dBASE-Ausdr╨æcke werden oft zur Definition von Schl╨æsseln und Filtern einer Indexdatei gebraucht. Sie k╨ñnnen aber aber auch f╨ær andere Zwecke, z.B. interaktiven Abfragen bei Relationen, benutzt werden. Alle dBASE-Ausdr╨æcke geben den Wert eines bestimmten Typs zur╨æck. Dieser Typ kann "Numerisch", "Zeichen", "Datum" oder "Logisch" sein. Feldnamen, Konstanten und Funktionen k╨ñnnen als Teile von dBASE-Ausdr╨æcken benutzt werden. Diese Teile lassen sich mit anderen Funktionen oder mit Operatoren kombinieren. Feldnamen Es ist m╨ñglich, einen Feldnamen in einem dBASE-Ausdruck durch die Angabe der Datendatei zu kennzeichnen. Beispiel f╨ær einen dBASE-Ausdruck "DATENDATEI->FELD_NAME. Der erste Teil, der Kennzeichner, bezeichnet eine Datendatei, dem nach dem "->" der Feldname folgt. dBASE-Ausdruckskonstanten dBASE-Ausdr╨æcke k╨ñnnen aus einer numerischen, logischen oder Zeichenkonstante bestehen. Konstanten werden gew╨ñhnlich in komplizierten dBASE-Ausdr╨æcken benutzt. Eine numerische Konstante ist eine Zahl. Zum Beispiel sind "5", "7.3" und "18" dBASE-Ausdr╨æcke mit numerischen Konstanten. Zeichenkonstanten sind in Anf╨æhrungszeichen eingeschlossene Buchstaben. Die Konstanten ".TRUE." und ".FALSE." sind die einzigen g╨æltigen logischen Konstanten. Die Konstanten ".T." und ".F." sind die g╨æltige Abk╨ærzung daf╨ær. Operatoren der dBASE-Ausdr╨æcke Mit Operatoren wie "+","*" oder "<" werden Konstanten und Felder bearbeitet. "3+2" ist ein Beispiel f╨ær einen dBASE-Ausdruck, bei dem der Additionsoperator auf zwei numerischen Konstanten wirkt, um den numerischen Wert "11" zur╨æckzugeben. Als Regel gilt Punkt vor Strich. Zeichenoperatoren Es gibt zwei Zeichenoperatoren, die zwei Zeichenwerte verbinden. "Hans "+"Schmidt" wird zu "Hans Schmidt" "AAA "-"CCCC " wird zu "AAACCCC " Bei der zweiten Variante werden alle endst╨öndigen Leerzeichen der ersten Zeichenkette an das Ende des Gesamtausdrucks angef╨ægt. Vergleichsoperatoren VOs geben ein logisches Ergebnis (entweder wahr oder falsch) zur╨æck. Alle Operatoren mit der Ausnahme von "Beinhalten" arbeiten mit numerischen, Zeichen- oder Datumswerten. "Beinhalten" arbeitet mit Zeichenketten. Gleich = Ungleich <> oder # Kleiner als < Gr╨ñ╤üer als > Kleiner oder gleich <= Gr╨ñ╤üer oder gleich >= Beinhalten $ Beispiel : "AB"$"ABCD" wahr 8<7 falsch Logische Operatoren Nicht .NOT. Und .AND. Oder .OR. Beispiel : Name="Meier" .AND. Ort="M╨ænchen" DEL()="*" .AND. UPPER(Ort)="N╨¬RNBERG" dBASE-Ausdruckskonstanten Befehle f╨ær die Indexdefinition CTOD() Die Funktion Character TO Date wandelt einen Zeichenwert in einen Datumswert um, wobei die Ausgabe im Format MM/DD/YY erfolgt (M=Monat, D=Tag, Y=Jahr) Bsp: CTOD("110288") wird zu 11/02/88. DATE() Diese Funktion gibt das aktuelle Datum aus dem ROM-BIOS zur╨æck. DAY() Hier wird der Tag des in den Klammern anzugebenden Datums ausgew╨öhlt und zur╨æckgegeben. Soll das vorgegebene Datum das aktuelle Systemdatum sein, geben Sie an: DAY(DATE). DEL() ╨¬berpr╨æft, ob der aktuelle Datensatz als gel╨ñscht markiert ist. Soll dies der Fall sein, wird "*" zur╨æckgegeben, ansonsten " ". DELETED() ╨¬berpr╨æft, ob der aktuelle Datensatz als gel╨ñscht markiert ist. Ist dies der Fall, wird .TRUE. zur╨æckgegeben. DESCEND() Diese Funktion ist nur bei Systemen mit Clipper-Unterst╨ætzung verf╨ægbar. Es wir die Komplementversion des in Klammern vorgegebenen Ausdrucks zur╨æckgegeben. DTOC() Das in der Klammer vorgegebene Datum wird in eine Zeichenkonstante konvertiert. Das resultierende Format ist MM/DD/YY (s.o.). DTOS() Das in der Klammer vorgegebene Datum wird in eine Zeichenkonstante ╨æberf╨æhrt. Das resultierende Format ist CCYYMMDD (C=Jahrhundert). IIF(Log_Wert, Wahr_Result, Falsch_Result) Bei dieser Funktion m╨æssen Sie f╨ær Log_Wert einen Ausdruck angeben, der dann von IIF ╨æberpr╨æft wird. Erweist sich der Ausdruck als wahr, wird der in Wahr_Result vorgegebene Wert zur╨æckgegeben, ansonsten wird der in Falsch_Result vorgegebene Wert ╨æbergeben. TRIMM() Mit dieser Funktion werden aus dem Ausdruck in der Klammer eventuelle Leerzeichen links vom Inhalt entfernt. MONTH() Der Monat des in der Klammer angegebene Datum wird als numerische Konstante zur╨æckgegeben. RECCOUNT() Die Funktion"Record Count" liefert die Zahl aller verf╨ægbaren Datens╨ötze in der Datenbank. RECNO() Die Funktion "Record Number" ermittelt die Nummer des aktuellen Datensatzes (analog zu IGET_NR). STOD() Diese Funktion wandelt den in der Klammer angegebenen Zeichenwert in einen Datumswert um. Das resultierende Format ist CCYYMMDD. STR (Zahl, L╨önge, Nachkomma) Die in Zahl vorgegebene Zahl wird in eine Zeichenkonstante umgewandelt. Diese besitzt die in L╨önge angegebene Zeichenzahl und die in Nachkomma angegebene Zahl an Nachkommastellen. Bsp.: STR(5.7, 4, 2) wird zu "5.70" (der Punkt z╨öhlt mit). SUBSTR(Zeichen, Start, Anzahl) Ein Teil der in Zeichen vorgegebene Zeichenkonstante wird zur╨æckgegeben. Der selektierte Teilbereich beginnt ab dem in Start ausgew╨öhlten Zeichen und enth╨ölt die in Anzahl angegebene Zeichenzahl. Bsp: SUBSTR("ABCDE",2,3) ergibt "BCD". TIME() Es wird die Systemzeit aus dem ROM-BIOS als Zeichen zur╨æckgegeben. Das resultierende Format ist HH TRIM() Dem in der Klammer angegebenem Ausdruck werden alle endst╨öndigen Leerzeichen entfernt. UPPER() Alle Zeichen des in der Klammer angegebenen Ausdrucks werden in Gro╤übuchstaben umgewandelt. VAL() Eine Zeichenkonstante wird in eine numerische konvertiert. YEAR() Das Jahr des in der Klammer vorgegebenen Datums wird als numerische Konstante zur╨æckgegeben. Fehlercodes Bei den aufgef╨æhrten Datenbankbefehlen kann (mu╤ü nicht) ein weiterer numerischer Parameter (Variable) mit angegeben werden. Beispiel : IOPEN 1,"test" [,fehlercode] Tritt ein Fehler auf, so kann der Fehlercode ermittelt werden. KIM ╨ñffnet dann keine Fehlerbox. Gehen Sie vorsichtig hiermit um ! Befehle : ISTART, IENDE, IOPEN, INEXT, IPREV, IMAKEINDEX, IOPEN_INDEX, ICLOSE_INDEX, IREINDEX, ICREATE, ILOCK, IULOCK, ISET, IREAD, ICLOSE, IGO_NR --------------------------------------------------------------------------- F E H L E R C O D E S Code Fehler --------------------------------------------------------------------------- Allgemein... -10 Fehler beim Schlie╤üen einer Datei -20 Fehler beim Erstellen einer Datei (Dateiname,Platte voll,..) -30 Fehler beim bestimmen der Dateil╨önge -40 Fehler beim Einstellen der Dateil╨önge -50 Fehler beim Sperren einer Datei -60 Fehler beim ╨⌐ffnen einer Datei (nicht vorh.,..) -70 Fehler beim lesen in einer Datei -80 Fehler beim L╨ñschen -90 Fehler beim Umbenennen -100 Fehler beim Positionieren des Dateizeigers -110 Fehler beim Entsprerren einer Datei -120 Platte voll beim schreiben in eine Datei -200 Datei ist keine Datendatei -210 Unbekannter Feldname -220 Unbekannter Feldtyp -230 Datensatzl╨önge zu gro╤ü Index... -300 Subindex fehlt (Datensatz hat keinen Eintrag im Index) -310 Keine richtige Indexdatei -330 Subindex nicht gefunden (Name nicht gefunden) -340 Kein eindeutiger Schl╨æssel Ausdr╨æcke... -400 Komma oder Klammer erwartet -410 Ausdruck nicht vollst╨öndig -420 Name der Datendatei nicht ermittelt -422 IIF() erfordert Parameter von gleicher L╨önge -425 SUBSTR() und STR() erfordert Konstanten als Parameter -430 Anzahl der Parameter sind falsch -440 ╨¬berlauf bei der Auswertung eines Ausdrucks -450 Rechte Klammer fehlt -460 Typ der Unterausdrucks ist falsch -470 Unbekannte Funktion -480 Unbekannter Operator -490 Unbekannter Wert -500 Unbeendeter String Optimierungsfehler ... -610 Allgemeiner Optimierungsfehler -620 Fehler bei der Aufhebung der Opt. -630 Fehler beim Herausschreiben der Datei Relationen... -710 Allgemeiner Relationsfehler -720 ╨¬bereinstimmender Slave-Datensatz nicht gefunden Schwere Fehler... -910 Interner Fehler -920 Nicht genug Speicher -930 Unerwarteter Parameter -950 Unerwartetes Ergebnis R ╨¬ C K M E L D U N G E N ------------------------- 0 Aufruf erfolgreich 1 Suchschl╨æssel gefunden 2 Suchaufruf nicht erfolgreich, Positionierung erfolgt hinter den abgefragten Suchschl╨æssel. 3 Dateiende 4 Dateianfang 5 Datensatz oder Subindexschl╨æssel fehlt 10 Index in absteigender Reihenfolge sortiert 20 Subindex nur eindeutigen Schl╨æssel und es wurde versucht einen gleichen Key anzuf╨ægen. 40 Datensatz wird ignoriert 45 Datensatz wird beibehalten 50 Teil der Datendatei gesperrt 60 Datei konnte nicht angelegt werden 70 Datei konnte nicht ge╨ñffnet werden 80 Subindexname nicht gefunden 90 Slave-Datensatz wurde nicht gefunden ---------------------------------------------------------------------------- ΓòÉΓòÉΓòÉ 14. Relationen ΓòÉΓòÉΓòÉ Relationen Einf╨æhrung Bisher haben wir unsere Betrachtungen auf lediglich eine Datenbank beschr╨önkt. Es ist aber durchaus m╨ñglich, KIM- Programme mit mehreren Datenbanken auszustatten. Dies ist beispielsweise dann vorteilhaft, wenn Sie eine fr╨æher erstellte Datenbank mitsamt ihren Daten zus╨ötzlich zur neuen Datenbank in das Programm einf╨ægen wollen. Dabei kann die zus╨ötzliche Datenbank auch mit anderen Programmen wie dBASE generiert worden sein. Einfach ist nat╨ærlich der Fall, da╤ü Sie jeweils nur eine Datenbank zur gleichen Zeit benutzen wollen. Dann schlie╤üen Sie jeweils eine Datenbank, wenn die andere ge╨ñffnet wird, und arbeiten ganz normal wie zuvor erl╨öutert mit einer Datenbank. Viel interessanter ist aber nat╨ærlich die M╨ñglichkeit, mit zwei Datenbanken zur selben Zeit zu arbeiten. Die Datens╨ötze beider Datenbanken k╨ñnnen dann miteinander verkn╨æpft und so gemeinsam verwertet werden. Eine Verkn╨æpfung von Datenbanken bezeichnet man allgemein als Relation. Wollen wir uns an einem Beispiel verdeutlichen, wie eine Relation zwischen Datenbanken aufgebaut ist. Nehmen wir an, es existiert eine Datenbank 1 mit Datens╨ötzen, in denen der Name und der Vorname eines Kunden gespeichert ist. In einer zweiten Datenbank sollen hingegen der Name und der Wohnort verzeichnet sein: Datenbank 1 Datenbank2 Name Vorname Name Wohnort --------------------------------------------------------------- M╨æller Karl-Heinz M╨æller N╨ærnberg Schulz Roland Schulz M╨ænchen Wei╤ü Norbert Wei╤ü Frankfurt Wir m╨ñchten nun die beiden Datenbanken verkn╨æpfen, um zu erreichen, da╤ü uns die Datens╨ötze beider Datenbanken gleichzeitig zur Verf╨ægung stehen. Wenn wir also beispielsweise nach allen Informationen zum Kunden M╨æller suchen, soll uns nicht nur der Vorname, sondern gleichzeitig auch der Wohnort angegeben werden. Dies kann man erreichen, indem man eine Relation zwischen den beiden Datenbanken aufbaut. Das ist aber nur dann m╨ñglich, wenn mindestens ein Datensatzfeld in beiden Datenbanken gleichzeitig vorhanden ist. Diese Einschr╨önkung wird sofort klar, wenn man sich vor Augen f╨æhrt, welche Aktionen das Programm beim Arbeiten mit einer Datenbankrelation durchf╨æhren mu╤ü. Aktivieren Sie in der Datenbank 1 den Datensatz mit dem Namen "M╨æller", dann mu╤ü in diesem Datensatz mindestens eine Information enthalten sein, die auch in der Datenbank 2 vom Programm gefunden werden kann. Ansonsten ist es dem Computer nicht m╨ñglich, eine Verkn╨æpfung zwischen Datens╨ötzen herzustellen, da er nicht wei╤ü, welcher Datensatz der Datenbank 2 zu dem aktivierten Datensatz der Datenbank 1 geh╨ñrt. Dieses verkn╨æpfende Feld wird LOOKUP-Schl╨æssel genannt. Anhand des Lookup-Schl╨æssels wird die Datenbank 2 nach passenden Daten zu einem in der Datenbank 1 aktivierten Datensatz durchsucht. Die Datenbank 1 wird auch als MASTER-Datenbank bezeichnet, die damit verkn╨æpfte Datenbank 2 als SLAVE-Datenbank (engl. Master and slave = Herr und Sklave). Wichtig: Der Lookup-Schl╨æssel mu╤ü ein Datensatzfeld sein, welches in der Slave-Datenbank als Indexfeld ausgezeichnet ist. Nur dann ist gew╨öhrleistet, da╤ü die Relation zwischen den Datenbanken in einer vern╨ænftigen Zeit durchgef╨æhrt werden kann. Immerhin mu╤ü ja die zweite Datenbank anhand eines aus der Master-Datenbank vorgegebenen Suchkriteriums (dem Masterausdruck) nach passenden Datens╨ötzen durchsucht werden. Dies ist nur dann m╨ñglich, wenn dieses Suchkriterium in der Slave-Datenbank als Indexfeld ausgew╨öhlt ist, die Slave- Datenbank also nach diesem Datensatzfeld geordnet ist. Erstellen von Relationen Der erste Schritt beim Aufbau einer Relation besteht nat╨ærlich in der Definition der ben╨ñtigten Datenbanken. Dabei geht man genauso vor wie beim Generieren einer einzelnen Datenbank, weshalb der folgende Programmcode kommentarlos wiedergegeben werden soll. Beachten Sie aber bitte, da╤ü die Variablen, welche die Datensatzfelder bilden, in Master- und Slave-Datenbank unterschiedliche Bezeichnungen besitzen m╨æssen: REM Definition zweier Datenbanken DIM feld, 1, 3 DIM index, 1, 3 DIM feld_s, 1, 3 DIM index_s, 1, 3 DEFSTRING expr REM Feldaufbau der Masterdatenbank feld1=" Name , C, 10, 0" feld2=" Vorname , C, 20, 0" feld3=" " REM Indexaufbau der Masterdatenbank index1=" Name , Name, , 0, 0" index2=" " REM Feldaufbau der Slavedatenbank feld_s1=" Name, C, 10, 0" feld_s2=" Wohnort , C, 20, 0" feld_s3=" " REM Indexaufbau der Slavedatenbank index_s1=" Name_s, Name, , 0, 0" index_s2=" " REM L╨ñschen evtl. vorhandener Dateien KILL "master.dbf" KILL "master.cdx" KILL "slave.dbf" KILL "slave.cdx" REM Erstellen und Γòôffnen der neuen Datenbanken ICREATE "master", feld, index ICREATE "slave", feld_s, index_s IOPEN 1, "master" IOPEN 2, "slave" Somit wurden zwei Datenbanken mit den Kennummern 1 und 2 erzeugt. Beachten Sie bitte, da╤ü zwei wichtige Grundkriterien f╨ær das Zustandekommen einer Relation erf╨ællt worden sind: Beide Datenbanken besitzen in Ihrer Datensatzstruktur ein gemeinsames Feld, welches als Lookup-Schl╨æssel verwendet werden kann (n╨ömlich "Name", und dieses Feld ist in der Slavedatenbank als Indexfeld selektiert. Um die Datenbanken jetzt miteinander zu verkn╨æpfen, rufen Sie folgenden Befehl auf: ISETREL relnr, dbnr_m, dbnr_s, lookup Eine Relation erh╨ölt analog zu einer Datenbank eine Kennummer (Handle) durch die Variable relnr, ╨æber welche sie angesprochen werden kann. Das Handle einer Relation ist als Platzhalter f╨ær die Kennummern der verkn╨æpften Datenbanken aufzufassen, da beim Aufruf der Relation gleichzeitig die se Datenbanken angesprochen werden. Anstelle der Variablen dbnr_m und dbnr_s geben Sie die Kennummern der zu verkn╨æpfenden Datenbanken an, wobei die zuerst genannte Datenbank immer zur Masterdatenbank wird. Die letzte Variable lookup definiert das Verkn╨æpfungskriterium zwischen beiden Datenbanken, den Lookup- Schl╨æssel. Geben Sie dort die Bezeichnung des Datensatzfeldes an, welches in beiden Datenbanken enthalten sein mu╤ü und anhand dessen die Relation aufgebaut werden soll. Erinnern Sie sich bitte daran, da╤ü dieses Feld in der Slavedatenbank ein Indexfeld sein mu╤ü. Prinzipiell lassen sich beliebig viele Relationen aufbauen. Eine Masterdatenbank kann unbegrenzt viele Slavedatenbanken besitzen. Diese k╨ñnnen wiederum Masterdatenbanken weiterer Slavedatenbanken sein. F╨ær jede Verkn╨æpfung zweier neuer Datenbanken mu╤ü dann eine Relation mit ISETREL aufgebaut werden. Die einzelnen Lookup-Schl╨æssel auf diese Art verkn╨æpfter Datenbanken m╨æssen nicht identisch sein. Nehmen wir an, wir wollen unserer obigen Relation (mit dem Lookup-Schl╨æssel "Name") eine weitere Datenbank mit den Feldern "Wohnort" und "Stra╤üe" hinzuf╨ægen, so gelingt dies durch Aufbau einer Relation zwischen der obigen Slavedatenbank und der neuen, wobei diese Relation den Lookup-Schl╨æssel "Wohnort" besitzen wird (dieses Feld ist in den entsprechenden Datenbanken gemeinsam vorhanden). Alle drei Datenbanken sind dann in Relation zueinander. Egal welche von beiden Relationen (die zwischen Master und Slave oder die zwischen Slave und Neu) Sie aufrufen, Sie erhalten jeweils die zueinander in Beziehung stehenden Datens╨ötze aller drei Datenbanken. Datensatzzeiger innerhalb einer Relation Auch innerhalb einer Relation gelten f╨ær die Organisation und Auswahl von Datens╨ötzen dieselben Regeln wie bei einer einzelnen Datenbank. Die Datens╨ötze werden in jeder Datenbank separat nach dem aktuellen Index geordnet (welcher f╨ær Master- und Slavedatenbank nicht identisch sein mu╤ü). Auch in einer Relation existiert ein Datensatzzeiger, welcher den aktuellen Datensatz festlegt. Dieser Datensatzzeiger befindet sich in der Masterdatenbank und kann auch nur dort bewegt werden. Bei jeder Bewegung des Datensatzzeigers wird die Relation zwischen den beiden Datenbanken neu aufgebaut, wie folgendes Schema verdeutlichen soll: Datenbank 1 Datenbank2 Name Vorname Name Wohnort --------------------------------------------------------------- M╨æller Karl-Heinz M╨æller N╨ærnberg Schulz Roland Schulz M╨ænchen Wei╤ü Norbert Wei╤ü Frankfurt Der Datensatzzeiger befindet sich in der Masterdatenbank auf dem Datensatz mit dem Namen "M╨æller". Das Feld "Name" ist der Lookup-Schl╨æssel der Relation. Der Inhalt des Felds "Name" im aktuellen Datensatz der Masterdatenbank ist demnach der Masterausdruck (das Suchkriterium), mit dem die Slavedatenbank nach zugeh╨ñrigen Datens╨ötzen durchsucht wird. Sobald dort ein Datensatz mit Inhalt "M╨æller" im Feld "Name" gefunden wird, erstellt das Programm die Relation (gekennzeichnet durch den Doppelpfeil). W╨ærde der Datensatzzeiger zum n╨öchsten Datensatz bewegt, m╨æ╤üte die Slavedatenbank nach dem neuen Masterausdruck (in unserem Beispiel w╨öre das "Schulz") durchsucht werden. Ist der entsprechende Datensatz gefunden, wird die neue Relation zwischen den zugeh╨ñrigen Datens╨ötzen aufgebaut. Was ist nun, wenn zu einem Datensatz in der Masterdatenbank mehrere Datens╨ötze in der Slavedatenbank existieren? In KIM stellt dies kein Problem dar, da eine sogenannte 1 Dies bedeutet, da╤ü das Programm selbst╨öndig erkennt, ob mehrere passende Datens╨ötze der Slavedatenbank dem Masterausdruck entsprechen. Wird dann versucht, den Datensatzzeiger in der Masterdatenbank um eine Position zu verstellen, reagiert das Programm zun╨öchst so darauf, da╤ü der n╨öchste passende Datensatz in der Slavedatenbank ausgew╨öhlt wird. Erst wenn es keinen Datensatz in der Slavedatenbank mehr gibt, der dem Masterausdruck entspricht, wird der Datensatzzeiger in der Masterdatenbank weiter bewegt. Folgende Anweisungen stehen Ihnen zur Verf╨ægung, um den Datensatzzeiger in einer Relation zu bewegen. Die Befehle entsprechen in ihrer Funktion den angegebenen auf eine einzelne Datenbank bezogenen Anweisungen: Relationsbefehl Funktion entspricht --------------------------------------------------------------- IENDEREL relnr, sm,ss Bewegt den Datensatzzeiger IENDE zum Ende der Masterdatenbank INEXTREL relnr,ok,sm,ss Bewegt den Datensatzzeiger zum INEXT n╨öchsten Datensatz der Masterdatei IPREVREL relnr,ok,sm,ss Bewegt den Datensatzzeiger zum IPREV vorherigen Datensatz der Masterdatei ISTARTREL relnr, sm,ss Bewegt den Datensatzzeiger zum ISTART Anfang der Masterdatenbank F╨ær relnr geben Sie jedesmal die entsprechende Kennummer der gew╨ænschten Relation an. ╨¬ber sm legen Sie die Recordstruktur der Masterdatenbank und ╨æber ss diejemige der Slavedatenbank fest, in welche die ╨æber die aktuelle Relation selektierten Datens╨ötze beider Datenbanken geladen werden sollen. Die Variable ok bei INEXTREL und IPREVREL besitzt die identische Bedeutung wie bei INEXT und IPREV. Bei Erreichen des Endes der Masterdatenbank wird also der Wert ok=3 ╨æbergeben, bei Erreichen des Beginns der Masterdatenbank der Wert ok=4. Sortierung Neben der Organisation von Datenbanken ╨æber den aktuellen Index besteht die M╨ñglichkeit, die Sortieren von Datenbanken innerhalb einer Relation zur Laufzeit des Programms, also w╨öhrend des Programmablaufs, zu ╨öndern. Dazu dient der Befehl ISETRELSORT relnr, sort_expression Nach Angabe der Relationsnummer mit relnr ist das neue Sortierkriterium anzugeben. Dazu bedient man sich des dBASE- Ausdrucks "->". Mit diesem dBASE-Zeiger wird ein Feld in einer Datei ausgew╨öhlt. Links vom Zeiger hat der Name der ausgew╨öhlten Datei zu stehen, rechts davon der Name des ausgew╨öhlten Feldes. M╨ñchten Sie beispielsweise, da╤ü die oben definierte Slavedatenbank nach dem Datensatzfeld "Wohnort" sortiert wird, so geben Sie f╨ær die Variable sort_expression folgendes an: "slave->Wohnort". Nach Aufruf der Anweisung ISETRELSORT wird die Slavedatenbank unabh╨öngig vom zuvor aktivierten Index von nun an nach dem Datensatzfeld "Wohnort" sortiert. Eine ╨¬bersicht ╨æber die wichtigsten dBASE-Ausdr╨æcke finden Sie im Anhang dieses Buches. Abfragen Bei der Definition von Indizes f╨ær eine einzelne Datenbank haben wir kennengelernt, da╤ü es m╨ñglich ist, f╨ær einen Index einen Filter zu definieren, mit dessen Hilfe die Suche nach Datens╨ötzen entsprechend eingeschr╨önkt und konzentriert werden kann. Diese Filter wurden ╨æber dBASE-Ausdr╨æcke festgelegt. Sie haben die M╨ñglichkeit, zur Laufzeit des Programms, also mitten im Programmablauf, auch f╨ær Relationen ╨öhnliche Filter zu setzen, die dann Abfragen entsprechend vorbearbeiten. Die Anweisung lautet: ISETRELQUERY relnr, expression F╨ær relnr geben Sie wie gewohnt die Kennummer der entsprechenden Relation an. Anstelle von expression hat dann der gew╨ænschte Abfragefilter zu stehen. Auch diese Filter m╨æssen mit Hilfe von dBASE-Ausdr╨æcken festgelegt werden. Eine ╨¬bersicht ╨æber die wichtigsten dBASE- Ausdr╨æcke finden Sie Anhang dieses Buches. Wir wollen an dieser Stelle nicht n╨öher darauf eingehen. Die Vorgehensweise ist identisch zu der im vorherigen Abschnitt bei der Erstellung von Indexfiltern beschriebenen. Ein kurzes Beispiel soll dies noch einmal verdeutlichen. Wenn Sie m╨ñchten, da╤ü ab einer bestimmten Position im Programm nur noch solche Datens╨ötze aus der Relation herausgesucht werden k╨ñnnen, bei denen im Feld "Name" ein Name aufgef╨æhrt ist, der mit einem Buchstaben im Intervall von N bis Z beginnt, so geben Sie den Abfragefilter ' Name>"M" ' f╨ær die Variable expression an. Ab dem Aufruf des Befehls ISETRELQUERY sind dann nur noch solche Datens╨ötze in der Relation erreichbar, die einen Namen beinhalten, dessen Anfangsbuchstabe im Alphabet nach M kommt. Soll dieser Filter im Programm dann an einer anderen Stelle wieder ge╨öndert werden, rufen Sie noch einmal ISETRELQUERY auf und geben einen neuen Abfragefilter an. Beenden einer Relation Eine Relation zwischen zwei Datenbanken kann jederzeit im Programm wieder beendet werden. Rufen Sie dazu auf: IEXITREL relnr F╨ær relnr geben Sie das Handle der Relation an. Welche beendet werden soll. Die verkn╨æpften Datenbanken verhalten sich von da an wieder wie zwei einzelne Datenbanken. Beachten Sie bitte, da╤ü die Datenbanken durch die Beendigung der Relation nicht geschlossen werden! Dies gelingt nur mit dem Befehl ICLOSE. ΓòÉΓòÉΓòÉ 15. KIM im Netz ΓòÉΓòÉΓòÉ Datenbanken im Netz Selbstverst╨öndlich kann KIM auch in einem Netzwerk betrieben werden. Mehrere Anwender besitzen dann die M╨ñglichkeit, gleichzeitig mit einer Datenbank zu arbeiten. Dies kann so aussehen, da╤ü z.B. mehrere Benutzer gleichzeitig Daten in eine ge╨ñffnete Datei schreiben. Es existiert aber auch die M╨ñglichkeit, da╤ü nur ein Benutzer (ein Super-User) Daten ver╨öndern kann, w╨öhrend die anderen Netzwerkanwender lediglich Einblick in die Daten haben, diese aber nicht modifizieren k╨ñnnen. Ein Netzwerksystem sieht meist in der Praxis so aus, da╤ü an einem leistungsstarken Rechner (meistens eine UNIX- Workstation oder ein Gro╤ürechner) eine gr╨ñ╤üere Anzahl an Terminals angeschlossen sind, ╨æber welche der Rechner angesprochen werden kann. Daraus ergeben sich viele Vorteile, aber auch einige Schwierigkeiten, die bei der Erstellung eines im Netzwerk betriebsf╨öhigen Programms ber╨æcksichtigt werden m╨æssen. Ein Hauptproblem einer jeden Netzwerkanwendung ist der gleichzeitige Zugriff mehrerer Anwender auf den gleichen Datensatz. Es kann dann beispielsweise vorkommen, da╤ü der eine Anwender einen Datensatz gerade bearbeiten will, den der andere im Moment l╨ñscht. Um solche Mi╤üverst╨öndnisse zu vermeiden, besitzen KIM-Datenbanken gewisse Sperrvorrichtungen. Es werden die Sperrprotokolle der Datenbanksysteme FoxPro 2.0, dBASE 5 sowie Clipper 5.1 unterst╨ætzt. Das Sperren KIM bietet die M╨ñglichkeit, einzelne Datens╨ötze innerhalb einer Datenbank vor einem Zugriff zu sperren. Der Datensatz kann dann lediglich gelesen, aber nicht ver╨öndert werden. Teilweise wird eine Sperrung auch in Datenbanken vorgenommen, die nicht in einem Netzwerk betrieben werden. So wird eine automatische Datensatzsperre von allen Befehlen durchgef╨æhrt, die eine Modifizierung eines Datensatzes bewirken (z.B. IMODREC, IADD, IDEL). Dies soll eine m╨ñglichst reibungslose Funktion dieser Anweisungen gew╨öhrleisten. Eigentlich ist diese Datensatzsperre nur f╨ær den Zeitraum notwendig, in welcher die obengenannte Aktion durchgef╨æhrt wird. Da aber der Sperr- und auch der Entsperrvorgang vergleichsweise zeitaufwendig sind, verzichtet KIM darauf, die einmal gesperrten Datens╨ötze wieder zu entsperren. Die Sperrung wird ohnehin ebenfalls automatisch aufgehoben, wenn der Datensatzzeiger durch einen entsprechenden Befehl auf den gesperrten Datensatz gestellt wird. Gerade in einem Netzwerk kann es jedoch notwendig sein, einen Datensatz zu sperren bzw. zu entsperren, ohne da╤ü obige Aktionen durchgef╨æhrt werden. Hierzu sind zwei Befehle vorgesehen (welche aber nur im Netzwerk verwendet werden k╨ñnnen). Eine Sperrung eines Datensatzes erreicht man mit ILOCK nr, ok Der aktuelle Datensatz der mit ihrem Handle selektierten Datenbank wird gesperrt. ╨¬ber ok wird der Erfolg dieser Aktion mitgeteilt. Konnte der Datensatz gesperrt werden, wird ein Wert ok<>50 zur╨æckgegeben. Gelang die Sperrung aus irgendeinem Grunde nicht, liefert das Programm ok=50 und eine entsprechende Meldung zur╨æck. Meist ist der entsprechende Datensatz dann bereits gesperrt. Eine Entsperrung erreicht man mit der Anweisung IUNLOCK nr, ok Die Befehlssyntax entspricht der von ILOCK. Konnte der aktuelle Datensatz entsperrt werden, erh╨ölt ok einen Wert ungleich 50. Bei negativem Erfolg wird ok=50 zur╨æckgegeben. Bei der Sperrung eines Datensatzes handelt es sich um die niedrigste M╨ñglichkeit einer Sperre in KIM. Kleinere Informationseinheiten wie Felder k╨ñnnen nicht gesperrt werden. Sperren von Dateien Selbstverst╨öndlich k╨ñnnen nicht nur einzelne Datens╨ötze, sondern auch gesamte Datendateien (also gesamte Datenbanken) gesperrt werden. Ist eine Datenbank gesperrt, ist es nicht m╨ñglich, Datens╨ötze zu ver╨öndern oder zus╨ötzliche Datens╨ötze neu anzuf╨ægen. KIM verf╨ægt ╨æber Aktionen, bei denen automatisch f╨ær den Zeitraum der Aktion Datenbanken gesperrt werden, gleichg╨æltig, ob diese sich im Netzwerk befinden oder nicht. Es handelt es dabei um die Befehle IPACK, IMAKEINDEX und IREINDEX. Im Gegensatz zur automatischen Datensatzsperre erfolgt bei der automatischen Datenbanksperre sofort eine selbstt╨ötige Entsperrung, um einen weiteren Zugriff auf die Datenbank nach Abarbeiten des obigen Befehls zu erm╨ñglichen. In einem Netzwerk wird die Sperrung von Datenbanken ╨æber FLAGS gesteuert, welche im ╨æbern╨öchsten Abschnitt n╨öher erl╨öutert werden. Sperren von Indexdateien Wird eine Aktualisierung einer Datenbank oder eines Indizes vorgenommen, sperrt KIM automatisch die Index- und Memodateien, die an diesem Vorgang beteiligt sind, um einen reibungslosen Ablauf der Aktion zu gew╨öhrleisten. Nach Beendigung der Aktualisierung werden die entsprechenden Dateien automatisch wieder entsperrt, da sie zum Funktionieren des Programms ben╨ñtigt werden. Ein Benutzer hat auf diesen Sperrmechanismus keinen Einflu╤ü. Flags Sie k╨ñnnen die Sperrmechanismen Ihres Programms durch FLAGS bestimmen. Diese FLAGS besitzen dann f╨ær alle Datenbanken in diesem Programm G╨æltigkeit. Beachten Sie bitte, da╤ü diese FLAGS im Gegensatz zu den FLAGS, die sich auf Objekte beziehen, zu Beginn des Programms als Zahlenvariablen definiert werden m╨æssen, also z.B. DEFFLOAT _DB_EXCLUSIVE. Des weiteren m╨æssen diese FLAGS unbedingt vor dem Γòôffnen der Datenbank, also vor der IOPEN-Anweisung gesetzt werden, da sie sonst keine Wirkung zeigen. Die Sperrung eines Datensatzes wird ╨æber _DB_READ_LOCK geregelt: _DB_READ_LOCK = 1 Der Datensatz wird beim Lesen automatisch gesperrt. _DB_READ_LOCK = 0 Der Datensatz wird nicht automatisch gesperrt. (default) Die Sperrung einer ganzen Datenbank wird ╨æber _DB_READ_ONLY gesteuert: _DB_READ_ONLY=1 Die Datenbank wird im Lesemodus ge╨ñffnet, ╨₧nderungen und Hinzuf╨ægen von Datens╨ötzen wird nicht gestattet _DB_READ_ONLY=0 Die Datenbank wird normal mit allen Bearbeitungsm╨ñglichkeiten ge╨ñffnet. Sie haben auch die M╨ñglichkeit zu entscheiden, ob nur ein oder mehrere Benutzer auf die Datenbank zugreifen d╨ærfen. Dazu dient _DB_EXCLUSIVE: _DB_EXCLUSIVE=1 Die Datenbank kann nur von einem Benutzer zur selben Zeit bearbeitet werden. _DB_EXCLUSIVE=0 Die Datenbank wird f╨ær den Netzwerkbetrieb ge╨ñffnet, es k╨ñnnen also mehrere Benutzer damit gleichzeitig arbeiten. (default) Setzen Sie das FLAG nicht, wird als Vorgabe _DB_EXCLUSIVE=0 aufgerufen. Wir empfehlen, bei Aktionen wie IPACK, IMAKEINDEX oder IREINDEX die Datenbank grunds╨ötzlich als Single-User- System zu ╨ñffnen (_DB_EXCLUSIVE=1), um Fehlfunktionen zu vermeiden. KIM bietet zus╨ötzlich Optionen, die die Zugriffsgeschwindigkeit auf eine Datenbank erh╨ñhen. Dies geschieht ╨æber eine sogenannte Bit-Optimierung. Sie k╨ñnnen entscheiden, ob Sie diese Optimierung ╨æberhaupt oder nur im Lese- oder Schreibmodus verwenden wollen. Problematisch ist die Bitoptimierung in jedem Fall im Netzwerkbetrieb, da hierbei durch falsche Zugriffe veraltete Pufferdaten herangezogen werden k╨ñnnen und Fehlinformationen geliefert werden. Wir empfehlen daher, auf die Optimierung im Netzwerkbetrieb zu verzichten. Sie steuern die Optimierung mit: _DB_OPTIMIZE=-1 Es wird eine Leseoptimierung im Single-User-Modus durchgef╨æhrt.(default) _DB_OPTIMIZE=1 Es wird eine Leseoptimierung im Multi- User-Modus durchgef╨æhrt (Netzwerkbetrieb, Vorsicht) _DB_OPTIMIZE=0 Es wird keine Leseoptimierung durchgef╨æhrt _DB_OPTIMIZE_WRITE=-1 Es wird eine Schreiboptimierung im Single-User-Modus durchgef╨æhrt.(default) _DB_OPTIMIZE_WRITE=1 Es wird eine Schreiboptimierung im Multi-User-Modus durchgef╨æhrt _DB_OPTIMIZE_WRITE=0 Es wird keine Schreiboptimierung durchgef╨æhrt Das letzte FLAG dient dazu, ein Abst╨ærzen des Programms im Netzwerk m╨ñglichst zu verhindern. Es kann vorkommen, da╤ü ein Sperren von Daten dazu f╨æhrt, da╤ü ein Anwender keine Verbindung zu der gew╨ænschten Datenbank erh╨ölt. Das Programm versucht in diesem Fall unendlich lange, durch wiederholtes Abfragen die Verbindung herzustellen. Das Programm "h╨öngt" sich auf, es kommt zu einem DEADLOCK. Um dies zu vermeiden, k╨ñnnen Sie ein FLAG setzen, welches die Anzahl der Versuche zur Herstellung einer Verbindung in solchen F╨ölllen begrenzt. Ist nach der vorgegebenen Anzahl an Versuchen noch immer keine Verbindung zustandegekommen, wird das Programm abgebrochen: _DB_LOCK_ATTEMPTS=-1 Es wird unendlich lange versucht, eine Verbindung herzustellen (DEADLOCK-Gefahr) (default) _DB_LOCK_ATTEMPTS>0 Geben Sie eine beliebige ganze Zahl gr╨ñ╤üer 0 an. Es wird genauso oft wie angegeben versucht, eine Verbindung herzustellen, dann wird das Programm abgebrochen. Wir empfehlen folgende FLAG-Einstellung f╨ær den Betrieb von KIM im Netzwerk: _DB_LOCK_ATTEMPTS = 3 _DB_EXCLUSIVE = 0 _DB_READ_ONLY = 0 _DB_READ_LOCK = 0 ΓòÉΓòÉΓòÉ 16. Fragen und Antworten ΓòÉΓòÉΓòÉ Fragen und Antworten --------------------------------------------------------------------------- Wie bekommt ein Objekt den Eingabefokus ? Version 2.0 Addieren Sie das Objekt mit ADD_ITEM nochmals an das Fenster. Version 2.1 Benutzen Sie den Befehl SETFOCUS. --------------------------------------------------------------------------- Wie bestimme ich die Eingabereihenfolge ? Die Reihenfolge wird durch die Reihenfolge bestimmt, wie die Objekte an ein Fenster mit ADD_ITEM oder ADD_ITEM_ARRAY addiert werden. --------------------------------------------------------------------------- Ich addiere weitere Objekte an eine Listbox oder Combobox nachdem diese am Bildschirm ausgegeben wurde. Die Objekte werden am Bildschirm nicht dargestellt. Was mu╤ü ich tun ? Nachdem die Objekte addiert wurden, verwenden Sie den Befehl : EVENT_ON_ITEM id$,"create" und EVENT_ON_ITEM id$,"redisplay" --------------------------------------------------------------------------- Wie ╨öndere ich die Hintergrundfarbe eines Fensters ? Definiere mit DEF_PALETTE eine Farbe f╨ær den Hintergrund und setzte bei DEF_WINDOW die Eigenschaft "color on". Anschlie╤üend weise dem Fenster mit "COLOR_ITEM" die Farbpalette zu. --------------------------------------------------------------------------- Wie kann ich ein KIM Programm mit Kommandozeilenparameter starten ? Siehe die Beschreibung f╨ær "COMMANDLINE" --------------------------------------------------------------------------- Was habe ich zu beachten bei Dateioperationen ? 1. Textdatei neu erstellen und Daten hineinschreiben KILL datei OPEN 1,datei PUTS 1,zeile CLOSE 1 2. An eine bestehende Datei etwas am Schlu╤ü anh╨öngen. OPEN 1,datei PUTS 1,zeile CLOSE 1 3. Aus einer bestehenden Datei etwas Lesen OPEN 1,datei,"r" GETS 1,zeile CLOSE 1 oder LOADARRAY datei,arr,1,max,anzahl --------------------------------------------------------------------------- Was mu╤ü ich beachten bei Fenster mit einem NOTEBOOK-Element ? Das Fenster kann nicht auf Ganzbildschirm mit dem Befehl EVENT_ON_ITEM id$,"maximized" vergr╨ñ╤üert werden. --------------------------------------------------------------------------- Was mu╤ü ich beachten wenn ich mehrere BUTTONS in einem Fenster habe ? Es kann nur ein Button als aktives Objekt dargestellt werden, au╤üer man fasst mehrere Buttons zu einer Gruppe zusammen. --------------------------------------------------------------------------- Wie kann ich mehrere Elemente in einer Gruppe als selektiert kennzeichnen ? Geben Sie der Gruppe die Eigenschaft "multi" --------------------------------------------------------------------------- Wie kann ich feststellen, ob ein Radiobutton oder Checkboxbutton gesetzt ist ? Benutzen Sie den Befehl GET_ITEM_STATUS mit "set". --------------------------------------------------------------------------- Ich versuche eine Datei mit OPEN 9,"test" zu ╨ñffnen und erhalte immer die Fehlermeldung, da╤ü die Datei schon ge╨ñffnet ist. Es besteht ein Subverzeichnis mit dem Namen "Test" im Verzeichnis. --------------------------------------------------------------------------- Ich habe einen Index auf ein Textfeld erstellt. Wenn ich Datenbankfunktionen benutzte erhalte ich eine Fehlermeldung. M╨ñgliche Ursache : Das Textfeld ist zu lang f╨ær eine Indexbeschreibung. Benutzen Sie den Befehl SUBSTR in der Indexdefinition um die Indexbeschreibung auf einen Teil des Textfeldes zu beschr╨önken. --------------------------------------------------------------------------- Ich habe eine neue Datenbank erstellt. Bei den Befehlen IPREV oder INEXT erhalte ich eine Fehlermeldung. Es mu╤ü mindestens ein Datensatz in der Datenbank vorhanden sein, sonst funktionieren die DB-Befehle nicht. --------------------------------------------------------------------------- ΓòÉΓòÉΓòÉ 17. Das Runtime-Kit ΓòÉΓòÉΓòÉ Das Runtime-Kit KRUN Das Runtime-Kit liegt nur in der KIM-Vollversion bei. Wenn Sie mit Hilfe von KIM Programme nicht nur zu Ihrer eigenen Verwendung erstellen wollen, sondern auch kommerziell vertreiben m╨ñchten, ergibt sich ein rechtliches Problem. Wie bereits erw╨öhnt ist KIM eine Interpretersprache. Der einem Produkt zugrundeliegende Code mu╤ü also bei jedem Programmstart aufs Neue f╨ær den Computer ╨æbersetzt werden. Wenn Sie ein Programm verkaufen wollen, m╨æssen Sie daher den KIM-Interpreter mitliefern. Es ist aber aus urheberlichen Gr╨ænden nicht gestattet, den normalen KIM-Interpreter KIM.EXE in solchen F╨öllen an Ihre Kunden weiterzugeben. Dennoch ben╨ñtigt Ihr Kunde zus╨ötzlich zum Programm einen KIM-Interpreter. Es ist deshalb dem KIM- Programmpaket ein zweiter Interpreter beigelegt, KRUN.EXE. KRUN.EXE darf jederzeit im Verbund mit einem KIM-Programm an Dritte weitergegeben werden. Im Gegensatz zum normalen Interpreter KIM.EXE kann KRUN.EXE nur Programme verarbeiten, deren Programmcode zuvor mit KCRYPT verschl╨æsselt wurde. KRUN.EXE kann daher nicht zur Entwicklung neuer KIM-Programme herangezogen werden. Der Aufruf von Programmen mittels KRUN gelingt wie folgt: KRUN datei (Enter-Taste dr╨æcken) Anstelle von datei geben Sie bitte den Namen des zu startenden Programms an. KCRYPT Wie erw╨öhnt m╨æssen Programme, welche mit dem Interpreter KRUN betrieben werden sollen, zuvor verschl╨æsselt werden. Hierzu dient das Verschl╨æsselungsprogramm KCRYPT.EXE. Dabei wird ein Programm in einen P-Code umgewandelt, Leerzeichen und Bemerkungen entfernt und anschlie╤üend verschl╨æsselt. Aufruf: KCRYPT (Entertaste dr╨æcken) F╨ær datei geben Sie bitte den Namen des zu verschl╨æsselnden Programmes an, f╨ær dateineu den Namen, den das Programm nach der Verschl╨æsselung erhalten soll. Es ist nebenbei gesagt sehr sinnvoll, der verschl╨æsselten Datei einen anderen Namen zu geben als der unverschl╨æsselten. Ansonsten w╨ærde bei diesem Vorgang der unverschl╨æsselte Programmcode ╨æberschrieben und k╨ñnnte von Ihnen nicht mehr bearbeitet werden. Es kommt nat╨ærlich vor, da╤ü Sie ein Produkt erstellen, da╤ü nicht nur aus einer Hauptdatei, sondern auch aus Include- und Importdateien besteht. In diesem Fall besteht die M╨ñglichkeit, alle zusammengeh╨ñrenden Dateien in einem Schritt zu verschl╨æsseln. Legen Sie hierzu eine neue Datei mit der Endung angeben, beispielsweise: Zu verschl╨æsselnde Datei Inhalt KUNDEN.PRO Kunden.kim Define.inc Biblio.inc Liste.imp In der Datei Kunden.pro sind also das Hauptprogramm Kunden.kim, die Includedateien Define.inc und Biblio.inc sowie die Importdatei Liste.imp vorhanden. Geben Sie nun ein: KCRYPT kunden.pro (Entertaste dr╨æcken) Alle in kunden.pro aufgef╨æhrten Dateien werden dann unter Beibehaltung ihres Dateinamens verschl╨æsselt. Gleichzeitig wird aber ein Verzeichnis "Kunden" angelegt, in welches die unverschl╨æsselten Dateien kopiert werden, so da╤ü diese nach wie vor verf╨ægbar sind. Wenn Sie KIM-Programme kommerziell vertreiben m╨ñchten, d╨ærfen Sie nicht den normalen Interpreter KIM.EXE mitliefern. Zu diesem Zweck ist der Zusatzinterpreter KRUN.EXE im Programmpaket von KIM enthalten. Dieser Interpreter kann nur in Verbindung mit verschl╨æsselten Programmen eingesetzt werden. Zur Verschl╨æsselung von Programmcodes dient das Programm KCRYPT.EXE. Auf einfache Weise k╨ñnnen Sie damit Ihren Code f╨ær jedermann unleserlich machen. ΓòÉΓòÉΓòÉ 18. #LABEL ΓòÉΓòÉΓòÉ Funktion Markiert eine Position in einem Programm, welche ueber Sprungbefehle aufgerufen werden kann. Syntax #LABEL Eingabe Label Von Ihnen festgelegte Bezeichnung der Sprungmarke Ausgabe Keine Beschreibung Zwischen dem Labelzeichen # und dem Namen der Sprungmarkierung darf kein Leerzeichen sein. Der Labelname darf maximal aus 32 Zeichen be- stehen, wobei Sie auch Zahlen verwenden koennen. Insgesamt duerfen in einem Programm bis zu 500 Labels gesetzt werden. Labels koennen mit den Sprungbefehlen GOTO und GOSUB aufgerufen werden. Bespiel #LABEL Siehe GOSUB GOTO ΓòÉΓòÉΓòÉ 19. BEEP ΓòÉΓòÉΓòÉ Funktion Der Rechner piepst kurz. Syntax BEEP Eingabe Keine Ausgabe Keine Beschreibung Bitte nicht in Endlosschleifen verwenden, der Computer piepst sonst unaufhoerlich. Bespiel BEEP Siehe SOUND ΓòÉΓòÉΓòÉ 20. CHDIR ΓòÉΓòÉΓòÉ Funktion Wechselt das aktuelle Verzeichnis. Syntax CHDIR pfad$, ok Eingabe pfad$ Der Pfad des gewuenschten Verzeichnisses Ausgabe ok Gibt das Ergebnis der Operation zurueck: ok=1: Aktion wurde erfolgreich durchgefuehrt ok=-1: Aktion konnte nicht durchgefuehrt werden Beschreibung entfaellt Bespiel CHDIR Siehe MKDIR ΓòÉΓòÉΓòÉ 21. CLOSE ΓòÉΓòÉΓòÉ Funktion Schliesst eine geoeffnete Textdatei. Syntax CLOSE nr. Eingabe nr Nummer der zu schliessenden Textdatei Ausgabe Keine Beschreibung Jede Textdatei erhaelt bei der Erstellung mit OPEN eine Nummer, mit der Sie eindeutig bezeichnet ist. Deshalb genuegt einfach die Angabe der entsprechenden Nummer zum Loeschen mit CLOSE, da dieser Befehl nur fuer Textdateien anwendbar ist. Bespiel CLOSE Siehe OPEN PUTS GETS ΓòÉΓòÉΓòÉ 22. COMMANDLINE ΓòÉΓòÉΓòÉ Funktion Liest das Kommandozeilenargument beim Start von KIM in das Programm ein. Syntax COMMANDLINE var$ Eingabe keine Ausgabe var$ Variable mit dem entsprechenden Komandozeilenargument Beschreibung Mit diesem Befehl koennen Sie das beim Start des KIM-Programms hinter dem DOS-Prompt eingegebene Kommandozeilenargument zur weiteren Ver- wendung in das Programm einlesen. Bespiel COMMANDLINE Siehe ΓòÉΓòÉΓòÉ 23. DATEFORMAT ΓòÉΓòÉΓòÉ Funktion Anzeigeformat ╨öndern. Syntax dateformat flag,"DD.MM.YY", date1, date2 Eingabe flag Maskennr maske Vorgabemaske der Anzeige date1 Eingabestring Ausgabe date2 Ausgabestring Beschreibung keine Bespiel DATEFORMAT Siehe DATETOJU DATETOW DATUM TIME ΓòÉΓòÉΓòÉ 24. DATETOJU ΓòÉΓòÉΓòÉ Funktion Wandelt Dbase-Datum (CCYYMMTT) in Julianische Zahl Syntax datetoju datum1, datum_zahl1 Eingabe datum1 Dbase-Datum "19940402" Ausgabe datum_zahl1 Julianische Zhal Beschreibung Umwandeln eines Datum in eine Zahl. Bespiel DATETOJU Siehe DATEFORMAT DATETOW DATUM TIME ΓòÉΓòÉΓòÉ 25. DATETOW ΓòÉΓòÉΓòÉ Funktion Ermittelt Wochentag 1=Sonntag ... 7=Samstag Syntax datetow datum1, Wochentag Eingabe datum1 Ausgabe Wochentag 1=Sonntag 2=Montag 3=Dienstag 4=Mittwoch 5=Donnerstag 6=Freitag 7=Samstag Beschreibung Bespiel DATETOW Siehe DATEFORMAT DATETOJU DATUM TIME ΓòÉΓòÉΓòÉ 26. DATUM ΓòÉΓòÉΓòÉ Funktion Ermittelt das Tagesdatum aus dem ROM-BIOS des Computers. Syntax DATUM date$ Eingabe Keine Ausgabe date$ Datum in deutschem Format Beschreibung Das Programm holt sich das aktuelle Datum aus dem Computer und konvertiert selbstaendig das dort in englischem Format vorhandene Datum in deutsches Format (Ausgabe: tt.mm.jj [t=Tag, m=Monat, j=Jahr], z.B. 12.01.93). Bespiel DATUM Siehe DATUMDIFF TIME ΓòÉΓòÉΓòÉ 27. DATUMDIFF ΓòÉΓòÉΓòÉ Funktion Ermittelt die Anzahl der Tage zwischen zwei vorgegebenen Datumsangaben. Syntax DATUMDIFF startdatum$,enddatum$,tage Eingabe startdatum$ Variable mit dem Datum, von dem aus gezaehlt wird enddatum$ Variable mit dem Datum, bei welchem der Vorgang beendet wird Ausgabe tage Anzahl der Tage zwischen den beiden Daten Beschreibung Die Datumsangaben muessen in deutschem Format erfolgen. Ein ueber DATUM ermitteltes Datum muss nicht konvertiert werden (s.dort). Erlaubt sind folgende Eingabeformate: 19.1.1991; 19.1.91;19.01.91; 19.01.1991. Falls die Angabe in "startdatum" groesser ist als diejenige in "zieldatum", erhaelt die Variable "tage" einen negativen Wert. Bespiel DATUMDIFF Siehe DATUM TIME ΓòÉΓòÉΓòÉ 28. DEF_BITMAP ΓòÉΓòÉΓòÉ Funktion Liest eine externe Bitmap-Datei in ein Programm ein. Syntax DEF_BITMAP id_string, x, y, xr, yr, "Name" Eingabe id_string Kennung des Objekts x,y X- und y-Position der linken oberen Ecke des Bildes xr, yr Breite und Hoehe des Objekts "Name" Name der Bitmap-Datei Ausgabe keine Beschreibung Mit diesem Befehl wird eine extern erstellte Bitmap-Datei in ein KIM-Programm eingelesen und als Objekt definiert. Bespiel DEF_BITMAP Siehe ΓòÉΓòÉΓòÉ 29. END ΓòÉΓòÉΓòÉ Funktion Markiert das Ende eines Programms. Syntax END Eingabe Keine Ausgabe Keine Beschreibung Diese Anweisung muessen Sie unbedingt an das Ende Ihres Programms setzen, sonst kann es zu Fehlfunktionen kommen. Dabei duerfen Sie END aber mehrmals im Programm verwenden, wenn Sie beispielsweise verschiedene Moeglichkeiten zur Programmbeendigung anbieten wollen. Bespiel END Siehe ΓòÉΓòÉΓòÉ 30. ENDE ΓòÉΓòÉΓòÉ Funktion Schaltet den Debugger ab. Syntax ENDE Eingabe Keine Ausgabe Keine Beschreibung Die Anweisung ENDE muss an der Position in Ihrem Programm eingefuegt werden, an welcher der Debugger seine ueberpruefung des Programmcodes beenden soll. Bespiel ENDE Siehe START ΓòÉΓòÉΓòÉ 31. EXIST ΓòÉΓòÉΓòÉ Funktion Ermittelt, ob eine bestimmte Datei bereits existiert. Syntax EXIST datei$,flag Eingabe datei$ Name der zu ueberpruefenden Datei Ausgabe flag Variable, ueber die das Programm dem Anwender anzeigt, ob die Datei existiert: flag = 1: Datei existiert flag = -1: Datei existiert nicht. Beschreibung Um zu erfahren, ob eine Datei existiert, muessen Sie nach dieser Anweisung den Wert der Variablen flag abfragen. Bespiel EXIST Siehe OPEN IOPEN ΓòÉΓòÉΓòÉ 32. FILECOPY ΓòÉΓòÉΓòÉ Funktion Kopiert den Inhalt einer Datei in eine andere Datei. Syntax FILECOPY quell$, ziel$ Eingabe quell$ Datei, deren Inhalt kopiert werden soll ziel$ Datei, in die der Inhalt der Quelldatei kopiert wird Ausgabe keine Beschreibung Der Inhalt der Zieldatei wird bei diesem Vorgang ueberschrieben. Bespiel FILECOPY Siehe KILL RENAME ΓòÉΓòÉΓòÉ 33. FILELEN ΓòÉΓòÉΓòÉ Funktion Anzeigen der Dateigroe╤üe Syntax FILELEN, file, laenge Eingabe file Dateiname Ausgabe laenge Groe╤üe der Datei Beschreibung Bespiel FILELEN Siehe ΓòÉΓòÉΓòÉ 34. GETDIR ΓòÉΓòÉΓòÉ Funktion Ermittelt das aktuelle Verzeichnis. Syntax GETDIR verz$ Eingabe keine Ausgabe verz$ Variable mit dem Namen des aktuellen Verzeichnisses Beschreibung Mit diesem Befehl koennen Sie aus einem KIM-Programm heraus das aktuelle Verzeichnis Ihres Systems ermitteln. Bespiel GETDIR Siehe GETDRIVE SETDRIVE ΓòÉΓòÉΓòÉ 35. GETDRIVE ΓòÉΓòÉΓòÉ Funktion Ermittelt das aktuelle Laufwerk. Syntax GETDRIVE nr Eingabe Keine Ausgabe nr Variable mit der Codezahl des aktuellen Laufwerkes Beschreibung Mit dieser Anweisung koennen Sie aus einem laufenden KIM-Programm heraus das aktuelle Laufwerk ermitteln. Dieses wird als Codezahl an KIM zurueckgegeben: nr=1: Das aktuelle Laufwerk ist A nr=2: Das aktuelle Laufwerk ist B nr=3: Das aktuelle Laufwerk ist C usw. Bespiel GETDRIVE Siehe SETDRIVE ΓòÉΓòÉΓòÉ 36. GETFILES ΓòÉΓòÉΓòÉ Funktion Liest Datei- und Unterverzeichnisnamen eines Verzeichnisses in ein Array ein. Syntax GETFILES vorgabe$, array$, start, ende, flag Eingabe vorgabe$ Variable mit vorgegebenem Auswahlkriterium array$ Name des Arrays, in das die Namen eingelesen werden sollen start Kennummer der ersten zu verwendenen Arrayvariablen in Feld ende Kennummer der letzten zu verwendenen Arrayvariablen im Feld flag Auswahl, ob auch Unterverzeichnisse eingelesen werden sollen: flag=1: Unterverzeichnisse einlesen; flag<>1: Unterverzeichnisse nicht einlesen. Ausgabe flag Variable mit der Anzahl der eingelesenen Datei- und Verzeichnisnamen Beschreibung Es koennen gemaess einer Vorgabe bestimmte Dateien eines Verzeichnisses in ein Array eingelesen werden. Beispielsweise lassen sich alle EXE-Dateien im Verzeichnis Cexe ein- lesen. Mit Hilfe der Variablen flag koennen Sie entscheiden, ob bei diesem Vorgang auch eventuell vorhandene Unterverzeichnisse berueck- sichtigt werden sollen. Bespiel GETFILES Siehe FILELEN ΓòÉΓòÉΓòÉ 37. GETS ΓòÉΓòÉΓòÉ Funktion Liest eine Zeile aus einer Textdatei in das Programm ein. Syntax GETS nr,string$ oder GETS nr, zahl Eingabe nr Kennziffer der zu oeffnenden Datei Ausgabe string$ String mit der eingelesenen Zeile aus der entsprechenden Datei zahl Zahlenvariable mit der eingelesenen Zahl aus der Datei Beschreibung Die Textdatei muss zuvor mit der Anweisung OPEN geoeffnet werden. Falls das Textende erreicht wird, wird der Variablen string$ der Wert "EOF" (End Of File) zugewiesen. Die maximale Laenge der zu lesenden Zeile darf 255 Zeichen betragen. Bespiel GETS Siehe GETS_SELECT SELECT ΓòÉΓòÉΓòÉ 38. GETS_SELECT ΓòÉΓòÉΓòÉ Funktion Einlesen einer Textdateizeile mit automatischer Aufsplittung einer Zeile Syntax GETS_SELECT datei_nr,trennzeichen,Array,von,bis Eingabe datei_nr trennzeichen array von bis Ausgabe array Array mit Inhalt Beschreibung Der Befehl wurde geschaffen um Dateien mit Zeilenlaenge > 255 Zeichen einzulesen. (ASCII-Import aus anderen Datenbanken) Der Befehl ist vergleichbar mit dem Befehl SELECT. Mit dem Unterschied, dass direkt aus einer Textdatei gelesen wird und nach dem Trennzeichen in ein Array zerlegt wird. Die Zeile kann bis zu 3000 Bytes lang sein. Die ermittelten Teilstrings duerfen aber max. 255 Zeichen lang sein. Bespiel GETS_SELECT Siehe SELECT ΓòÉΓòÉΓòÉ 39. IMPORT ΓòÉΓòÉΓòÉ Funktion Laedt ausgelagerte Programmteile in das Programm und entfernt Sie sofort nach der Abarbeitung wieder aus dem Speicher. Syntax IMPORT datei Eingabe datei Name der zu ladenden Importdatei Ausgabe Beschreibung IMPORT laedt einen Programmteil vom aktuellen Laufwerk, welcher bis zum Programmendekennzeichen IMPORTEND abgearbeitet und danach wieder aus dem Speicher entfernt wird. Somit duerfen Haupt- und Importdatei zusammen groesser als 64 KB sein. Die Importdatei selbst darf aber nur maximal 64 KB Speicherkapazitaet beanspruchen. In eine Importdatei selbst darf nicht importiert werden. In der Importdatei definierte Variablen ver- bleiben jedoch im Speicher. Achten Sie deshalb darauf, keine Variablen oder Labels doppelt zu verwenden. Wenn Sie eine Importdatei mehrfach in ein Programm laden moechten, sollten Sie auf Variablendefinitionen in der Importdatei verzichten, da sonst jedesmal die Definition durchge- fuehrt wuerde. Andererseits koennen Sie alle Variablen des Programms in einer Importdatei definieren und diese einmal zu Beginn laden. Achten Sie bei Sprungbefehlen darauf, dass die Sprungmarke auch gerade importiert ist. Sie koennen von der Importdatei aus andere Unterpro- gramme anspringen. Bespiel IMPORT Siehe IMPORTEND ΓòÉΓòÉΓòÉ 40. IMPORTEND ΓòÉΓòÉΓòÉ Funktion Programmendezeichen in Importdateien. Syntax IMPORTEND Eingabe Keine Ausgabe Keine Beschreibung Jede Importdatei muss mit IMPORTEND beendet werden. Erst dann erfolgt der Ruecksprung in das Hauptprogramm und die Entfernung der Importdatei aus dem Speicher. Bespiel IMPORTEND Siehe IMPORT ΓòÉΓòÉΓòÉ 41. INT ΓòÉΓòÉΓòÉ Funktion Wandel eine numerische Zahl in einen Integer-Wert Syntax INT, alt neu Eingabe alt Numerische Zahl Ausgabe neu Interger Zahl Beschreibung Wird ben╨ñtigt um eine Zahlenvariable in ein ganze Zahl umzuwandeln Bespiel INT Siehe ΓòÉΓòÉΓòÉ 42. ISOMAP ΓòÉΓòÉΓòÉ Funktion Anzeigen des Zeichensatz in gleicher Form. Syntax ISOMAP wert Eingabe wert 0=Iso-Zeichensatz mapping wird nicht durchgef╨æhrt wert 1=Iso-Zeichensatz mapping wird durchgef╨æhrt Ausgabe Beschreibung Betrifft alle anzeigen von Umlauten. Bespiel ISOMAP Siehe ΓòÉΓòÉΓòÉ 43. JUTODATE ΓòÉΓòÉΓòÉ Funktion Wandelt Julianische Zahl in DbaseDatum (CCYYMMTT) Syntax jutodate datum_zahl1, datum1 Eingabe datum_zahl1 Ausgabe datum1 Beschreibung Bespiel JUTODATE Siehe DATETOJU DATETOW DATEFORMAT DATUM TIME ΓòÉΓòÉΓòÉ 44. KILL ΓòÉΓòÉΓòÉ Funktion Loescht eine Datei. Syntax KILL datei$ Eingabe datei$ Zu loeschende Datei (ggf. mit Pfadangabe) Ausgabe Keine Beschreibung Durch diese Anweisung wird eine gesamte Datei geloescht. Fuer den Namen der zu loeschenden Datei duerfen keine WILDCARDS *.* verwendet werden. Bespiel KILL Siehe EXIST ΓòÉΓòÉΓòÉ 45. LOAD ΓòÉΓòÉΓòÉ Funktion Erstellt ein Auswahlmenue zur Selektierung einer Datei. Syntax LOAD parentwindow_id, such$,datei$ [ueberschrift] Eingabe parentwindow_id Kennummer des Fensters, in dem die Auswahlbox als Unterfenster erscheinen soll such$ Pfadangabe fuer die gesuchte Datei ueberschrift Titel des Auswahlfensters Ausgabe datei$ Name der gesuchten Datei inklusive Pfad Beschreibung Mit diesem Befehl koennen Sie eine beliebige Datei laden. Geben Sie zunaechst einen Suchpfad an (wobei Sie auch die Wildcard *.* verwenden koennen). Es erscheint dann im angegebenem Fenster ein Menuefenster mit allen unter diesen Suchpfad zur Auswahl stehenden Dateien. Optional koennen Sie dem Menuefenster eine ueberschrift verleihen. Sie koennen sich innerhalb des Menuefensters mit den Pfeiltasten sowie POS1 (HOME) und ENDE (END) bewegen. Mit der ENTER-Taste waehlen Sie eine Datei aus, mit ESC brechen Sie den Vorgang ab. Beachten Sie bitte, dass im Menue- fenster Dateinamen klein und Verzeichnisnamen gross geschrieben sind. Bespiel LOAD Siehe OPEN ΓòÉΓòÉΓòÉ 46. MKDIR ΓòÉΓòÉΓòÉ Funktion Erstellt aus einem KIM-Programm heraus ein neues Verzeichnis. Syntax MKDIR dirname$, ok Eingabe dirname$ Variable mit dem Namen des zu erstellenden Verzeichnisses Ausgabe ok Variable mit dem Ergebnis der Aktion: ok=1: Verzeichnis konnte erstellt werden ok=-1: Verzeichnis konnte nicht erstellt werden Beschreibung Hiermit koennen Sie von KIM aus ein neues Verzeichnis erstellen. Es wird in das aktuelle Verzeichnis als Unterverzeichnis eingefuegt. Bespiel MKDIR Siehe ΓòÉΓòÉΓòÉ 47. OPEN ΓòÉΓòÉΓòÉ Funktion oeffnet eine bestimmte Textdatei. Syntax OPEN nr,datei$ [,"status"] Eingabe nr Nummer der zu oeffnenden Datei datei$ Name der zu oeffnenden Datei (evtl. mit Pfad) status Gibt den Arbeitsmodus des Befehls an Ausgabe Beschreibung Beim oeffnen der Datei ohne Angabe des Status des Befehls wird die Datei als Textdatei betrachtet. Es wird der Status "oeffnen und Schreiben" vorgegeben. Falls die Textdatei datei$ nicht vorhanden ist, wird Sie durch diesen Befehl angelegt. Es kann Text an eine bestehende Datei angefuegt werden. Die Angabe der Nummer dient zum Verwalten evtl. mehrerer gleichzeitig geoeffneter Dateien. Die Nummer muss aber auch angegeben werden, wenn nur eine Datei geoeffnet ist, da die sich auf die Datei beziehenden Befehle ueber die Dateinummer angesprochen werden. Sie koennen optional folgende Arbeitsmodi des Befehls verwenden: "r" Datei oeffnen zum Lesen (keine Schreibmoeglichkeit, d.h. die Datei kann nur eingesehen, aber nicht veraendert werden), "w" Datei oeffnen zum Schreiben; Neuerstellung, falls Datei nicht vorhanden (Dateiinhalt kann veraendert, aber nicht eingesehen werden) "r+" Datei oeffnen zum Lesen und Schreiben (veraenderbar) Geben Sie den entsprechenden Status in die Befehlssyntax ein, wenn Sie nicht den normalen Modus verwenden moechten. Bespiel OPEN Siehe CLOSE GETS PUTS ΓòÉΓòÉΓòÉ 48. OS_TYPE ΓòÉΓòÉΓòÉ Funktion Ermittelt die Version des KIM-Interpreters. Syntax OS_TYPE os$ Eingabe keine Ausgabe os$ Variable mit dem Namen des verwendeten KIM-Interpreters. Beschreibung Mit diesem Befehl koennen Sie ermitteln, welche Version des KIM-Interpreters ("OS/2", "WIN", "MSDOS") gerade aktiv ist. Bespiel OS_TYPE Siehe ΓòÉΓòÉΓòÉ 49. PUTS ΓòÉΓòÉΓòÉ Funktion Schreibt eine oder mehrere Variablen in eine Ausgabedatei. Syntax PUTS nr,string$ (," ";a$,zahl) Eingabe nr Nummer, mit der die anzusprechende Textdatei gekennzeichnet wurde. string$ In die Ausgabedatei zu schreibende Zeichen (" "), Stringvariablen a$ (string$) oder Zahlenvariablen (zahl) zahl Ausgabe Keine Beschreibung Die Ausgabeeinheit muss vor Anwendung dieser Anweisung mittels OPEN eroeffnet worden sein. Die entsprechende Datei wird ueber die dabei vergebene Nummer angesprochen. Bespiel PUTS Siehe CLOSE GETS OPEN SELECT ΓòÉΓòÉΓòÉ 50. REM ΓòÉΓòÉΓòÉ Funktion Leitet einen Kommentar "Kommentar" \t ein, der von KIM nicht als Befehl bearbeitet wird. Syntax REM Eingabe Keine Ausgabe Keine Beschreibung Alle Anweisungen, die in der Programmzeile nach dem REM folgen, werden von KIM als Kommentar angesehen und nicht bearbeitet. Falls in der Programmzeile vor dem REM bereits eine Anweisung steht, muss dem REM ein Doppelpunkt vorangestellt werden. Bespiel REM Siehe ΓòÉΓòÉΓòÉ 51. RENAME ΓòÉΓòÉΓòÉ Funktion Benennt eine Datei um. Syntax RENAME name_alt$, name_neu$, ok Eingabe name_alt$ Variable mit dem alten Dateinamen name_neu$ Variable mit dem neuen Dateinamen Ausgabe ok Variable mit dem Ergebnis der Aktion: ok=1: Aktion war erfolgreich ok=-1: Aktion war nicht erfolgreich Beschreibung Hiermit koennen Sie aus KIM heraus eine Datei umbenennen. Bespiel RENAME Siehe KILL FILECOPY ΓòÉΓòÉΓòÉ 52. RMDIR ΓòÉΓòÉΓòÉ Funktion Loescht aus KIM heraus ein Verzeichnis. Syntax RMDIR dirname$, ok Eingabe dirname$ Variable mit dem Namen des zu loeschenden Verzeichnisses Ausgabe ok Variable mit dem Ergebnis der Aktion: ok=1: Aktion war erfolgreich ok=-1: Aktion war nicht erfolgreich Beschreibung Sie koennen hiermit aus KIM heraus ein Verzeichnis loeschen. Bespiel RMDIR Siehe MKDIR GETDIR ΓòÉΓòÉΓòÉ 53. RUN ΓòÉΓòÉΓòÉ Funktion Startet aus einem Programm ein anderes KIM-Programm. Syntax RUN programm Eingabe programm Name des zu startenden Programms. Ausgabe Keine Beschreibung nil Bespiel RUN Siehe ΓòÉΓòÉΓòÉ 54. SETDRIVE ΓòÉΓòÉΓòÉ Funktion Wechselt das aktuelle Laufwerk. Syntax SETDRIVE nr, anzahl Eingabe nr Variable mit der Codezahl des gewuenschten Laufwerkes (1=A,2=B,3=C, usw.) Ausgabe anzahl Variable mit der Anzahl der zur Verfuegung stehenden Laufwerke Beschreibung keine Bespiel SETDRIVE Siehe GETDRIVE ΓòÉΓòÉΓòÉ 55. SHELL ΓòÉΓòÉΓòÉ Funktion Erlaubt die Ausfuehrung von OS/2 / DOS-Befehlen oder OS/2 / DOS-Programmen waehrend eines KIM-Programmablaufs. Syntax SHELL string$ [Pfad, Parameter, x, y, breite, hoehe, visible, titel] Eingabe string$ Variable mit dem Namen des auszufuehrenden Befehls/Programms Pfad Suchpfad zum gewuenschten Programm (z.B."CKIM") Parameter Zusaetzliche Befehle in der Kommandozeile des Betriebssystems (vgl. hierzu das Handbuch des Betriebssystem) x,y x- und y-Position der linken oberen Ecke des Child-Windows breite Breite des Child-Windows hoehe Hoehe des Child-Windows visible Regelt den Arbeitsmodus des externen Programms: visible=1: Das externe Programm laeuft im Vordergrund visible=0: Das externe Programm laeuft im Hintergrund titel Titel des Child-Windows Ausgabe Keine Beschreibung Mit diesem Befehl wird der DOS-Interpreter COMMAND.COM geladen. Danach ist das Programm in der Lage, jede beliebige DOS-Anweisung zu verstehen und zu bearbeiten. Moechten Sie ein externes Program starten, so geben sie die in eckigen Klammern gesetzten optionalen Angaben ein. Es oeffnet sich dann ein Child-Window, in dem das externe Programm ablaeuft. Der Modus (Vordergrund- oder Hintergrundbetrieb) wird ueber visible gesteuert. Die Rueckkehr von der DOS-Ebene zum KIM-Programm erfolgt durch Eingabe der Anweisung EXIT in der DOS-Ebene. Sie koennen den auf der DOS-Ebene verfuegbaren Speicher von ca. 100 KB durch das sogenanuete Speicher- swapping auf ca. 400 KB erhoehen. Dies wird durch die Anweisung _SHELL_FLAG = 1 ausgefuehrt, welche Sie vor der eigentlichen SHELL- Anweisung aktivieren muessen. Bei _SHELL_FLAG = 0 wird kein Swappvorgang durchgefuehrt. Bespiel SHELL Siehe RUN ΓòÉΓòÉΓòÉ 56. SOUND ΓòÉΓòÉΓòÉ Funktion Steuert den internen Lautsprecher des Computers an. Syntax SOUND freq, dur Eingabe freq Frequenz des zu erzeugenden Tons in Hertz dur Laenge des Tons in Millisekunden Ausgabe keine Beschreibung Mit diesem Befehl koennen Sie den Lautsprecher des Computers zur Erzeugung eines Tones ansteuern. Dabei koennen Sie Tonhoehe und -dauer festlegen. Bespiel SOUND Siehe BEEP ΓòÉΓòÉΓòÉ 57. START ΓòÉΓòÉΓòÉ Funktion Aktiviert den KIM-Debugger. Syntax START Eingabe Keine Ausgabe Keine Beschreibung Fuegen Sie diesen Befehl an der Stelle in Ihrem Programm ein, von der aus Sie Ihr Programm ueberpruefen lassen wollen. Der Debugger wird durch den Befehl ENDE wieder abgeschaltet. Bespiel START Siehe ENDE ΓòÉΓòÉΓòÉ 58. TIME ΓòÉΓòÉΓòÉ Funktion Ermittelt Tagesdatum und Uhrzeit aus dem ROM-BIOS des Rechners. Syntax TIME zeit$ Eingabe Keine Ausgabe zeit$ Variable mit dem Aktuellen Datum und der aktuellen Uhrzeit Beschreibung Mit diesem Befehl koennen Sie das Tagesdatum und die aktuelle Uhrzeit in das Programm einlesen. Sie erhalten folgende Anzeige: ttt mmm tt hh Bespiel TIME Siehe DATUM DATUMDIFF ΓòÉΓòÉΓòÉ 59. DECLARE ΓòÉΓòÉΓòÉ Funktion Beschleunigt den Ladevorgang der Variablendeklarationen beim Programmstart. Syntax DECLARE_END Eingabe Keine Ausgabe Keine Beschreibung Diese Anweisung beschleunigt den Ablauf eines Programms, da sie die erforderliche Zeit zum Laden der deklarierten Variablen verkuerzt. Dies gelingt durch ein teilweises Deaktivieren von Sicherheits- ueberpruefungen beim Laden des Programmes. Der Befehl darf deshalb nur verwendet werden, wenn sichergestellt ist, dass das Programm keinerlei Fehler enthaelt, da sonst gleichnamig definierte Variablen nicht mehr als Fehler erkannt werden koennen. Zwischen DECLARE und DECLARE_END duerfen keine anderen Anweisungen als Variablen- deklarationen stehen. Bespiel DECLARE Siehe DEFINE DEFSTRING DEFFLOAT DIM DIMFLOAT ΓòÉΓòÉΓòÉ 60. DECLARE_END ΓòÉΓòÉΓòÉ Funktion Markiert das Ende von DECLARE. Syntax DECLARE_END Eingabe Keine Ausgabe Keine Beschreibung Diese Anweisung beschleunigt den Ablauf eines Programms, da sie die erforderliche Zeit zum Laden der deklarierten Variablen verkuerzt. Dies gelingt durch ein teilweises Deaktivieren von Sicherheits- ueberpruefungen beim Laden des Programmes. Der Befehl darf deshalb nur verwendet werden, wenn sichergestellt ist, dass das Programm keinerlei Fehler enthaelt, da sonst gleichnamig definierte Variablen nicht mehr als Fehler erkannt werden koennen. Zwischen DECLARE und DECLARE_END duerfen keine anderen Anweisungen als Variablen- deklarationen stehen. Bespiel DECLARE_END Siehe DEFINE DEFSTRING DEFFLOAT DIM DIMFLOAT ΓòÉΓòÉΓòÉ 61. DEFFLOAT ΓòÉΓòÉΓòÉ Funktion Definiert eine oder mehrere Zahlenvariablen. Syntax DEFFLOAT var Eingabe var Name der zu definierenden Variablen (es koennen mehrere mit einer Anweisung erstellt werden) Ausgabe Keine Beschreibung Die Variablennamen duerfen bis zu 32 Zeichen lang sein. Die verfuegbaren Eingabezeichen fuer Zahlenvariablen reichen von -1 E38 bis 1 E 38 und arbeiten auf zwoelf Stellen genau (es koennen somit alle rationalen Zahlen als Variablenwerte verwendet werden). Es duerfen bis zu 255 Zeichen in eine Variable eingegeben werden. Beachten Sie bei der Zahleneingabe bitte, dass Sie bei Dezimalzahlen statt eines Kommas einen Punkt verwenden muessen (also nicht 3,28, sondern 3.28). Bespiel DEFFLOAT Siehe DEFINE DEFSTRING DIM DIMFLOAT ΓòÉΓòÉΓòÉ 62. DEFINE ΓòÉΓòÉΓòÉ Funktion Definiert eine Feldvariable fuer eine Record-Struktur. Syntax DEFINE varname1,varlaenge1,... Eingabe varname1 Name der zu definierenden Feldvariablen mit Kennummer varlaenge1 Laenge der entsprechenden zu definierenden Define-Variablen Ausgabe Keine Beschreibung Die erste definierte Variable muss die Kennziffer1 besitzen, z.B. string1. Danach hat die Numerierung fortlaufend aufsteigend zu erfolgen (2,3..). Der Variablenname darf maximal 32 Zeichen lang sein. Der Inhalt einer Define-Variablen darf normalerweise bis zu 255 Zeichen betragen. Nur bei Datenbank- oder Maskenbefehlen aendert sich die Variablenlaenge auf den unter varlaenge definierten Wert. Bespiel DEFINE Siehe DEFFLOAT DEFSTRING DIM DIMFLOAT ΓòÉΓòÉΓòÉ 63. DEFSTRING ΓòÉΓòÉΓòÉ Funktion Definiert eine oder mehrere Stringvariablen. Syntax DEFSTRING var1$,.. Eingabe var1$ Name der zu definierenden Stringvariablen (es koennen mehrere mit einer Anweisung definiert werden) Ausgabe Keine Beschreibung Die Variablennamen duerfen maximal 32 Zeichen lang sein. Der Inhalt einer Stringvariablen kann bis zu 255 Zeichen betragen und muss mit Anfuehrungs- und Schlusszeichen " " begrenzt werden. Als Eingabe sind alle alphanumerischen Zeichen ausser Anfuehrungs- und Schlusszeichen erlaubt. Bespiel DEFSTRING Siehe DEFFLOAT DEFINE DIM DIMFLOAT ΓòÉΓòÉΓòÉ 64. DIM ΓòÉΓòÉΓòÉ Funktion Definiert mehrere Stringvariablen in Form eines Arrays. Syntax DIM s$,n,m Eingabe s$ Name des zu erstellenden String-Arrays n Nummer des ersten Strings im Feld m Nummer des letzten Strings im Feld Ausgabe Keine Beschreibung Jeder Variablenname darf bis zu 32 Zeichen lang sein. Der Inhalt der Variablen darf jeweils maximal 255 Zeichen betragen (wie bei normalen Stringvariablen). Sie koennen jede Variable des Arrays sowohl direkt ueber den vollstaendigen Namen (st1) als auch nur ueber ihre Nummer an- sprechen. Bespiel DIM Siehe DEFFLOAT DEFINE DEFSTRING DIMFLOAT FORM STR VAL ΓòÉΓòÉΓòÉ 65. DIMFLOAT ΓòÉΓòÉΓòÉ Funktion Definiert mehrere Zahlenvariablen in Form eines Arrays. Syntax DIMFLOAT zahl,n,m Eingabe zahl Name des zu erstellenden Zahlenvariablen-Arrays n Nummer der ersten Variablen im Feld m Nummer der letzten Variablen im Feld Ausgabe Keine Beschreibung Jeder Variablenname darf bis zu 32 Zeichen lang sein. Der Inhalt der Variablen darf maximal 255 Zeichen betragen. Sie koennen jede Variable des Array sowohl direkt ueber den vollstaendigen Namen(st1) als auch nur ueber ihre Nummer ansprechen. Bespiel DIMFLOAT Siehe DEFFLOAT DEFINE DEFSTRING DIM FORM STR VAL ΓòÉΓòÉΓòÉ 66. DIMMEMO ΓòÉΓòÉΓòÉ Funktion Es wird eine Stringvariable definiert, die bis zu 64000 Zeichen Inhalt besitzen darf. Syntax DIMMEMO varname,laenge Eingabe varname Name der Variablen laenge Gewuenschter maximaler Inhalt der Variablen Ausgabe Beschreibung Memovariablen muessen immer als globale Variablen definiert werden! Bei der Definition muss deshalb entweder vor dem Variablennamen ein Underslash gesetzt oder dem Namen der Variablen als letztes Zeichen eine Zahl eingefuegt werden. Bespiel DIMMEMO Siehe DEFSTRING DEFINE ΓòÉΓòÉΓòÉ 67. ASC ΓòÉΓòÉΓòÉ Funktion Wandelt einen Buchstaben in seinen entsprechenden ASCII-Wert um. Syntax ASC zeichen,zahl Eingabe zeichen String mit einem Zeichen Ausgabe zahl Zahlenvarible die den ASCII-Wert des Zeichen als Inhalt zuge- wiesen bekommt. Beschreibung keine Bespiel ASC Siehe CHR PUTS STRADD ΓòÉΓòÉΓòÉ 68. CHANGE ΓòÉΓòÉΓòÉ Funktion Tauscht zwei Zeichen innerhalb einer Stringvariablen gegeneinander aus. Syntax CHANGE string$,alt,neu Eingabe string$ Stringvariable, in der der Austausch erfolgt alt Altes Zeichen (ASCII-Code angeben) neu Neues Zeichen (ASCII-Code angeben) Ausgabe string$ (in geaenderter Form) Beschreibung Es wird das angegebene Zeichen gegen das vorgegebene neue Zeichen aus- getauscht. Das angegebene Zeichen wird so oft ausgetauscht, wie es in der Stringvariable vorhanden ist. Bespiel CHANGE Siehe IN LEN STRDEL REPLACE ΓòÉΓòÉΓòÉ 69. CHR ΓòÉΓòÉΓòÉ Funktion Wandelt einen ASCII-Codewert in ein entsprechendes Zeichen um. Dieser Befehl wird bei der Druckersteuerung dazu verwendet, um bestimmte Druckvorgaenge ueber spezielle Codezeichen vom Programm aus zu initiieren. Syntax CHR(zahl) Eingabe zahl Es muss eine ganze Zahl eingegeben werden, ASCII-Codewert fuer ein bestimmtes Zeichen fungiert (vgl. ASCII-Tabelle im Anhang). Ausgabe Keine Beschreibung Als Wert fuer die Variable zahl darf nur eine ganze Zahl zwischen 0 und 255 eingegeben werden (nur diese Zahlen codieren ASCII-Zeichen). Der Befehl funktioniert nur im Zusammenhang mit den Anweisungen LPRINT und PUTS. Bespiel CHR Siehe LPRINT PUTS ΓòÉΓòÉΓòÉ 70. CLEAR ΓòÉΓòÉΓòÉ Funktion Loescht den Inhalt eines Arrays. Syntax CLEAR var$,start,ende Eingabe var$ Name des zu loeschenden Arrays start Nummer der ersten zu loeschenden Variablen im Array ende Nummer der letzten zu Loeschenden Variablen im Array Ausgabe var$ Alle Variablen des Arrays mit Kennummern zwischen start und ende werden mit neuem Inhalt an das Programm zurueckgegeben. Beschreibung Mit diesem Befehl koennen schnell und unkompliziert Teile eines Arrays oder das gesamte Array geloescht werden. Die Variablen haben dann den Wert " " (Leerstring). Fuer einzelne, nicht in einem Array zusammenge- fasste Variablen ist der Befehl nicht gedacht. Diese koennen ja einfach durch die Zuweisung st=" " geleert werden. Bespiel CLEAR Siehe COMPRESS COMPRESS2 LTRIM SET RSET ΓòÉΓòÉΓòÉ 71. COMPRESS ΓòÉΓòÉΓòÉ Funktion Entfernt Leerzeichen am Ende eines Strings. Dies ist wuenschenswert, wenn einer Variablen ueber eine Maske ein Wert eingegeben wurde, der kleiner als die Laenge des Eingabefeldes ist, da dabei automatisch Leerzeichen angefuegt werden. Syntax COMPRESS string$ Eingabe string$ Zu bearbeitende Stringvariable Ausgabe string$ Geaenderte Stringvariable Beschreibung Arrays werden besser mit der Anweisung COMPRESS2 bearbeitet. Bespiel COMPRESS Siehe COMPRESS2 LEN MID SET RSET ΓòÉΓòÉΓòÉ 72. COMPRESS2 ΓòÉΓòÉΓòÉ Funktion Entfernt Leerzeichen am Ende von Strings in Arrays. Syntax COMPRESS2 array$,start,ende Eingabe array$ Name des Arrays start Nummer der ersten zu behandelnden Variablen im Array ende Nummer der letzten zu behandelnden Variablen im Array Ausgabe array$ Veraendertes Array Beschreibung Diese ist eine Version von COMPRESS zur schnellen Bearbeitung von Arrays. Bespiel COMPRESS2 Siehe COMPRESS LEN MID SET RSET ΓòÉΓòÉΓòÉ 73. FILLSTR ΓòÉΓòÉΓòÉ Funktion Fuellt eine Stringvariable mit einem bestimmten Zeichen. Syntax FILLSTR anzahl,var$,zeichen$ Eingabe anzahl Anzahl der einzufuellenden Zeichen var$ Aufzufuellende Variable zeichen$ Fuellzeichen (maximal 1 Zeichen) Ausgabe var$ Gefuellte Variable Beschreibung Es wird ein Zeichen beliebig oft in die Variable geschrieben. Die durch diese Anweisung gefuellte Variable darf aber danach nur maximal 255 Zeichen Inhalt besitzen. Bespiel FILLSTR Siehe CHANGE REPLACE ΓòÉΓòÉΓòÉ 74. FIND ΓòÉΓòÉΓòÉ Funktion Durchsucht einen Array-Bereich nach einem Begriff. Syntax FIND array$,start,ende,such$,erg Eingabe array$ Name des zu durchsuchenden Arrays start Variable, ab der die Suche durchgefuehrt werden soll. ende Variable, bis zu der die Suche durchgefuehrt werden soll. such$ Als Inhalt einer Stringvariablen vorgegebener Suchbegriff Ausgabe erg Variable mit der Position des Suchbegriffs im Array als Inhalt Beschreibung Mit dem Befehl koennen Sie ein Array nach einem eindeutigen Suchbegriff durchsuchen. Den Suchbegriff muessen Sie in Form einer Stringvariablen vorgeben. Das Ergebnis wird in der Zahlenvariablen erg abgespeichert. Falls der Rechner bei der Suche keinen Erfolg hat, bekommt die Variable erg den Wert Null zugewiesen. Bespiel FIND Siehe IN ΓòÉΓòÉΓòÉ 75. FORM ΓòÉΓòÉΓòÉ Funktion Wandelt eine Zahlenvariable in eine Stringvariable um, wobei eine bestimmte Anzahl von Nachkommastellen in der Stringvariablen fest- gelegt werden kann, oder formatiert eine bestehende Stringvariable in Bezug auf die Nachkommastellen. Syntax FORM zahl,string$,komma,zeichenzahl Eingabe zahl Die zu konvertierende Zahlenvariable komma Anzahl der Nachkommastellen in der neuen Stringvariablen zeichenzahl Gesamtzahl der Zeichen in der neuen Stringvariable Ausgabe string$ Die Stringvariable mit dem neuen Inhalt Beschreibung Die Zeichen aus der Zahlenvariablen werden in der Stringvariable rechtsbuendig ausgerichtet und noetigenfalls mit Leerzeichen von links her aufgefuellt (Beispiel: Die Umwandlung der Zahl 10.80 in einen String mit einer Gesamtzeichenzahl von 7 fuehrt dazu, dass die neue Stringvariable den Inhalt "00010.80" erhaelt). Es erfolgt auto- matisch eine Rundung auf die angegebene Zahl von Nachkommastellen. Beachten Sie bitte, dass mit diesem Befehl nur Zahlen mit maximal acht Vorkommastellen und zehn Nachkommastellen formatiert werden koennen. Bespiel FORM Siehe VAL STR ΓòÉΓòÉΓòÉ 76. FRAC ΓòÉΓòÉΓòÉ Funktion Zerlegt eine Zahl in Vor- und Nachkommastellen. Syntax FRAC zahl,vor,nach Eingabe zahl Variable mit der zu bearbeitenden Zahl Ausgabe vor Variable mit den Vorkommastellen als Inhalt nach Variable mit den Nachkommastellen als Inhalt Beschreibung Diese Anweisung zerlegt eine beliebige Zahl in Vor- und Nachkommastellen. Diese Werte werden getrennt und verschiedenen Variablen zugewiesen. Bespiel FRAC Siehe ΓòÉΓòÉΓòÉ 77. GANZ ΓòÉΓòÉΓòÉ Funktion Wandel eine numerische Zahl in einen Integer-Wert Syntax GANZ, alt neu Eingabe alt Numerische Zahl Ausgabe neu Ganze Zahl ohne Kommastellen Beschreibung Wird ben╨ñtigt um eine Zahlenvariable in ein ganze Zahl umzuwandeln Bespiel GANZ Siehe ΓòÉΓòÉΓòÉ 78. GLOBALREAD ΓòÉΓòÉΓòÉ Funktion Programm ╨æbergreifende Variablenverwaltung Syntax GLOBALREAD zahl (string) Eingabe Ausgabe Beschreibung keine Bespiel GLOBALREAD Siehe RUN ΓòÉΓòÉΓòÉ 79. GLOBALWRITE ΓòÉΓòÉΓòÉ Funktion Programm ╨æbergreifende Variablenverwaltung Syntax GLOBALWRITE zahl (string) Eingabe Ausgabe Beschreibung keine Bespiel GLOBALWRITE Siehe GLOBALREAD ΓòÉΓòÉΓòÉ 80. IGETREC_ARRAY ΓòÉΓòÉΓòÉ Funktion Mehrere Datensaetze werden in ein Array eingelesen. Syntax IGETREC_ARRAY nr,flag,trenn$,dbstruct$,array$,start,ende,feldnr1,... Eingabe nr Nummer der entsprechenden Datenbank flag Arbeitsmodus des Befehls: flag = 0: Es werden die Datensaetze vom aktuellen Datensatz aus eingelesen, die auf den aktuellen Datensatz folgen. flag = 1: Es werden die Datensaetze vom aktuellen Datensatz aus eingelesen, die vor dem aktuellen Datensatz stehen. trenn$ Trennzeichen fuer einzelne Felder innerhalb eines Datensatzes dbstruct$ Recordstruktur der DB array$ Array, in die die Datenbanksaetze eingelesen werden sollen start erste zu fuellende Variable im Array ende letzte zu fuellende Variable im Array feldnrx Felder, die mit Trennzeichen <trenn> in das Array geschrieben werden. Ausgabe Beschreibung Es koennen mehrere Datensaetze schnell eingelesen werden. Dieser Befehl wurde fuer Ausgabelisten geschaffen. Bespiel IGETREC_ARRAY Siehe IGETREC ΓòÉΓòÉΓòÉ 81. IN ΓòÉΓòÉΓòÉ Funktion Ermittelt, ob ein Zeichen bzw. eine Zeichenkette in einer Stringvariablen vorhanden ist. Das Ergebnis wird als Zahl verfuegbar. Syntax IN string$,suchstring$,gefunden Eingabe string Stringvariable, in der nach dem Zeichen gesucht wird suchstring$ Stringvariable, in der das zu suchende Zeichen vorge- geben ist. Ausgabe gefunden Zahlenvariable, in der das Ergebnis der Suche vermerkt wird. Beschreibung Wurde das gesuchte Zeichen gefunden, so wird ueber die Variable gefunden die Position des Zeichens im String an das Programm zurueckgegeben. Wurde das Zeichen nicht gefunden, erhaelt die Variable gefunden den Wert -1. Bespiel IN Siehe CHANGE LEN STRDEL ΓòÉΓòÉΓòÉ 82. INT ΓòÉΓòÉΓòÉ Funktion Wandelt eine Dezimalzahl in eine ganze Zahl um. Syntax INT zahl,erg Eingabe zahl Umzuwandelnde Zahlenvariable Ausgabe erg Umgewandelte Zahlenvariable Beschreibung Dieser Befehl wandelt eine Dezimalzahl in eine ganze Zahl um, indem er die Nachkommastellen entfernt. Es wird hierbei keine Rundung durchge- fuehrt. Bespiel INT Siehe FORM FRAC VAL ΓòÉΓòÉΓòÉ 83. LCASE ΓòÉΓòÉΓòÉ Funktion Verwandelt Grossbuchstaben einer Stringvariablen in Kleinbuchstaben. Syntax LCASE string$ Eingabe string$ Zu veraendernde Stringvariable Ausgabe string$ Veraenderte Stringvariable mit Kleinbuchstaben als Inhalt Beschreibung Mit diesem Befehl werden in einem Schritt alle Grossbuchstaben einer Stringvariable in Kleinbuchstaben umgewandelt. Auf Zahlenvariablen ist diese Anweisung natnrlich nicht anwendbar. Bespiel LCASE Siehe IN UCASE ΓòÉΓòÉΓòÉ 84. LEN ΓòÉΓòÉΓòÉ Funktion Ermittelt die Laenge des Inhalts einer Stringvariablen. Syntax LEN string$,zahl Eingabe string$ Zu pruefende Stringvariable Ausgabe zahl Variable, an die die ermittelte Stringlaenge zurueck- gegeben wird Beschreibung Es kann nur die Laenge von Stringvariablen geprueft werden, nicht aber die Laenge von Zahlenvariablen. Leer- und Satzzeichen werden bei der Laengenermittlung mitgezaehlt. Bespiel LEN Siehe STRDEL ΓòÉΓòÉΓòÉ 85. LOADARRAY ΓòÉΓòÉΓòÉ Funktion Liest eine Textdatei in ein definiertes Feld. Syntax LOADARRAY datei, feld, start,ende, anzahl Eingabe datei Dateiname feld Name des Arrays, in das die Datei geladen wird. start Erstes Feld, in das die Datei geladen wird. ende Letztes Feld, in das die Datei geladen wird. Ausgabe anzahl Anzahl der eingelesenen Zeilen. Beschreibung Falls die Anzahl der einzulesenden Zeilen gr╨ñ╤üer w╨öre als das Array, dann werden nur soviele Zeilen eingelesen, wie das Array aufnehmen kann. Bespiel LOADARRAY Siehe SAVEARRAY OPEN CLOSE GETS_SELECT SELECT ΓòÉΓòÉΓòÉ 86. LOADMEMO ΓòÉΓòÉΓòÉ Funktion Laedt den Inhalt einer Datei in eine Memovariable. Syntax LOADMEMO datei, memovariable, ok Eingabe datei Datei mit zu ladendem Inhalt memovriable Memovariable, in die der Dateiinhalt eingefuegt werden soll Ausgabe memovariable Memovariable mit neuem Inhalt ok Variable mit dem Ergebnis der Operation: ok=1: Dateiinhalt wurde geladen ok=-1: Dateiinhalt konnte nicht geladen werden Beschreibung keine Bespiel LOADMEMO Siehe SAVEMEMO ΓòÉΓòÉΓòÉ 87. LTRIM ΓòÉΓòÉΓòÉ Funktion Entfernt linksbuendige Leerzeichen aus einer Stringvariablen. Syntax LTRIM string$ Eingabe string$ Zu veraendernde Variable Ausgabe string$ Veraenderte Variable Beschreibung Nur Stringvariablen koennen auf diese Weise formatiert werden, nicht jedoch Zahlenvariablen. Bespiel LTRIM Siehe COMPRESS COMPRESS2 SET RSET ΓòÉΓòÉΓòÉ 88. MID ΓòÉΓòÉΓòÉ Funktion Kopiert einen Teil einer Stringvariable in eine andere Stringvariable. Syntax MID string$,neu$,anfang,anzahl Eingabe string$ Zu kopierender String anfang Position im String, ab der kopiert werden soll anzahl Anzahl der zu kopierenden Zeichen Ausgabe neu$ String, in den der Inhalt kopiert wird Beschreibung Es kann nur der Inhalt von Stringvariablen kopiert werden, nicht jedoch der von Zahlenvariablen. Bespiel MID Siehe CHANGE IN LEN STRDEL ΓòÉΓòÉΓòÉ 89. REPLACE ΓòÉΓòÉΓòÉ Funktion Tauscht Teile des Inhalts einer Stringvariablen. Syntax REPLACE text$, alt$, neu$ Eingabe text$ Name der Stringvariablen, deren Inhalt veraendert werden soll. alt$ Zeichenkette aus text$, die ausgetauscht werden soll neu$ Zeichenkette, die anstelle von alt$ in text$ eingefuegt werden soll Ausgabe text$ Stringvariable mit neuem Inhalt Beschreibung Mit dieser Funktion koennen Sie Teile oder den gesamten Inhalt einer Stringvariable austauschen. Geben Sie dazu in der Variablen alt$ den Teil des Inhalts der zu veraendernden Variablen text$ vor, der ausge- tauscht werden soll. Diese Zeichen werden dann gegen den Inhalt der Variablen neu$ getauscht. Bespiel REPLACE Siehe CHANGE ΓòÉΓòÉΓòÉ 90. REVERSE ΓòÉΓòÉΓòÉ Funktion Dreht den Inhalt einer Variablen Syntax REVERSE eingabe, ausgabe Eingabe eingabe Variable deren Inhalt gedreht werden soll. Ausgabe ausgabe Variable mit neuem Inhalt Beschreibung keine Bespiel REVERSE Siehe ΓòÉΓòÉΓòÉ 91. RSET ΓòÉΓòÉΓòÉ Funktion Formatiert den Inhalt einer Stringvariablen rechtsbuendig. Syntax RSET laenge,string$ Eingabe laenge Laenge der Stringvariablen nach der Modifikation string$ Eingabestringvariable Ausgabe string$ Formatierte Stringvariable Beschreibung Mit diesem Befehl wird der Inhalt einer Stringvariablen rechtsbuendig mit Leerzeichen aufgefuellt (d.h. links vom urspruenglichen Inhalt werden entsprechend viele Leerzeichen angefuegt). Die Laenge des formatierten Strings richtet sich nach dem Wert in der Variablen laenge. Ist der Inhalt der urspruenglichen Stringvariable kleiner oder gleich der so festgelegten Laenge fuer die auszugebende String- variable, so wird keine Formatierung durchgefuehrt. Bespiel RSET Siehe SET COMPRESS COMPRESS2 LTRIM ΓòÉΓòÉΓòÉ 92. SAVEARRAY ΓòÉΓòÉΓòÉ Funktion Speichert den Inhalt eines Array in eine Datei. Syntax SAVEARRAY datei, feld, start,ende Eingabe datei Dateiname feld Name des zu speichernden Feldes start Erstes Feld, das gespeichert wird. ende Letztes Feld, das gespeichert wird. Ausgabe keine Beschreibung nil Bespiel SAVEARRAY Siehe LOADARRAY OPEN CLOSE GETS_SELECT SELECT ΓòÉΓòÉΓòÉ 93. SAVEMEMO ΓòÉΓòÉΓòÉ Funktion Speichert den Inhalt einer Memovariablen wird in eine Datei gespeichert. Syntax SAVEMEMO datei, memovariable, ok Eingabe datei Datei, in welcher der Variableninhalt gespeichert werden soll. memovariable Zu speichernde Memovariable Ausgabe ok Variable mit dem Ergebnis des Vorgangs: ok=1: Variableninhalt konnte gespeichert werden ok=-1: Variableninhalt konnte nicht gespeichert werden Beschreibung Mit dieser Anweisung kann der Inhalt einer Variablen in eine Datei uebergeben werden. Somit entspricht dieser innerhalb eines Programmes vorgenommene Vorgang dem Speichern des Variableninhalts auf Diskette oder Festplatte. Dieser Befehl kann auch zum Ausdruck von Daten herangezogen werden. Wird anstelle eines Dateinamens der Ausdruck "LPT1" (fuer Linear Port 1, dem ueblichen Druckerkanal) eingesetzt, so wird der Inhalt der Memovariablen direkt zum Drucker umgeleitet und dort ausgegeben. Bespiel SAVEMEMO Siehe LOADMEMO ΓòÉΓòÉΓòÉ 94. SELECT ΓòÉΓòÉΓòÉ Funktion Zerlegt eine Stringvariable in Teilvariablen bezueglich zu einem beliebigen Trennzeichen. Syntax SELECT ganz$,ord,s$,n,m Eingabe ganz$ Zu zerlegende Stringvariable ord ASCII-Codewert des Trennzeichens, an welchem der Inhalt geteilt wird s$ Name der Teilvariablen (Array) n Erste Teilvariable im Array, in die ein Teil des Inhalts geschrieben wird m Letzte Teilvariable im Array, in die ein Teil des Inhalts geschrieben wird. Ausgabe sn,...,sm Teilvariablen Beschreibung SELECT teilt den Inhalt einer Stringvariablen auf verschiedene Teilvariablen auf. Bei der Teilung richtet sich der Befehl nach einem von Ihnen vorgegebenen Trennzeichen. Haben Sie mehr Teil- variablen definiert als durch den Vorgang mit Inhalt gefuellt werden koennen, so bleiben die ueberzaehligen Teilvariablen leer. Bespiel SELECT Siehe CLEAR IN MID LEN ΓòÉΓòÉΓòÉ 95. SET ΓòÉΓòÉΓòÉ Funktion Formatiert eine Stringvariable durch Anfuegen von Leerzeichen. Syntax SET anzahl,string$ Eingabe anzahl Gewuenschte Laenge der formatierten Variablen string$ Name der zu formatierenden Variablen Ausgabe string$ Formatierte Variable Beschreibung Es wird an den Inhalt einer Stringvariablen die notwendige Anzahl von Leerstellen angefuegt, um auf die in anzahl vorgegebene Variablenlaenge zu kommen (linksbuendige Formatierung im Gegensatz zur rechtsbuendigen Formatierung mit RSET). Ist dieser Wert kleiner als die ursprnuegliche Laenge der Stringvariablen, so wird der Befehl nicht ausgefuehrt. Die Anweisung dient u.a. zur buendigen Anordnung von Variablen in Tabellen. Bespiel SET Siehe COMPRESS MID LEN LPRINT RSET ΓòÉΓòÉΓòÉ 96. STR ΓòÉΓòÉΓòÉ Funktion Wandelt eine Zahlenvariable in eine Stringvariable um. Syntax STR string$,zahl,stellen Eingabe zahl Name der umzuwandelnden Zahlenvariablen stellen Laenge des Inhalts der zu erstellenden Stringvariablen Ausgabe string$ Name der zu erstellenden Stringvariablen Beschreibung Mit diesem Befehl wandeln Sie den Inhalt einer Zahlenvariablen in den Inhalt einer Stringvariablen um. Dabei koennen Sie die Laenge der zu er- stellenden Stringvariablen festlegen und auf diese Weise zusaetzliche Leerzeichen von links her einfuegen oder abtrennen. Im Gegensatz zu FORM koennen Sie aber keinen Einfluss auf die Zahl der Nachkommastellen nehmen. Bespiel STR Siehe FORM VAL ΓòÉΓòÉΓòÉ 97. STRADD ΓòÉΓòÉΓòÉ Funktion Verknuepft Textstuecke bzw. den Inhalt von Stringvariablen. Syntax STRADD string1$,"Text",string2$,chr(12),... Eingabe string1$,... Namen der zu verknuepfenden Stringvariablen text,... Zu verknuepfender Text Ausgabe string$ Name der Stringvariablen mit verknuepftem Inhalt Beschreibung Sie koennen beliebig viele Textstuecke bzw. den Inhalt beliebig vieler Stringvariablen miteinander verknuepfen. Beachten Sie aber bitte, dass der Inhalt der durch die Verknuepfung erzeugten Variable maximal 255 Zeichen betragen darf. Es koennen auch einzelne Steuerzeichen mit chr() angefuegt werden. Bespiel STRADD Siehe LEN MID STRDEL ΓòÉΓòÉΓòÉ 98. STRDEL ΓòÉΓòÉΓòÉ Funktion Loescht Teile einer Stringvariablen ab einer beliebigen Stelle. Syntax STRDEL string$,anfang,laenge Eingabe string$ Name der zu bearbeitenden Stringvariablen anfang Position, ab der geloescht werden soll laenge Laenge des zu loeschenden Teils der Variablen Ausgabe string$ Name der Stringvariablen mit gekuerztem Inhalt Beschreibung Sie sind hiermit in der Lage, beliebig grosse Teile des Inhalts einer Stringvariablen von einer beliebigen Position ab zu loeschen. Bespiel STRDEL Siehe CHANGE IN LEN STRADD ΓòÉΓòÉΓòÉ 99. UCASE ΓòÉΓòÉΓòÉ Funktion Verwandelt alle Kleinbuchstaben einer Stringvariablen in Grossbuchstaben. Syntax UCASE string$ Eingabe string$ Umzu_ndernde Stringvariable Ausgabe string$ Umgewandelte Stringvariable Beschreibung Diese Anweisung dient zur Editierung des Inhalts von Stringvariablen. Es werden alle Kleinbuchstaben in Grossbuchstaben umgewandelt. Bespiel UCASE Siehe IN LCASE ΓòÉΓòÉΓòÉ 100. VAL ΓòÉΓòÉΓòÉ Funktion Verwandelt eine Stringvariable in eine Zahlenvariable. Syntax VAL string$,zahl Eingabe string$ Umzuwandelnde Stringvariable Ausgabe zahl Neu erstellte Zahlenvariable Beschreibung Sie koennen hiermit Stringvariablen in Zahlenvariablen umwandeln, aber nur, wenn der Inhalt der Stringvariablen eindeutig einer Zahl zugeordnet werden kann (also bereits eine Zahl ist). Ist der Inhalt des Strings z.B. "Hallo", so kann das Programm diesem keine Zahl zuordnen. Der Zahlenvariablen wird dann der Wert 0 uebergeben. Bespiel VAL Siehe FORM STR ΓòÉΓòÉΓòÉ 101. VARNR ΓòÉΓòÉΓòÉ Funktion Ermittelt die Interne Variblennr jeder Variable. Syntax VARNR variable, zahl Eingabe variable Variable deren Nr. ermittelt werden soll. Ausgabe zahl Nr. der Variable Beschreibung keine Bespiel VARNR Siehe ΓòÉΓòÉΓòÉ 102. CALL ΓòÉΓòÉΓòÉ Funktion Aktiviert ein zuvor definiertes Modul. Syntax CALL name (varein,varaus) Eingabe name Name des zu aktivierenden Moduls varein Name der Eingabevariablen varaus Name der Ausgabevariablen Ausgabe varaus Ausgabevariable Beschreibung Mit diesem Befehl aktivieren Sie ein zuvor mit MODUL erstelltes Modul. Da Module mit lokalen Variablen arbeiten, muessen Sie eine lokale Ein- gabevariable definieren, in die mit CALL ein externer Wert uebergeben wird. Das Programm arbeitet intern mit diesem Wert und gibt ihn dann gegebenenfalls an eine externe Ausgabevariable zurueck. Sie muessen gleichfalls die Art dieser Variablen festlegen. Einer Stringvariablen muessen Sie das Kuerzel CHAR voranstellen, einer Zahlenvariablen ein FLOAT. Nach Abarbeitung des Moduls wird mit dem nach CALL folgenden Befehl fortgefahren. Bespiel CALL Siehe ΓòÉΓòÉΓòÉ 103. ENDIF ΓòÉΓòÉΓòÉ Funktion Beendet eine Programmverzweigung ueber eine IF-Anweisung. Syntax ENDIF Eingabe Keine Ausgabe Keine Beschreibung Jede IF-Anweisung in Ihrem Programm muss mit dem Befehl ENDIF beendet werden, sonst kommt es zu Fehlfunktionen. Bespiel ENDIF Siehe ΓòÉΓòÉΓòÉ 104. FOR..TO..NEXT ΓòÉΓòÉΓòÉ Funktion Schleife mit einer von vornherein durch einen Endwert festgelegten Zahl von Durchlaeufen. Syntax NEXT Eingabe x Laufvariable y Wert fuer x, ab der die Schleife durchlaufen wird (Anfangsbedingung) z Wert fuer x, bei der die Schleife zum letzten Mal durchlaufen wird (x=z+1 ist die Abbruchsbedingung) Ausgabe Keine Beschreibung Die Anweisungen zwischen FOR..TO und NEXT werden z-y-mal durchgefuehrt. Bei jedem Durchlaufen der Schleife wird der Wert der Laufvariablen x um Eins erhoeht. Sobald x den Wert z+1 erreicht hat, wird die Schleife abgebrochen (bei x=z erfolgt der letzte Schleifendurchlauf). Vor der Schleife muessen Sie x den Startwert y zuweisen. Sollte x bereits zu Beginn den Wert z+1 besitzen, wird die Schleife ueberhaupt nicht durchlaufen. Bespiel .TO..NEXT reftype=fn. FOR..TO..NEXT Siehe WHILE__WEND ΓòÉΓòÉΓòÉ 105. GOSUB ΓòÉΓòÉΓòÉ Funktion Veranlasst einen Sprung in ein Unterprogramm. Syntax GOSUB #label Eingabe #label Sprungmarkierung am Anfang des Unterprogramms Ausgabe Keine Beschreibung Mit GOSUB wird ein Unterprogramm aufgerufen, das sich an der Position der Sprungmarke #label befindet. Zwischen dem Labelzeichen # und dem Labelnamen darf kein Leerzeichen sein. In einem Programm darf kein Labelname zweimal verwendet werden. Ein so angesprungenes Unterprogramm wird mit dem Befehl RETURN abgeschlossen, der gewaehrleistet, dass das Programm zu seinem Absprungort zurueckkehrt. Oft ist es sinnvoll, Unter- programme in INCLUDE-Dateien auszulagern, um eine ungewollte Akti- vierung zu vermeiden. Bespiel GOSUB Siehe GOTO ΓòÉΓòÉΓòÉ 106. GOTO ΓòÉΓòÉΓòÉ Funktion Unbedingter Sprung zu einem Label. Syntax GOTO #Label Eingabe #Label Sprungmarke Ausgabe Keine Beschreibung Es gelten prinzipiell die gleichen Regeln wie bei der Anweisung GOSUB. Allerdings veranlasst GOTO einen unbedingten Sprung zu einem anderen Programmteil, d.h. es ist keine Rueckkehr zum Ausgangsort ueber ein RETURN moeglich. Es wird kein Unterprogramm aktiviert. Bespiel GOTO Siehe GOSUB ΓòÉΓòÉΓòÉ 107. IF..THEN..ELSE..ENDIF ΓòÉΓòÉΓòÉ Funktion Steuert ueber einen Vergleich die Ausfuehrung bestimmter Befehle (Verzweigung). Syntax ENDIF Eingabe [Vergleich] Ergebnis des Vergleichs einer Variablen mit einem bestimmten Vorgabewert. [Anweisungsblock] Alle Befehle, die zwischen THEN und ENDIF ausgefuehrt werden sollen. Ausgabe Keine Beschreibung Liefert der Vergleich ein wahres Ergebnis, werden alle Befehle zwischen THEN und ENDIF ausgefuehrt. Ist das Ergebnis eine Falschaussage, so wird als naechster Befehl die Anweisung nach dem ENDIF ausgefuehrt, oder, falls eine ELSE-Anweisung vorhanden ist, der Anweisungsblock nach dem ELSE. Beachten Sie bitte, die Anweisung mit ENDIF zu beenden. Es koennen mehrere Vergleiche mit Hilfe der logischen Operatoren AND oder OR ver- knuepft werden. Bespiel .THEN..ELSE..ENDIF reftype=fn. IF..THEN..ELSE..ENDIF Siehe WHILE__WEND ΓòÉΓòÉΓòÉ 108. MODUL..ENDMOD ΓòÉΓòÉΓòÉ Funktion Definiert ein Modul. Syntax MODUL name (char/float varein, char/float varaus) Eingabe name Name des zu definierenden Moduls char/float Art der Variable (char: String, float: Zahlenvariable) varein Name der Eingabevariablen (oder Platzhalter varaus Name der Ausgabevariablen (oder Platzhalter Ausgabe varaus Ausgabevariable Beschreibung Module sind kleine abgekapselte Programme, die intern beliebige Anweisungen durchfuehren und das Ergebnis an das Hauptprogramm zurueckgeben. Sie eignen sich daher zur Erstellung eigener High-Level-Befehle. Module arbeiten mit lokalen Variablen, welche nur im Bereich des Moduls Gueltigkeit besitzen, wenn Sie im Modul definiert wurden. Es muessen daher Werte von externen, im gesamten Programm gueltigen Variablen an interne, im Modul gueltige Variablen uebergeben werden. Sie muessen dabei gleichzeitig die Art der ent- sprechenden uebergabevariablen festlegen: char string Stringvariable des Namens string float zahl Zahlenvariable des Namens zahl Define- und MEMO-Variablen sind immer global (im gesamten Programm gueltig) und koennen daher nicht als Uebergabevariablentyp eingesetzt werden. Sie koennen aber den Namen eines als uebergabevariable ver- wendeten Strings zwischen die Platzhalter . setzen. Im Modul wird die Stringvariable dann wie eine Feldvariable behandelt. Im Modul definierte Variablen werden dann global, wenn Sie mit einem Under- slash definiert wurden, also z.B. DEFFLOAT _zahl. Ein Modul muss immer mit der Anweisung ENDMOD beendet werden. Alle lokalen dem Befehl CALL aufgerufen. Bespiel .ENDMOD reftype=fn. MODUL..ENDMOD Siehe CALL ΓòÉΓòÉΓòÉ 109. WHILE..WEND ΓòÉΓòÉΓòÉ Funktion Erstellt eine Schleife, die erst durch ein bestimmtes Ereignis abgebrochen wird. Syntax WEND Eingabe a Laufvariable vergl Vergleichsoperator (=,<,>,<>,<=,>=) x Zahlenvariable bzw. Rechenoperation Ausgabe Keine Beschreibung Mit WHILE..WEND koennen Schleifen programmiert werden, die bis zum Eintreten einer bestimmten Abbruchsbedingung durchlaufen werden. Hierbei ist im Gegensatz zu IF..THEN kein Sprungbefehl notwendig. Die Schleife wird solange durchlaufen, wie die auf WHILE folgende Bedingung erfuellt ist. Ist dies nicht mehr der Fall, fuehrt das Programm mit der auf WEND folgenden Anweisung fort. Beachten Sie unbedingt, dass innerhalb der Schleife eine Abbruchsmoeglichkeit bestehen muss, da sonst eine Endlosschleife entsteht. Bespiel .WEND reftype=fn. WHILE..WEND Siehe ΓòÉΓòÉΓòÉ 110. ACOS ΓòÉΓòÉΓòÉ Funktion Berechnet den ArcusCosinus eines vorgegebenen Winkels. Syntax ACOS eingabe, ausgabe Eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe Variable mit dem ArcusCosinus des vorgegebenen Winkels Beschreibung Mit dieser Funktion berechnen Sie den ArcusCosinus eines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Bespiel ACOS Siehe ASIN ATAN COS SIN TAN ΓòÉΓòÉΓòÉ 111. ASIN ΓòÉΓòÉΓòÉ Funktion Berechnet den ArcusSinus eines vorgegebenen Winkels. Syntax ASIN eingabe, ausgabe Eingabe eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe ausgabe Variable mit dem ArcusSinus des vorgegebenen Winkels Beschreibung Mit dieser Funktion berechnen Sie den ArcusSinus eines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Bespiel ASIN Siehe ACOS ATAN COS SIN ΓòÉΓòÉΓòÉ 112. ATAN ΓòÉΓòÉΓòÉ Funktion Berechnet den ArcusTangens eines vorgegebenen Winkels. Syntax ATAN eingabe, ausgabe Eingabe eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe ausgabe Variable mit dem ArcusTangens des vorgegebenen Winkels Beschreibung Mit dieser Funktion berechnen Sie den ArcusTangens erines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Bespiel ATAN Siehe ACOS ASIN COS SIN ΓòÉΓòÉΓòÉ 113. CALC ΓòÉΓòÉΓòÉ Funktion Ermittelt das Ergebnis einer Berechnung mit den Werten von zwei Stringvariablen. Syntax CALC op$,werta$,wertb$,erg$ Eingabe op$ Benoetigter Rechenoperator (+,-) werta$,wertb$ Strings, deren Inhalte addiert oder subtrahiert werden sollen. Ausgabe erg$ String mit dem Ergebnis der Rechnung Beschreibung Der Befehl ermittelt das Ergebnis einer Addition zweier String- variablen oder Subtraktion auf zwei Kommastellen genau. Es erfolgt keine Rundung des Ergebnisses. Bespiel CALC Siehe SIN COS TAN ΓòÉΓòÉΓòÉ 114. COS ΓòÉΓòÉΓòÉ Funktion Berechnet den Cosinus des angegebenen Winkels. Syntax COS eingabe, ausgabe Eingabe eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe ausgabe Variable mit dem Cosinus des angegebenen Winkels Beschreibung Mit dieser Funktion koennen Sie den Cosinus eines Winkels errechnen. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit an. Bespiel COS Siehe ACOS ASIN ATAN SIN TAN ΓòÉΓòÉΓòÉ 115. EVAL ΓòÉΓòÉΓòÉ Funktion Errechnet den Inhalt einer in einer Stringvariablen enthaltenen Rechenoperation. Syntax EVAL express$,erg Eingabe express$ String mit mathematischen Ausdruck Ausgabe erg Variable, in die das Ergebnis der Berechnung uebergeben wird Beschreibung Der Befehl berechnet die in der Variable vorgesehene Rechenoperation. Das Ergebnis wird in der Variable erg gespeichert und kann auf Wunsch angezeigt werden. Folgende Rechenoperationen koennen mit diesem Befehl durchgefuehrt werden: Multiplikation, Division, Addition, Subtraktion. Bespiel EVAL Siehe ΓòÉΓòÉΓòÉ 116. SIN ΓòÉΓòÉΓòÉ Funktion Berechnet den Sinus eines vorgegebenen Winkels. Syntax SIN eingabe, ausgabe Eingabe eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe ausgabe Variable mit dem Sinus des vorgegebenen Winkels Beschreibung Mit dieser Funktion berechnen Sie den Sinus eines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Bespiel SIN Siehe ACOS ASIN ATAN COS ΓòÉΓòÉΓòÉ 117. SQRT ΓòÉΓòÉΓòÉ Funktion Gibt Wurzel aus Zahl zur╨æck. Syntax SQRT zahl, erg Eingabe zahl Ausgabe erg Beschreibung keine Bespiel SQRT Siehe ΓòÉΓòÉΓòÉ 118. TAN ΓòÉΓòÉΓòÉ Funktion Berechnet den Tangens eines vorgegebenen Winkels. Syntax TAN eingabe, ausgabe Eingabe eingabe Variable mit dem Wert des zu berechnenden Winkels Ausgabe ausgabe Variable mit dem Tangens des vorgegebenen Winkels Beschreibung Mit dieser Funktion berechnen Sie den Tangens eines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Bespiel TAN Siehe ACOS ASIN ATAN COS ΓòÉΓòÉΓòÉ 119. LPRINT ΓòÉΓòÉΓòÉ Funktion Gibt Variablen bzw. Zeichenketten auf dem Drucker aus. Syntax LPRINT "Text",zahl,string$ Eingabe "Text",zahl,string$ Auszudruckender Text bzw. Variablen Ausgabe Keine Beschreibung Mit der LPRINT-Anweisung koennen Sie beliebigen Text oder Inhalt von Zahlen- oder Stringvariablen ausdrucken lassen. Reihenfolge und An- zahl der Parameter sind beliebig. Die Trenueung der einzelnen Ausgabe- werte erfolgt durch Komma oder Strichpunkt. Bei Verwendung des Strich- punkts als Trennzeichen fuegt LPRINT zwischen den beiden Parametern 8 Leerzeichen ein. Zwischen dem LPRINT-Befehl und dem ersten Anfuehrungs- zeichen muss unbedingt ein Leerzeichen stehen. Steuerzeichen werden mit dem Befehl CHR an den Drucker uebergeben. Bespiel LPRINT Siehe CHR FORM STR ΓòÉΓòÉΓòÉ 120. PRNCHANGE ΓòÉΓòÉΓòÉ Funktion Tauscht Zeichen aus einer Tabelle aus (Druckertreiber). Syntax PRNCHANGE array,start,ende Eingabe array Name des Feldes, in welchem Zeichen ausgetauscht werden sollen start Startvariable im Feld, von der aus der Tausch beginueen soll ende Schlussvaribale im Feld, bei der der Tausch beendet werden soll Ausgabe Keine Beschreibung Mit diesem Befehl koennen Sie Zeichen aus der ASCII-Tabelle austauschen. Die Anweisung wirkt nur auf die Befehle PRINT und LPRINT. PRNCHANGE wird zur Erstellung von Druckertreibern fuer Drucker herangezogen, deren interne Zeichentabelle nicht mit dem IBM-ASCII-Code identisch ist. Bespiel PRNCHANGE Siehe LPRINT ΓòÉΓòÉΓòÉ 121. DBFIELDS ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel DBFIELDS Siehe ΓòÉΓòÉΓòÉ 122. IADD ΓòÉΓòÉΓòÉ Funktion fuegt einer Datenbank einen Datensatz hinzu. Syntax IADD nr,s$ Eingabe nr Nummer der entsprechenden Datenbank s$ Recordstruktur, ueber die die Daten eingegeben werden sollen Ausgabe Keine Beschreibung Der angefuegte Datensatz wird intern sofort durch die Indexdateien richtig in die Datenbank einsortiert. Der neue Datensatz wird also in Abhaengigkeit vom aktivierten Index an unterschiedlichen Stellen in die Datenbank eingefuegt. Durch IADD wird der Datenbankanzeiger automatisch auf den hinzugefuegten Datensatz gestellt, dieser wird also der aktuelle Datensatz. Bespiel IADD Siehe ΓòÉΓòÉΓòÉ 123. ICLOSE ΓòÉΓòÉΓòÉ Funktion Schliesst eine geoeffnete Datenbank. Syntax ICLOSE nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe Keine Beschreibung Ausser der entsprechenden Datenbank werden alle zugehoerigen Indexdateien geschlossen. Dabei werden alle Pufferinhalte auf eine Festplatte oder eine Diskette geschrieben. Wenn Sie als Datenbanknummer die Zahl 99 angeben, werden alle geoeffneten Datenbank- und Indexdateien geschlossen. Bespiel ICLOSE Siehe ΓòÉΓòÉΓòÉ 124. ICLOSE_INDEX ΓòÉΓòÉΓòÉ Funktion Indexdateien einer Datenbank werden geschlossen. Syntax ICLOSE_INDEX nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe Keine Beschreibung Dieser Befehl schliesst alle Indexdateien einer geoeffneten Datenbank. Bespiel ICLOSE_INDEX Siehe ΓòÉΓòÉΓòÉ 125. ICREATE ΓòÉΓòÉΓòÉ Funktion Erstellt eine neue Datenbank. Syntax ICREATE name$,def_felder$,def_index$ Eingabe name$ Name der Datenbank (ohne DOS-Endung), darf maximal 8 Zeichen betragen (auch Pfadangabe moeglich) def_felder$ Array mit der Definition der Feldstruktur der Datenbank def_index$ Array mit der Definition der Indexstruktur des Basisindizes Ausgabe Keine Beschreibung Durch diesen Befehl wird eine bestehende Datenbank gleichen Namens ueberschrieben! Die Datenbank muss anschliessend mit IOPEN geoeffnet werden. Der Basisindex traegt den gleichen Namen wie die Datenbank. Zusaetzlich muessen Sie die Arrays angeben, in denen die Feld- und die Indexstruktur der Datenbank verzeichnet sind. Beispiel (es duerfen keine Tabulatoren verwendet werden!!!): Datenbank erstellen mit ICREATE DIM feld,1,4 DIM index,1,3 rem Name Typ Laenge Dezimalstellen feld1=" NAME , C , 20 , 0" feld2=" STRASSE , C , 50 , 0" feld3=" ORT , C , 30 , 0" feld4="" rem Name Ausdruck Filter Unique Auf/Abst. index1="Name_tag, NAME, .NOT.DELETED, 0 , 0" index2="Ort_tag, ORT, .NOT.DELETED, 0 , 0" index3="" icreate "dateiname",feld,index Bespiel ICREATE Siehe ΓòÉΓòÉΓòÉ 126. IDEL ΓòÉΓòÉΓòÉ Funktion Loescht einen Datensatz aus der aktuellen Datenbank. Syntax IDEL nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe Keine Beschreibung Loescht den aktuellen Datensatz und setzt den Datenbanksatzzeiger auf den naechsten Datensatz (Der Datensatz wird analog zu dBASE nur als geloescht markiert und kann mit IUNDEL wieder zurueckgeholt werden). Bespiel IDEL Siehe IDELCHECK IUNDEL ΓòÉΓòÉΓòÉ 127. IDELCHECK ΓòÉΓòÉΓòÉ Funktion Prueft, ob ein Datensatz als geloescht markiert wurde. Syntax IDELCHECK nr, ok Eingabe nr Nummer der entsprechenden Datenbank ok Variable, in die das Ergebnis der Suche uebergeben wird: ok=0 = Datensatz ist als geloescht markiert ok <>0 = Datensatz ist als nicht geloescht markiert Ausgabe Beschreibung Datensatzmarkierung kann mit IUNDEL aufgehoben werden. Bespiel IDELCHECK Siehe ΓòÉΓòÉΓòÉ 128. IENDE ΓòÉΓòÉΓòÉ Funktion Setzt den Datenbanksatzzeiger der entsprechenden Datenbank auf den letzten Datensatz bezueglich des aktuellen Index. Syntax IENDE nr,s$ Eingabe nr Nummer der entsprechenden Datenbank Ausgabe s$ Recordstruktur, in der der aktuelle Datensatz angezeigt werden soll Beschreibung Hiermit wird der letzte Datensatz zum aktuellen Datensatz und in der Recordstruktur angezeigt. Falls sich kein Datensatz in der Datenbank befindet, erhalten Sie eine entsprechende Fehlermeldung. Bespiel IENDE Siehe ISTART IPREV INEXT ΓòÉΓòÉΓòÉ 129. IENDEREL ΓòÉΓòÉΓòÉ Funktion Der Datensatzzeiger wird auf das Ende der Masterdatenbank gesetzt. Syntax IENDEREL relnr, structmaster, structslave Eingabe relnr Kennummer (Handle) der Relation (Master- und Slave-Datenbank) Ausgabe structmaster Datensatzinhalt (aus Masterdatenbank) structslave Datensatzinhalt (aus Slavedatenbank) Beschreibung Der Befehl entspricht dem Befehl IENDE, nur dass er allgemeiner auf Relationen verknuepfter Datenbanken angewandt werden kann. Bespiel IENDEREL Siehe ΓòÉΓòÉΓòÉ 130. IEXITREL ΓòÉΓòÉΓòÉ Funktion Eine Relation wird beendet. Syntax IEXITREL relnr Eingabe relnr Kennummer (Handle) der Relation (Master- und Slave-Datenbank) Ausgabe keine Beschreibung Eine mit ISETREL definierte Relation wird wieder aufgehoben. Bespiel IEXITREL Siehe ΓòÉΓòÉΓòÉ 131. IGET_NR ΓòÉΓòÉΓòÉ Funktion Ermittelt die Nummer des aktuellen Datensatzes. Syntax IGET_NR dbnr, pos Eingabe dbnr Kennummer der entsprechenden Datenbank Ausgabe pos Variable mit Nummer des aktuellen Datensatzes Beschreibung Bei der Einfuegung in eine Datenbank erhaelt jeder Datensatz automatisch eine interne Nummer, welche er fuer immer behaelt, gleichgueltig, nach welchem Index die Datenbank sortiert ist. ueber diese Nummer laesst sich ein Datensatz mit IGO_NR heraussuchen. Der Befehl IGET_NR ermittelt die Nummer des aktuellen Datensatzes. Bespiel IGET_NR Siehe IGO_NR ΓòÉΓòÉΓòÉ 132. IGETREC ΓòÉΓòÉΓòÉ Funktion Liest einen Datensatz aus einer geoeffneten Datenbank in eine Recordstruktur. Syntax IGETREC nr,s$ Eingabe nr Nummer der entsprechenden Datenbank Ausgabe s$ Recordstruktur, in der der Datensatz angezeigt werden soll. Beschreibung Mit dieser Anweisung werden die Werte des aktuellen Datensatzes in die entsprechenden Feldvariablen der Recordstruktur geladen. Bespiel IGETREC Siehe IGETREC_ARRAY ΓòÉΓòÉΓòÉ 133. IGETSTRUCT ΓòÉΓòÉΓòÉ Funktion Der Aufbau einer Datenbank wird ermittelt. Syntax IGETSTRUCT nr,def_felder$,def_index$,zahl Eingabe nr Nummer der entsprechenden Datenbank Ausgabe def_felder$ Array mit der Feldstruktur def_index$ Array mit der Basisindex-Struktur zahl Anzahl der Feldnamen Beschreibung Der Aufbau der Rueckgabewerte entspricht denen, die bei der Erstellung einer Datenbank mit ICREATE vorgegeben wurden. Somit laesst sich die Struktur der Datenbank genau nachvollziehen. Bespiel IGETSTRUCT Siehe ΓòÉΓòÉΓòÉ 134. IGO_NR ΓòÉΓòÉΓòÉ Funktion Bewegt den Datensatzzeiger zum Datensatz mit der angegebenen Nummer. Syntax IGO_NR dbnr, pos Eingabe dbnr Kennummer der entsprechenden Datenbank pos Variable mit Nummer des gewuenschten Datensatzes Ausgabe Keine Beschreibung Bei der Einfuegung in eine Datenbank erhaelt jeder Datensatz automatisch eine interne Nummer, welche er behaelt, gleichgueltig, nach welchem Index die Datenbank sortiert ist. ueber diese Nummer laesst sich ein Datensatz mit IGO_NR heraussuchen. Bespiel IGO_NR Siehe IGET_NR ΓòÉΓòÉΓòÉ 135. ILEN ΓòÉΓòÉΓòÉ Funktion Ermittelt die Anzahl der Datensaetze in einer geoeffneten Datenbank. Syntax ILEN nr,laenge Eingabe nr Nummer der entsprechenden Datenbank Ausgabe laenge Variable, in die die Anzahl der Datensaetze uebergeben wird Beschreibung Nichts Bespiel ILEN Siehe ΓòÉΓòÉΓòÉ 136. ILOCK ΓòÉΓòÉΓòÉ Funktion Sperrt den aktuellen Datensatz fuer den Zugriff anderer Anwender. Syntax ILOCK nr,ok Eingabe nr Nummer der entsprechenden Datenbank Ausgabe ok Rueckgabemeldung, ob der Datensatz bereits gesperrt ist: ok<>50 Der Datensatz kann gesperrt werden ok=-50 Der Datensatz ist bereits gesperrt Beschreibung Dieser Befehl ist nur in der Netzwerkversion von KIM verfuegbar. Er sperrt den aktuellen Datensatz einer geoeffneten Datenbank fuer den gleichzeitigen Zugriff durch andere Netzwerkteilnehmer. Falls der Datensatz bereits gesperrt ist, wird der Variablen ok intern der Wert 50 zugewiesen. Es erscheint dann ein Meldungsfenster mit der entsprechenden Mitteilung. Bespiel ILOCK Siehe IUNLOCK ΓòÉΓòÉΓòÉ 137. IMAKEINDEX ΓòÉΓòÉΓòÉ Funktion Erstellt nachtraeglich einen Index zu einer Datenbank. Syntax IMAKEINDEX nr,datei$,index$ Eingabe nr Nummer der entsprechenden Datenbank datei$ Name der neuen Indexdatei (Bitte ohne Endung) index$ Array mit der neuen Indexstruktur Ausgabe Keine Beschreibung Dieser Befehl bietet die Option, einen Index nicht nur bei der Erstellung der Datenbank mit ICREATE zu definieren, sondern auch nachtraeglich zu jedem beliebigen Zeitpunkt. Eine bestehende Index- datei mit gleichen Namen muss zuerst geloescht werden ( mit KILL). Es koennen je Indexdatei mehrere Subindizes definiert werden. Bespiel IMAKEINDEX Siehe ΓòÉΓòÉΓòÉ 138. IMODREC ΓòÉΓòÉΓòÉ Funktion Aendert den aktuellen Datensatz einer Datenbank. Syntax IMODREC nr, s$ Eingabe nr Kennummer der entsprechenden Datenbank Ausgabe s$ Recordstruktur, in der der geaenderte Datensatz angezeigt wird Beschreibung Der aktuelle Datensatz wird mit dieser Anweisung ueberschrieben. Bespiel IMODREC Siehe IADD ΓòÉΓòÉΓòÉ 139. INEXT ΓòÉΓòÉΓòÉ Funktion Setzt den Datenbanksatzzeiger auf den naechsten Datensatz bezueglich des aktuellen Index. Syntax INEXT nr,pos,s$ Eingabe nr Nummer der entsprechenden Datenbank Ausgabe pos Rueckgabevariable fuer die neue Position des Datenbanksatz- zeigers. Ist der Dateianfang erreicht, wird pos=4 ans Programm zurueckgegeben. Ist das Dateiende erreicht, wird pos der Wert 3 zugewiesen. s$ Recordstruktur, in die der neue Datensatz geladen wird. Beschreibung Mit INEXT wird der naechste Datensatz nach dem aktuellen Satz aktiviert, wobei sich KIM an dem aktuellen Index orientiert. Falls das Dateiende erreicht ist, wird der Datenbanksatzzeiger nicht weiter verstellt, der letzte Datensatz bleibt aktiviert. Bespiel INEXT Siehe ISTART IENDE IPREV ISKIP ΓòÉΓòÉΓòÉ 140. INEXTREL ΓòÉΓòÉΓòÉ Funktion Der Datensatzzeiger auf den naechsten Datensatz der Masterdatenbank gesetzt Syntax INEXTREL relnr,ok, structmaster, structslave Eingabe relnr Kennummer (Handle) der Relation (Master- und Slavedatenbank) Ausgabe ok Werte entsprechen der Variablen pos bei dem Befehl INEXT. structmaster Datensatzinhalt der Masterdatenbank structslave Datensatzinhalt der Slavedatenbank Beschreibung Der Befehl entspricht dem Befehl INEXT, nur ist er allgemeiner auf Relationen anwendbar. Bespiel INEXTREL Siehe ΓòÉΓòÉΓòÉ 141. IOPEN ΓòÉΓòÉΓòÉ Funktion oeffnet eine bestehende Datenbank. Syntax IOPEN nr,datei Eingabe nr Nummer der entsprechenden Datenbank datei Name der entsprechenden Datenbank Ausgabe Keine Beschreibung Voraussetzung fuer diesen Befehls ist das Vorhandensein einer Daten- bank. Mit IOPEN wird die Datenbank fuer den Zugriff durch andere Daten- bankbefehle aktiviert. Eine geoeffnete Datei sollte am Ende des Pro- gramms mit ICLOSE wieder geschlossen werden. Die Indexdateien muessen mit IOPEN_INDEX geoeffnet werden. Bespiel IOPEN Siehe ΓòÉΓòÉΓòÉ 142. IOPEN_INDEX ΓòÉΓòÉΓòÉ Funktion Eine Indexdatei wird geoeffnet. Syntax IOPEN_INDEX nr,datei$ Eingabe nr Nummer der entsprechenden Datenbank datei$ Zu oeffnende Indexdatei Ausgabe Beschreibung Neben einer geoeffneten Indexdatei koennen noch weitere Indexdateien geoeffnet werden. Bespiel IOPEN_INDEX Siehe ICLOSE_INDEX ΓòÉΓòÉΓòÉ 143. IPACK ΓòÉΓòÉΓòÉ Funktion Geloeschte Datensaetze werden aus der Datenbank entfernt. Syntax IPACK nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe Keine Beschreibung Mit diesem Befehl werden alle als geloescht markierten Datensaetze aus der Datenbank entfernt. Danach koennen sie nicht mehr mit IUNDEL zurueck- geholt werden. Bespiel IPACK Siehe IREINDEX ΓòÉΓòÉΓòÉ 144. IPREV ΓòÉΓòÉΓòÉ Funktion Setzt den Datenbanksatzzeiger auf den vorhergehenden Datensatz bezueglich des aktuellen Index. Syntax IPREV nr,pos,s$ Eingabe nr Nummer der entsprechenden Datenbank Ausgabe s$ Recordstruktur, in die der neue Datensatz geladen wird pos Variable, in die die neue Position des Datenbanksatzzeigers zurueckgegeben wird. Am Dateianfang wird der Wert 4 ueber- geben, am Ende der Datei erfolgt die uebergabe des Wertes 3. Beschreibung Mit diesem Befehl wird der vorhergehende Datensatz aktiviert. Am Dateianfang und -ende erfolgt keine Veraenderung des aktuellen Datensatzes mehr. Bespiel IPREV Siehe ISTART IENDE INEXT ISKIP ΓòÉΓòÉΓòÉ 145. IPREVREL ΓòÉΓòÉΓòÉ Funktion Der Datensatzzeiger auf den vorherigen Datensatz der Masterdatenbank gesetzt. Syntax IPREVREL relnr,ok, structmaster, structslave Eingabe relnr Kennummer (Handle) der Relation Ausgabe ok Werte entsprechen der Variablen pos bei dem Befehl IPREV structmaster Datensatzinhalt (Masterdatenbank) structslave Datensatzinhalt (Slavedatenbank) Beschreibung Der Befehl entspricht dem Befehl IPREV, ist aber allgemeiner fuer Relationen gueltig. Bespiel IPREVREL Siehe INEXTREL ΓòÉΓòÉΓòÉ 146. IREAD ΓòÉΓòÉΓòÉ Funktion Sucht einen Datensatz in einer geoeffneten Datenbank bezueglich des aktuellen Index. Syntax IREAD nr,ok,suchstring$,s$ Eingabe nr Nummer der entsprechenden Datenbank s$ Recordstruktur, in der der Datensatz gesucht wird suchstring$ Zu suchender Feldinhalt Ausgabe ok Variable, in die das Ergebnis der Suche uebergeben wird: ok=0: Datensatz gefunden ok<>0: Datensatz nicht gefunden Beschreibung Es wird nach dem Feldwert in der Datenbank gesucht, auf den der aktuelle Index zeigt (Schluesselwert). Es koennen aber auch alle weiteren Felder der Recordstruktur als Index ausgezeichnet werden. Dies ist besonders dann wichtig, wenn mehrere Datensaetze mit dem gleichen Schluesselwert gefunden werden. Dann werden zur Unterscheidung weitere Indexkriterien betrachtet. Bespiel IREAD Siehe IADD IMODREC ΓòÉΓòÉΓòÉ 147. IREINDEX ΓòÉΓòÉΓòÉ Funktion Reorganisiert einen bestehenden Index. Syntax IREINDEX nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe keine Beschreibung Es werden alle offenen Indexdateien einer Datenbank reorganisiert. Bespiel IREINDEX Siehe IPACK ΓòÉΓòÉΓòÉ 148. ISET ΓòÉΓòÉΓòÉ Funktion Wechselt den aktuellen Index. Syntax ISET nr,index$,expr$ Eingabe nr Nummer der entsprechenden Datenbank index$ Neuer Indexname (Nicht der Name der physikal. Indexdatei) Ausgabe expr$ Aktueller Inhalt aufgrund des neuen Indexes. Beschreibung Der aktuelle Index wird gewechselt. Voraussetzung hierfuer ist, dass eine Indexdatei geoeffnet ist. Bespiel ISET Siehe IOPEN IOPEN_INDEX ΓòÉΓòÉΓòÉ 149. ISETREL ΓòÉΓòÉΓòÉ Funktion Eine Relation zwischen einer Master- und einer Slave-Datenbank wird definiert. Syntax ISETREL relnr, dbnr_master,dbnr_slave,slave_ausdruck Eingabe relnr Kennummer (Handle) der Relation dbnr_master Kennummer (Handle) der Masterdatenbank dbnr_slave Kennummer (Handle) der Slavedatenbank slave_ausdruck Verknuepfung zwischen Master- und Slave-Datenbank Ausgabe keine Beschreibung Es wird eine Relation zwischen zwei Datenbanken geknuepft. Dabei ist die Verbindung zwischen beiden Datenbanken der Inhalt der Variablen slave_ausdruck. Hier wird der gemeinsame Index der beteiligten Daten- banken festgelegt, nach der saemtliche Daten angeordnet werden sollen. Bespiel ISETREL Siehe ΓòÉΓòÉΓòÉ 150. ISETRELQUERY ΓòÉΓòÉΓòÉ Funktion Ein dBASE-Ausdruck wird fuer eine Relation eingesetzt. Syntax ISETRELQUERY relnr,expression Eingabe relnr Kennummer (Handle) der Relation expression Ausdruck, der fuer die Relation eingesetzt werden soll Ausgabe Keine Beschreibung Es wird ein DBASE-Ausdruck fuer eine Relation eingesetzt. Die Beschreib Kapitel ueber Datenbanken. Bespiel ISETRELQUERY Siehe ΓòÉΓòÉΓòÉ 151. ISETRELSORT ΓòÉΓòÉΓòÉ Funktion Es wird ein Sortierausdruck fuer eine Relation bestimmt. Syntax ISETRELSORT relnr, sort_expression Eingabe relnr Kennummer (Handle) der Relation sort_expression Sortierausdruck Ausgabe Keine Beschreibung Befehle fuer die Sortierung werden im Kapitel ueber Datenbanken beschrieben. Bespiel ISETRELSORT Siehe ΓòÉΓòÉΓòÉ 152. ISKIP ΓòÉΓòÉΓòÉ Funktion Datenbankzeiger vor- bzw. r╨æckw╨örts bewegen Syntax ISKIP db_nr, anzahl Eingabe db_nr Nr der Datanbank anzahl 10 S╨ötze weiter anzahl -10 S╨ötze zur╨æck Ausgabe Beschreibung Bewegt den Datenbankzeiger bei einen positiven Wert um <anzahl> vorw╨örts in der Datenbank oder bei einen nega- tiven Wert um <Anzahl> zur╨æck in der Datenbank. Werden dabei die Datenbankgrenzen (Anfang,Ende) ╨æberschritten, wird der Datenbankzeiger entsprechend auf den Anfang oder das Ende gesetzt. Bespiel ISKIP Siehe INEXT IPREV ΓòÉΓòÉΓòÉ 153. ISTART ΓòÉΓòÉΓòÉ Funktion Setzt den Datenbanksatzzeiger auf den ersten Datensatz bezueglich des aktuellen Index. Syntax ISTART nr,s$ Eingabe nr Nummer der entsprechenden Datenbank Ausgabe s$ Recordstruktur, in der der neue Datensatz erscheinen soll. Beschreibung Falls kein Datensatz in der Datenbank vorhanden ist, wird eine ent- sprechende Meldung ausgegeben. Bespiel ISTART Siehe IENDE IPREV INEXT ΓòÉΓòÉΓòÉ 154. ISTARTREL ΓòÉΓòÉΓòÉ Funktion Der Datensatzzeiger wird auf den Anfang der Masterdatenbank gesetzt Syntax ISTARTREL relnr, structmaster, structslave Eingabe relnr Kennummer (Handle) der Relation Ausgabe structmaster Datensatzinhalt (Masterdatenbank) structslave Datensatzinhalt (Slavedatenbank) Beschreibung Der Befehl entspricht dem Befehl ISTART, ist aber allgemeiner fuer Relationen gueltig. Bespiel ISTARTREL Siehe ΓòÉΓòÉΓòÉ 155. IUNDEL ΓòÉΓòÉΓòÉ Funktion Loeschmarkierung eines Datensatzes wird aufgehoben. Syntax IUNDEL nr Eingabe nr Nummer der entsprechenden Datenbank Ausgabe keine Beschreibung Der aktuelle Datensatz wird wieder zurueckgeholt und kann weiter ver- wendet werden. Dieser Befehl ist nur anwendbar, wenn die Anweisung IPACK noch nicht durchgefuehrt wurde. Bespiel IUNDEL Siehe IDEL IDELCHECK ΓòÉΓòÉΓòÉ 156. IUNLOCK ΓòÉΓòÉΓòÉ Funktion Entsperrt den aktuellen Datensatz einer geoeffneten Datenbank. Syntax IUNLOCK nr,ok Eingabe nr Nummer der entsprechenden Datenbank Ausgabe ok Variable, in die das Ergebnis des Vorgangs an das Programm zurueck gegeben wird: ok<>50 Datensatz wurde entsperrt ok=50 Datensatz konnte nicht entsperrt werden Beschreibung Dieser Befehl ist nur in der Netzwerkversion von KIM gueltig. Er ent- sperrt einen mit ILOCK fuer den Zugriff anderer Anwender gesperrten Datensatz wieder. Somit ist der aktuelle Datensatz fuer jeden Benutzer des Netzwerks ansprechbar und bearbeitbar. Bespiel IUNLOCK Siehe ILOCK ΓòÉΓòÉΓòÉ 157. RND ΓòÉΓòÉΓòÉ Funktion Ermittelt eine willkuerliche Zahl mittels eines Zufallsgenerators. Syntax RND startpos,zahl Eingabe startpos Startposition fuer den Zufallsgenerator (0-255) Ausgabe zahl Variable, in die die zuf_llig ausgewaehlte Zahl uebergeben wird (0-32000). Beschreibung Mit diesem Befehl koennen Sie einen Zufallsgenerator aktivieren, der Ihnen beliebig viele Zahlen in zuf_lliger Reihenfolge ausgibt. Um unterschiedliche Zufallszahlen zu erhalten, koennen Sie verschiedene Startpositionen zur Ermittlung der Zahlen festlegen. Bespiel RND Siehe ΓòÉΓòÉΓòÉ 158. SETLANG ΓòÉΓòÉΓòÉ Funktion Umwandlung beim lesen von numerischen Feldern. Syntax SETLANG flag Eingabe flag 1=Umwandlung Punkt nach Komma (Vorgabe) 0=Punkt bleibt Ausgabe keine Beschreibung (Standard) Bei Zahlenfelder aus Datenbank einer Datenbank wird der Punkt in ein Komma gewandelt (Deutschland) Bespiel SETLANG Siehe ΓòÉΓòÉΓòÉ 159. ADD_ITEM ΓòÉΓòÉΓòÉ Funktion Ein Objekt wird an ein anderes Objekt angefuegt. Syntax ADD_ITEM Haupt_id String, Unter_id,.. Eingabe Haupt_id String Mutterobjekt Unter_id String Kindobjekt Ausgabe keine Beschreibung Mit diesem Befehl fuegen Sie an ein Objekt ein anderes Objekt an. Beispiel: Sie haben ein Listenobjekt, z.B. eine Combobox, definiert. In dieser Combobox brauchen wir einige Elemente. Diese Elemente, z.B. String- objekte, werden mit dem Befehl ADD_ITEM an die Combobox "angefuegt". Dann fuegen wir das Objekt Combobox an das Fensterobjekt an. In einigen Fuellen ist die Reihenfolge der Objekte, die an ein anderes Objekt angefuegt werden, wichtig (bei Fenstern sollte zunaechst der Rahmen vor anderen Objekte hinzugefuegt werden, vgl. Kapitel Oberflaechen- erstellung). Ein Objekt darf nicht gleichzeitig zwei verschiedenen Objekten als Element zugewiesen werden. Das Betriebssystem meldet sonst einen allgemeinen Speicherschutzfehler. Bespiel ADD_ITEM Siehe ADD_ITEM_ARRAY SUB_ITEM SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ 160. ADD_ITEM_ARRAY ΓòÉΓòÉΓòÉ Funktion Berechnet den ArcusCosinus eines vorgegebenen Winkels. Ein Objekt wird an ein anderes Objekt angefuegt. Syntax ADD_ITEM_ARRAY Haupt_id String, Unter_id, von$, bis$ Eingabe Variable mit dem Wert des zu berechnenden Winkels Haupt_id String Mutterobjekt Unter_id String Kindobjekt von$ Erstes Objekt (Zahl) bis$ Letztes Objekt (Zahl) Ausgabe Variable mit dem ArcusCosinus des vorgegebenen Winkels keine Beschreibung Mit dieser Funktion berechnen Sie den ArcusCosinus eines Winkels. Geben Sie hierzu den numerischen Wert des Winkels ohne Einheit vor. Mit diesem Befehl fuegen Sie an ein Objekt mehrere Objekt an. Bespiel ADD_ITEM_ARRAY Siehe ADD_ITEM SUB_ITEM SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ 161. COLOR_ITEM ΓòÉΓòÉΓòÉ Funktion Aendert die Farbe eines Objekts Syntax COLOR_ITEM id_string,pnr Eingabe id_string Objektkennung pnr Bezeichnung der Palette, in der die zu verwendenden Farben definiert wurden Ausgabe keine Beschreibung Hiermit wird die Farbe eines Objekts ge_ndert. Dies hat nur einen Er- folg unter WINDOWS/OS2, wenn das Flag "color on" fuer das entsprechende Objekt gesetzt und die entsprechende Farbpalette definiert ist. Bespiel COLOR_ITEM Siehe DEF_PALETTE ΓòÉΓòÉΓòÉ 162. DEF_BORDER ΓòÉΓòÉΓòÉ Funktion Definition eines Rands Syntax DEF_BORDER id_string Eingabe id_string Objektbezeichnung Ausgabe keine Beschreibung Ein Border-Objekt wird definiert und kann dann mit ADD_ITEM addiert werden. Bespiel DEF_BORDER Siehe ΓòÉΓòÉΓòÉ 163. DEF_BUTTON ΓòÉΓòÉΓòÉ Funktion Definiert einen Button (dt. Knopf) Syntax DEF_BUTTON id_string, x, y, len, bitmap$, text$ Eingabe id_string Objektkennung x,y x/y-Position des Buttons im zugewiesenen Fenster len Laenge des Buttons bitmap$ Name eines Bitmaps aus einer DAT-Datei (wenn vorhanden) text$ Titel des Buttons Ausgabe keine Beschreibung Dadurch wird ein Button (Druckknopf) erstellt. Die Art eines Buttons (PUSH, RADIO, RING) wird ueber die Flags gesteuert. Optional kann auf den Button ein Bild (Bitmap, Icon) gelegt werden. Wird dies nicht ge- wuenscht, weisen Sie der Variablen bitmap$ einen Leerstring " " zu. Bespiel DEF_BUTTON Siehe ΓòÉΓòÉΓòÉ 164. DEF_COMBO ΓòÉΓòÉΓòÉ Funktion Definiert eine Auswahlbox. Syntax DEF_COMBO id_string,x,y,len,height Eingabe id_string Objektkennung x,y x/y-Position der Box im zugewiesenen Fenster len Laenge der Box height Hoehe der Box Ausgabe keine Beschreibung Einer Auswahlbox koennen verschiedenartige Objekte zugewiesen werden. Bespiel DEF_COMBO Siehe DEF_LIST ΓòÉΓòÉΓòÉ 165. DEF_GROUP ΓòÉΓòÉΓòÉ Funktion Definiert ein Gruppenobjekt. Syntax DEF_GROUP Id_string, x, y, xr, yr,"ueberschrift" Eingabe Id_string Kennung des Objekts x, y Position des Gruppenfensters im zugewiesenen Fenster xr, yr Laenge und Breite der Gruppe "ueberschrift" Ueberschrift der Gruppe Ausgabe Beschreibung Mit diesem Befehl wird ein Gruppenobjekt definiert. In erster Linie dient ein Gruppenobjekt dazu, mehrere Fensterobjekte zu einer physikalischen Gruppe zusammenzufassen und von anderen Objekten zu separieren. Bespiel DEF_GROUP Siehe ΓòÉΓòÉΓòÉ 166. DEF_ICON ΓòÉΓòÉΓòÉ Funktion Ein Icon aus der Objektbibliothek wird naeher definiert. Syntax DEF_ICON Id_string, x, y, "Iconname","Titel" Eingabe Id_string Kennung des Objekts x, y x-y Position des Icons im zugewiesenen Objekt "Iconname" Name des ICONS in einer geladenen DAT-Datei. "Titel" Zusatzbezeichnung des Icons Ausgabe keine Beschreibung Icons sind kleine Grafiken im Pixelformat auf einer 32 x 32 Matrix. Fuer die Systemunabhaengigkeit wird ein eigenes Format unterstuetzt. Icons koennen nur aus systemunabhaengigen DAT-Files genutzt werden. Ein entsprechender ICON-Designer wird an anderer Stelle beschrieben. ueber ein Flag kann man entscheiden, ob das ICON nur bei Symbolgroesse eines Fensterobjekts oder als normales ICON eingesetzt wird. Das FLAG "ICON MINIMIZE" bewirkt die Aktivierung des Icons bei Verkleinerung des Objekts auf Symbolgroesse. "ICON DOUBLE_CLICK" hat zur Folge, dass das Icon nur bei einem Doppelklick selektiert wird. Der "Iconname" ist die Bezeichnung des ICONS aus einem DAT-File, ueber den es aus dieser Datei eingelesen werden. ueber die Zusatzbezeichnung koennen Sie das Icon nach diesem Befehl mit anderen Anweisungen an- sprechen. Bespiel DEF_ICON Siehe LOAD_DAT ΓòÉΓòÉΓòÉ 167. DEF_INPUT ΓòÉΓòÉΓòÉ Funktion Definition einer formatierbaren Eingabemaske. Syntax DEF_INPUT id_string, x,y,breite,text,maske,schablone Eingabe id_string Objektkennung x,y x,y-Position der Maske im Fenster breite Breite der Eingabezone text Vorgabetext (erscheint bei Aufruf der Maske) maske Zulaessige Eingabe, die in der Maske getaetigt werden kann: c: Alphanumerische Eingabezeichen C: Alphanumerische Eingabeparameter. z, A.. Z (keine Sonderzeichen und Zahlen) A: Wie bei a, aber mit sofortiger Umwandlung in Grossbuchstaben L: Benuetzen Sie dieses Zeichen fuer Schablonenvorgabe N: Numerische Eingabeparameter: x: Eingabeparameter: von druckbaren Zeichen X: Wie x, aber mit Umwandlung in Grossbuchstaben schablone Eingabeschablone Ausgabe Beschreibung Es wird eine Eingabemaske erstellt, die die getaetigte Eingabe gemaess der unter maske definierten Vorgaben automatisch formatiert. Ein Beispiel fuer den Befehl: DEF_INPUT "id",2,2,10," ","LLLcccLNNN","GUT - ". Die ersten drei Felder der Maske enthalten eine Vorgabe, welche ueber die Schablone als GUT bestimmt wird. Danach koennen drei alphanumerische Zeichen eingegeben werden, ehe ein weiteres Zeichen (-) vorgegeben ist. Schliesslich koennen drei Zahlen eingegeben werden. Maske und Schablone entsprechen sich in Zeichenanzahl und -folge. Bespiel DEF_INPUT Siehe DEF_INPUT_DATE DEF_INPUT_TIME DEF_NUMBER ΓòÉΓòÉΓòÉ 168. DEF_INPUT_DATE ΓòÉΓòÉΓòÉ Funktion Definition einer Datumseingabemaske Syntax DEF_INPUT_DATE id_string, x, y, len,vorgabe, range Eingabe id_string Objektkennung x, y Position der Maske len Laenge der Maske vorgabe Datumsvorgabe (erscheint bei Aufruf der Maske) range Einschraenkung des Datumszeitraums Ausgabe keine Beschreibung Dieses Objekt ermoeglicht die Eingabe eines Datums in der Form TT/MM/YY oder TT.MM.JJ. Ist die Vorgabe leer, wird das aktuelle Tagesdatum eingetragen. Mit dem Inhalt der Variablen "range" koennen Sie einen Eingabezeitraum festlegen (z.B. 03/09/93..03/12/93). Bespiel DEF_INPUT_DATE Siehe DEF_INPUT DEF_INPUT_TIME DEF_NUMBER ΓòÉΓòÉΓòÉ 169. DEF_INPUT_TIME ΓòÉΓòÉΓòÉ Funktion Definiert Eingabemaske fuer Zeitangaben. Syntax DEF_INPUT_TIME id_string,x,y,len,vorgabe$,intervall$ Eingabe id_string Objektkennung x,y x,y-Position der Maske im zugewiesenen Fenster len Laenge der Eingabezone vorgabe$ Vorgabe im Eingabefeld (erscheint bei Aufruf der Maske) intervall$ Zeitintervall, das eingegeben werden kann. (z.B. 12.00..14.45) Ausgabe keine Beschreibung Dieses Objekt ermoeglicht die Eingabe einer Zeitangabe. Bespiel DEF_INPUT_TIME Siehe DEF_INPUT_DATE DEF_INPUT ΓòÉΓòÉΓòÉ 170. DEF_LIST ΓòÉΓòÉΓòÉ Funktion Definiert ein Listenobjekt Syntax DEF_LIST id_string,flag,x,y,xl,yl,cellwidth,cellheight Eingabe id_string Objektkennung flag Definiert den Listentyp: flag=0: Vertikale Liste flag=1: Horizontale Liste x,y x/y-Position der Liste im zugewiesenen Fenster xl,yl Relative Breite/Hoehe der Liste cellwidth Zellenbreite (nur bei horizontalen Listen) cellheight Zellenhoehe (nur bei horizontalen Listen) Ausgabe keine Beschreibung Die Zellenbreite/hoehe ist nur bei einer horizontalen Listbox wichtig. Bei einer vertikalen Listbox geben Sie fuer die beiden Variablen je- weils den Wert Null vor. Bespiel DEF_LIST Siehe DEF_COMBO ΓòÉΓòÉΓòÉ 171. DEF_MAX_BUTTON ΓòÉΓòÉΓòÉ Funktion Definition eines Vergroesserungsdruckknopfs. Syntax DEF_MAX_BUTTON id_string Eingabe id_string Kennung des Objekts Ausgabe keine Beschreibung Dieses Objekt stellt ein Fenster auf Klick als Vollbild dar. Bespiel DEF_MAX_BUTTON Siehe DEF_MIN_BUTTON ΓòÉΓòÉΓòÉ 172. DEF_MIN_BUTTON ΓòÉΓòÉΓòÉ Funktion Definition eines Verkleinerungsdruckknopfs. Syntax DEF_MIN_BUTTON id_string Eingabe id_string Kennung des Objekts Ausgabe keine Beschreibung Dieses Objekt reduziert ein Fenster durch Klick auf ICON-Groesse. Bespiel DEF_MIN_BUTTON Siehe DEF_MAX_BUTTON ΓòÉΓòÉΓòÉ 173. DEF_NUMBER ΓòÉΓòÉΓòÉ Funktion Erstellt eine Eingabemaske fuer eine Zahl. Syntax DEF_NUMBER id_zahl ,x,y,len,vorgabe$, bereich ; flags Eingabe id_zahl Objektkennung x,y x/y-Position der Maske im zugewiesenen Fenster len maximale Eingabelaenge fuer das Objekt vorgabe Vorgabezahl (erscheint bei Aufruf der Maske) bereich Auf dem Bildschirm angezeigte Objektlaenge Ausgabe keine Beschreibung Hiermit wird eine Numerische-Eingabemaske erstellt. Es wird ein Objekt mit der in wert vorgegebenen Laenge erstellt. commas Es werden Kommas und Punkt f╨ær Trennung von Dezimal und Tausender-Stellen verwendet (Verwendung wie Einstellung des Systems) currency W╨öhrungssymbol wird mit angezeigt. decimal x x=0..6 Anzahl der Nachkommastellen percent Zeigt Zahl mit Prozentzeichen scientific Zeigt Zahl in wissenschaftlicher Form (z.B. 10 E+10) Bespiel DEF_NUMBER Siehe DEF_INPUT_DATE DEF_INPUT_TIME DEF_INPUT ΓòÉΓòÉΓòÉ 174. DEF_PALETTE ΓòÉΓòÉΓòÉ Funktion Eine Farbpalette"Farbpalette" ~ wird definiert. Syntax DEF_PALETTE nr, fv, fh Eingabe nr Kennummer der Farbpalette fv Codenummer der gewuenschten Vordergrundfarbe fh Codenummer der gewuenschten Hintergrundfarbe Ausgabe keine Beschreibung Mit diesem Befehl definieren Sie eine Farbpalette mit je einer selektierten Vordergrund- und Hintergrundfarbe. Die Codenummern fuer die entsprechenden Farben entnehmen Sie bitte der Farbtabelle im Anhang dieses Buches. ueber Farbpaletten koennen Sie die Farbge- bung von Objekten direkt von KIM aus steuern (normalerweise ueber- nimmt diese Aufgabe das jeweilige Betriebssystem). Damit Objekte mit den Farben der entsprechenden Palette versehen werden koennen, muss ihnen das FLAG "COLOR ON" angefuegt werden. Bespiel DEF_PALETTE Siehe COLOR_ITEM ΓòÉΓòÉΓòÉ 175. DEF_POPUP_ITEM ΓòÉΓòÉΓòÉ Funktion Eine Popup-Element wird definiert. Syntax DEF_POPUP_ITEM id_string,text$ Eingabe id_string Objektkennung text$ Im Objekt zu erscheinender Text Ausgabe keine Beschreibung Ein Popup-Element kann nur einem Pulldown- oder Popupmenue zugeordnet werden. Bespiel DEF_POPUP_ITEM Siehe DEF_PULLDOWN_ITEM ΓòÉΓòÉΓòÉ 176. DEF_POPUP_MENU ΓòÉΓòÉΓòÉ Funktion Eine Popup-Menue wird definiert. Syntax DEF_POPUP_MENU id_string,x,y Eingabe id_string Objektkennung x,y Position des Objekts im zugewiesenen Fenster Ausgabe keine Beschreibung Hiermit erstellen Sie ein Pop-Up-Menue mit den ueber Pop-Up-item zugewiesenen Menuepunkten (durch ADD_ITEM anzufuegen). Bespiel DEF_POPUP_MENU Siehe DEF_POPUP_ITEM ΓòÉΓòÉΓòÉ 177. DEF_PROMPT ΓòÉΓòÉΓòÉ Funktion Definition einer Ausgabemarke Syntax DEF_PROMPT id_string, x, y, "Text A",... Eingabe id_string Kennung des Objekts x, y Position der Marke im zugewiesenen Fenster "Text A" Ausgabetext Ausgabe keine Beschreibung Mit diesem Objekttyp wird ein Textobjekt definiert, das nicht selektierbar ist. Dieser Befehl wird benutzt, um Text im Fenster darzustellen (z.B. als Feldbezeichnung). Es gibt nun die M╨ñglichkeit an einen DEF_PROMPT Ausgabe eine bestimmte Menge von Leerzeichen anzuh╨öngen. Definieren Sie die numerische Variable DEF_PROMPT_LEN. Weisen Sie dieser Variable die Anzahl der Leerzeichen zu. Der Wert -1 bedeutet, da╤ü die DEF_PROMPT Routine vom Betriebssystem genutzt wird. Bespiel DEF_PROMPT Siehe ΓòÉΓòÉΓòÉ 178. DEF_PULLDOWN_ITEM ΓòÉΓòÉΓòÉ Funktion Eine Pulldown-Element wird definiert. Syntax DEF_PULLDOWN_ITEM id_string,text$[,flag] Eingabe id_string Objektkennung text$ Im Objekt zu erscheinender Text flag Gilt nur unter DOS. Besitzt das Menue noch Unterpunkte, muss flag=1 sein. Ansonsten geben Sie flag=0 ein. Ausgabe keine Beschreibung Ein Pulldown-Element wird nur einem Pulldown- oder Popupmenue zugeordnet. Bespiel DEF_PULLDOWN_ITEM Siehe DEF_POPUP_ITEM ΓòÉΓòÉΓòÉ 179. DEF_PULLDOWN_MENU ΓòÉΓòÉΓòÉ Funktion Eine Pulldown-Menue wird definiert. Syntax DEF_PULLDOWN_MENU id_string,level Eingabe id_string Objektkennung level Position des Menues im Menuebalken beim Start Ausgabe keine Beschreibung Ein Pulldown-Menue erscheint in der Regel am oberen Fensterrand. Es enthaelt als Menuepunkte die definierten und ueber ADD_ITEM zugefuegten Pulldown-Items. Bespiel DEF_PULLDOWN_MENU Siehe DEF_PULLDOWN_ITEM ΓòÉΓòÉΓòÉ 180. DEF_SCROLLBAR ΓòÉΓòÉΓòÉ Funktion Definiert einen Schieberegler zum schnellen Durchlaufen eines Textfensters. Syntax DEF_SCROLLBAR id_string,flag,x,y,len,height Eingabe id_string Objektkennung flag Legt den Typ des Scrollbars"Scrollbars" ~ fest: flag = 0: Horizontaler Balken flag = 1: Vertikaler Balken flag = 2: Balkenecke x,y x/y-Position des Balkens im zugewiesenen Fenster len Laenge des Balkens height Hoehe des Balkens Ausgabe keine Beschreibung Wenn Sie die Balken an den raendern des zugewiesenen Fensters anzeigen moechten, geben sie einfach fuer die Variablen x, y, len und height jeweils den Wert Null an. Bespiel DEF_SCROLLBAR Siehe ΓòÉΓòÉΓòÉ 181. DEF_SLIDER ΓòÉΓòÉΓòÉ Funktion Es wir ein Sliderobjekt definiert. (dt. SLIDER = bewegender Balken) Syntax DEF_SLIDER id_string,x,y,len,update Eingabe id_string Objektkennung x,y x/y-Position des Objekts im zugewiesenen Fenster len Laenge des Objekts update Anzahl der Prozentschritte, bis der Balken auf 100% ist Ausgabe keine Beschreibung Dieses Objekt wird genutzt, um eine fortschreitende Taetigkeit am Bildschirm graphisch darzustellen (z.B. Formatieren von Disketten). Bespiel DEF_SLIDER Siehe ΓòÉΓòÉΓòÉ 182. DEF_SPIN ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel DEF_SPIN Siehe ΓòÉΓòÉΓòÉ 183. DEF_STATUSBAR ΓòÉΓòÉΓòÉ Funktion Syntax DEF_STATUSBAR "id" , hoehe Eingabe "id" Objektkennung hoehe Zeilenzahl fuer die Statusbar Ausgabe Beschreibung Definiert eine Statuszeile am unteren Fensterrand. An die Statuszeile k╨ñnnen folgende Objekte addiert werden: String-, Datums-, Zeit- und Nummernfelder. Weiterhin k╨ñnnen Buttons und Icons addiert werden. Die Statuszeile dient als Meldefenster und liefert keine R╨æckgabewerte. Bespiel DEF_STATUSBAR Siehe DEF_TOOLBAR DEF_WINDOW DEF_WINDOW_ST ΓòÉΓòÉΓòÉ 184. DEF_STRING ΓòÉΓòÉΓòÉ Funktion Erstellt eine Eingabemaske fuer einen Text. Syntax DEF_STRING id_string,x,y,eingabelaenge, text, anzeigelaenge Eingabe id_string Objektkennung x,y x/y-Position der Maske im zugewiesenen Fenster eingabelaenge maximale Eingabelaenge fuer das Objekt text Vorgabetext (erscheint bei Aufruf der Maske) anzeigelaenge Auf dem Bildschirm angezeigte Objektlaenge, und mu╤ü kleiner als {eingabelaenge} sein. Ausgabe keine Beschreibung Hiermit wird eine Text-Eingabemaske erstellt. Es erfolgt aber keine automatische Formatierung wie bei DEF_INPUT. Es wird nur ein Objekt mit der in wert vorgegebenen Laenge erstellt. Sollte die maximale Eingabelaenge (ueber LEN definiert) laenger sein als dieser Wert, so wird der Objektinhalt gegebenenfallls durch das Eingabefeld gescrollt. Bespiel DEF_STRING Siehe DEF_INPUT_DATE DEF_INPUT_TIME DEF_INPUT DEF_NUMBER ΓòÉΓòÉΓòÉ 185. DEF_SYSTEM_BUTTON ΓòÉΓòÉΓòÉ Funktion Definition eines Systemdruckknopfs. Syntax DEF_SYSTEM_BUTTON id_string, Flag Eingabe id_string Kennung des Objekts Flag Art des Systemmenues: flag = 0: Automatische Definition der Menuepunkte. flag <>0: Menuepunkte sind noch nicht definiert. Ausgabe keine Beschreibung Das Objekt Systembutton dient dazu, die Operationen fuer ein Fenster (z.B. Groesse, Verschieben, Verkleinern, Schlie_en) ueber ein Popup- Menue aufzurufen. Das Objekt befindet sich immer in der linken oberen Ecke eines Fensters. Mit einen Doppelklick auf dem Systembutton schliesst man das Fenster. Bespiel DEF_SYSTEM_BUTTON Siehe ΓòÉΓòÉΓòÉ 186. DEF_TABLE ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel DEF_TABLE Siehe ΓòÉΓòÉΓòÉ 187. DEF_TABLE_REC ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel DEF_TABLE_REC Siehe ΓòÉΓòÉΓòÉ 188. DEF_TEXT ΓòÉΓòÉΓòÉ Funktion Eingabe mehrerer Zeilen Text. Syntax DEF_TEXT id_string, x,y,breite,hoehe,anzahl,array Eingabe id_string Objektidentifikation x,y x-y Position des Objektes breite,hoehe Breite/Hoehe des Objekts anzahl Anzahl der Bytes der Eingabe array Zeichenketten array mit Vorgabe fuer den Inhalt Ausgabe keine Beschreibung Mit diesem Befehl definieren Sie eine Texteingabebox. Die max. zulaessigen Eingabezeichen betragen 64 KB pro Textbox. Die Editier- funktionen in der Textbox entsprechen den Funktionen der Zwischen- ablage unter Windows oder dem Systemeditor unter OS/2. Bespiel DEF_TEXT Siehe ΓòÉΓòÉΓòÉ 189. DEF_TITEL ΓòÉΓòÉΓòÉ Funktion Definition eines Titels fuer ein Fenster etc. Syntax DEF_TITEL Id_string, "Titel" Eingabe Id_string Kennung fuer Objekt "Titel" ueberschrift Ausgabe keine Beschreibung Es wird ein Objekt definiert, welches einem anderen Objekt eine Ueberschrift hinzufuegt. Bespiel DEF_TITEL Siehe DEF_WINDOW ΓòÉΓòÉΓòÉ 190. DEF_TOOLBAR ΓòÉΓòÉΓòÉ Funktion Definition einer Objektleiste fuer Push-Buttons Syntax DEF_TOOLBAR Id_string, x, y, xr, yr Eingabe Id_string Kennung des Objekts x, y Position des linken oberen Ecks des Objekts im Fenster xr, yr Laenge und Breite der Toolbar Ausgabe Beschreibung Eine Toolbar wird direkt unter dem oberen Fensterrand angeordnet. Es koennen mehrere Toolbar-Objekte an ein Fenster angefuegt werden. Objekte, die an ein Toolbar-Objekt angefuegt werden, werden auto- matisch in das Toolbar-Objekt eingepasst. Bespiel DEF_TOOLBAR Siehe DEF_STATUSBAR ΓòÉΓòÉΓòÉ 191. DEF_WINDOW ΓòÉΓòÉΓòÉ Funktion Definition eines Fensters Syntax def_window id_string, x, y, xr, yr [,icon,icontext,timerwert] Eingabe id_string Kennung des Objekts (max. 50 Zeichen) x, y linke x, y Position des Fensters auf dem Monitor xr, yr Relative Groesse des Fensters (Laenge/Breite) icon Name eines aus einer Dat-Datei icontext Text des Fensters bei Symbolgr╨ñ╤üe. timerwert Anzahl Ticks, wann Timerevent aufgerufen wird. Ausgabe keine Beschreibung Definiert ein Fensterobjekt. Diesem Objekt muessen aber noch weitere Objekte wie Fensterrand, Systembutton und Titel zugeordnet werden, um ein funktionsfaehiges Fenster zu erhalten. Dabei ist die Reihenfolge der Unterobjekte wichtig. TIMER-Funktion : Als Beispiel siehe TIMER.KIM. Unter KIM ist es nun m╨ñglich in einen bestimmten Intervall auf ein Ereignis zu reagieren. Hierf╨ær wurde der Befehl DEF_WINDOW erweitert. Als Zeitintervall dient ein Tick. (18.2 Ticks in der Sekunde) Wird der Zeitwert erreicht, wird die Funktion id_string_timer() aufgerufen. Die Timerfunktion kann man ╨æber EVENT_ON_ITEM id_string,"timer off" ausschalten und ╨æber EVENT_ON_ITEM id_string,"timer on" anschalten. ICON-Funktion : Wenn ein Fenster auf Symbolgr╨ñ╤üe verkleinert wird, kann man ein Icon aus einer DAT-Datei angeben. Dieses wird mit dem entsprechenden <iconText> dargestellt. Bespiel DEF_WINDOW Siehe DEF_WINDOW_ST ΓòÉΓòÉΓòÉ 192. DEF_WINDOW_ST ΓòÉΓòÉΓòÉ Funktion Erstellt ein Standardfenster mit System-, Maximierungs-, Minimierungsbutton und Rahmen sowie Fensterueberschrift. Syntax DEF_WINDOW_ST id_string, x, y, xr, yr, titel$ Eingabe id_string Bezeichnung des Fensters x, y linke x, y Position des Fensters auf dem Monitor xr, yr Relative Groesse des Fensters (Laenge/Breite) titel$ ueberschrift des Fensters Ausgabe keine Beschreibung Es wird ein Fenster mit obigen Objekten erstellt, ohne dass diese gesondert hinzugefuegt werden muessen. Dadurch verlieren Sie aber die Moeglichkeit der individuellen Erstellung eines Fensters. Bespiel DEF_WINDOW_ST Siehe DEF_WINDOW ΓòÉΓòÉΓòÉ 193. DESTROY ΓòÉΓòÉΓòÉ Funktion Loescht allle Elemente eines Objekts. Syntax DESTROY "id" Eingabe "id" Objekt Ausgabe nil Beschreibung Alle Objekte einer Liste werden gel╨ñscht. Dabei ist "id" die Objekt-ID der Liste. Achtung ! --------- Wenn Elemente eines Objekts (z.B. Liste) gel╨ñscht werden, dann k╨ñnnen diese Elemente nicht mehr an ein Objekt addiert werden, ohne das Sie vorher neu deklariert wurden. (DEF_...) Wird dies trotzdem versucht, erhalten Sie eine Systemfehler- meldung. Bespiel DESTROY Siehe ΓòÉΓòÉΓòÉ 194. DRAWTEXT ΓòÉΓòÉΓòÉ Funktion Erstellt einen Text im Graphikmodus. Syntax DRAWTEXT id_string, x, y, fcolor, hcolor, fill, width, xor, fontname Eingabe id_string Kennung des Objekts x,y Position der linken oberen Objektecke auf dem Bildschirm fcolor Nummer der Farbe der Textlinien (aus Farbpalette) hcolor Nummer der Fnllfarbe fuer das Objekt (aus Farbpalette) fill Angabe, ob das Objekt ausgefuellt werden soll: fill=1: Objekt wird gefuellt fill=0: Objekt bleibt leer width Strichdicke der Objektlinien xor Angabe, ob sich das Objekt von gleichfabrigem Hintergrund abheben soll: xor=1: ja xor=0: nein fontname Name des zu verwendenen Textfonts (""=Systemfont) Ausgabe keine Beschreibung Es kann ein Text im Graphikmodus erstellt werden. Dieser ist flexibler zu bearbeiten und kann daher zur optischen Verschoenerung Ihrer Ober- flaeche herangezogen werden. Unter OS/2 besitzen Sie die Moeglichkeit, einen zuvor ueber LOADFONT geladenenen Textfont anstelle des System- fonts des Betriebssystemes zu verwenden. Das Graphikobjekt verschwindet bei einer Fensteraktualisierung (Repositionierung, Neuzeichnung) und muss dann manuell neu erstellt werden. Bespiel DRAWTEXT Siehe ΓòÉΓòÉΓòÉ 195. ELLIPSE ΓòÉΓòÉΓòÉ Funktion Zeichnet eine Ellipse auf dem Bildschirm. Syntax ELLIPSE id,x,y, sW, eW, xR, yR, fcolor, hcolor, fill, width, xor Eingabe id Kennung des Objekts x,y Position der linken oberen Objektecke auf dem Bildschirm sW Winkelwert, bei dem das Objekt beginnen soll eW Winkelwert, bei dem das Objekt enden soll xR Objektradius in Richtung der x-Koordinate yR Objektradius in Richtung der y-Koordinate fcolor Nummer der Farbe der Objektlinien (aus Farbpalette) hcolor Nummer der Fuellfarbe fuer das Objekt (aus Farbpalette) fill Angabe, ob das Objekt ausgefuellt werden soll: fill=1: Objekt wird gefuellt; fill=0: Objekt bleibt leer width Strichdicke der Objektlinien xor Angabe, ob sich das Objekt von gleichfabrigem Hintergrund abheben soll: xor=1: ja; xor=0: nein Ausgabe keine Beschreibung Es kann eine Ellipse, ein Kreis oder ein Teil von diesen Objekten erstellt werden: xRadius=yRadius, startAngle=0, endAngle=360: Vollkreis xRadius<>yRadius, startAngle=0, endAngle=360: Vollellipse xRadius=yRadius, startAngle=0, endAngle<>360: Teil eines Kreises xRadius<>yRadius, startAngle=0, endAngle<>360: Teil einer Ellipse Das Graphikobjekt verschwindet bei einer Fensteraktualisierung (Repositionierung, Neuzeichnung) und muss dann manuell neu erstellt werden. Bespiel ELLIPSE Siehe ΓòÉΓòÉΓòÉ 196. FIND_ITEM ΓòÉΓòÉΓòÉ Funktion Such nach Objekten Syntax FIND_ITEM Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel FIND_ITEM Siehe ΓòÉΓòÉΓòÉ 197. GET_COUNT ΓòÉΓòÉΓòÉ Funktion Anzahl von Objekten ermitteln. Syntax GET_COUNT id_string,anzahl Eingabe id_string Objektkennung Ausgabe anzahl Anzahl der Objekte Beschreibung Ermittelt die Anzahl der Elemente in einem Fenster, Listbox oder Combobox. Wird die Funktion auf ein Objekt ohne Listeigenschaft angewendet, erh╨ölt man den Wert -1 als R╨æckgabe. Bespiel GET_COUNT Siehe ADD_ITEM_ARRAY GET_ITEM_ARRAY SUB_ITEM SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ 198. GET_ITEM ΓòÉΓòÉΓòÉ Funktion Inhalt eines Objekts wird gelesen. Syntax GET_ITEM id_string,inhalt$ [,index] Eingabe id_string Objektkennung index Position in einer Combobox oder Liste Ausgabe inhalt$ Variable, welcher der Inhalt des Objekts uebergeben wird Beschreibung Sie koennen hiermit den Inhalt eines Objekts ermitteln. Es ist m╨ñglich den Inhalt des n-ten Element einer Listbox oder Combox zu ermitteln. ( Ab Basis 1 ) Bespiel GET_ITEM Siehe ADD_ITEM_ARRAY GET_ITEM_ARRAY SUB_ITEM SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ 199. GET_ITEM_ARRAY ΓòÉΓòÉΓòÉ Funktion Aus Gruppe von Objekten wird der Inhalt ausgelesen. Syntax GET_ITEM_ARRAY id_string,array,start,ende Eingabe id_string Objektkennung(gilt hier fuer IDstart bis IDende) array Feldarray mit Werten fuer IDstart...IDende start Erstes zu fuellendes Feld im Array ende Letztes zu fuellendes Feld im Array Ausgabe keine Beschreibung Wird genutzt, um mehrere Werte schnell aus einem Objektarray auszulesen. Bespiel GET_ITEM_ARRAY Siehe SET_ITEM_ARRAY ΓòÉΓòÉΓòÉ 200. GET_ITEM_XY ΓòÉΓòÉΓòÉ Funktion Ermittelt die exakte Position eines Objekts auf der Oberflaeche. Syntax GET_ITEM_XY id_string$, x, y, breite, hoehe Eingabe id_string$ Kennung des zu ueberpruefenden Objekts Ausgabe x,y Variablen mit x- und y-Werten fuer die linke obere Objektecke breite Variable mit der Objektbreite hoehe Variable mit der Objekthoehe Beschreibung Die Anweisung dient zur exakten Bestimmung der Position eines Objektes. Die Werte werden in normalen Koordinaten zurueckgegeben (nicht in Pixel- koordinaten). Bespiel GET_ITEM_XY Siehe ΓòÉΓòÉΓòÉ 201. GETCLIP ΓòÉΓòÉΓòÉ Funktion GETCLIP liest den Inhalt des Clipboards Syntax GETCLIP var$ Eingabe Ausgabe var$ Variable in die, der Inhalt geschrieben wird. Beschreibung F╨ær das Lesen des Clipboardinhalts sollten Sie eine Memovariable benutzen, da andere Variablen auf 255 Zeichen beschr╨önkt sind ! Bespiel GETCLIP Siehe SETCLIP ΓòÉΓòÉΓòÉ 202. LINE ΓòÉΓòÉΓòÉ Funktion Zeichnet eine Linie auf dem Bildschirm. Syntax LINE id,x,y, xr, yr, color, width Eingabe id Kennung des Objekts x,y Position des Anfangspunktes der Linie xr, yr Position des Endpunktes der Linie color Nummer der Fnllfarbe fuer das Objekt (aus Farbpalette) width Strichdicke der Objektlinie Ausgabe keine Beschreibung Es kann eine Linie erstellt werden. Das Graphikobjekt geht bei jeder Fensteraktualisierung (Repositionierung, Neuzeichnung) verloren und muss dann manuell neu definiert werden. Bespiel LINE Siehe ELLIPSE ΓòÉΓòÉΓòÉ 203. LOAD_DAT ΓòÉΓòÉΓòÉ Funktion Es wird eine Objekt-Bibliothek geladen. Syntax LOAD_DAT datei, a Eingabe datei Name der zu ladenden Datei, Pfadangabe moeglich. Ausgabe a Variable, die das Ergebnis des Vorgangs enthaelt: a=1: ok a=-1: Datei nicht gefunden. Beschreibung Es wird eine Objekt-Bibliothek geladen. Eine Objekt-Bibliothek beinhaltet mehrere Objekte wie Comboboxen, ICONS, STRINGEINGABEN usw.. Bespiel LOAD_DAT Siehe ΓòÉΓòÉΓòÉ 204. LOAD_FROM_DAT ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax LOAD_FROM_DAT datei, ??? Eingabe datei Name der zu ladenden Datei, Pfadangabe moeglich. Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel LOAD_FROM_DAT Siehe STORE_IN_DAT ΓòÉΓòÉΓòÉ 205. LOADFONT ΓòÉΓòÉΓòÉ Funktion Definiert einen neuen Textfont. Syntax LOADFONT id_string$, fontname$, size Eingabe id_string$ Kennung des Fontobjekts fontname$ Name des gewuenschten Textfonts size Groesse des gewuenschten Textfonts Ausgabe keine Beschreibung Mit diesem Befehl wird ein neuer Textfont definiert. Zur Auswahl stehen beispielsweise unter OS/2 folgende Fonts in folgenden Groessen: TMS RMN 8,10,12,14,18,24 HELV 8,10,12,14,18,24 COURIER 8,10,12 SYSTEM MONOSPACE 10 Weitere zur Verfuegung stehende Fonts entnehmen Sie bitte ihren Handbuechern zum entsprechenden Betriebssystem. Um einen Objekt den so definierten Textfont zuzuweisen, muessen Sie die id-Kennung des Fontobjekts als FLAG an den Definitionsbefehl fuer das entsprechende Objekt anfuegen. Bespiel LOADFONT Siehe ΓòÉΓòÉΓòÉ 206. MSGBOX ΓòÉΓòÉΓòÉ Funktion Erstellt ein MeldungsfensterMeldungsfenster mit entsprechenden Buttons. Syntax MSGBOX text$, flag, rueck, Iconname Eingabe text$ Text, der im MeldungsfensterMeldungsfenster erscheinen soll flag Definiert die Art und Anzahl der Kontrollschalter: flag=1: Es werden sowohl ein OK- als auch ein ABBRUCH- Button automatisch erstellt flag=0: Es wird nur ein OK-Button definiert Iconname Name des Icons aus der DAT-Datei, welches in das Fenster eingefuegt werden soll. Ausgabe rueck Gibt dem Programm zurueck, welcher Button gedrueckt wurde: rueck=1: Der OK-Button wurde gedrueckt rueck=2 DER ABBRUCH-Button wurde betaetigt Beschreibung Mit diesem Befehl erstellen Sie ein Meldungsfenster. Dieses ist bereits vorgefertigt. Sie fuegen lediglich den entsprechenden Meldungstext ueber text$ sowie falls gewnuescht ueber Iconname ein Icon aus einer DAT-Datei ein. Des weiteren koennen Sie festlegen, ob nur ein OK-Button oder ein OK- und ein ABBRUCH-Button erzeugt werden soll. Bespiel MSGBOX Siehe ΓòÉΓòÉΓòÉ 207. RECTANGLE ΓòÉΓòÉΓòÉ Funktion Zeichnet ein Viereck auf dem Bildschirm. Syntax RECTANGLE id,x,y, xr, yr, fcolor, hcolor, fill, width, xor Eingabe id Kennung des Objekts x,y Position der linken oberen Objektecke auf dem Bildschirm xr Breite des Vierecks yr Hoehe des Vierecks fcolor Nummer der Farbe der Objektlinien (aus Farbpalette) hcolor Nummer der Fnllfarbe fuer das Objekt (aus Farbpalette) fill Angabe, ob das Objekt ausgefuellt werden soll: fill=1: Objekt wird gefuellt; fill=0: Objekt bleibt leer width Strichdicke der Objektlinien xor Angabe, ob sich das Objekt von gleichfabrigem Hintergrundabheben soll: xor=1: ja xor=0: nein Ausgabe keine Beschreibung Es kann ein Rechteck oder ein Quadrat erstellt werden: xr=yr: Quadrat xr<>yr: Rechteck Das Graphikobjekt geht bei jeder Fensteraktualisierung (Repositionierung, Neuzeichnung) verloren und muss dann manuell neu definiert werden. Bespiel RECTANGLE Siehe ΓòÉΓòÉΓòÉ 208. SEARCH_MLE ΓòÉΓòÉΓòÉ Funktion Syntax SEARCH_MLE id$,suchtext$,mark,case,start,zeile$,pos Eingabe id$ ID eines DEF_TEXT Objekts suchtext$ Text der gesucht wird mark 0 = gefundenen Text markieren 1 = Text nicht markieren case 0 = Gro╤ü/Kleinschreibung beachten 1 = nicht beachten start -1 = aktuelle Cursorposition sonst Position zeile$ Aktuelle Zeile nach Suche pos Aktuelle Position nach Suche wird -1 ╨æbergeben vor Suchbeginn, dann erfolgt nur eine Suche ohne jeweilige Textpositionierung Ausgabe keine Beschreibung keine Bespiel SEARCH_MLE Siehe ΓòÉΓòÉΓòÉ 209. SET_ITEM ΓòÉΓòÉΓòÉ Funktion Ein Text /Wert wird einem Objekt zugeordnet. Syntax SET_ITEM id_string,text$ Eingabe id_string Objektkennung text$ Zuzuordnender Text Ausgabe keine Beschreibung Ein beliebiger Text kann einem geeigneten Objekt zugewiesen werden. Bespiel SET_ITEM Siehe SET_ITEM_ARRAY SET_ITEM_STATUS ΓòÉΓòÉΓòÉ 210. SET_ITEM_ARRAY ΓòÉΓòÉΓòÉ Funktion Einer Gruppe von Objekten wird ein Inhalt zugewiesen. Syntax SET_ITEM_ARRAY id_string,array,start,ende Eingabe id_string Objektkennung(gilt hier fuer IDstart bis IDende) array Feldarray mit Werten fuer IDstart...IDende start Erstes zu fuellendes Feld im Array ende Letztes zu fuellendes Feld im Array Ausgabe keine Beschreibung Wird genutzt, um mehrere Werte schnell einem Objektarray zuzuordnen. Bespiel SET_ITEM_ARRAY Siehe SET_ITEM SET_ITEM_STATUS ΓòÉΓòÉΓòÉ 211. SET_ITEM_STATUS ΓòÉΓòÉΓòÉ Funktion Der Status eines Objekts wird veraendert. Syntax SET_ITEM_STATUS id_string, status,... Eingabe id_string Objektkennung status Variable mit zuzuweisendem Statusflag Ausgabe keine Beschreibung Veraendert oder setzt den Status eines Objekts durch Hinzufuegen oder Entfernen eines FLAGS. Bespiel SET_ITEM_STATUS Siehe SET_ITEM SET_ITEM_ARRAY ΓòÉΓòÉΓòÉ 212. SETCLIP ΓòÉΓòÉΓòÉ Funktion SETCLIP schreibt den Inhalt von var$ in das Clipboard Syntax SETCLIP var$ Eingabe var$ Variable aus der, der Inhalt gelesen wird. Ausgabe Beschreibung Bespiel SETCLIP Siehe GETCLIP ΓòÉΓòÉΓòÉ 213. SETFOCUS ΓòÉΓòÉΓòÉ Funktion Steuert die Reihenfolge von Eingabefeldern. Syntax SETFOCUS "id" Eingabe "id" Objektkennung Ausgabe Beschreibung Mit diesem Befehl kann der Cursor auf ein Eingabefeld gesetzt werden. Beispiel: Ein Datensatz wurde ge╨öndert, der Benutzer speichert die ╨₧nderung, hat jedoch in einem Feld einen falschen Wert eingetragen. Nun wird der Cursor auf das Objekt gestellt. Bespiel SETFOCUS Siehe ΓòÉΓòÉΓòÉ 214. STORE_IN_DAT ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax STORE_IN_DAT Eingabe Ausgabe ************************ UNBEKANNT ********************** Beschreibung Bespiel STORE_IN_DAT Siehe LOAD_FROM_DAT ΓòÉΓòÉΓòÉ 215. SUB_ITEM ΓòÉΓòÉΓòÉ Funktion Ein Element wird von einem Objekt entfernt. Syntax SUB_ITEM "id1","id2" Eingabe "id1" Master-Objektkennung "id2" Slave-Objektkennung Ausgabe keine Beschreibung Umgekehrte Funktion von ADD_ITEM ! Bespiel SUB_ITEM Siehe ADD_ITEM ADD_ITEM_ARRAY SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ 216. SUB_ITEM_ARRAY ΓòÉΓòÉΓòÉ Funktion Entfernt ein Array von Elementen von einen Objekt Syntax SUB_ITEM_ARRAY "id","entfernen",von,bis Eingabe "id" Mutterobjekt "entfernen Kindobjekt von Erstes Objekt (Zahl) bis Letztes Objekt (Zahl) Ausgabe keine Beschreibung Mit diesem Befehl entfernen Sie schnell mehrere Objekt von einem Objekt. Bespiel SUB_ITEM_ARRAY Siehe ΓòÉΓòÉΓòÉ 217. TEXTHEIGHT ΓòÉΓòÉΓòÉ Funktion Ermittelt die maximale Hoehe eines in ein Objekt passendes Textfonts. Syntax TEXTHEIGHT id_string$, text$, hoehe Eingabe id_string$ Kennung des zu ueberpruefenden Objekts text$ Variable mit der zur ueberpruefung verwendeten Zeichenkette Ausgabe hoehe Variable mit dem ermittelten Fontwert Beschreibung Dieser Befehl dient zur Ermittlung des maximal in ein Objekt passenden Textfonts. Als Ueberpruefungszeichenkette gibt man in text$ am besten "Tyg" vor. Bespiel TEXTHEIGHT Siehe TEXTWIDTH ΓòÉΓòÉΓòÉ 218. TEXTWIDTH ΓòÉΓòÉΓòÉ Funktion Ermittelt die maximale Breite eines in ein Objekt passendes Textfonts. Syntax TEXTWIDTH id_string$, text$, breite Eingabe id_string$ Kennung des zu ueberpruefenden Objekts text$ Variable mit der zur ueberpruefung verwendeten Zeichenkette. Ausgabe breite Variable mit dem ermittelten Fontwert Beschreibung Dieser Befehl dient zur Ermittlung des maximal in ein Objekt passenden Textfonts. Als Ueberpruefungszeichenkette gibt man in text$ am besten "Tyg" vor. Bespiel TEXTWIDTH Siehe TEXTHEIGHT ΓòÉΓòÉΓòÉ 219. WINSENTMSG ΓòÉΓòÉΓòÉ Funktion Alle Funktionen unter OS/2 werden ╨æber Nachrichten gesteuert. Mit diesem Befehl besteht die M╨ñglichkeit eine Nachricht an ein Objekt zu schicken. Syntax WINSENTMSG id$,MessageID,param1,param2,rueck Eingabe id$ Objekt-ID$ MessageID Beispiel : MLM_SETBACKCOLOR = 468 param1/param2 Parameter, k╨ñnnen Zahlen oder Strings sein. Bei Zahlen sollte man den Wert in einer Variablen ╨æbergeben, wenn er negativ ist z.b -1 Ausgabe rueck R╨æckgabewert Beschreibung Verschiedene Nachrichten liefern als R╨æckgabewert, Zeiger auf Stringfelder. So ein R╨æckgabetyp kann noch nicht verarbeitet werden. Wichtig ! Nachrichten k╨ñnnen nur empfangen werden, wenn das Objekt am Bildschirm ist (also ╨æber WIN_PAINT) Bespiel WINSENTMSG Siehe ΓòÉΓòÉΓòÉ 220. XCONV ΓòÉΓòÉΓòÉ Funktion Umwandlung in Pixelkordinaten Syntax XCONV xpos, xpixelpos Eingabe xpos Ausgabe xpixelpos Beschreibung Ermittelt X-Position 0-80 als Pixelkoordinaten Graphische Befehle ------------------ Koordinaten sind Pixelkoordinaten und k╨ñnnen ╨æber die Funktionen XCONV und YCON von normalen Koordinaten in Pixelkoordinaten ermittelt werden. werden. Ausgangssystem f╨ær das Pixelkoordinaten- system ist die linke obere Ecke eines Fensters. Diese Befehle haben den Nachteil, da╤ü beim Neu- zeichnen des Fensters, z.B durch eine Ver╨önderung der Gr╨ñ╤üe des Fensters, die Zeichnung nicht mehr am Bildschirm ist. Ein Neuzeichnen mu╤ü manuell durchgef╨æhrt werden. Bespiel XCONV Siehe YCONV ΓòÉΓòÉΓòÉ 221. YCONV ΓòÉΓòÉΓòÉ Funktion Umwandlung in Pixelkordinaten Syntax YCONV ypos, ypixelpos Eingabe ypos Ausgabe ypixelpos Beschreibung Ermittelt Y-Position 0-24 als Pixelkoordinaten Bespiel YCONV Siehe XCONV ΓòÉΓòÉΓòÉ 222. DEF_HEADER ΓòÉΓòÉΓòÉ Funktion ************************ UNBEKANNT ********************** Syntax Eingabe Ausgabe Beschreibung ************************ UNBEKANNT ********************** Bespiel DEF_HEADER Siehe ΓòÉΓòÉΓòÉ 223. DEF_NOTEBOOK ΓòÉΓòÉΓòÉ Funktion Mit dieser Funktion kann ein Notebook-Objekt definiert werden. An ein Notebook-Objekt werden Fensterobjekte addiert. Diese ergeben mit Ihren ╨¬berschriften die Notebook-Seiten. Ein Notebook-Objekt wird dann zum Hauptfenster addiert. Syntax DEF_NOTEBOOK <id> Eingabe "id" Objektkennung Ausgabe Beschreibung Ein Notebook-Objekt passt sich in das Hauptfenster ein. Wechseln der Ordnerseiten erfolgt ╨æber die Tastatur mit den Tasten am Zehnerblock: Bild hoch und Bild runter. Wird die NUM-LOCK Taste einge- schaltet, werden die Zahlen 9 und 3 wiedergegeben. Bespiel DEF_NOTEBOOK Siehe DEF_WINDOW DEF_WINDOW_ST ΓòÉΓòÉΓòÉ 224. DUMMY_EVENT ΓòÉΓòÉΓòÉ Funktion Ein Eventmanager ohne Rueckgabewerte wird gestartet. Syntax Dummy_event Eingabe keine Ausgabe keine Beschreibung Diese Funktion kann zum Testen von Bildschirmausgaben dienen. Der Befehl uebergibt die Steuerung an den WINDOW-MANAGER. Sobald das letzte Fenster geschlossen ist, wird das Programm beendet. Bespiel DUMMY_EVENT Siehe ΓòÉΓòÉΓòÉ 225. EVENT_ON_ITEM ΓòÉΓòÉΓòÉ Funktion Aendert den Zustand eines Objekts Syntax EVENT_ON_ITEM id_string,event$ Eingabe id_string Objektkennung event$ Event, welches ausgefuehrt werden soll. Ausgabe keine Beschreibung Ein Beispiel fuer einen Event ist das Neuzeichnen eines Objekts. Events muessen klein geschrieben werden. Beispiele fuer Events: "current" Objekt wird aktuelles Objekt "not_current" Gegenteil von "current" "redisplay" Objekt wird neu gezeichnet "select" Objekt erhaelt den Eingabefokus "slider update",prozent Slider wird mit Prozentzahl neugezeichnet "end" Fensterobjekt wird fuer beendet erklaert "create" Mit diesem Event wird veranlasst, das ein Objekt neu erstellt wird. Als Beispiel m╨ñchte ich die Combo-Box nennen. Es werden Elemente an das Combo-Box-Objekt addiert und entfernt. Damit das Objekt aktualisiert wird, kann es ╨æber den Event "create" neu erstellt werden. Bespiel EVENT_ON_ITEM Siehe ADD_ITEM SUB_ITEM ΓòÉΓòÉΓòÉ 226. GET_ITEM_POS ΓòÉΓòÉΓòÉ Funktion Liefert aktuelles Objekt und Tastatur/Maus-Status zurueck. Syntax GET_ITEM_POS objektid_neu$,taste [,objektid_alt$] Eingabe keine Ausgabe objektid_neu$ Variable mit der Objektkennungdes neu selektierten Elements taste ASCII-Wert der gedrueckten Taste objektid_alt$ Variable mit der Kennung des zuvor selektierten Objekts Beschreibung Wenn ein Objekt mit der linken Maustaste selektiert wird, liefert der Befehl die ID-Kennung des gewaehlten Objekts zurueck. Falls die linke Maustaste gedrueckt wurde, wird in der Variablen <taste> der Wert 13 zurueckgegeben. Optional kann auch die Kennung des davor ausgewaehlten Objekts abgefragt werden (z.B. um dieses nach vollzogener Operation zu aktualisieren oder zu formatieren = LOST FOCUS). Wird in diesem Fall der Wert taste=1 zurueckgegeben, so bedeutet dies, dass das alte Objekt verlassen wurde und nicht mehr aktiviert ist. Bespiel GET_ITEM_POS Siehe WIN_EV ΓòÉΓòÉΓòÉ 227. GET_ITEM_STATUS ΓòÉΓòÉΓòÉ Funktion Ermittelt, ob ein Objekt einen bestimmten Status besitzt. Syntax GET_ITEM_STATUS id_string$, status$, ok Eingabe id_string$ Kennung des zu ueberpruefenden Objekts status$ Variable mit dem Status, dessen Existenz ueberprueft werden soll Ausgabe ok Flag mit dem Ergebnis der ueberpruefung: ok=1: Der Status ist bei dem Objekt gesetzt ok=-1: Der Status ist bei dem Objekt nicht gesetzt Beschreibung Es wird ueberprueft, ob ein Objekt einen bestimmten Status besitzt. Wird bei Checkbox- oder Radiobuttons der Status "SET" angegeben, so wird ueberprueft, ob der Button aktiviert ist. Bespiel GET_ITEM_STATUS Siehe ΓòÉΓòÉΓòÉ 228. SET_KEYMAP ΓòÉΓòÉΓòÉ Funktion Liest eine Tastenkombination zur weiteren Verwendung in KIM ein. Syntax SET_KEYMAP key$, rueckgabenr,pos Eingabe key$ Einzulesende Tastenkombination rueckgabenr Kennzahl der Tastenkombination (zwischen 10000 und 10010) Ausgabe pos Position der Tastenkombination in der Key-Tabelle Beschreibung Mit diesem Befehl koennen Sie zusaetzlich zu den in KIM vordefinierten Tasten weitere Tasten oder Tastenkombinationen in eine Key-Tabelle eintragen, von wo aus diese zur Verwendung in KIM (sie sind dann von allen selektierbaren Objekten ansprechbar) zur Verfuegung stehen. Im Anhang (Abs. 9.2.) finden Sie eine Liste aller einlesbaren Tasten und genauere Erlaeuterungen zu diesem Befehl. Bespiel SET_KEYMAP Siehe ΓòÉΓòÉΓòÉ 229. WAIT ΓòÉΓòÉΓòÉ Funktion Haelt das Programm fuer einen beliebigen Zeitraum an. Syntax WAIT anzahl Eingabe anzahl Anzahl der Sekunden, die das Programm warten soll Ausgabe Keine Beschreibung Sie koennen das Programm veranlassen, an der betreffenden Position im Programmcode eine von Ihnen bestimmte Zeitspanne anzuhalten, ehe der naechste Befehl bearbeitet wird. Diese Zeitspanne muessen Sie in Sekunden angeben. Bespiel WAIT Siehe ΓòÉΓòÉΓòÉ 230. WIN_EV ΓòÉΓòÉΓòÉ Funktion Aufruf des Event-Managers. Syntax WIN_EV event Eingabe keine Ausgabe event Numerischer Wert (z.B. 1000 = Applikation beendet) Beschreibung Der Event-Manager knmmert sich um die Steuerung der Oberflaechenelemente. Falls ein Event eintritt, wird er von diesem Befehl in Form eines numerischen Werts an das Programm uebergeben. Der Event-Manager ist nur funktionell in einer Schleife. Wird eine Applikation beendet, d.h alle Fenster der Applikation wurden geschlossen, steht in der Variablen <event> der Wert 1000. Bespiel WIN_EV Siehe DUMMY_EVENT ΓòÉΓòÉΓòÉ 231. WIN_PAINT ΓòÉΓòÉΓòÉ Funktion Ein Fenster wird an die Steuerung des Systems uebergeben. Syntax win_paint "Fenster _id" Eingabe "Fenster _id" Kennung des Fensterobjekts Ausgabe keine Beschreibung Das Fensterobjekt wird am Bildschirm dargestellt. Wird dieser Befehl mehrmals aufgerufen, erfolgt ein Neuzeichnen des Fensters. Um einzelne Elemente eines Fensters neu zu zeichnen, verwenden Sie den Befehl event_on_item "id$", "redisplay". Bereich, in dem Variablen definiert werden (z.B. mit DEFFLOAT, DEFSTRING, DEFINE, DIM usw.) Bespiel WIN_PAINT Siehe DEF_WINDOW DEF_WINDOW_ST ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} *** siehe DATUM **** ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} *** siehe DATUM **** ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} *** siehe DATUM **** ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} defstring date1,date2 deffloat zeit1,zeit2 deffloat tag DIM text,1,8 rem Wandelt CCYYMMTT ---> Julianische Zahl date1="19940402" datetoju date1, zeit1 zeit1=zeit1+10 text1=date1 form zeit1, text2, 0, 12 rem Wandelt Julianische Zahl ---> CCYYMMTT jutodate zeit1, date1 text3=date1 rem Ermittelt Wochentag 1=Sonntag ... 7=Samstag datetow date1,tag form tag,text4, 0, 2 text4=" TAG: " + text4 rem Wandelt 10.12.94 --> 19941210 date1="10.12.94" rem {Datum lesen} datum date1 dateformat 0,"DD.MM.YY", date1, date2 mid date2, date2, 1, 8 text5=date2 rem {Datum in Deutsches Format umwandeln} rem {Wandelt 19941210 ---> 10.12.94 } dateformat 1,"DD.MM.YY", date2, date1 text6=date1 rem {Datum lesen und 14 Tage hinzu und } rem {in Deutsches Format umwandeln } datum date1 dateformat 0,"DD.MM.YY", date1, date2 mid date2, date2, 1, 8 datetoju date2, zeit1 zeit1=zeit1+30 text7="+ 30 Tage" jutodate zeit1, date2 dateformat 1,"DD.MM.YY", date2, date1 text8=date1 def_window_st "window", 001,001,098, 10, "Beispiel: DATUMSFUNKTIONEN " def_string "status_Info1", 000,0,012,Text1, 012; "border","select off" def_string "status_Info2", 012,0,012,Text2, 012; "border","select off" def_string "status_Info3", 024,0,012,Text3, 012; "border","select off" def_string "status_Info4", 036,0,012,Text4, 012; "border","select off" def_string "status_Info5", 048,0,012,Text5, 012; "border","select off" def_string "status_Info6", 060,0,012,Text6, 012; "border","select off" def_string "status_Info7", 072,0,012,Text7, 012; "border","select off" def_string "status_Info8", 084,0,012,Text8, 012; "border","select off" def_statusbar "status", 2 add_item_array "status", "status_Info", 1,8 add_item "window", "status" win_paint "window" dummy_event end ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} deffloat zahl defstring text1 filelen "Dkim", zahl form zahl, text1, 0, 16 def_window_st "window", 001,001,095, 10, "Beispiel: FILELEN " def_string "status_Info1", 000,0,016, Text1, 016; "border","select off" def_string "status_Info2", 016,0,016,"Text2", 016; "border","select off" def_statusbar "status", 2 add_item_array "status", "status_Info", 1,2 add_item "window", "status" win_paint "window" dummy_event end ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} deffloat alt deffloat neu neu=999.9990000 int alt, neu rem neu enthaelt 999 ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} *** siehe DATUM **** ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} defstring zeichen deffloat zahl zeichen="K" ASC zeichen,zahl print zahl rem zahl=075 end ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} deffloat alt deffloat neu neu=999.9990000 ganz alt, neu rem neu enthaelt 1000 ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} DEFSTRING eingabe, ausgabe eingabe="1234567890" REVERS eingabe, ausgabe <inhalt von ausgabe> "0987654321" ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} NIL ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} NIL ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ def_pulldown_item "p_db", " def_popup_item "db_2" , "F2" def_popup_item "db_3" , "F3" def_popup_item "db_4" , "F4" def_popup_item "db_5" , "F5" def_popup_item "db_6" , "F6" def_popup_item "db_7" , "F7" def_popup_item "db_8" , "F8" def_popup_item "db_9" , "F9" add_item_array "p_db", "db_", 2, 9 ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} Zahleneingabe rechtsb╨ændig, zwei Stellen nach dem Komma und M╨ñglichkeit Feldinhalt zu ╨æberschreiben. DEF_NUMBER "num1",2,2,10,"200.50","100..3000"; "decimal 2","right","clear" ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} def_window_st "window", 001,001,095, 10, "ProgrammInfo" def_string "status_Info1", 000,0,010,"Text",10;"border", "select off" def_string "status_Info2", 010,0,010,"Text",10;"border", "select off" def_statusbar "status", 2 add_item_array "status", "status_Info", 1, 2 add_item "window", "status" win_paint "window" dummy_event end ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} NIL ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} def_pulldown_item "p_db", " def_popup_item "db_2" , "F2" def_popup_item "db_3" , "F3" def_popup_item "db_4" , "F4" def_popup_item "db_5" , "F5" def_popup_item "db_6" , "F6" def_popup_item "db_7" , "F7" def_popup_item "db_8" , "F8" def_popup_item "db_9" , "F9" add_item_array "p_db", "db_", 2, 9 rem {Objekte db_6, db_7 und db_8 werden entfernt} sub_item_array "p_db", "db_", 6, 8 ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} NIL ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} nil ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} def_window "haupt",... def_notebook "note" def_window "Seite 1",.. def_window "Seite 2",.. def_window "Seite 3",.. rem {Windows an das Notebook addieren ...} add_item "note","Seite 1","Seite 2","Seite 3" rem {Notebook an das Hauptfenster addieren ...} add_item "haupt","note" ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************} ΓòÉΓòÉΓòÉ <hidden> ΓòÉΓòÉΓòÉ rem {******************************************} rem {MCD (c) 1994-1995 Beispiel } rem { } rem {Version: KIM2 ab 1.0 } rem {******************************************}