Label

Case..Of (1) Delphi (3) ELSE (1) Event (1) form (1) form..to (1) Linux (1) Object (1) Percabangan IF (1) program (2) Repeat..until (1) THEN (1) while..do (1) windows (1)

Minggu, 13 Desember 2009

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.







2 komentar: