Bruchrechnen

[Maverick]

also ich hab ein Problem:
Für die Schule will ich ein Programm machen das eine Art interaktiver Mathetest ist. Da in dem Test Brucgh aufgaben vor kommen stell ich diese mit bildern da und wollte das eigentlich so machen das bei jeder neuen aufgabe die alte unsichtbar wird und die neue erscheint nun hab ich aber das problem das aufgabe 3 nicht erscheint.

bei den aufgaben sind die lösungen schon vorgegeben damit ich mir es erspare die ganzen rechen formeln zu schreiben

hier mal der quelltext :

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Ansicht1: TMenuItem;
    N1: TMenuItem;
    Beenden1: TMenuItem;
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Meldungsfenster: TGroupBox;
    Label7: TLabel;
    Fragenkatalog: TGroupBox;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    info1: TMenuItem;
    Versionsnummer1: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    aufgabe_1_dic: TRichEdit;
    aufgabe_2_dic: TRichEdit;
    Copyright: TLabel;
    aufgabe_1_im: TImage;
    loesung_4_im: TImage;
    loesung_1_im: TImage;
    loesung_3_im: TImage;
    loesung_2_im: TImage;
    RichEdit1: TRichEdit;
    aufgabe_2_im: TImage;
    loesung_2_c_im: TImage;
    loesung_2_a_im: TImage;
    loesung_2_d_im: TImage;
    loesung_2_b_im: TImage;
    procedure Beenden1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Versionsnummer1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  zaehler_richtig, zaehler_falsch, Aufgabe_1_falsch, Aufgabe_1_richtig:integer;

implementation

{$R *.DFM}

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

if radiobutton1.checked=false then label7.caption:='Bitte zuerst eine Antwort auswählen!';
if radiobutton2.checked=false then label7.caption:='Bitte zuerst eine Antwort auswählen!';
if radiobutton3.checked=false then label7.caption:='Bitte zuerst eine Antwort auswählen!';
if radiobutton4.checked=false then label7.caption:='Bitte zuerst eine Antwort auswählen!';

/////////// F R A G E - 2 //////////////////////////////////////////////////////
// Keine Angaben - Meldung löschen //
if radiobutton1.checked=true then label7.caption:=' ';
if radiobutton2.checked=true then label7.caption:=' ';
if radiobutton3.checked=true then label7.caption:=' ';
if radiobutton4.checked=true then label7.caption:=' ';
// Ende des Vorganges //
//----------------------------------------------------------------------------//
// Fragenummer vergeben //
if radiobutton1.checked=true then label1.caption:='Frage - 1b';
if radiobutton2.checked=true then label1.caption:='Frage - 1b';
if radiobutton3.checked=true then label1.caption:='Frage - 1b';
if radiobutton4.checked=true then label1.caption:='Frage - 1b';

if radiobutton1.checked=true then aufgabe_2_im.visible:=true;
if radiobutton2.checked=true then aufgabe_2_im.visible:=true;
if radiobutton3.checked=true then aufgabe_2_im.visible:=true;
if radiobutton4.checked=true then aufgabe_2_im.visible:=true;

if radiobutton1.checked=true then loesung_2_a_im.visible:=true;
if radiobutton2.checked=true then loesung_2_a_im.visible:=true;
if radiobutton3.checked=true then loesung_2_a_im.visible:=true;
if radiobutton4.checked=true then loesung_2_a_im.visible:=true;

if radiobutton1.checked=true then loesung_2_b_im.visible:=true;
if radiobutton2.checked=true then loesung_2_b_im.visible:=true;
if radiobutton3.checked=true then loesung_2_b_im.visible:=true;
if radiobutton4.checked=true then loesung_2_b_im.visible:=true;

if radiobutton1.checked=true then loesung_2_c_im.visible:=true;
if radiobutton2.checked=true then loesung_2_c_im.visible:=true;
if radiobutton3.checked=true then loesung_2_c_im.visible:=true;
if radiobutton4.checked=true then loesung_2_c_im.visible:=true;

if radiobutton1.checked=true then loesung_2_d_im.visible:=true;
if radiobutton2.checked=true then loesung_2_d_im.visible:=true;
if radiobutton3.checked=true then loesung_2_d_im.visible:=true;
if radiobutton4.checked=true then loesung_2_d_im.visible:=true;
//----------------------------------------------------------------------------//
// Aufgabenbewertung //
if radiobutton1.checked=true then zaehler_falsch:=+1;
if radiobutton2.checked=true then zaehler_falsch:=+1;
if radiobutton3.checked=true then zaehler_falsch:=+1;
if radiobutton4.checked=true then zaehler_richtig:=+1;

if radiobutton1.checked=true then Aufgabe_1_falsch:=1;
if radiobutton2.checked=true then Aufgabe_1_falsch:=1;
if radiobutton3.checked=true then Aufgabe_1_falsch:=1;
if radiobutton4.checked=true then Aufgabe_1_richtig:=1;
// Ende des Vorganges //
//----------------------------------------------------------------------------//
// Den Aufgabentext ändern //
if radiobutton1.checked=true then aufgabe_2_dic.visible:=true;
if radiobutton2.checked=true then aufgabe_2_dic.visible:=true;
if radiobutton3.checked=true then aufgabe_2_dic.visible:=true;
if radiobutton4.checked=true then aufgabe_2_dic.visible:=true;
// Ende des Vorganges //
//----------------------------------------------------------------------------//
// Checkboxes entchecken //
if radiobutton1.checked=true then  radiobutton1.checked:=false;
if radiobutton2.checked=true then  radiobutton2.checked:=false;
if radiobutton3.checked=true then  radiobutton3.checked:=false;
if radiobutton4.checked=true then  radiobutton4.checked:=false;
// Ende des Vorganges //
//----------------------------------------------------------------------------//
end;

für aufgabe 3 hab ich einfach den quelltext von aufgabe 2 kopiert und statt 2 eine 3 überall hingeschrieben. das sind alles bilder mit den einzelnen lösungen und fragen, außer aufgabe_2_dic das ist ein richtext feld , ich arbeite übrigens mit Delphi 5 könnt ihr mir helfen???
Code&Titel geändert-FuckRacism