OPERATOR ARITMATIKA, LOGIKA DAN PERBANDINGAN

• FORM AWAL

•  FORM PERBANDINGAN

  

• FORM ARITMATIKA

 

• FORM EXIT 

 

LISTING CODE  :

procedure TForm1.BttambahClick(Sender: TObject);
var
nilai1,nilai2:integer;
hsl:real;
begin
nilai1:=StrToInt(Edit1.Text);
nilai2:=StrToInt(edit2.Text);
hsl:=nilai1+nilai2;
edit3.Text:=FloatToStr(hsl);
end;

procedure TForm1.BtminusClick(Sender: TObject);
begin
n1:=StrToInt(edit1.Text);
n2:=StrToInt(edit2.Text);
hasil:=n1-n2;
edit3.Text:=FloatToStr(hasil);

end;

procedure TForm1.BtbagiClick(Sender: TObject);
begin
edit3.Text:=FloatToStr(StrToInt(edit1.Text)/StrToInt(edit2.Text))
end;

procedure TForm1.BtkaliClick(Sender: TObject);
begin
Edit3.Text:=FloatToStr(StrToInt(edit1.Text)*StrToInt(edit2.Text))
end;

procedure TForm1.BtlebihClick(Sender: TObject);
var
n3:Boolean;
begin
n1:=StrToInt(Edit1.Text);
n2:=StrToInt(edit2.Text);
n3:=n1>n2;
edit3.Text:=BoolToStr(n3);

end;

procedure TForm1.BtkurangClick(Sender: TObject);
var
n3:Boolean;
begin
n1:=StrToInt(Edit1.Text);
n2:=StrToInt(Edit2.Text);
n3:=n1<n2;
Edit3.Text:=BoolToStr(n3);

end;

procedure TForm1.BtsmdgnClick(Sender: TObject);
var
n3:Boolean;

begin
n1:=StrToInt(edit1.Text);
n2:=StrToInt(Edit2.Text);
n3:=n1=n2;
Edit3.Text:=BoolToStr(n3);
end;

procedure TForm1.BttdksamaClick(Sender: TObject);
var
n3:Boolean;
begin
n1:=StrToInt(Edit1.Text);
n2:=StrToInt(Edit2.Text);
n3:=n1<>n2;
Edit3.Text:=BoolToStr(n3);

end;

procedure TForm1.BtandClick(Sender: TObject);
var
n3:Boolean;
begin
n1:=StrToInt(Edit1.Text);
n2:=StrToInt(edit2.Text);
n3:=(n1>n2)AND(n1>5);
edit3.Text:=BoolToStr(n3);
end;

procedure TForm1.BtorClick(Sender: TObject);
var
n3:Boolean;
begin
n1:=StrToInt(Edit1.Text);
n2:=StrToInt(Edit2.Text);
n3:=(n1>n2)OR(n1>5);
edit3.Text:=booltostr(n3);

end;

procedure TForm1.BtxorClick(Sender: TObject);
var
n3:boolean;
begin
n1:=strtoint(edit1.text);
n2:=strtoint(edit2.text);
n3:=(n1>n2)XOR(n1>5);
edit3.Text:=booltostr(n3);

end;

procedure TForm1.BtclearClick(Sender: TObject);
begin
edit1.Text:='';
edit2.Text :='';
edit3.Text:='';
end;

procedure TForm1.BtexitClick(Sender: TObject);
begin
messagedlg
('yakin mau keluar...?',mterror,[mbok],0);
close;
end;

end.