آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع delphi

تاريخ التسجيل : 11/06/2008

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع ** delphi ** 1ohp

آلــــة حاسبـــة

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع ** delphi ** 3oad

برمجة آلة حاسبة عادية والمراد من هذا هو تعلم بعض تقنيات
الحساب للمبتدئين في البرمجة

اقتباس :: var
Form1: TForm1;
implementation
{$R *.DFM}
Var
Operation1: Real;
Operation2:string;
procedure TForm1.ButtonEffaceClick(Sender: TObject);
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
procedure TForm1.Button0Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'0';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'1'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'2'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'3'
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'4'
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'5'
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'6'
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'7';
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'8'
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+'9'
end;
procedure TForm1.ButtonVirguleClick(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+','
end;
procedure TForm1.ButtonPlusClick(Sender: TObject);
begin
Operation1:=StrToFloat(Edit1.Text);
Operation2:='+';
Edit1.Text:='';
end;
procedure TForm1.ButtonMoinsClick(Sender: TObject);
begin
Operation1:=StrToFloat(Edit1.Text);
Operation2:='-';
Edit1.Text:='';
end;
procedure TForm1.ButtonMultClick(Sender: TObject);
begin
Operation1:=StrToFloat(Edit1.Text);
Operation2:='x';
Edit1.Text:='';
end;
procedure TForm1.ButtonDivClick(Sender: TObject);
begin
Operation1:=StrToFloat(Edit1.Text);
Operation2:='/';
Edit1.Text:='';
end;
procedure TForm1.ButtonResultatClick(Sender: TObject);
var Operation3:real;
begin
Operation3:=StrToFloat(Edit1.Text);
if Operation2='+' then Edit1.Text:=FloatToStr(Operation1+Operation3);
if Operation2='-' then Edit1.Text:=FloatToStr(Operation1-Operation3);
if Operation2='x' then Edit1.Text:=FloatToStr(Operation1*Operation3);
if Operation2='/' then Edit1.Text:=FloatToStr(Operation1/Operation3);
end;

procedure TForm1.edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.MaxLength:=10;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.SetFocus;
end;
end.

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع ** delphi ** 2lbw

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع ** delphi ** Calculatrice

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع ** delphi ** 8voh

http://www.2shared.com/file/A81zj34X/calculatrice.html

تاريخ التسجيل : 19/06/2008

merci for

lak

» مجموعة كتب لتعلم object pascal & delphi

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع delphi

آلـــــة حاسبــــة عاديــــة للمبتدئيــــن مع delphi

مواضيع مماثلة

مواضيع مماثلة