KALKULATOR SEDERHANA by DELPHI 7

unit UKalkulator_3133111041;

interface

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

type
TFKALKULATOR = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
EdBilangan1: TEdit;
EdBilangan2: TEdit;
EdHasil: TEdit;
BtnTambah: TButton;
BtnKurang: TButton;
BtnKali: TButton;
BtnBagi: TButton;
BtnClear: TButton;
BtnClose: TButton;
Button1: TButton;
Button2: TButton;
procedure BtnClearClick(Sender: TObject);
procedure BtnTambahClick(Sender: TObject);
procedure BtnKurangClick(Sender: TObject);
procedure BtnKaliClick(Sender: TObject);
procedure BtnBagiClick(Sender: TObject);
procedure BtnCloseClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FKALKULATOR: TFKALKULATOR;
bil1, bil2, hasil : integer;

implementation

uses Math;

{$R *.dfm}

procedure TFKALKULATOR.BtnClearClick(Sender: TObject);
begin
EdBilangan1.Clear;
EdBilangan2.Clear;
EdHasil.Clear;
end;

procedure TFKALKULATOR.BtnTambahClick(Sender: TObject);
begin
bil1:=StrToInt(EdBilangan1.Text);
bil2:=StrToInt(EdBilangan2.Text);
hasil:=Bil1+Bil2;
EdHasil.Text := IntToStr(hasil);
end;

procedure TFKALKULATOR.BtnKurangClick(Sender: TObject);
begin
bil1:=StrToInt(EdBilangan1.Text);
bil2:=StrToInt(EdBilangan2.Text);
hasil:=Bil1-Bil2;
EdHasil.Text := IntToStr(hasil);
end;

procedure TFKALKULATOR.BtnKaliClick(Sender: TObject);
begin
bil1:=StrToInt(EdBilangan1.Text);
bil2:=StrToInt(EdBilangan2.Text);
hasil:=Bil1*Bil2;
EdHasil.Text := IntToStr(hasil);
end;

procedure TFKALKULATOR.BtnBagiClick(Sender: TObject);
var a,b,hasil:Extended;
begin
//OK jalan
//bil1:=StrToInt(EdBilangan1.Text);
// bil2:=StrToInt(EdBilangan2.Text);
// EdHasil.Text := FloatToStr(bil1/bil2);

//alternativve
a:=StrToFloat(EdBilangan1.Text);
b:=StrToFloat(EdBilangan2.Text);
hasil:=a/b;
EdHasil.Text := FloatToStr(hasil);

end;

procedure TFKALKULATOR.BtnCloseClick(Sender: TObject);
begin
//close;
Application.Terminate;
end;

procedure TFKALKULATOR.Button1Click(Sender: TObject);
var bilakar,hasilakar:Extended;
begin
//bil1:=StrToInt(EdBilangan1.Text);
//EdBilangan2.clear;
//hasil:=Ceil(sqrt(bil1));
//EdHasil.Text:=FloatToStr(sqrt(bil1));
//EdHasil.Text:=FloatToStr(hasil);

bilakar:=StrToFloat(EdBilangan1.Text);
EdBilangan2.clear;
//hasilakar:= Ceil()

//bilakar:=78;
hasilakar:=Sqrt(bilakar);
EdHasil.Text:=FloatToStr(hasilakar);

end;

procedure TFKALKULATOR.Button2Click(Sender: TObject);
var bilpangkat,pangkat,hasilpangkat:Extended;
begin
bilpangkat:=StrToFloat(EdBilangan1.Text);
pangkat:=StrToFloat(EdBilangan2.Text);
//hasilpangkat:=ceil(exp(pangkat*ln(bilpangkat)));
hasilpangkat:=round(exp(pangkat*ln(bilpangkat)));
EdHasil.Text := FloatToStrF(hasilpangkat,ffGeneral,22,20);

end;

end.