Tab Additional 2 (Penghitungan Luas Shape)

I.         Deskripsi Program

Program ini merupakan program perhitungan bangun datar berdasarkan shape. Komponen dari tab additional yang paling berpengaruh pada program ini adalah komponen shape. Hampir semua proses yang akan di jalankan pada program ini tergantung dari shape.

II.      Interface Program

 

 

 

 III.         Coding Program

Form 1

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); begin if shape1.Shape=stSquare then begin label1.Caption:='Lingkaran'; shape1.Shape:=stCircle; end else if shape1.Shape=stCircle then begin label1.Caption:='Persegi Panjang'; shape1.Shape:=stRectangle; shape1.Width:=165; end else if shape1.Shape=stRectangle then begin label1.Caption:='Persegi'; shape1.Width:=145; shape1.Shape:=stSquare; end; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin if label1.Caption='Persegi' then form2.showmodal else if label1.Caption='Persegi Panjang' then form3.showmodal else if label1.Caption='Lingkaran' then form4.showmodal; end;

 

 

Form 2

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm2.Button1Click(Sender: TObject); begin edit2.Text:=inttostr(sqr(strtoint(edit1.Text))); end;

Form 3

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm3.Button1Click(Sender: TObject); begin edit3.Text:=inttostr(strtoint(edit1.Text)*strtoint (edit2.Text));                                                         end;

Form 4

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm4.Button1Click(Sender: TObject); begin edit2.Text:=floattostr(3.14*sqr(strtofloat(edit1.Text))); end;

IV.         Output

 

 

 

 

Program di atas dapat di download di sini