Stringgrid : Tabel Operasi Matematika Menggunakan Delphi

Silahkan desain seperti ini.

Pertama, Klik Form dan tulis scribs berikut

//Mengatur Jumlah Baris Kolom

procedure TForm1.FormCreate(Sender: TObject);

Var

x,y:integer;

begin

for x:=1 to 1000 do

stringgrid1.Cells[x,0]:=floattostr(x);

for y:=1 to 1000 do

stringgrid1.Cells[0,y]:=floattostr(y);

end;

Kedua, Klik Tombol “Penjumlahan” dan tulis scribs berikut.

VAR

x,x1,x2,y,n:integer;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='+';

for x:=0 to n do

for y:=0 to n do

stringgrid1.Cells[x,y]:=inttostr(x+y);

Ketiga, Klik Tombol “Pengurangan” dan tulis scribs berikut.

VAR

x,y,n:integer;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='-';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=inttostr(x-y);

Keempat, Klik Tombol “Perkalian” dan tulis scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='x';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(y*x);

Kelima, Klik Tombol “Pembagian” dan tulis scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='/';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',x/y);

Keenam, Klik Tombol “Perpangkatan” dan tulis scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='x';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(power(y,x));

Ketujuh, Klik Tombol “Logaritma” dan tulis scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

stringgrid1.Cells[0,0]:='Log';

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',Log10(x));

Kedelapan, ketikkan ShellApi di Uses. Kemudian pada label www.dm-math.blogspot.com. Pada Object Inspector, pilih Event.

OnClick, ketik:

ShellExecute(Handle, 'open', 'http://www.dm-math.blogspot.com', nil, nil,SW_SHOWNORMAL);

OnMouseEnter

  label2.Font.Color := clBlue;

  label2.Font.Style := label2.Font.Style + [fsUnderline];

OnMouseLeave

  label2.Font.Color := clBlack;

  label2.Font.Style := label2.Font.Style + [fsUnderline];

Terakhir, simulasi (Tekan F9).

 

Download Program Aplikasinya disini.