سورس ماشین حساب در دلفی

[LAR30ty]

با سلام دوستان
کسی هست بتونه سورس ماشین حسابو در دلفی بنویسه یه ماشین حساب ساده با قابلیت حافظه تقریبن عین ویندوز باشه اگه ممکنه دوستان کمک کنند خیلی لازمش دارم مرسی !

[YBB]

این هم سورس کامل یک ماشین حساب به حجم 192 کیلوبایت

دوستان برنامه رو تست کنن و اشکالاتشو خواهشن بگن
ممنون.



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[nasambros]

آقا ممنون
خیلی کامل بود. حالا بیشتر کار میکنم ببینم چه مشکلی داره

[nasambros]

اینم از ما

unit calculator;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
procedure FormCreate(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
RESULT,NUM:REAL;
KEY:CHAR;
s:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
EDIT1.Text:='';
RESULT:=0.0;
num:=0.0;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
key:='1';
EDIT1.Text:=EDIT1.Text+key;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'0';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'2';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'3';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'4';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'5';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'6';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'7';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'8';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'9';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
key:='+';
num := strtofloat(edit1.Text);
result:=result+num;
edit1.Text:='';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if key='+' then
begin
num := strtofloat(edit1.Text);
result:=result+num;
edit1.Text:=floattostr(result);
result:=0.0;
end;
if key='-' then
begin
num := strtofloat(edit1.Text);
result:=result-num;
edit1.Text:=floattostr(result);
result:=0.0;
end;
if key='*' then
begin
num := strtofloat(edit1.Text);
result:=result*num;
edit1.Text:=floattostr(result);
result:=0.0;
end;
if key='/' then
begin
num := strtofloat(edit1.Text);
if num>0 then
begin
result:=result/num;
edit1.Text:=floattostr(result);
result:=0.0;
end
else
edit1.Text:='error';
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
result:=0.0;
num:=0.0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
key:='-';
num := strtofloat(edit1.Text);
result:=num;
edit1.Text:='';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
key:='*';
num := strtofloat(edit1.Text);
result:=num;
edit1.Text:='';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
key:='/';
num := strtofloat(edit1.Text);
result:=num;
edit1.Text:='';
num:=0;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
EDIT1.Text:=EDIT1.Text+'.';
end;



end.