fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Menüanfang

Uploader:	Schbezzy
Datum/Zeit:	05.05.2008 19:36:23

DECLARE SUB Menue1()

DECLARE SUB Neue()

DECLARE SUB Alte()

DIM AS STRING Vorname, Nachname, Adresse, Ort

DIM AS INTEGER PLZ, x



Menue1



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)

IF MULTIKEY(&h02) THEN Neue

IF MULTIKEY(&h03) THEN Alte

IF MULTIKEY(&h04) THEN END

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.