Jetzt komm ich nochmal mit dem Programm.
Möchte das Programm erweitern mit Subtraktion und Muliplikation.
Habe das MainMenu auch schon erstellt. Aber wie mach ich es jetzt, das dich die Vorzeichen ändern und man dann das jeweilige rechnen kann, wenn ich auf den Teil im MainMenu drücke.
Habe es bisher so:
Delphi-Quellcode:
procedure TForm1.Addition1Click(Sender: TObject);
begin
Label5.Enabled:= true ;
Label6.Enabled:= false;
Label7.Enabled:= false;
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
Zahl1:= random(9)+1 ;
Zahl2:= random(9)+1 ;
Zahl3:=random(4) +2 ;
Zahl4:=random(4) +2 ;
EditZahl1.Text:= IntToStr(Zahl1) ;
EditZahl2.Text:= IntToStr(Zahl2) ;
EditZahl3.Text:= IntToStr(Zahl3) ;
EditZahl4.Text:= IntToStr(Zahl4) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Ergebnis, gggT:integer ;
begin
Ergebnis:= Zahl1 + Zahl2 ;
ggT(Zahl1, Zahl2, gggT) ;
if IntToStr(Ergebnis) = EditZahl5.Text then
begin
if InttoStr(gggT) = EditZahl6.Text then
showmessage('Sehr gut gemacht!')
else
showmessage('Das ist nicht ganz richtig, versuch es noch einmal!')
end
else
begin
if InttoStr(gggT) = EditZahl6.Text then
showmessage('Das ist nicht ganz richtig, versuch es noch einmal!')
else
showmessage('Das ist leider falsch, versuch es doch noch einmal!')
end;
end;
procedure TForm1.Subtraktion1Click(Sender: TObject);
begin
Label5.Enabled:= false;
Label6.Enabled:= True ;
Label7.Enabled:= false;
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
Zahl1:= random(9)+1 ;
Zahl2:= random(9)+1 ;
Zahl3:=random(4) +2 ;
Zahl4:=random(4) +2 ;
EditZahl1.Text:= IntToStr(Zahl1) ;
EditZahl2.Text:= IntToStr(Zahl2) ;
EditZahl3.Text:= IntToStr(Zahl3) ;
EditZahl4.Text:= IntToStr(Zahl4) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Ergebnis, gggT:integer ;
begin
Ergebnis:= Zahl1 + Zahl2 ;
ggT(Zahl1, Zahl2, gggT) ;
if IntToStr(Ergebnis) = EditZahl5.Text then
begin
if InttoStr(gggT) = EditZahl6.Text then
showmessage('Sehr gut gemacht!')
else
showmessage('Das ist nicht ganz richtig, versuch es noch einmal!')
end
else
begin
if InttoStr(gggT) = EditZahl6.Text then
showmessage('Das ist nicht ganz richtig, versuch es noch einmal!')
else
showmessage('Das ist leider falsch, versuch es doch noch einmal!')
end;
procedure TForm1.ggT(c,d:integer; var ggTeiler: integer);
var merk: integer;
begin
repeat
merk:= c mod d ;
c:= d ;
d:=merk
until d= 0 ;
ggTeiler:=c
end; {of ggT}
end;
end.
Ist wahrscheinlich viel zu aufwendig gemacht, vllt. könnt ihr mir ja weiterhelfen...