Rechenpyramide für kleinen Bruder :)

[Barny]

Hiho!
Ich habe gestern Abend mal eine "Rechenpyramide" in Delphi gecodet.
Sie ist für meinen kleinen Bruder (3.Klasse) gedacht, um das Kopfrechnen ein bisschen zu verbessern^^ Ist teilweise auch auf Wunsch von meiner Mutter passiert^^
Ist jetzt echt nichts weltbewegendes, aber ich würde euch trotzdem bitten einmal Stellung dazu zu nehmen und vielleicht auch ein paar Verbesserungsvorschläge zu äußern!

Hier der Source:

unit mVersuch1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    BtRechnen: TButton;
    BtEnde: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Label1: TLabel;
    BtPruefen: TButton;
    BtRechnen2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtEndeClick(Sender: TObject);
    procedure BtRechnenClick(Sender: TObject);
    procedure BtPruefenClick(Sender: TObject);
    procedure BtRechnen2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

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

procedure TForm1.BtRechnenClick(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin

{1. Reihe Zufallszahlen zuweisen}

a1 := Random(10);
Edit1.Text := IntToStr(a1);

a2 := Random(10);
Edit2.Text := IntToStr(a2);

a3 := Random(10);
Edit3.Text := IntToStr(a3);

a4 := Random(10);
Edit4.Text := IntToStr(a4);

a5 := Random(10);
Edit5.Text := IntToStr(a5);

{2. Reihe errechnen}

Edit6.Text := IntToStr(a1+a2);
Edit7.Text := IntToStr(a2+a3);
Edit8.Text := IntToStr(a3+a4);
Edit9.Text := IntToStr(a4+a5);

{2. Reihe zuweisen}

a6 := StrToInt(Edit6.Text);
a7 := StrToInt(Edit7.Text);
a8 := StrToInt(Edit8.Text);
a9 := StrToInt(Edit9.Text);

{3. Reihe rechnen}

Edit10.Text := IntToStr(a6+a7);
Edit11.Text := IntToStr(a7+a8);
Edit12.Text := IntToStr(a8+a9);

{3. Reihe zuweisen}

a10 := StrToInt(Edit10.Text);
a11 := StrToInt(Edit11.Text);
a12 := StrToInt(Edit12.Text);

{4. Reihe rechnen}

Edit13.Text := IntToStr(a10+a11);
Edit14.Text := IntToStr(a11+a12);

{4. Reihe zuweisen}

a13 := StrToInt(Edit13.Text);
a14 := StrToInt(Edit14.Text);

{5. Reihe rechnen}

Edit15.Text := IntToStr(a13+a14);

{ 5.Reihe zuweisen (unnötig aber trotzdem gemacht^^) }

a15 := StrToInt(Edit15.Text);






end;

procedure TForm1.BtPruefenClick(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin

{Variablen den Editfeldern zuweisen}

a1 := StrToInt(Edit1.Text);
a2 := StrToInt(Edit2.Text);
a3 := StrToInt(Edit3.Text);
a4 := StrToInt(Edit4.Text);
a5 := StrToInt(Edit5.Text);
a6 := StrToInt(Edit6.Text);
a7 := StrToInt(Edit7.Text);
a8 := StrToInt(Edit8.Text);
a9 := StrToInt(Edit9.Text);
a10 := StrToInt(Edit10.Text);
a11 := StrToInt(Edit11.Text);
a12 := StrToInt(Edit12.Text);
a13 := StrToInt(Edit13.Text);
a14 := StrToInt(Edit14.Text);
a15 := StrToInt(Edit15.Text);

{Überprüfen der 2. Reihe}

if Edit6.Text = IntToStr(a1+a2)
then
    begin
         Edit6.color := clgreen;
    end
else
    Edit6.color := clred;

if Edit7.Text = IntToStr(a2+a3)
then
    begin
         Edit7.color := clgreen;
    end
else
    Edit7.color := clred;

if Edit8.Text = IntToStr(a3+a4)
then
    begin
         Edit8.color := clgreen;
    end
else
    Edit8.color := clred;

if Edit9.Text = IntToStr(a4+a5)
then
    begin
         Edit9.color := clgreen;
    end
else
    Edit9.color := clred;

{Überprüfen der 3.Reihe}

if Edit10.Text = IntToStr(a6+a7)
then
    begin
         Edit10.color := clgreen;
    end
else
    Edit10.color := clred;

if Edit11.Text = IntToStr(a7+a8)
then
    begin
         Edit11.color := clgreen;
    end
else
    Edit11.color := clred;

if Edit12.Text = IntToStr(a8+a9)
then
    begin
         Edit12.color := clgreen;
    end
else
    Edit12.color := clred;

{Überprüfen der 4. Reihe}

if Edit13.Text = IntToStr(a10+a11)
then
    begin
         Edit13.color := clgreen;
    end
else
    Edit13.color := clred;

if Edit14.Text = IntToStr(a11+a12)
then
    begin
         Edit14.color := clgreen;
    end
else
    Edit14.color := clred;

{Überprüfen der 5.Reihe}

if Edit15.Text = IntToStr(a13+a14)
then
    begin
         Edit15.color := clgreen;
    end
else
    Edit15.color := clred;
end;

procedure TForm1.BtRechnen2Click(Sender: TObject);
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 : integer;
begin

{1. Reihe Zufallszahlen zuweisen}

a1 := Random(10);
Edit1.Text := IntToStr(a1);

a2 := Random(10);
Edit2.Text := IntToStr(a2);

a3 := Random(10);
Edit3.Text := IntToStr(a3);

a4 := Random(10);
Edit4.Text := IntToStr(a4);

a5 := Random(10);
Edit5.Text := IntToStr(a5);

{In übrige Felder "0" eintragen}

Edit6.Text := '0';
Edit7.Text := '0';
Edit8.Text := '0';
Edit9.Text := '0';
Edit10.Text := '0';
Edit11.Text := '0';
Edit12.Text := '0';
Edit13.Text := '0';
Edit14.Text := '0';
Edit15.Text := '0';





end;

end.

Hier das Prog:

[ame="http://rapidshare.com/files/362361866/Rechenpyramide.exe.html"]Rapidshare[/ame]

Uploaded.to

Vielleicht ist noch anzumerken, dass der Rechnenbutton natürlich rausgenommen wird wenn mein Bruder damit übt! Und die zahlen der ersten Reihe sind Zufallszahlen die gegebenenfalls auch verändert werden können


mfg

Barny