fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Menüanfang 2

Uploader:	Schbezzy
Datum/Zeit:	05.05.2008 19:54:39

DECLARE SUB Menue1()

DECLARE SUB Neue()

DECLARE SUB Alte()

DIM AS STRING Vorname, Nachname, Adresse, Ort

DIM 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

LOOP UNTIL MULTIKEY(&h01)

END SUB



SUB Neue

    CLS

    PRINT "Sie wollen eine Neue Adresse eingeben"

    SLEEP

    Menue1

END SUB



SUB Alte

    CLS

    PRINT "Sie wollen eine Alte Adresse bearbeiten"

    SLEEP

    Menue1

END SUB

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.