"Lerneffekt" beim Vokabeltrainer...

[Sandra121289]

Hallo!
Wir programmieren in der Schule gerade einen Vokabeltrainer und dabei möchte ich gerne nicht einfach nur zufällige Vokabeln abfragen, sondern die, die öfter falsch beantwortet wurden, sollen öfter abgefragt werden. nun habe ich absolut keine idee, wie sich das am besten anstellen lässt.

ich fände es gut, wenn es 2 kategorien von vokabeln gäbe. also die die der benutzer ohne probleme übersetzen kann und die bei denen es noch hapert. wenn der benutzer also eine vokabel aus der "leichten" kategorie nicht mehr weiß, soll diese in die zweite kategorie übergehen und wenn diese wiederum richtig beantwortet wird wieder in die erste übergehen. kann man das mit delphi realisieren?
danke im voraus, sanny :)

[Corpsman]

sry, aber ich verstehe nicht ganz,

Suchst du nach einem Programm das das schon kann ? Dann nimmst du evtl Vokabeltrainer von meiner HP

oder willst das selbst machen ?

[Nikolas]

Die zentrale Frage ist die, wie du die Vokabeln speicherst. Wenn du z.B. records benutzt, könntest du zwei zusätzzliche Integer einbauen, in denen du festhalten kannst, wie oft die Vokabel falsch beantwortet wurde.

[fLaSh11]

Ich denke, er will wissen, wie er es anstellt, dass die der höheren Stufe auch eine höhere Wahrscheinlichkeit haben dranzukommen. ;)

[Sandra121289]

Zitat:

Zitat von Nikolas

Die zentrale Frage ist die, wie du die Vokabeln speicherst. Wenn du z.B. records benutzt, könntest du zwei zusätzzliche Integer einbauen, in denen du festhalten kannst, wie oft die Vokabel falsch beantwortet wurde.

naja ich lade die vokabeln aus einer text-datei in eine liste!

[Sandra121289]

Zitat:

Zitat von fLaSh11

Ich denke, er will wissen, wie er es anstellt, dass die der höheren Stufe auch eine höhere Wahrscheinlichkeit haben dranzukommen. ;)

ja da hast du recht, aber nur mal so nebenbei, bin weiblich xD

[fLaSh11]

Nikolas meinte, du sollst eine Vokabel folgendermaßen definieren:

Delphi-Quellcode:

TVokabel = record
  deutsch: String;
  englisch: String;
  Lektion: Byte;
  Kategorie: Byte;
  //evtl. auch anderst; mit Fehlern, etc.
  //...
end;

P.S.: Der User ;)

[Sandra121289]

oi oi oi...mit records hab ich mich noch gar nicht beschäftigt...hab aber auch keine lust jetzt mein ganzes programm über den haufen zu werfen :? ...ich poste mal hier den quelltext rein, vielleicht könnt ihr mir ja so besser helfen:

Delphi-Quellcode:

procedure TForm2.naufgabeClick(Sender: TObject);
var i,art:integer;
begin
listbox1.Items.LoadFromFile('vokabel.txt');
case radiogroup1.itemindex of
  0: art:=1;
  1: art:=2;
  else art:=random(2)+1;
end;
case art of
1:begin
    i:=random(listbox1.Items.Count);
    panel1.Caption:=listbox1.Items.names[i];
    loesung:=listbox1.Items.ValueFromIndex[i];
  end;

2:begin
    i:=random(listbox1.Items.Count);
    panel1.Caption:=listbox1.Items.ValueFromIndex[i];
    loesung:=listbox1.Items.names[i];
  end;
end;
 eingabe.text:='';
 bewertung.caption:='';
 eingabe.setfocus;
end;


procedure TForm2.eingabeKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    if eingabe.text=loesung then bewertung.caption:='richtig'
                             else bewertung.caption:='falsch';
    naufgabe.setfocus;
    end;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
randomize;
end;

end.

[fLaSh11]

Delphi-Quellcode:

listbox1.Items.LoadFromFile('vokabel.txt');

???
Wo liegt die Datei? Im Stammverzeichnis der Exe?
Dann mach das leiber so:

Delphi-Quellcode:

listbox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'vokabel.txt');

und außerdem wär's so noch besser :)

Delphi-Quellcode:

if FileExtsts(ExtractFilePath(ParamStr(0))+'vokabel.txt') then
  listbox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0))+'vokabel.txt')
else
  //Vokabeldatei nicht vorhanden!

[Sandra121289]

danke für die hilfe flash! :-D
bin aber auch noch blutige anfängerin wenns um delphi geht, lerne das erst seit 3 monaten!
mein hauptproblem ist aber leider immer noch nicht gelöst :?