| 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 |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
