Scribd
Upload
166 views3 pages

Tugas Kalkulator

This document defines a calculator unit (uKalkulator) with a form (TForm1) that contains buttons for numbers and operators. It includes variables to store the entered numbers and operator. The button click procedures call the AssignAngka procedure to add numbers or AssignOperator procedure to set the operator. The btnHitungClick procedure performs the calculation based on the operator and stores the result.

Uploaded by

SihandaruRhomadona
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
Download as docx, pdf, or txt
166 views3 pages

Tugas Kalkulator

This document defines a calculator unit (uKalkulator) with a form (TForm1) that contains buttons for numbers and operators. It includes variables to store the entered numbers and operator. The button click procedures call the AssignAngka procedure to add numbers or AssignOperator procedure to set the operator. The btnHitungClick procedure performs the calculation based on the operator and stores the result.

Uploaded by

SihandaruRhomadona
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1/ 3

SIHANDARU .

R private
(460903030) { Private declarations }
public
unit uKalkulator; { Public declarations }
end;
interface
var
uses Form1: TForm1;
Windows, Messages, SysUtils, Variants, Classes, Operator:String;
Graphics, Controls, Forms, Angka : array [1..2] of integer;
Dialogs, StdCtrls; Reset:Boolean;
IndexAngka:integer;
type
TForm1 = class(TForm) implementation
btnAngka1: TButton;
Memo1: TMemo; {$R *.dfm}
btnAngka2: TButton;
btnAngka3: TButton; procedure TForm1.AssignAngka(Ank:string);
btnAngka4: TButton; begin
btnAngka5: TButton; {Angka}
btnAngka6: TButton; if(Reset = true) then
btnAngka7: TButton; begin
btnAngka8: TButton; IndexAngka := 2;
btnAngka9: TButton; memo1.Lines.Text := ank;
btnAngka0: TButton; Angka[IndexAngka] := strtoint(ank);
btnHitung: TButton; Reset := false;
btnOperatorTambah: TButton; end
btnOperatorKurang: TButton; else
btnOperatorKali: TButton; begin
btnOperatorBagi: TButton; memo1.Lines.Text := memo1.Lines.Text + ank;
procedure AssignAngka(Ank: string); Angka[IndexAngka] := strtoint(memo1.Lines.Text);
procedure AssignOperator(Op: string); end;
procedure FormCreate(Sender: TObject); end;
procedure btnHitungClick(Sender: TObject);
procedure btnOperatorTambahClick(Sender: procedure TForm1.AssignOperator(Op:string);
TObject); begin
procedure btnOperatorKurangClick(Sender: TObject); {Operator}
procedure btnOperatorKaliClick(Sender: TObject); if(Angka[2] <> 0) then
procedure btnOperatorBagiClick(Sender: TObject); btnHitungClick(nil);
procedure btnAngka1Click(Sender: TObject); Operator := Op;
procedure btnAngka2Click(Sender: TObject); reset:= true;
procedure btnAngka3Click(Sender: TObject); end;
procedure btnAngka4Click(Sender: TObject);
procedure btnAngka5Click(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
procedure btnAngka6Click(Sender: TObject); begin
procedure btnAngka7Click(Sender: TObject); IndexAngka:=1;
procedure btnAngka8Click(Sender: TObject); end;
procedure btnAngka9Click(Sender: TObject);
procedure btnAngka0Click(Sender: TObject); procedure TForm1.btnHitungClick(Sender: TObject);
begin AssignAngka('3');
if(Operator = '+') then end;
Angka[1] := Angka[1] + Angka[2]
else if(Operator = '-') then procedure TForm1.btnAngka4Click(Sender: TObject);
Angka[1] := Angka[1] - Angka[2] begin
else if(Operator = 'x') then AssignAngka('4');
Angka[1] := Angka[1] * Angka[2] end;
else if(Operator = '/') then
Angka[1] := Angka[1] div Angka[2]; procedure TForm1.btnAngka5Click(Sender: TObject);
Angka[2] := 0; begin
Memo1.Lines.Text := inttostr(Angka[1]); AssignAngka('5');
end; end;

procedure TForm1.btnOperatorTambahClick(Sender: procedure TForm1.btnAngka6Click(Sender: TObject);


TObject); begin
begin AssignAngka('6');
AssignOperator('+'); end;
end;
procedure TForm1.btnAngka7Click(Sender: TObject);
procedure TForm1.btnOperatorKurangClick(Sender: begin
TObject); AssignAngka('7');
begin end;
AssignOperator('-');
end; procedure TForm1.btnAngka8Click(Sender: TObject);
begin
procedure TForm1.btnOperatorKaliClick(Sender: AssignAngka('8');
TObject); end;
begin
AssignOperator('x'); procedure TForm1.btnAngka9Click(Sender: TObject);
end; begin
AssignAngka('9');
procedure TForm1.btnOperatorBagiClick(Sender: end;
TObject);
begin procedure TForm1.btnAngka0Click(Sender: TObject);
AssignOperator('/'); begin
end; AssignAngka('0');
end;
procedure TForm1.btnAngka1Click(Sender: TObject);
begin end.
AssignAngka('1');
end;

procedure TForm1.btnAngka2Click(Sender: TObject);


begin
AssignAngka('2');
end;

procedure TForm1.btnAngka3Click(Sender: TObject);


begin

You might also like