Delphi : Pembagian Deret

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Pembagian Deret Sederhana dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya :

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

Function TForm1.Tambah(m,n:integer):integer;
var
a,b,c,i:integer;
begin
 i:=1;
 hasil:=0;
 repeat
 begin
 hasil:=hasil+m;
 i:=i+1;
 end;
 until i>10;
 tambah:=hasil;
end;

procedure TForm1.btnProsesClick(Sender: TObject);
var
 A,B,C:integer;
begin
 A:=StrToInt(txtA.Text);
 B:=StrToInt(txtB.Text);
 C:=StrToInt(txtC.text);

 D:=(A+B)/C;
 txtD.Text:=FloatToStr(D);
end;

5. Tambahkan Script dibawah ini di atas btnproses :

Function Tambah(m,n:integer):integer;
  end;

var
  Form1: TForm1;
  hasil:integer;
  D:real;

6.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
  txtA.Clear;
  txtB.Clear;
  txtC.Clear;
  txtD.Clear;
end;

7.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
  CLOSE;
end;

8. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

9. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba

Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung