Sabtu, 20 Juni 2015

program menghitung luas menggunakan form aplication pada delphi

Pada kali ini saya akan belajar untuk membuat program menggunakan aplication dimana aplication berbeda dengan console aplication. Kalau console aplication adalah aplikasi yang tidak mempunyai form dan berbasis teks. sedangkan Aplication
sendiri memiliki form dan tidak berbasis teks (bergambar/memiliki icon/simbol-simbol).
Untuk mengaktifkan mode Aplication sendiri akan muncul otomatis pada saat pertama kali membuka program delphi.
Langkah awal seperti biasa, buka terlebih dahulu Delphi 7 yang telah diinstall. START > Delphi 7.
Untuk pertama kita coba membuat aplikasi sederhana menghitung luas persegi. Ikuti langkah-langkah di bawah ini:
1.    Setelah masuk program delphi dan sudah terbuka form aplication setelah itu kita buat form seperti di bawah ini:






2.    Setelah itu setting sesuai pada tabel di bawah ini.

yang dirubah seperti pada tabel yaitu pada jendela seperti di bawah ini:
3.    Setelah itu double klik pada buttom proses dan tulis perintah di bawah ini:
procedure TForm1.Button1Click(Sender: TObject);
var
  Panjang,Lebar,Luas:integer;
begin
  Panjang:=StrToInt(txtPanjang.Text);
  Lebar:=StrToInt(txtLebar.Text);
  Luas:=Panjang*Lebar;
  txtLuas.Text:=IntToStr(Luas);
end;
end.
4.    Setelah itu klik run (f9).

begitulah program sederhana menghitung luas semoga berhasil.





0 komentar:

Posting Komentar