MEMBUAT KALKULATOR SEDERHANA DENGAN DELPHI

Buka terlebih dahulu Delphi, kemudian buatlah format dengan menggunakan 3 komponen edit dan 3 komponen label yang terdapat pada standard, kemudian buatlah sembilan komponen button dengan masing - masing caption (+),(-),(:),(x),(^),(akar),(kuadrat),(clear),(exit)

• Kemudian Double Klik button (+) untuk membuat procedure nya. Tuliskan procedure sebagai berikut:
  
  procedure TForm1.btn3Click(Sender: TObject);
  var a,b:real;
  begin
   a:=StrToFloat(edt1.Text);
   b:=StrToFloat(edt2.Text);
   edt3.Text:=FloatToStr(a+b);
  end;
• Selanjutnya double klik button (x). kemudian tuliskan procedure sebagai berikut : 
  
  procedure TForm1.btn5Click(Sender: TObject);
  var a,b:Real;
  begin
  a:=StrToFloat(edt1.Text);
  b:=StrToFloat(edt2.Text);
  edt3.Text:=FloatToStr(a*b)
  end;
• Kita kembali double klik button (-) dan tuliskan procedure yang hampir sama dengan diatas.
  
  procedure TForm1.btn4Click(Sender: TObject);
  var a,b:Real;
  begin
  a:=StrToFloat(edt1.Text);
  b:=StrToFloat(edt2.Text);
  edt3.Text:=FloatToStr(a-b)
  end;
• Sekarang double klik lagi button (:) tuliskan procedure dibawah ini :
  
  procedure TForm1.btn6Click(Sender: TObject);
  var a,b:Real;
  begin
  a:=StrToFloat(edt1.Text);
  b:=StrToFloat(edt2.Text);
  edt3.Text:=FloatToStr(a/b)
  end;
• Selanjutnya untuk perhitungan kuadrat. procedurnya berbeda dengan perhitungan diatas. Namun Sebelumnya kita buatkan variabel yang baru, kita umpamakan saja variabel yang baru adalah "x".
  catatan ya sobat kalau disini ada penggunaan Sqr yang merupakan fungsi kuadrat pada delphi. dan  Perhitungan untuk (kuadrat) adalah sebagai berikut :
  
  procedure TForm1.btn8Click(Sender: TObject);
  var a,x:real;
  begin
   a:=StrToFloat(edt1.Text);
   x:=sqr(a);
   edt3.Text:=FloatToStr(x);
  end;
• Selanjutnya kita double klik untuk button (^).button dengan caption ini adalah button untuk menghitung pangkat dari bilangan "angka 1" dengan "angka 2 sebagai pangkatnya. pada procedure ini dibutuhkan tambahan variable. dan merupakan bilangan bulat karena hasil dari akar itu sendiri bisa menghasilkan bilangan bulat. (integer).
  procedure TForm1.btn9Click(Sender: TObject);
  var a,b,c,d,i:integer;
  begin
   a:=StrToInt(Edt1.Text);
   b:=StrToInt(Edt2.Text);
   c:=a;
   d:=1;
   for i:=1 to b do
   d:=d*c;
   Edt3.Text:=IntToStr(d);
  end;
  
• Untuk button selanjutnya adalah button (akar). Button ini digunakan untuk menghitung akar dari bilangan yang dimasukkan pada "angka 1" , dan memasukan bilangan pada "angka 2" sebagai akar dari bilangan pada "angka 1". pada button ini membutuhkan 1 variabel. disini saya menggunakan variable x, tapi sobat bisa menggunakan variable perumpamaan yang lain. Procedure nya adalah sebagai berikut :
  
  procedure TForm1.btn8Click(Sender: TObject);
  var a,x:Real;
  begin
    a:=StrToFloat(edt1.Text);
    x:=Sqrt(a);
    edt3.Text:=FloatToStr(x)
  end;
  
• Button selanjutnya adalah button(clear). procedurnya adalah sebagai berikut :
  
  procedure TForm1.btn1Click(Sender: TObject);
  begin
  edt1.Text:=' ';
  edt2.Text:=' ';
  edt3.Text:=' ';
  end;
  
• Button berikutnya adalah button (exit). Procedurnya adalah sebagai berikut :
  
  procedure TForm1.btn2Click(Sender: TObject);
  begin
  close;
  end;
  
  
  oke setelah semua udah dibuat. dan d run pastikan tidak ada error yah. error nya bisa muncul dari tampilan garis merah pada procedure yang salah. tampilan setelah di run adalah sebagai berikut :