TUGAS 4 (DERET - FUNCTION)

Aplikasi sederhana untuk menghitung rumus  dengan menggunakan procedure/function.

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	PROGRAM (A2+B3)/C3	-
Label2	Label2	A	-
Label3	Label3	B	-
Label4	Label4	C	-
Label5	Label5	D	-
Button1	Button1	PROSES	-
Button2	Button2	CLEAR	-
Edit1	txtA	-	{kosongkan}
Edit2	txtB	-	{kosongkan}
Edit3	txtC	-	{kosongkan}
Edit4	txtD	-	{kosongkan}

Pada aplikasi sederhana ini semua variabel merupakan bilangan berpangkat. Jadi, agar lebih efisien dalam rumus kita gunakan procedure/function seperti pada contoh sebelumnya baik menggunakan tipe data string/integer. kali ini saya menggunakan function(integer.

Untuk pengetikan listing program :

double-klik pada tombol PROSES

procedure TForm1.Button1Click(Sender: TObject);

var

  A2,B3,C3,A,B,C:integer;

  D:real;

begin

  A:=strtoint(txtA.Text);

  B:=strtoint(txtB.Text);

  C:=strtoint(txtC.Text);

  A2:=pangkat(A,2);

  B3:=pangkat(B,3);

  C3:=pangkat(C,3);

  D:=(A2+B3)/C3;

  txtD.Text:=floattostr(D);

end;

double-klik pada tombol CLEAR

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  txtA.Text:='';

  txtB.Text:='';

  txtC.Text:='';

  txtD.Text:='';

end;

setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Kemudian lakukan pengujian aplikasi dengan menekan tombol fungsi F9.

Isi kotak A dengan angka 4, B dengan angka 2 dan C diisi angka 2.

<contoh program dan script lengkap lihat disini>

{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, private dan lain-lain.