آلة حاسبة بسيطة في الدلفي

kami24 · 2011-01-20, 20:40

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

hamo soual · 2011-01-21, 00:11

جرب هذا من برمجتي

كود PHP:


			
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]جرب هذا من برمجتي

كود PHP:


			
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=kami24;4737826]

اقتباس:

المشاركة الأصلية كتبت بواسطة hamo soual

جرب هذا من برمجتي

كود PHP:


			
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

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