Contoh 1

Program perkalian duah buah nilai yang dimasukkan oleh user, lakukan langkah-langkah sebagai berikut :

Tambah tiga buah label, tiga buah edit box, dan sebuah button pada form tersebut.

Tampilan desain form akan terlihat seperti ini :

Ubah properti masing-masing objek tersebut sebagai berikut :

Masukkan perintah-perintah pada kejadian/event disetiap komponen di bawah ini.

Program lengkapnya adalah :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

EdNilai1: TEdit;

EdNilai2: TEdit;

EdHasil: TEdit;

BtnPerkalian: TButton;

procedure BtnPerkalianClick(Sender: TObject);

procedure BtnKeluarClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnPerkalianClick(Sender: TObject);

var nilai1, nilai2, hasil : integer;

begin

nilai1 :=StrToInt(EdNilai1.Text);

nilai2 :=StrToInt(EdNilai2.Text);

hasil :=Nilai1*Nilai2;

EdHasil.Text :=IntToStr(Hasil);

end;

procedure TForm1.BtnKeluarClick(Sender: TObject);

begin

Application.Terminate;

end;

end.