delphi4arab منتديات دلفي للعرب

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

قمت ببرمجة اله حاسبة بسيطة وبدائية مع الدلفي وذالك لاني اعمل على شاشة باللمس واردت اختبار ها
ومعرفة كيفية برمجتها
طبعا لو تم البحث في المنتدى راح تجد مثال جيد لكن تم استخدام الOOP فيه ومعقد نوعما لم افهمه بشكل جيد
فقمت بتحليلها من البداية وبرمجتها وترتيبها حتى يسهل على غيري فهمها وتطويرها
اعتذر على الاطالة والكود في المرفقات
والسلام عليكم ورحمة الله وبركاته

كود :
[align=left]unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    btn8: TButton;
    btn9: TButton;
    btn10: TButton;
    btn11: TButton;
    btn12: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var z,x,c: Integer;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin

edt1.Text:='1';
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
x:=StrToInt(edt1.text);
edt1.Text:='';

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='2';
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
edt1.Text:='3';
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
z:=StrToInt(edt1.Text) ;
c:=z+x;
edt1.Text:=IntToStr(c);
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
edt1.Text:='4';
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
edt1.Text:='5';
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
edt1.Text:='6';
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
edt1.Text:='7';
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
edt1.Text:='8';
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
edt1.Text:='9';
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:='0';
end;

end.
[/align]

شكرا على الدرس القيم و في انتظار الالةالحاسبة العلمية ان شاء الله .

مبرمج هاوي

بلال200