Wissenstester

[mr-unbekannt]

hello

ich bin ein ziemlicher newbie, hab aber grundlagen gelesen.
ich möchte gerne einen "wissenstester" coden. kann mir einer bitte helfen?
ich hätte mir das so gedacht:

ich mache einige Fragen und die Antworten in 4 RadioButtons.
Zum schluss soll man auf einen Button clicken und es soll die Durchschnittspunktezahl angezeigt werden. kann mir jemand bitte helfen?

vielen dank

[atreju2oo0]

Wo genau scheiterts denn?
Bringt ja schließlich nichts wenn Dir hier jemand nen fertiges Prog gibt!

Zu dem Thema könnteste Dir hier auch mal die Foren-Regel durchlesen!


Aber erstmal:

Herzlich Willkommen!

[mr-unbekannt]

also ich habe mir gedacht:

in den procedure Button 1 click reinschreiben (RB ist RadioButton):

var score: Integer;

if RadioButton1.checked then score := 1 // die Richtige antwort ist ausgewählt, dann 1 Punkt
else score := 0 // ansonsten 0 Punkte

if RadioButton7.checked then score := 1
else score := 0
.
.
.

uns zum schluss alle 1 zusammenzählen und den durchscnitt ausrechnen
nur weiß ich ehrlich gesagt nicht, wie da geht

[MisterNiceGuy]

Kommt nicht oft vor, dass dir hier ein (eigentlich nur im Ansatz) fertiges Programm vorgesetzt, aber ich wollte sowas eigentlich schon immer mal programmieren, also hab ich mich mal rangesetzt.
Im Anhang findest du mein Programm samt Quelltext und 4 Fragen. Die Fragen werden extern in einer IniDatei gespreichert.
Es kann sein, dass das Programm noch einige Bugs enthält, ich habs echt nur quick 'n dirty runtergeschrieben.

P.S. scheint noch ein Bug in der Funktion "in_liste" zu sein. Es kann sein, dass Fragen doppelt gestellt werden.

[mr-unbekannt]

vielen dank....

aber geht das nicht auch ohne ini datei?
eigentlich wollte ich das programm selber schreiben, nur ich wollte ein bisschen hilfe von euch

aber vielen dank

achja:

ich hab auf Form1 einige radiobuttons,
jetzt habe ich bei Form2 die procedure OnCreate, und hab da heineingeschrieben:

if Form1.RadioBotton3.Checked then Label1.Caption := 'Hello';

aber wenn ich RadioButton 3 anklicke und auf den Button klicke, der Form2 öffnet, ist Label1 immernich mit Label1 beschriftet. Kann ich das irgendwie ändern?

[MisterNiceGuy]

hast du vielleicht das label auf form2? dan musst du schreiben form2.label1.caption := 'blabla'.
Aber ich rate dir erstmal ein Grundlagentutorial zu machen, dann ergeben sich die meisten Fragen von selbst.

[Stanlay Hanks]

Zitat von mr-unbekannt:

aber geht das nicht auch ohne ini datei?

Hi. Doch, geht es. Aber ich denke, Ini Dateien sind für einen Delphi Neuling die einfachste Art, Daten zu speichern

[MisterNiceGuy]

Joa logischer wäre es für ein "seriöses" Quizspiel die Fragen in Streams(?) zu speichern, da der intelligente User dann nicht die Antwort nachgucken kann

Aber ich denke, dass ist einfacher für dich, da du sehen kannst, wie so eine Datei aufgebaut ist.

Ich hab übrigens nun nochmal eine funktionierende Version hochgeladen!

[malo]

Zitat von MisterNiceGuy:

Joa logischer wäre es für ein "seriöses" Quizspiel die Fragen in Streams(?) zu speichern, da der intelligente User dann nicht die Antwort nachgucken kann

Ich würde passwortgeschützte Datenbanken vorschlagen, falls das ganze etwas komplexer wird.

Allerdings denke ich, dass es bei dem "Projekt" eher um den Lerneffekt geht