dijexi.com

No

Action

1

Create New Project

File->New ->Application

Save All

create direktori "matrix"

Project: MATRIX.DPR

File: unit1.pas

2

Drop component

Label1

Baris

Label2

Kolom

Edit1

Edit2

UpDown1

Win32

UpDown2

Win32

Button1

Button2

Button3

PageControl1

Win32

Menambah tab pada PageControl1

TabSheet1

Right Click-> New Page

TabSheet2

Right Click-> New Page

TabSheet3

Right Click-> New Page

StringGrid1

Additional

StringGrid2

Additional

StringGrid3

Additional

4

Tambah type data dan constant

Setelah uses

Uses …………..;

const

maxorde = 5;

type

TMatriks = array [1..maxorde,1..maxorde] of integer;

5

Tambah variabel

Setelah Form1: Tform1

Var Form1: Tform1 ;

a, b, c : TMatriks;

6

Tambah Procedure,

setelah implementation

InitMatrik

procedure InitMatrik(var mat : TMatriks);

var baris, kolom : integer;

begin

for baris:=1 to maxorde do

for kolom:=1 to maxorde do

mat[baris,kolom] := 0;

end;

TambahMatrik

procedure TambahMatriks(a,b : TMatriks; var c : TMatriks);

var baris, kolom : integer;

begin

for baris:=1 to maxorde do

for kolom:=1 to maxorde do

c[baris,kolom] := a[baris,kolom] + b[baris,kolom];

end;

KurangMatrik

procedure KurangMatriks(a,b : TMatriks; var c : TMatriks);

var baris, kolom : integer;

begin

for baris:=1 to maxorde do

for kolom:=1 to maxorde do

c[baris,kolom] := a[baris,kolom] – b[baris,kolom];

end;

7

Tambah method

Di bagian interface public

{ Public declarations }

procedure CopyDataToMatriks(strgrid : TStringGrid; var mat : TMatriks);

procedure CopyDataFromMatriks( mat : TMatriks; strgrid : TStringGrid);

TForm1.CopyDataToMatriks

procedure TForm1.CopyDataToMatriks(strgrid : TStringGrid; var mat :

TMatriks);

{menyalin data dari komponen stringgrid ke array integer 2 dimensi}

var baris, kolom : integer;

begin

for baris:=1 to UpDown1.Position do

for kolom:=1 to UpDown2.Position do

if strgrid.Cells[kolom-1,baris-1] = ” then

mat[baris, kolom] := 0

else

mat[baris, kolom] := StrToInt(strgrid.Cells[kolom-1,baris-1]);

end;

TForm1.CopyDataFromMatriks

procedure TForm1.CopyDataFromMatriks( mat : TMatriks; strgrid :

TStringGrid);

{menyalin data dari array integer 2 dimensi ke komponen stringgrid}

var baris, kolom : integer;

begin

for baris:=1 to UpDown1.Position do

for kolom:=1 to UpDown2.Position do

strgrid.Cells[kolom-1,baris-1] := inttostr(mat[baris, kolom]);

end;

8

Event Handler

UpDown1

OnClick

StringGrid1.RowCount := UpDown1.Position;

StringGrid2.RowCount := UpDown1.Position;

StringGrid3.RowCount := UpDown1.Position;

UpDown2

OnClick

StringGrid1.ColCount := UpDown2.Position;

StringGrid2.ColCount := UpDown2.Position;

StringGrid3.ColCount := UpDown2.Position;

Button1

OnClick

InitMatrik(a);

InitMatrik(b);

InitMatrik(c);

CopyDataToMatriks(StringGrid1,a);

CopyDataToMatriks(StringGrid2,b);

TambahMatriks(a,b,c);

CopyDataFromMatriks(c,StringGrid3);

Button2

OnClick

InitMatrik(a);

InitMatrik(b);

InitMatrik(c);

CopyDataToMatriks(StringGrid1,a);

CopyDataToMatriks(StringGrid2,b);

KurangMatriks(a,b,c);

CopyDataFromMatriks(c,StringGrid3);

Button3

OnClick

Close;