| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Spiro
Anmeldungsdatum: 02.03.2005
Beiträge: 3
Wohnort: Berlin
|
 Verfasst am: 12.03.2005, 12:55 Titel: Film Archiv |
 |
|
Hi.
Ich möchte ein Programm schreiben womit man nach FIlmen suchen kann.
Also ich meine Es gibt verschiedene Regale und die Filme haben nummern. Man gibt z.b. Herr der Ringe ein und das Programm sucht wo der Film steht. Man soll eigene Filme erstellen können.
Also:
Name: xxx
Art: xxx
Nr. xxx
Regal: xxx
Das wird dann in eine Datei gespeichert.
Dann soll man nach dem Film suchen können.
Wie sollte ich da vorgehen und geht das überhaupt?
THX
Spiro 
_________________
GOTO www.hagbard-spiro.de.ms |
|
| Nach oben |
|
 |
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 12.03.2005, 17:02 Titel: |
|
|
Erstelle einfach ein zweidimensionales String-Array:
| Code: |
DIM Filme$(AnzahlDerRegale, AnzahlDerFilmeProRegal)
|
Dann kannst du jedem Element jedes Regals einen Namen zuweisen, und
auch so nach ihm suchen.
Bsp:
| Code: |
REM Setze "Herr der Ringe" in Regal Nr.1 an Stelle 16
Filme$(1, 16) = "Herr der Ringe"
REM Suche nach "Herr der Ringe"
FOR i = 1 to AnzahlDerRegale
FOR k = 1 TO AnzahlDerFilmeProRegal
IF UCASE$(Filme$(i, k)) = "HERR DER RINGE" THEN GOTO Weiter
NEXT
NEXT
Weiter:
PRINT "Herr der Ringe im Regal Nr." + RTRIM$(LTRIM$(STR$(i))) + " an Stelle " + RTRIM$(LTRIM$(STR$(k))) + " gefunden."
END
|
Nur ein Lösungsansatz, nicht getestet, müsste aber klappen.
jb |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 12.03.2005, 21:24 Titel: |
|
|
Also, hier ein Ansatz für TYPE:
| Code: |
TYPE FILM
Name AS STRING * 50
Nr AS INTEGER
Regal AS INTEGER
END TYPE
DIM Feld(100) AS FILM
|
jb |
|
| Nach oben |
|
|
Spiro
Anmeldungsdatum: 02.03.2005
Beiträge: 3
Wohnort: Berlin
|
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 14.03.2005, 15:48 Titel: |
|
|
OPEN "C:\ordner\datei.ext" FOR OUTPUT AS #1
Append statt Output wenn die datei vorher nicht gelöscht werden soll, Input um die datei einzulesen.. schau einfach ma in die MonFaq
/edit: Ej! Einfach den Beitrag umdeditiert! 
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
Ich halte die Augen mal offen. 
