Latihan Membuat Program Operator

2. Latihan Membuat Program Operator

Desain Form 2.1

Hasil Yang Diperoleh 2.2

Listing Program Pembuatan Operator Delphi 

unit Unit_operator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    lnil1: TLabel;
    lnil2: TLabel;
    lhsl: TLabel;
    enil1: TEdit;
    enil2: TEdit;
    ehsl: TEdit;
    GroupBox1: TGroupBox;
    btambah: TButton;
    bbagi: TButton;
    bkurang: TButton;
    bkali: TButton;
    GroupBox2: TGroupBox;
    lnilai: TLabel;
    band: TButton;
    nor: TButton;
    bxor: TButton;
    GroupBox3: TGroupBox;
    btlebih: TButton;
    btkurang: TButton;
    btsmdgn: TButton;
    bttdksm: TButton;
    bexit: TButton;
    bclear: TButton;
    procedure btambahClick(Sender: TObject);
    procedure bkurangClick(Sender: TObject);
    procedure bbagiClick(Sender: TObject);
    procedure bkaliClick(Sender: TObject);
    procedure btlebihClick(Sender: TObject);
    procedure btkurangClick(Sender: TObject);
    procedure btsmdgnClick(Sender: TObject);
    procedure bttdksmClick(Sender: TObject);
    procedure bandClick(Sender: TObject);
    procedure norClick(Sender: TObject);
    procedure bxorClick(Sender: TObject);
    procedure bexitClick(Sender: TObject);
    procedure bclearClick(Sender: TObject);
  private
    { Private declarations }

  public

    lnil1,lnil2:integer;
    lhsl:real;

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btambahClick(Sender: TObject);
  var
  lnil1,lnil2:integer;
  lhsl:real;

begin
   lnil1:=strtoint(enil1.Text);
   lnil2:=strtoint(enil2.Text);
   lhsl:=lnil1+lnil2;
   ehsl.Text:=floattostr(lhsl);

end;

procedure TForm1.bkurangClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:real;

begin

   lnil1:=strtoint(enil1.Text);
   lnil2:=strtoint(enil2.Text);
   lhsl:=lnil1-lnil2;
   ehsl.Text:=floattostr(lhsl);


end;

procedure TForm1.bbagiClick(Sender: TObject);
begin
ehsl.Text:=floattostr(strtoint(enil1.Text)/strtoint(enil2.Text))

end;

procedure TForm1.bkaliClick(Sender: TObject);
begin
ehsl.Text:=floattostr(strtoint(enil1.Text)*strtoint(enil2.Text))
end;

procedure TForm1.btlebihClick(Sender: TObject);
  var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1>lnil2;
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.btkurangClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1<lnil2;
  ehsl.Text:=booltostr(lhsl);

end;

procedure TForm1.btsmdgnClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1=lnil2;
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bttdksmClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=lnil1<>lnil2;
  ehsl.Text:=booltostr(lhsl);

end;

procedure TForm1.bandClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;

begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)AND(lnil1>5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.norClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)OR(lnil1<5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bxorClick(Sender: TObject);
var
  lnil1,lnil2:integer;
  lhsl:boolean;
begin
  lnil1:=strtoint(enil1.Text);
  lnil2:=strtoint(enil2.Text);
  lhsl:=(lnil1>lnil2)XOR(lnil1>5);
  ehsl.Text:=booltostr(lhsl);
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
messagedlg
('from akan ditutup',mterror,[mbok],0);
close;
end;

procedure TForm1.bclearClick(Sender: TObject);
begin
enil1.Text:='';
enil2.Text:='';
ehsl.Text:='';
end;

end.