PERCOBAAN 3

 

KALKULATOR

unit Unit1;

 

interface

 

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, math;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Shape1: TShape;

    Shape2: TShape;

    Shape3: TShape;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    Shape4: TShape;

    Label5: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Edit11: TEdit;

    Edit12: TEdit;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Shape5: TShape;

    Shape6: TShape;

    Shape7: TShape;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Edit13: TEdit;

    Edit14: TEdit;

    Edit15: TEdit;

    Edit16: TEdit;

    Edit17: TEdit;

    Edit18: TEdit;

    Button5: TButton;

    Button6: TButton;

    Shape8: TShape;

    Shape9: TShape;

    Label9: TLabel;

    Label10: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

1. Coding Penjumlahan

2. Coding Pengurangan

3. Coding Perkalian

4. Coding Pembagian

5. Coding Pangkat

6. Coding Akar Kuadrat