Killos
Anmeldungsdatum: 12.09.2004
Beiträge: 31
|
 Verfasst am: 02.06.2005, 19:28 Titel: Vokabeltrainer |
 |
|
Tagschen erstmal,
also ich hab hier diesen Code:
| Code: | richtig = 0
falsch = 0
COLOR 9, 1
CLS
DIM endung(5) AS STRING
DIM Kasus(5) AS STRING
LOCATE 13, 16
PRINT "Richtig:", richtig
LOCATE 14, 16
PRINT "Falsch:", falsch
OPEN "t3i2.bas" FOR INPUT AS #1
i% = 0
DO
LINE INPUT #1, temp$
Kasus(i%) = LEFT$(temp$, INSTR(temp$, "*") - 1)
endung(i%) = RIGHT$(temp$, LEN(temp$) - INSTR(temp$, "*"))
i% = i% + 1
LOOP UNTIL EOF(1)
CLOSE #1
i% = 0
DO
LOCATE 2, 13
PRINT "Deklinationstrainer programmiert von Tobias D."
LOCATE , 11
PRINT "fuer die Schueler des Schillergymnasium Offenburg."
LOCATE 10, 15
PRINT "Welche Endung hat der "; Kasus(i%); "?";
INPUT "", Eingabe$
IF UCASE$(Eingabe$) = UCASE$(endung(i%)) THEN
richtig = richtig + 1
CLS
LOCATE 13, 16
PRINT "Richtig:", richtig
LOCATE 14, 16
PRINT "Falsch:", falsch
LOCATE 16, 16
PRINT "Richtige Antwort!"
ELSE
falsch = falsch + 1
LOCATE 13, 16
PRINT "Richtig:", richtig
LOCATE 14, 16
PRINT "Falsch:", falsch
LOCATE 16, 12
PRINT "Die Endung >"; endung(i%); "< waere richtig gewesen."
END IF
i% = i% + 1
LOOP UNTIL i% = 35
END
|
So jetzt möcht ich dass es eine beliebige Vokabel aussucht und abfragen lässt bis alle 1 mal dran waren und dass es die falschen auch nochmal abfragen lässt. |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
