Kamis, 09 Mei 2013

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

  1. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :
Gambar 4.1 Desain Program Aplikasi Barisan dan Deret Aritmatika
  1. 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;
  1. 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;
  1. 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;
  1. 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.

Reaksi:

0 komentar:

Poskan Komentar

Catatan Kuliah

Syaharuddin Al Musthafa