آلة حاسبة بسيطة في الدلفي [الأرشيف] - منتديات الجلفة لكل الجزائريين و العرب

kami24

2011-01-20, 20:40

أرجوا منكم مساعدتي في كيفية عمل آلة حاسبة بسيطة في لغة الدلفي مع الكود سورس
ارجـــــــــــــــــــــــــــــــــوا الرد في أقرب وقت ممكن لأنه موضوع إمتحاني
مشكووووووووووووووووووووورين

hamo soual

2011-01-21, 00:11

جرب هذا من برمجتي
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text))
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) *strtofloat(edit2.Text))
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) +strtofloat(edit2.Text))
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text))
end;
end.

kami24

2011-01-21, 01:02

[QUOTE=hamo soual;4737555]جرب هذا من برمجتي
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text))
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) *strtofloat(edit2.Text))
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) +strtofloat(edit2.Text))
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text))
end;
end.
[/QUO
مشكوووووووووووووور كتير و جزاك الله كل خير على الإفادة

</div>

mouhamad2009

2011-04-25, 14:03

[QUOTE=hamo soual;4737555]جرب هذا من برمجتي
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text))
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) *strtofloat(edit2.Text))
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text) +strtofloat(edit2.Text))
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
button5.Caption:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text))
end;
end.
[/QUO
مشكوووووووووووووور كتير و جزاك الله كل خير على الإفادة

</div>
اريد منك شرح مبسط اكتر مادا اكتب في الازار متل 1 و2و3و4و5و6و7و8و9و0و/و+و*و-و.و اجزاء الخاص بها خطوة خطوة

adelmb

2011-04-30, 17:36

ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر ألف شكر
ألف شكر ألف شكر
ألف شكر ألف شكر ألف شكر

mouhamad2009

2011-04-30, 18:10

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