Membuat Program Aplikasi Barisan dan Deret Aritmatika Dengan Delphi

    Program Aplikasi Barisan dan Deret Aritmatika

Langkah-langkah Kerja:

1. Letakkan 3 komponen Label, 3 komponen Edit, dan 3 komponen Button pada sebuah Form. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini:

Tabel 4.1 Daftar Komponen Program Aplikasi Barisan dan Deret Aritmatika

Komponen	Tab	Nomor	Properti	Nama
Form	-	-	Caption	Aplikasi Barisan dan Deret Aritmatika
Label	Standard	1	Caption	Suku Pertama (a1)
		2	Caption	Suku Kedua (a2)
		3	Caption	Beda (b)
		4	Caption	n
		5	Caption	Suku ke-n (Un)
		6	Caption	Jumlah suku ke-n (Sn)
Edit		1	Text	Kosongkan
		2	Text	Kosongkan
		3	Text	Kosongkan
		4	Text	Kosongkan
		5	Text	Kosongkan
		6	Text	Kosongkan
Button		1	Caption	&Proses
		2	Caption	&New
		3	Caption	&Exit

2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 4.1 Desain Program Aplikasi Barisan dan Deret Aritmatika

3. Klik ganda pada tombol “Proses” dan ketikkan sintak berikut ini:

procedure TForm1.Button1Click(Sender: TObject);

Var

a1,a2,b,n,Un,Sn:real;

begin

a1:=Strtofloat(Edit1.Text);

a2:=Strtofloat(Edit2.Text);

n:=Strtofloat(Edit3.Text);

b:=a2-a1;

Un:=a1+(n-1)*b;

Sn:=n/2*(a1+Un);

Edit4.Text:=Floattostr(b);

Edit5.Text:=Floattostr(Un);

Edit6.Text:=Floattostr(Sn);

end;

4. Klik ganda pada tombol “New” dan ketikkan sintak berikut ini:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit1.SetFocus;

5. Klik ganda pada tombol “Exit” dan ketikkan sintak berikut ini:

procedure TForm1.Button3Click(Sender: TObject);

begin

IF MESSAGEDLG('SYAHARUDDIN: 151074002: III/A',MTCONFIRMATION,[MBYES]+[MBNO]+[MBCANCEL],0)=MRYES THEN

APPLICATION.Terminate;

end;

6. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini:

Gambar 4.2 Hasil Eksekusi Program Aplikasi Barisan dan Deret Aritmatika

Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi IV-a”, klik OK.