Kalkulator Sederhana Menggunakan Delphi7

Klakulator ini kami buat untuk memenuhi tugas Akhir Semester mata kuliah INTERFACING di Universitas Kanjuruhan Malang yang di susun oleh kelompok 9 :

              1. Chalish Ardhi Permata (110403010024)
              2. Aditya Bagus Pranata  (110403010028)
              3. Desideratus Nahak      (110403010046)

Sebelumnya kami sedikit akan menjelaskan tentang pengertian Delphi dan kegunaanya.

          Delphi adalah suatu bahasa pemograman (development language) yang digunakan untuk merancang suatu aplikasi program.Kegunaan Delphi

      1. untuk membuat aplikasi windows      
      2. Untuk merancang aplikasi program berbasis grafis  
      3. Untuk membuat program berbasis jaringan (client/server)     
      4. Untuk merancang program .Net (berbasis internet)

          Kalkulator yang kami buat ini adalah kalkulator sederhana yang membantu pengguna untuk mengetahui hasil penjumlahan, pengurangan, perkalian, dan juga pembagian. Pertama di dalam Form kita mengisi komponen-komponen yang terdiri dari dua GroupBox, enam label, tujuh edit, empat RadioButton, dan satu Button semabaimana pada gambar di bawah ini.

gambar 1.1 tampilan awal

 gambar 1.2 tampilan form setelah di edit

adapun skrip untuk kalkulator sederhana ini adalah sebagai berikut :

• Klik dua kali pada RadioButton1 atau tambah dan masukkan skrip di bawah ini :

procedure TForm1.RadioButton1Click(Sender: TObject);
var
  tambah:real;
begin
   a:=StrToFloat(Edit1.Text);
   b:=StrToFloat(Edit2.Text);

   tambah:=a+b;
   Edit3.Text:=FloatToStr(tambah);

end;

• Selanjutnya lakukan hal yang sama pada RadioButton Kurang, dan paste skrip di bawah ini :

procedure TForm1.RadioButton2Click(Sender: TObject);
var
  kurang:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);

  kurang:=a-b;
  Edit3.Text:=FloatToStr(kurang);

end;

• Skrip RadioButton Kali

procedure TForm1.RadioButton3Click(Sender: TObject);
var
  kali:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);

  kali:=a*b;
  Edit3.Text:=FloatToStr(kali);

end;

• Skrip RadioButton Bagi

procedure TForm1.RadioButton4Click(Sender: TObject);
var
  bagi:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);

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

end;

• Terakhir klik dua kali pada Button kemudian paste skrip di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
var
  tambah,kurang,kali,bagi:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);

  tambah:=a+b;
  Edit4.Text:=FloatToStr(tambah);
  kurang:=a-b;
  Edit5.Text:=FloatToStr(kurang);
  kali:=a*b;
  Edit6.Text:=FloatToStr(kali);
  bagi:=a/b;
  Edit7.Text:=FloatToStr(bagi);

end;

Setelah semua selesai Run program kalian atau tekan F9 dan kini Kalkulator sederhana sudah siap digunakan. selamat mencoba semoga sedikit banyak bagi kalian.