AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Delphi Quiz

Ein Thema von DerHaushaltsProfi · begonnen am 27. Mai 2015 · letzter Beitrag vom 28. Mai 2015
Antwort Antwort
DerHaushaltsProfi

Registriert seit: 18. Jan 2015
14 Beiträge
 
#1

Delphi Quiz

  Alt 27. Mai 2015, 18:37
Moin,

und zwar bin ich gerade dabei ein Quiz zu erstellen. Jedoch habe ich da einige kleine Probleme.
Das Quiz soll wie ein Multiple Choice Test werden, also 1 Frage 4 Antworten und genau eine Antwort davon ist richtig. Nun habe ich die Frage in einem Label und die Antworten in RadioButtons (ich habe erstmal 2 genommen zum Testen). Button1 ist der Start Button der die erste Frage in Label1 schreibt. Label1 enthält die Fragen die durch Button 2 geändert werden. Label2 enthält dann, je nachdem was der Benutzer wählt : 'Wahr' oder 'Falsch'. Durch den Button 3 wird die gegebene Antwort getestet. So mein Quelltext sieht folgendermaßen aus :

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.caption := 'Was ist 2+2?';
RadioButton1.Caption:= '5';
RadioButton2.Caption:='4';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= 'Was ist 3+2?';
RadioButton1.Caption:= '5';
RadioButton2.Caption:= '7';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Label2.Visible:=True;
if (RadioButton1.Checked) and not (RadioButton2.Checked) then
Label2.Caption:= 'SUPER';
else
Label2.caption :='Das ist leider falsch';
So nun ist aber das Problem, wenn ich jetzt Frage 2 (Also die von Button 2 neu eingefügte) ebenfalls beantworten will "merkt" sich Delphi, dass in RadioButton1 die Lösung war. Wenn ich jetzt aber für Frage 2 die richtige Antwort in RadioButton2 schreiben würde, würde Delphi bei Frage 2 beide RadioButtons als richtig erkennen, da es ja RadioButton1 von der 1. Frage als richtig erkennt und jetzt von der 2. Frage RadioButton2 als richtig erkennt. Dadurch würde der Nutzer, egal ob er bei der 2. Frage RadioButton1 oder RadioButton2 anklickt immer recht haben. Und das soll er ja nicht ;D

So nun meine Frage : Wie kann ich delphi "sagen", dass es alles von Frage 1 vergisst und die RadioButtons für Frage 2,3,4... betrachtet ohne die vorherigen Fragen zu beachten?

Wenns etwas kompliziert formuliert ist könnt ihr einfach fragen... Ich konnte es nicht anders ausdrücken.

MFG

Geändert von MrSpock (28. Mai 2015 um 08:39 Uhr) Grund: Code Tags eingefügt.
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.024 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Delphi Quiz

  Alt 27. Mai 2015, 18:46
Oje...

Du willst doch sicherlich nicht alle Fragen FIX im Source eingeben oder etwa doch?

Sondern lieber als Datei oder was auch immer Reinladen und dann alle Fragen nacheinander bringen... (Hoffe ich)

Also brauchst Du nur eine Radiogroup Box...

Vor jeder Frage setzt Du den Itemindex der Groupbox auf -1

Und dann belegst Du die mit den einzelnen Antworten und ein Memo/Label mit der Frage...

Dann noch merken welche Antwort die Richtige ist ein einen Button für weiter...

Mavarik
  Mit Zitat antworten Zitat
DerHaushaltsProfi

Registriert seit: 18. Jan 2015
14 Beiträge
 
#3

AW: Delphi Quiz

  Alt 27. Mai 2015, 19:08
Danke für den Tipp mit der Radiogroup Box. Damit werde ich es jetzt mal probieren

mfg
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.287 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Delphi Quiz

  Alt 27. Mai 2015, 19:15
Such doch mal hier in der DP nach "Wer wird Millionär" oder "WWM", das Thema haben wir ja öfters.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.024 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Delphi Quiz

  Alt 27. Mai 2015, 19:16
Eigentlich machen ich das sonst nicht... Aber meine VM ist gerade beschäftigt... Daher Quick&Dirty
Angehängte Dateien
Dateityp: zip Quiz.zip (1,8 KB, 26x aufgerufen)
  Mit Zitat antworten Zitat
DerHaushaltsProfi

Registriert seit: 18. Jan 2015
14 Beiträge
 
#6

AW: Delphi Quiz

  Alt 27. Mai 2015, 20:22
So weit so gut:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Visible:=True;
Label1.Visible:=False;
Label2.Caption:= 'Was ist 2+2?';
 RadioGroup1.Items.Clear;
 RadioGroup1.Items.Add('5');
 RadioGroup1.Items.Add('6');
 RadioGroup1.Items.Add('4');
 RadioGroup1.Items.Add('8');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Visible:=true;
Label2.Visible:=false;
case RadioGroup1.ItemIndex of
3: Label1.Caption:= 'Richtigelse Label1.Caption:= 'Falsch';;


end;

end;
end.
So aber wie kann ich jetzt einstellen, dass eine neue Frage gewählt wurde und nun Button2 diese 2. Frage in der RadioGroup abfragen soll. denn bei der zweiten Frage ist ja case RadioGroup1.ItemIndex of 2 Richtig und nicht case of RadioGroup1.ItemIndex of 3...

Danke und

Mfg

Geändert von TBx (27. Mai 2015 um 22:14 Uhr) Grund: Schonung von SirRufos Augen :-)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Delphi Quiz

  Alt 27. Mai 2015, 21:53
Es ware sehr freundlichst, wenn du deinen Code in die dafür vorgesehenen
Code:
[DELPHI][/DELPHI]
Tags setzen würdest, dann bekommt man keinen Augenkrebs ...
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

AW: Delphi Quiz

  Alt 27. Mai 2015, 22:51
Ich glaube, du solltest dir erst mal klar über das grundlegende Konzept werden, anstatt einfach drauf los zu programmieren.

Wenn man sich erst mal eine Datenstruktur für Fragen und zugehörigen Antworten überlegt, dann ergibt sich der Rest fast von selbst. o wie es bisher läuft, ist es zum Scheitern verurteilt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.287 Beiträge
 
Delphi 11 Alexandria
 
#9

AW: Delphi Quiz

  Alt 27. Mai 2015, 23:29
Ich hab ja nicht umsonst auf die Forensuche verwiesen. Man muss das Rad ja nicht immer wieder neu erfinden.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.024 Beiträge
 
Delphi 10.3 Rio
 
#10

AW: Delphi Quiz

  Alt 28. Mai 2015, 10:40
So weit so gut:So aber wie kann ich jetzt einstellen, dass eine neue Frage gewählt wurde und nun Button2 diese 2. Frage in der RadioGroup abfragen soll. denn bei der zweiten Frage ist ja case RadioGroup1.ItemIndex of 2 Richtig und nicht case of RadioGroup1.ItemIndex of 3...

Danke und

Mfg
1.) Würde ich Dir empfehlen vielleicht mal die Antworten zu lesen zum Beispiel diese hier. Diese Antwort ist genau die Lösung für Deine Frage...
2.) Könnest Du dir einfach mal den Source anschauen aus dieser Antwort. Hast Du scheinbar auch nicht gemacht, sonst hättest Du nicht WIEDER das gleiche gefragt.

Ansonsten ist meine Antwort...

42
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf