contoh coding kalkulator dengan delphi 7

contoh coding kalkulator dengan delphi 7 - Dengan menggunakan aplikasi delphi 7, jadi intinya dari delphi itu konsep bahasa nya pemrograman nya sama dengan bahasa c atau c++ , saya sendiri sebagai mahasiswa berkucuran mendapat tugas yang serupa, tapi menggunakan java,yang sering di beri tugas oleh dosen untuk membuat aplikasi kalkulator sederhana. Untuk membuatnya, kita harus memahamai alur kerja atau algoritma kalkulator. 

contoh coding kalkulator dengan delphi 7

Yang dosen harapkan tentu kita bisa membuat dengan algoritma sendiri. Tujuannya adalah agar kemampuan algoritma kita semakin terasah dan memotivasi agar terus latihan belajar bahasa pemrograman. langsung aja ya di coba coding nya, mungkin terdapat kesalahan di otak atik sendiri nya, karena biar mengerti jika ada kesalahan.. :D

public

    { Public declarations }

 //variabel public

  function Kurang (X,Y : Real) : Real;

  procedure Kali (X,Y : Real);

  procedure Bagi;

  end;

implementation

{$R *.dfm}

function TForm1.Tambah (X,Y : Real): Real;

Begin

result := X + Y;

End;

function TForm1.Kurang (X,Y : Real) : Real;

Begin

result := X - Y;

End;

procedure TForm1.Kali (X,Y : Real);

Begin

 Edit3.Text := FloatToStr (X * Y);

End;

procedure TForm1.Bagi;

Var

a,b : Real;

Begin

 a := StrToFloat (edit1.Text);

 b := StrToFloat (Edit2.Text);

 Edit3.Text := FloatToStr(a/b);

End;

Procedure TForm1.hapus;

Begin

 Edit1.Clear;

 Edit2.Clear;

 Edit3.Clear;

 Edit1.SetFocus

End;

procedure TForm1.Button6Click(Sender: TObject);

Var

 a,b : real;

begin

 a := strtofloat (Edit1.Text);

 b := strtofloat (Edit2.Text);

 Edit3.Text := floattostr (Tambah(a,b));

end;

procedure TForm1.Button7Click(Sender: TObject);

Var

 a,b : real;

begin

 a := strtofloat (Edit1.Text);

 b := strtofloat (Edit2.Text);

 Edit3.Text := floattostr (Kurang(a,b));

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

 Bagi ();

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

 Kali (StrToFloat(Edit1.Text),StrToFloat(Edit2.Text));

end;

procedure TForm1.Button8Click(Sender: TObject);

Begin

hapus;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

 Close;

end;

oke sekian yang dapat saya berikan semoga bisa bermanfaat untuk anda semua yang memang membutuhkan contoh coding kalkulator dengan delphi 7 ini. sekian dan terima kasih :D