Rechenpyramide für kleinen Bruder :)

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:

Code:

---

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

Zitat:

---

Zitat von Barny

[...] ich würde euch trotzdem bitten einmal Stellung dazu zu nehmen und vielleicht auch ein paar Verbesserungsvorschläge zu äußern!

---

Dir ist bestimmt auch aufgefallen, dass dieses "Programm" aus 90% Copy und Paste besteht, soll jetzt nicht heißen, dass du den Code "geklaut" hast, sondern dass die Codefragmente sich ziemlich ähneln und das sollte einen Programmierer immer zu denken geben ;)

Das hier z.B.:

Code:

---

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);

---

Geht viel kürzer:

Code:

---

var I: Byte;
for I := 1 to 5 do TEdit(FindComponent('Edit' + IntToStr(I))).Text := Random(10);

---

Oder sowas:

Code:

---

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;

---

Geht etwas eleganter:

Code:

---

const A: Array[Boolean] of TColor = (clRed, clGreen);
Edit6.Color := A[Edit6.Text = IntToStr(a1+a2)];

---

Gibt noch einiges mehr, aber das kannst du ja mal alles umsetzen, dann schrumpft sich der Code auf 25% zusammen ;)

hey finde es cool^^ hab ma ein bishcne rum gespielt damit ^^ hatte ein flasch :P haha
nein also vllt ein bischen am design arbeiten und wie inout schon sagte

Zitat:

---

Zitat von inout

Dir ist bestimmt auch aufgefallen, dass dieses "Programm" aus 90% Copy und Paste besteht, soll jetzt nicht heißen, dass du den Code "geklaut" hast, sondern dass die Codefragmente sich ziemlich ähneln und das sollte einen Programmierer immer zu denken geben

---

probiers ma kürzer^^

hf gl
Hotdragon92

Zitat:

---

Zitat von inout

Dir ist bestimmt auch aufgefallen, dass dieses "Programm" aus 90% Copy und Paste besteht, soll jetzt nicht heißen, dass du den Code "geklaut" hast, sondern dass die Codefragmente sich ziemlich ähneln und das sollte einen Programmierer immer zu denken geben ;)

---

Vielleicht hätte ich noch dazuschreiben sollen, dass ich gerade noch sagen wir im Anfangsstadium bin und dies mein erstes Programm ist, welches man auch sinnvoll einsetzen kann.Danke für den Verbesserungsvorschlag ;)

Zitat:

---

Zitat von hotdragon92

hey finde es cool^^ hab ma ein bishcne rum gespielt damit ^^ hatte ein flasch :P haha

---

thx :)