14-03-2012, 10:29 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
قمت ببرمجة اله حاسبة بسيطة وبدائية مع الدلفي وذالك لاني اعمل على شاشة باللمس واردت اختبار ها
ومعرفة كيفية برمجتها
طبعا لو تم البحث في المنتدى راح تجد مثال جيد لكن تم استخدام ال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]