fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
Adressverwaltungsprogramm (klein)

Uploader:	Schbezzy
Datum/Zeit:	15.05.2008 21:01:07
DECLARE SUB Menue1()

DECLARE SUB Neue()

DECLARE SUB Alte()

Declare Sub Del()



DIM SHARED AS STRING Vorname, Nachname, Strasse, PLZ, Ort

DIM SHARED AS INTEGER x



Menue1

SLEEP



SUB Menue1

    Color 14, 9

    Cls

    Print

    Print

    Print

    Print

    PRINT

    Print

    ' Bis Hierher ist ein Abstand zum Oberen Rand gemacht

    PRINT String(15,32);STRING(1, 201);STRING(53, 205);STRING(1, 187)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(14, 32);"Adressverwaltungsprogramm";STRING(14, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 204);STRING(53, 205);STRING(1, 185)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(5, 32);"1) Neue Adresse eingeben";STRING(24, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(5, 32);"2) ";CHR(153);"ffne vorhandene Adressen";STRING(20, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(5, 32);"3) Datei Leeren";STRING(33, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    Print String(15,32);String(1, 186);String(5, 32);"4) Ende";STRING(41, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 186);STRING(53, 32);STRING(1, 186)

    PRINT String(15,32);String(1, 200);STRING(53, 205);STRING(1, 188)

    ' Hier ist die Menüoberfläche

    DO

    IF MULTIKEY(&h02) THEN DO : LOOP WHILE INKEY <> "": Neue

        IF MULTIKEY(&h03) THEN DO : LOOP WHILE INKEY <> "": Alte

        IF MULTIKEY(&h04) THEN Do : Loop While InKey <> "": Del

        If MultiKey(&h05) Then END

        SLEEP

    LOOP UNTIL MULTIKEY(&h01)

    ' Hier Läuft eine Abfrageschleife zur Eingabe der Tasten

END SUB



SUB Neue

    Color 12, 9 'Farbe: Schrift rot / Hintergrund: blau

   Cls 'Lösche Bildschirm und übernehme die zuvor gesetzte COLOR Anweisung

   PRINT "Vorname  :"

   PRINT "Nachname :"

   PRINT "Strasse  :"

   PRINT "PLZ      :"

   PRINT "Ort      :" 'Bis hier wird alles am Bildschirm angezeigt

   Color 14, 0 'Änderung der Farbe in: Schrift: gelb / Hintergrung: schwarz

   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 'Hier sind die Eingaben zu machen, werden in den Variablen "Vorname usw gespeichert

   OPEN "adresse.txt" FOR APPEND AS #1 'Öffne / Generiere Datei: "adresse.txt" zum bearbeiten im APPEND Modus

   Write #1, Vorname, Nachname, Strasse, PLZ, Ort 'Schreibe in die Datei Seriell: "Vorname, Nachname,...usw"

   CLOSE #1 'Schließe Datei wieder

   Menue1 'Springe zu SUB "Menue1"

END SUB



SUB Alte

    CLS

    

    OPEN "adresse.txt" FOR Input AS #1



    DO



        INPUT #1, Vorname, Nachname, Strasse, PLZ, Ort

        PRINT "Vorname  :"; Vorname

        PRINT "Nachname :"; Nachname

        PRINT "Strasse  :"; Strasse

        PRINT "PLZ      :"; PLZ; " Ort  :"; Ort

        PRINT

    LOOP UNTIL EOF(1) 'Weitermachen bis zum Ende der Datei

    Sleep

    CLOSE

    Menue1

END Sub



Sub Del

    Cls

    Kill "adresse.txt"

    Print CurDir;

    Print "\adresse.txt"

    Print 

    Print "Adressen sind gel";Chr(148);"scht!!!"

    Sleep 3000

    Menue1

End Sub