Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Dennis
Anmeldungsdatum: 10.12.2004 Beiträge: 4
|
Verfasst am: 10.12.2004, 16:35 Titel: Masken erstellen |
|
|
Fragen:
Wie kann ich eine Maske in Q-Basic erstellen?
Und wie kann ich diese Maske oder auch andere eingegebene Daten speichern? (nicht im Arbeitsspeicher sondern auf Festplatte oder Diskette?)
Ich bedanke mich schonmal im Vorraus für eure Antworten. |
|
Nach oben |
|
|
Paul aka ICC, HV-Freak
Anmeldungsdatum: 11.09.2004 Beiträge: 588 Wohnort: Uelzen
|
Verfasst am: 10.12.2004, 17:32 Titel: |
|
|
Was meinst du bitteschön mit "Maske" ? _________________
|
|
Nach oben |
|
|
Dennis
Anmeldungsdatum: 10.12.2004 Beiträge: 4
|
Verfasst am: 10.12.2004, 18:44 Titel: |
|
|
ICC hat Folgendes geschrieben: | Was meinst du bitteschön mit "Maske" ? |
Ähnliches wie Formular zum Beispiel:
Name:
Anschrift:
Ort:
usw... |
|
Nach oben |
|
|
Paul aka ICC, HV-Freak
Anmeldungsdatum: 11.09.2004 Beiträge: 588 Wohnort: Uelzen
|
Verfasst am: 10.12.2004, 19:10 Titel: |
|
|
Hm also so eine Art Datenbank-Programm..
Hier ist eine stark vereinfachte (!) Version..
Code: |
OPEN "daten.txt" FOR APPEND AS #1
NeueAdresse:
INPUT "Name: ", name$
INPUT "Anschrift: ", anschrift$
INPUT "Ort: ", ort$
PRINT #1, name$
PRINT #1, anschrift$
PRINT #1, ort$
PRINT
PRINT "Weitere Personen hinzufügen ? (j/n)
DO
a$ = LCASE$(INKEY$)
IF a$ = "n" THEN EXIT DO
IF a$ = "j" THEN GOTO NeueAdresse
LOOP
CLOSE #1
PRINT "Personenliste:"
OPEN "daten.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
LINE INPUT #1, name$
LINE INPUT #1, anschrift$
LINE INPUT #1, ort$
PRINT name$; " wohnt in "; ort$; " und hat die Anschrift "; anschrift$
LOOP
CLOSE #1
|
_________________
|
|
Nach oben |
|
|
Dennis
Anmeldungsdatum: 10.12.2004 Beiträge: 4
|
Verfasst am: 10.12.2004, 19:32 Titel: |
|
|
Danke sehr. |
|
Nach oben |
|
|
dreael Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 2507 Wohnort: Hofen SH (Schweiz)
|
|
Nach oben |
|
|
Dennis
Anmeldungsdatum: 10.12.2004 Beiträge: 4
|
Verfasst am: 10.12.2004, 21:48 Titel: |
|
|
Ich war aufe Website drauf und habe es auch versucht zu machen wie es dort steht, ich krieg es aber nicht hin. |
|
Nach oben |
|
|
|