Vokabeltrainer show message

[Jale]

hey ,
wir haben eine frage.
vllt könnt ihr uns ja weiterhelfen. wir haben folgendes problem.
wir haben für den infokurs einen vokabeltrainer entwickelt.
bisher sind wir auch soweit ,dass dieser uns abfragt und uns auch anzeigt wenn die vokabel falsch oder richtig ist und auch die richtige lösung zeigt.
wir würden gerne noch am ende zeigen wie viele man von den vorgegebenen vokabeln richtig hat. aber wir wissen nicht wie wir das mit einer showmessage hinbekommen.
habt ihr da vllt eine idee?

mfg
jale

[WIng2005]

Hallo,
am einfachsten wäre es, wenn ihr eine globale Variable setzt, welche im Form.create jeweils mit 0 initialisiert wird. Dies kann dann entspr. der Antworten erhöht und nach Abschluss ausgegeben werden.


Edit: Willkommen in der DP :dp:

[Jale]

wir haben bereits eine globale variable eingesetzt. wo sollte man die jetzt am besten einsetzen, sodass er dann die antworten für die falschen unddie richten antworten zählt?(wie zählt man die)

mfg:)

[Sherlock]

Zunächst das einfache: Zählt Ihr schon mit, wie die Aufgaben gelöst werden? Irgendwas im Sinne von

Delphi-Quellcode:

if Antwort = korrekt then
  inc(RichtigZaehler)

Denn dann müsst Ihr nur noch den String zusammenbauen, den Ihr in einer Messagebox ausgeben wollt.

Delphi-Quellcode:

MessageDlg('Du hast 10 richtige Antworten gegeben, die anderen 5 waren leider falsch', mtInformation, [mbOK], 0);

Edit: Da Ihr ja hoffentlich die Gesamtzahl Eurer Fragen wisst, braucht Ihr ja nur die richtigen Antworten zählen, um zu wissen wie viele Falsche es gegeben hat. ein Zähler reicht also, für den Rest sind Adam Riese und Eva Zwerg zuständig.

Sherlock

[Jale]

bedeutet denn dieses inc zählen?

das andere ist uns klar ..danke sherlock:)

[WIng2005]

inc(variable) ist das gleiche wie variable:=variable+1

inc=Inkrementieren=Erhöhen

[Sherlock]

Auszug aus der OH zum inc:

Zitat:

Die Prozedur inkrementiert einen Ordinalwert um den Wert 1 oder N.

Ihr könntet auch

Delphi-Quellcode:

RichtigZaehler := RichtigZaehler + 1;

...schreiben. Aber das sähe einfach nicht so professionell aus.

Edit: Achja, wie Ihr Zahlen in einen string bekommt, das wisst Ihr schon, oder?

Sherlock

[Jale]

Delphi-Quellcode:

begin
   if Edit2.Text=eng[x] then
                     begin
                      ShowMessage('correct');
                      inc(iAnzahlRichtigeAntworten);
                      mischen;
                  end
    else
                  begin
                      ShowMessage('false, the right answer is '+eng[x]);
                      inc(iAnzahlFalscheAntworten);
                      mischen;
                  end

    end;

    begin
         close;
         ShowMessage('You answered iAnzahlRichtigeAntworten out of 6 correctly.
         you answered iAnzahlFalscheAntworten wrong.')
    end;

so klappt das eigentlich alles nur leider nicht das mit der message..wir wissen nicht weiter

[divBy0]

Delphi-Quellcode:

ShowMessage('You answered iAnzahlRichtigeAntworten out of 6 correctly.
         you answered iAnzahlFalscheAntworten wrong.')

Ihr müsste die Variablen iAnzahlRichtigeAntworten und iAnzahlFalscheAntworten mit IntToStr() in einen String wandeln und dann in die Message einfügen mit ' + IntToStr(..) + '.

[Sherlock]

Achsoooo, also ist das was ich in nem kleinen Edit noch gefragt hatte der Kern des Problems gewesen ;)

Vielleicht hätte Euer letzter Post die Lösung bereits vor ner halben Stunde gebracht :zwinker:

Sherlock