Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Devilkevin aka Kerstin
Anmeldungsdatum: 11.11.2004 Beiträge: 2532 Wohnort: nähe Mannheim
|
Verfasst am: 25.11.2004, 20:17 Titel: Vokabeltrainercode |
|
|
Hallo
ich hab nen kleines Programm zum Vokabel lernen
Code: |
print "Übersetze !"
print "Ache dabei auf Gross & Kleinschreibung !"
print
print "King"
input king$
if king$ = "König" then print "Richtig !"
|
... nun meine Frage :
Wie mache ich das, wen man das Falschewort (z.B. Queen) eingibt das richtige Wort dann angezeigt wird ?
Danke schonmal im Voraus _________________ www.piratenpartei.de |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
Verfasst am: 25.11.2004, 20:40 Titel: Code |
|
|
Hallo.
Eine Datendatei:
King*König
Cat*Katze
Flower*Blume
Car*Auto
Code: | DIM Deutsch(3) AS STRING
DIM Englisch(3) AS STRING
OPEN "Daten.DAT" FOR INPUT AS #1
i%=0
DO
LINE INPUT #1, temp$
Englisch(i%) = LEFT$(temp$, INSTR(temp$, "*")-1)
Deutsch(i%) = RIGHT$(temp$, LEN(temp$)-INSTR(temp$, "*"))
i%=i%+1
LOOP UNTIL EOF(1)
CLOSE #1
i%=0
DO
CLS
PRINT "Vokabel"
PRINT "Was heißt "; Englisch(i%); "?";
INPUT "", Eingabe$
IF UCASE$(Eingabe$) = UCASE$(Deutsch(i%)) THEN
PRINT "Richtig!"
SLEEP
ELSE
PRINT "Das ist falsch. Richtig war "; Deutsch(i%)
SLEEP
END IF
i%=i%+1
LOOP UNTIL i%=4 THEN EXIT DO
END |
Der Source ist sehr einfach gehalten und stark ausbaufähig.
Ist nicht getestet, aber sollte funktionieren.
Viele Grüße!
Sebastian _________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
Nach oben |
|
|
Devilkevin aka Kerstin
Anmeldungsdatum: 11.11.2004 Beiträge: 2532 Wohnort: nähe Mannheim
|
Verfasst am: 26.11.2004, 16:23 Titel: Re: Code |
|
|
Sebastian hat Folgendes geschrieben: | Hallo.
Eine Datendatei:
King*König
Cat*Katze
Flower*Blume
Car*Auto
Code: | DIM Deutsch(3) AS STRING
DIM Englisch(3) AS STRING
OPEN "Daten.DAT" FOR INPUT AS #1
i%=0
DO
LINE INPUT #1, temp$
Englisch(i%) = LEFT$(temp$, INSTR(temp$, "*")-1)
Deutsch(i%) = RIGHT$(temp$, LEN(temp$)-INSTR(temp$, "*"))
i%=i%+1
LOOP UNTIL EOF(1)
CLOSE #1
i%=0
DO
CLS
PRINT "Vokabel"
PRINT "Was heißt "; Englisch(i%); "?";
INPUT "", Eingabe$
IF UCASE$(Eingabe$) = UCASE$(Deutsch(i%)) THEN
PRINT "Richtig!"
SLEEP
ELSE
PRINT "Das ist falsch. Richtig war "; Deutsch(i%)
SLEEP
END IF
i%=i%+1
LOOP UNTIL i%=4 THEN EXIT DO
END |
Der Source ist sehr einfach gehalten und stark ausbaufähig.
Ist nicht getestet, aber sollte funktionieren.
Viele Grüße!
Sebastian |
Hallo !
Es waren zwar 2-3 kleine Fehlerlein im Code aber macht nix ! DANKE _________________ www.piratenpartei.de |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
|