Contoh Program Delphi Untuk Kalkulator Yang Sederhana

Pada mata kuliah pemrogramnan perangkat bergerak di jelaskan bagaimana kita membuat suatu bentuk program yang bisa berubah, salah satunya adalah Program Delphi Untuk Kalkulator Yang Sederhana yang kali ini akan saya postingkan di dalam blog ini. Sebenarnya pemrograman ini sangat mudah, asalkan kita bisa berlogika, dan juga pastinya kita harus memperhatikan jika dosen sedang menjelaskan didepan kelas. Meskipun Untuk kali ini saya tidak menjelaskan secara langsung tetapi dengan anda membaca sourch kode yang saya tulis dibawah ini saya yakin anda bisa. Selamat Mencoba...

Sourch code:

unit kalkulator;

interface

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

type
  TForm1 = class(TForm)
    A: TLabel;
    B: TLabel;
    C: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn4: TButton;
    btn5: TButton;
    btn6: TButton;
    btn7: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var A,B,C  : Real ;
begin
 //proses input A,B
 A:= strToFloat(edt1.Text);
 B:= StrToFloat(edt2.Text);

 //Proses Penjumlahan
 C:= A+B ;

 //Proses Output C
 edt3.Text:=FloattoStr(C);
end;

procedure TForm1.btn2Click(Sender: TObject);
    var A,B,C  : Real ;
begin
 //proses input A,B
 A:= strToFloat(edt1.Text);
 B:= StrToFloat(edt2.Text);

 //Proses Pengurangan
 C:= A-B ;

 //Proses Output C
 edt3.Text:=FloattoStr(C);


end;

procedure TForm1.btn3Click(Sender: TObject);
  var A,B,C  : Real ;
begin
 //proses input A,B
 A:= strToFloat(edt1.Text);
 B:= StrToFloat(edt2.Text);

 //Proses Perkalian
 C:= A*B ;

 //Proses Output C
 edt3.Text:=FloattoStr(C);

end;

procedure TForm1.btn4Click(Sender: TObject);
var A,B,C  : Real ;
begin
 //proses input A,B
 A:= strToFloat(edt1.Text);
 B:= StrToFloat(edt2.Text);

 //Proses Pembagian
 C:= A/B ;

 //Proses Output C
 edt3.Text:=FloattoStr(C);
end;

procedure TForm1.btn5Click(Sender: TObject);
var A,B,C  : integer ;
begin
  //proses input A dan B
 A:= strToint(edt1.Text);
 B:= StrToint(edt2.Text);

 //Proses sisabagi
 C:= A mod B ;

 //Proses Output C
 edt3.Text:=inttoStr(C);
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
 edt1.Text := '';
 edt2.Text := '';
 edt3.Text := '';
 edt3.SetFocus;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
Close;
end;

end.

_______I Can Do It______