Pada sesi kali ini saya mencoba untuk berbagi tutorial mengenai Fungsi Operator matematika sederhana dengan menggunakan aplikasi Lazarus. Dengan tampilan aplikasi yang tidak jauh berbeda dengan Delphi, semakin asyik saja mempelajari aplikasi pemrograman yg free ini.

Buatlah Project baru pada Aplikasi Lazarus di komputer Anda, desain form dengan menambahkan komponen Label1 - Label3, Edit1 - Edit3 dan Button1 - Button5. Sesuaikan name komponen, caption dan text sesuai keinginan Anda. Untuk Edit1 saya beri name EdBil1, Edit2 = EdBil2 dan Edit 3 = EdHasil.

Untuk tampilan Desain Form dapat Anda lihat pada tampilan di bawah ini :

Kemudian ketikkan Listing Program pada setiap tombol seperti berikut, untuk Nama Tombol saya sesuaikan dengan fungsinya untuk memudahkan pembaca dalam memahaminya.

unit Uhitung;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    BtKali: TButton;
    BtBagi: TButton;
    BtTambah: TButton;
    BtKurang: TButton;
    Button1: TButton;
    EdBil1: TEdit;
    EdBil2: TEdit;
    EdHasil: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure BtBagiClick(Sender: TObject);
    procedure BtKaliClick(Sender: TObject);
    procedure BtKurangClick(Sender: TObject);
    procedure BtTambahClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    bil1,bil2,hasil : Real;
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.BtKaliClick(Sender: TObject);
begin
  bil1 := strtofloat(EdBil1.Text);
  bil2 := strtofloat(EdBil2.Text);
  hasil := bil1*bil2;
  EdHasil.Text:=FloattoStr(hasil);
end;

procedure TForm1.BtKurangClick(Sender: TObject);
begin
    bil1 := strtofloat(EdBil1.Text);
  bil2 := strtofloat(EdBil2.Text);
  hasil := bil1-bil2;
  EdHasil.Text:=FloattoStr(hasil);
end;

procedure TForm1.BtTambahClick(Sender: TObject);
begin
    bil1 := strtofloat(EdBil1.Text);
  bil2 := strtofloat(EdBil2.Text);
  hasil := bil1+bil2;
  EdHasil.Text:=FloattoStr(hasil);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EdBil1.Text:='0';
  EdBil2.Text:='0';
  EdHasil.Text:='0';
  EdBil1.SetFocus;
end;

procedure TForm1.BtBagiClick(Sender: TObject);
begin
  bil1 := strtofloat(EdBil1.Text);
  bil2 := strtofloat(EdBil2.Text);
  hasil := bil1/bil2;
  EdHasil.Text:=FloattoStr(hasil);
end;

end.

Baiklah , setelah Anda mengetikkan perintah di atas , program dapat Anda Jalankan dengan mengklik Run

Comments (0)

Subscribe to this comment's feed

Write comment

Email Name Website		Title Comment smaller | bigger
		Subscribe via email (registered users only) Write the displayed characters Add Comment