Delphi-PRAXiS
Seite 3 von 7     123 45     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Datenbank- Quiz programmieren (https://www.delphipraxis.net/203649-datenbank-quiz-programmieren.html)

DieDolly 8. Mär 2020 16:23

AW: Datenbank- Quiz programmieren
 
Ich schreibe es nur noch einmmal sicherheitshalber.
Hier möchte dich, auch wenn gerade gefühhlt auf dich eingedroschen wird, niemand ärgern. Es geht alleine darum, dass du etwas lernst und eventuelle Prüfungen bestehst.

DeddyH 8. Mär 2020 16:27

AW: Datenbank- Quiz programmieren
 
Vielleicht wäre es auch sinnvoller, den Code erst einmal zu vergessen und sich den Ablauf einmal klassisch auf Papier aufzuzeichnen, das kann ein Struktogramm, ein PAP oder einfach etwas eigenes sein, Hauptsache, man kann seinen Gedankengang später nachvollziehen. Wenn man dann der Meinung ist, dass das so funktioniert, formuliert man das dann in Code.

DieDolly 8. Mär 2020 16:29

AW: Datenbank- Quiz programmieren
 
Zum Beispiel hier:
https://www.diagrammeditor.de/

Kann dann so aussehen https://www.hsg-kl.de/faecher/inf/al...s/pap/PAP1.png

Reedx 8. Mär 2020 16:32

AW: Datenbank- Quiz programmieren
 
hab nun die 2. query gelöscht. Nun wird die Frage auch im ersten Radiobutton angezeigt, und nicht nur im Titel.. (deswegen ja ursprünglich die 2 Queries)

Delphi-Quellcode:
if lb.ItemIndex >=0 then
 begin
    rg.Visible:=true;
    Datamodule1.ADOQuery6.SQL.Clear;
    Datamodule1.ADOQuery6.SQL.Text:='SELECT Frage, L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
                                    ' AND Schwierigkeit="1";';
    Datamodule1.ADOQuery6.Open;
 
    Datamodule1.ADOQuery6.First;

     while not Datamodule1.ADOQuery6.Eof do
     begin
        Datamodule1.ADOQuery6.Next;

    //Frage in "Titel"
      rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
    //Antworten in Radiobuttons
      rg.Items.Clear;
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[0].AsString);
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
    end;
 
 
  end else
  begin
  application.MessageBox('Auswahlfehler!','Fehler');
  end;

DieDolly 8. Mär 2020 16:33

AW: Datenbank- Quiz programmieren
 
Müsst ihr das mit einer Datenbank machen? Wenn nicht würde ich es mit einer Ini-Datei machen.

Reedx 8. Mär 2020 16:35

AW: Datenbank- Quiz programmieren
 
Zitat:

Zitat von DieDolly (Beitrag 1459178)

ich weiß, ich kenne Struktogramme etc. und habe ein tool bereits dafür.. nur finde ich es gerade unpassend das zu machen, da mein Wille eigentlich deutlich ist und mir das diagramm nichts nützt, wenn der Quelltext nicht stimmt.
Ich möchte einfach nur, das beim klick eine neue frage mit neuen antworten aus meiner datenbank erscheint. mehr nicht.. kein checked:=true/false etc..

Reedx 8. Mär 2020 16:36

AW: Datenbank- Quiz programmieren
 
Zitat:

Zitat von DieDolly (Beitrag 1459180)
Müsst ihr das mit einer Datenbank machen? Wenn nicht würde ich es mit einer Ini-Datei machen.

ja müssen wir (leider)

DieDolly 8. Mär 2020 16:36

AW: Datenbank- Quiz programmieren
 
Zitat:

und mir das diagramm nichts nützt, wenn der Quelltext nicht stimmt.
Dafür sind Diagramme da - damit am Ende der Quelltext stimmt.

DeddyH 8. Mär 2020 16:40

AW: Datenbank- Quiz programmieren
 
Wenn man in einer Schleife die gesamte Datenmenge durchläuft und anschließend die Daten anzeigt, welchen Datensatz stellt man dann dar? Den letzten, oder? Dann nützt dir auch kein „Weiter“-Button. Aber klar, Struktogramme usw. braucht man ja nicht.

DieDolly 8. Mär 2020 16:42

AW: Datenbank- Quiz programmieren
 
Kannst du die Datenbankdatei und das Projekt mal hier anhängen?


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:18 Uhr.
Seite 3 von 7     123 45     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz