Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Menü 4
| Uploader: |  Schbezzy |
| Datum/Zeit: | 05.05.2008 21:28:33 |
DECLARE SUB Menue1()
DECLARE SUB Neue()
DECLARE SUB Alte()
DIM SHARED AS STRING Vorname, Nachname, Strasse, Ort
DIM SHARED AS INTEGER PLZ, x
Menue1
SLEEP
SUB Menue1
CLS
PRINT STRING(1, 201);STRING(53, 205);STRING(1, 187)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(14, 32);"Adressverwaltungsprogramm";STRING(14, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 204);STRING(53, 205);STRING(1, 185)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(5, 32);"1) Neue Adresse eingeben";STRING(24, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(5, 32);"2) ";CHR(153);"ffne vorhandene Adressen";STRING(20, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(5, 32);"3) Ende";STRING(41, 32);STRING(1, 186)
PRINT STRING(1, 186);STRING(53, 32);STRING(1, 186)
PRINT STRING(1, 200);STRING(53, 205);STRING(1, 188)
DO
IF MULTIKEY(&h02) THEN DO : LOOP WHILE INKEY <> "": Neue
IF MULTIKEY(&h03) THEN DO : LOOP WHILE INKEY <> "": Alte
IF MULTIKEY(&h04) THEN END
SLEEP
LOOP UNTIL MULTIKEY(&h01)
END SUB
SUB Neue
CLS
PRINT "Vorname :"
PRINT "Nachname :"
PRINT "Strasse :"
PRINT "PLZ :"
PRINT "Ort :"
LOCATE 1, 11: INPUT "", Vorname
LOCATE 2, 11: INPUT "", Nachname
LOCATE 3, 11: INPUT "", Strasse
LOCATE 4, 11: INPUT "", PLZ
LOCATE 5, 11: INPUT "", Ort
OPEN "adresse.txt" FOR APPEND AS #1
WRITE #1, Vorname, Nachname, Strasse, PLZ, Ort
CLOSE #1
Menue1
END SUB
SUB Alte
CLS
OPEN "adresse.txt" FOR INPUT AS #1
DO
INPUT #1, Vorname, Nachname, Strasse, PLZ, Ort
PRINT Vorname
PRINT Nachname
PRINT Strasse
PRINT PLZ;" "; Ort
PRINT
LOOP UNTIL EOF(1) 'Weitermachen bis zum Ende der Datei
SLEEP
Menue1
END SUB