Das deutsche QBasic- und FreeBASIC-Forum

[Zerni]

Hi .. Ich habe in der Schule in Programmbeispiel aufbekommen und das ist irgendwie nicht einfach (für mich). Hoffe dass ihr mir da helfen könnt hier die Angabe:

Mitarbeiterverwaltung - Speicherung in Textdateien
Der Mitarbeiter besteht aus folgenden Datenfeldern:
Abteilung 20 Stellen
Vorname 10 Stellen
Zuname 15 Stellen
Durchwahl Zahl

Er ist als benutzerdefinierter Datentyp mit 6 Ausprägungen anzulegen.

Die Menüs Menue
Weiter
Speichern
Ausgabe
Stand
sind als Unterprogramme zu realisieren. Der Befehl GOTO darf NICHT verwendet werden. Es werden nur jene Mitarbeiter gespeichert, deren Durchwahl > 0 ist. Die Überschrift "Ausgabe aller Mitarbeiter" befindet sich in Position 15, "Aktueller Mitarbeiterstand" in Position (20) - beide jeweils in 1 Zeile

Die Speicherung erfolgt in einer Textdatei (Personal.txt)

Bitte um Hilfe

[helium]

Erstmal: Ganz toler Titel für eine Frage: "Programm!!" Daraus wird keiner schlau. Genau dazu sind Titel aber da.


Zweitens: Dieses Forum ist nicht da, um deine Hasuaufgaben zu machen. Das ist deine Aufgabe.


Wenn du ein konkretes Problem hast, kannst du das natürlich fragen. Aus deiner Fragestellung geht aber nichts konkretes hervor. Was hast du nicht verstanden?
_________________
Bevor Sie aufhören sich körperlich zu betätigen sollten Sie ihren Doktor befragen. Körperliche Inaktivität ist abnormal und gefährlich für Ihre Gesundheit.

[Zerni]

Ich weiß, dass es meine Aufgabe ist aber wenn ich mich auskennen würde,würde ich nicht fragen oder ? Also .. Mein Problem sind die Unterprogramme .. Konkret bei dem Unterprogramm "Menue" und "Speichern" ..

Bei dem Programm muss man eine Mitarbeiterliste erstellen.. also wenn man Eingabe bestätigt dass man Mitarbeiter eintragen kann und sie bei der Ausgabe erscheinen. Mit Speichern <S> .. speichert man es auf einer Textdatei (Personal.txt)

[MisterD]

schau mal in die Downlooadsektion von QBasic.de oder bei Codesharinx2 vorbei. da gibts massig Programme wo du dir vielleicht bisschen was abschaun kannst.... aber ned einfach alles kopieren...
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[derdicke]

Hm, wenn ich einfache Menüs machen will löse ich das mit einer IF-Abfrage! Also etwa so:

10 PRINT "1) Schreibe hallo"
20 PRINT "2) Beende Programm"
30 INPUT "Gebe Auswahl ein und bestätige mit <enter>: ", auswa$
40 IF auswa$ = "1" THEN 80
50 IF auswa$ = "2" THEN END
60 PRINT "Bitte wähle zwischen den Auswahlmöglichkeiten aus"
70 GOTO 10
80 PRINT "HALLO"
90 SLEEP

Sollte eigentlich funktionieren!
Du musst aber die Masken behalten, sonst gehts nicht!

[Sebastian]

Hallo.

Zeilennummern sind ein unangenehmes Relikt aus GWBASIC Zeiten. Die sollte man auf jeden Fall weglassen, wenn man einigermaßen strukturiert programmieren will.
Man kann das so machen und das funktioniert auch, aber die meisten Programmierer finden das unschön.
Außerdem sollte man anstelle von vielen IFs lieber ein SELECT CASE verwenden.

[Zerni]

Danke hat mir weitergeholfen .. Das Programm ist ja eigentlich fast nur im Unterprogramm aufgebaut und so schaut ca. mein Hauptprogramm aus:

[Sebastian]

Hallo.

Ja, das ist OK so. Du kannst das Array aber auch einfach SHARED dimmen.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[Stephan]

@Sebastian , Zeilennummern gabs schon lange lange vor GWBasic (C16 / C64.....)

Select Anweisungen sind zwar ne schöne sache, aber oftmals (besonders bei langen codes,
sind IF Abfragen doch übersichtlicher.)


*Edit* Klammer
_________________
'Wir schätzen die Zeit erst, wenn uns nicht mehr viel davon geblieben ist.'
Leo Tolstoi

[Sebastian]

Hallo.

OK, es gab sie schon vorher, aber ich kenne sie halt besonders von GWBASIC.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[helium]

[Stephan]

[Zerni]

Man kann ja mal ein "c" vergessen

[Sebastian]

Hallo.

Das hat der Stephan bloß geschrieben, weil es sonst helium ist, der auf sowas herumreitet...

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!