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 |
|
 |
|