Delphi' de Hesap Makinesi Programı (Kodları)

BlackKey · 13 Eylül 2014

Formumuza 17 Buton Eklıyoruz ve 1 de edıt

kod:

unit Unit1;

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 Button9Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
secim: Integer;
sayi1: Integer;
Sayi2: Integer;
sonuc: Real;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"7";
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.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"4";
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"5";
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"6";
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"8";
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"9";
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+"0";
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
sayi1:=StrToInt(Edit1.Text);
secim:=1;
Edit1.Text:=";
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
sayi1:=StrToInt(Edit1.Text);
secim:=2;
Edit1.Text:=";
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
sayi1:=StrToInt(Edit1.Text);
secim:=3;
Edit1.Text:=";
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
sayi1:=StrToInt(Edit1.Text);
secim:=4;
Edit1.Text:=";
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
sayi2:=StrToInt(Edit1.Text);
if secim = 1 Then sonuc:= sayi1+sayi2;
if secim = 2 Then sonuc:= sayi1-sayi2;
if secim = 3 Then sonuc:= sayi1*sayi2;
if secim = 4 Then sonuc:= sayi1/sayi2;
Edit1.Text:= FloatToStr(sonuc);
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Edit1.Clear;
end;

Hızlı Konu Açma

Son Mesajlar

Reklam

Delphi' de Hesap Makinesi Programı (Kodları)

BlackKey

Üye

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

HayatMMO

Neler yeni

Online istatistikleri

Hızlı Konu Açma

Son Mesajlar

Reklam

Follow Us On Social Media

Delphi' de Hesap Makinesi Programı (Kodları)

BlackKey

Üye

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Follow Us On Social Media

HayatMMO

Neler yeni

Online istatistikleri