Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Menüanfang3

Uploader:MitgliedSchbezzy
Datum/Zeit:05.05.2008 20:30:47

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
    SLEEP 1
    IF MULTIKEY(&h02) THEN Neue
    IF MULTIKEY(&h03) THEN Alte
    IF MULTIKEY(&h04) THEN END
    SLEEP 1
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
    SLEEP
    Menue1
END SUB

SUB Alte
    CLS
    PRINT "Sie wollen eine Alte Adresse bearbeiten"
    SLEEP
    Menue1
END SUB