الأمل

عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي

منتديات الأمل ، منتديات النقاش العام والتفاعل بين أعضاء المنتدى بحرية.

منتديات ستار دي زاد  

    Talking الة حاسبة بسيطة مع الدلفي

    شاطر
    avatar
    abdou
    المشرف
    المشرف

    عدد المساهمات : 70
    نقاط : 2243
    تاريخ التسجيل : 13/04/2012

    Talking الة حاسبة بسيطة مع الدلفي

    مُساهمة من طرف abdou في الأحد مايو 27, 2012 12:50 am

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

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


    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.

      الوقت/التاريخ الآن هو الإثنين نوفمبر 20, 2017 5:25 am