Membuat kalkulator menggunakan lazarus

Oleh sasak media sharing

Tuesday, March 18, 2014

Bagikan :

Tweet

Assalamualaikum..

Kali ini saya akan share mengenai cara membuat kalkulator sederhana menggunakan lazarus, ini cuma sekedar contoh kalkulator sederhana saja, silahkan dikembangkan sendiri. oke kita lansung saja pada pokok masalahnya,.

Lansung saja.

tambahkan 5 buah button dan 1 buat edit, maka tampilannya seperti dibawah ini.

yang pertama yang harus kita buat adalah, buatlah 2 buah variabel global. (lihat contoh)

var

nilai1 : single;

nilai2 : int;

Kemudian double klik pada button kali (*), kemudian isikan source code berikut.

procedure TForm1.Button1Click(Sender: TObject);

begin

   nilai1 := StrToFloat(edit1.Text);

   nilai2 := 0;

   edit1.Clear;

   edit1.SetFocus;

end;

Kemudian double klik pada button pembagian (/), kemudian isikan source code berikut.

procedure TForm1.Button3Click(Sender: TObject);

begin

  nilai1 := StrToFloat(edit1.Text);

  nilai2 :=2;

  edit1.Clear;

  edit1.SetFocus;

end;            

Kemudian double klik pada button penambahan (+), kemudian isikan source code berikut.

procedure TForm1.Button3Click(Sender: TObject);

begin

  nilai1 := StrToFloat(edit1.Text);

  nilai2 :=2;

  edit1.Clear;

  edit1.SetFocus;

end;    

Kemudian double klik pada button pengurangan (-), kemudian isikan source code berikut.

procedure TForm1.Button4Click(Sender: TObject);

begin

  temp :=StrToFloat(edit1.Text);

  op:=3;

  edit1.Clear;

  edit1.SetFocus;

end;

Kemudian double klik pada button proses , kemudian isikan source code dibawah ini.

procedure TForm1.Button5Click(Sender: TObject);

begin

  case nilai2 of

  0:edit1.Text:=FloatToStr(nilai1 + StrToFloat(edit1.Text));

  1:edit1.Text:=FloatToStr(nilai1 / StrToFloat(edit1.Text));

  2:edit1.Text:=FloatToStr(nilai1 + StrToFloat(edit1.Text));

  3:Edit1.Text:=FloatToStr(nilai1 - StrToFloat(edit1.Text));

  end;

end;      

Nah semuanya telah selesai kita masukkan, sekarang coba jalankan applikasinya. kalau semuanya sudah benar, maka tampilannya akan seperti dibawah ini.

Nah selesai, untuk tutorial kali ini cukup sampai disin.

Tag : Lazarus Programing