Einsteigerkurs #1 컴컴컴컴컴컴컴컴� Ich gehe davon aus, da� jeder Benutzer eines PC's wei�, wie man QBASIC startet, wenn dies nicht der Fall sein sollte, solltet ihr in der DOS Ebene einfach 'QBASIC' eintippen (Sollte normaler- weise funktionieren). F걊 BASIC-Freaks wird dieser erste Teil des Einsteigerkurses wahrscheinlich zu langweilig sein, um sie zu fesseln, aber der Kurs ist halt f걊 Einsteiger gedacht und deshalb hei�t dieser Kurs ja auch Einsteigerkurs (wer h꼝te das gedacht !?). In diesem ersten Teil gehe ich auf sequentielle Dateien ein. 컴컴컴컴컴컴컴컴컴컴 Sequentielle Dateien sind in der Regel einfacher zu erzeugen als Direktzugriffs-Dateien, sind jedoch nicht so flexibel und erlauben auch nicht einen so schnellen Datenzugriff, wie letztere. In einer sequentiellen Datei werden die Datenelemente als Gruppen von ASCII-Zeichen eines nach dem anderen (sequentiell) in der Datei abgelegt. In derselben Ordnung werden sie dann auch wieder aus der Datei gelesen. Das unten angegebene Beispielprogramm zeigt, wie mit QBASIC eine sequentielle Datei mit dem Namen DATEN erzeugt wird und mit Daten, die 갶er die Tastatur eingegeben werden, gef걄lt wird. Erzeugen einer sequentiellen Datei: 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� OPEN "Daten" FOR OUTPUT AS #1 '봣fnet die Datei zur Ausgabe CLS 'l봲chen des Bildes Eingabe: 'Sprugmarke INPUT "Name ('RETURN' zum Beenden): "; N$ 'Namenseingabe mit Abbruchbedingung IF N$ = "" THEN GOTO Fertig 'Abfrage der Ab- bruchbedingung INPUT " Vorname: "; VOR$ 'Eingabe von INPUT "Geburtsdatum: "; GEB$ beliebigen Daten WRITE #1, N$, VOR$, GEB$ 'schreiben der PRINT Daten GOTO Eingabe 'zur갷kkehren zur Sprungmarke Fertig: 'Sprungmarke CLOSE #1 'Datei schlie�en END 'Programmende 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Wie im Beispiel gezeigt, werden folgende Programmschritte ben봳igt, um eine sequentielle Datei zu erzeugen und Daten abzulegen: 1. Die Datei f걊 die Ausgabe 봣fnen. 2. Daten mit der WRITE#-Anweisung in die Datei schreiben. 3. Am Ende der Daten갶ertragung die Datei schlie�en. In einem weiteren Beispielprogramm wird gezeigt, wie die Daten aus der Datei Daten, die mit dem ersten Beispielprogramm erzeugt wurde, gelesen werden. Um das ganze zu erschweren, werden nur die Namen der Leute angezeigt werden, die im Jahr 1977 geboren wurden. Aus einer sequentiellen Datei lesen: 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� OPEN "I", #1, "Daten" '봣fnet Datei zum Lesen CLS 'l봲chen des Bildes WHILE NOT EOF(1) 'Steuerschleife (Anfang) INPUT #1, N$, VOR$, GEB$ 'liest Daten ein IF RIGHT$(GEB$, 2) = "77" THEN PRINT N$, VOR$, GEB$ 'Ausgabe WEND 'Steuerschleife (Ende) 컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴� Es wird jedes Datenelement nacheinander gelesen und daraufhin untersucht, ob am Ende die Zahl 77 steht. Nur dann wird der Name angezeigt. Die Steuerschleife WHILE...WEND verwendet vor jedem Lesevorgang die EOF-Funktion, um zu 갶erpr갽en, ob das Dateiende erreicht ist. Damit wird verhindert, da� ein Fehler auftritt, wenn versucht wird, 갶er das Dateiende hinaus zu lesen. Bei einer existierenden sequentiellen Datei k봭nen nicht einfach Daten hinzugef갾t werden, indem die Datei f걊 die Ausgabe ge- 봣fnet wird. Dies w걊de n꼖lich die vorhandenen Daten zerst봱en. Statt dessen mu� man die Daten an die Datei anf갾en. Falls die Datei nicht vorher existiert hat, arbeitet der Anf갾emodus genau wie der normale Ausgabemodus (Beispielprogramm folgt in der n꼊hsten Ausgabe des STOD, da ich nicht mehr fertiggeworden bin, entschuldigt bitte). Die Direktzugriffsdatei werde ich dann im n꼊hsten Teil des Einsteigerkurses erkl꼛en !!! Die beiden Beispielprogramme findet ihr 갶rigens auch auf der STOD-Diskette (SEQUENT.BAS, SEQULES.BAS). Tsch걌si M O Z A R T