Program Perhitungan Luas Segitiga dengan Delphi 7

 TUGAS

KOMPUTASI MODERN

"TUGAS KELOMPOK KOMPUTASI MODERN"

Lembar Ini Disusun Untuk Memenuhi Tugas Kelompok Yang Diampu Oleh:

Adam Huda Nugraha, S.Kom., MMSI

Disusun Oleh:

Aldi (50418441)

Alief Priambudi (50418521)

Irfaan Fikri Hakim (53418370)

Muhammad Burhan Nurdin (54418519)

Muhammad Rizky Fajar (54418933)

Restu Cahyaningrum (56418015)

4IA21

FAKULTAS TEKNOLOGI INDUSTRI

TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2021/2022

Apa itu Borlan Delphi 7?

Borland Delphi 7 merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi visual. Keunggulan bahasa pemrograman ini terletak pada produktifitas, kualitas, pengembangan, perangkat lunak, kecepatan compiler, pola desain yang menarik serta diperkuat dengan pemrogramannya yang terstruktur. Borland Delphi menyediakan fasilitas objek yang kuat dan lengkap yang memudahkan programmer dalam membuat program. Format database yang dimiliki Delphi adalah format database paradox, dBase,Ms.Access, ODBC, dan lain-lain.

Program Perhitungan Luas Segitiga dengan Delphi 7

Sebelum masuk ke dalam pembahasan mengenai programnya, berikut adalah flowchart atau alur dalam pemrosesan penghitungan luas segitiga.

Setelah mengetahui alur program berdasarkan flowchart diatas, selanjutnya diimplementasikan ke dalam Borland Delphi 7.

Dalam pembuatan program tersebut dilakukan secara object oriented yaitu berupa kolom pengisian dan tombol proses. Saat halaman utama Delphi 7 sudah tampil, pilih fungsi Label pada menu standard (gambar 1) dan klik pada daerah form yang ingin ditaruh label (gambar 2).

Gambar 1

Gambar 2

Kemudian edit tulisan Label1 menjadi "Perhitungan Luas Segitiga" dengan menulisnya pada kolom caption pada object inspector.

Setelah itu akan membuat kolom untuk mengisikan angka-angka untuk mencari luas segitiga. Pertama-tama buat label dengan tulisan Alas Segitiga dan Tinggi Segitiga sehingga menjadi seperti gambar di bawah ini.

Kemudian membuat kolom untuk mengisikan Alas Segitiga dan Tinggi Segitiga sebelumnya dengan menggunakan fungsi edit pada menu standard (gambar 1). Lalu letakkan masing-masing disamping Alas dan Tinggi Segitiga (gambar 2).

Gambar 1

Gambar 2

Setelah itu menambahkan label bertuliskan "Hasil Perhitungan" dan kolom edit disampingnya seperti pada gambar di bawah ini. Ini akan menjadi tempat munculnya hasil perhitungan luas segitiga sebelumnya.

Menghapus tulisan edit1, edit2, dan edit3 diatas dari kolom dengan menghapus isi kolom caption pada object inspector masing-masing kolom sehingga menjadi seperti gambar di bawah ini.

Kemudian membuat tombol proses yang nantinya berfungsi untuk memproses perhitungan sebelumnya setelah tombol proses diklik. Pertama-tama klik fungsi "Button" dalam menu standard (gambar 1). Lalu letakkan di bawah kolom tinggi segitiga (gambar 2).

Gambar 1

Gambar 2

Lalu edit kembali tulisan pada tombol tadi menjadi "Proses" dengan mengedit kolom caption pada Object Inspector.

Sekarang kita akan memasukkan coding ke dalam tombol proses agar ketika tombol di klik maka akan memproses perhitungan rumus luas segitiganya yaitu 1/2 x A x T, dengan A = Alas Segitiga, T = Tinggi Segitiga, dan L = Luas.

Proses tersebut akan berjalan dengan mengklik dua kali tombol proses. maka muncul jendela unit ber-ekstensi (.Pas) lalu masukkan script berikut ke dalam unit tadi:

procedure TForm1.Button1Click(Sender: TObject);

var A,T,L;real;

begin

A:=STRTOFLOAT(EDIT1.TEXT);

T:=STRTOFLOAT(EDIT2.TEXT);

L:=0.5*A*T;

EDIT3.Text:=FLOATTOSTR(L);

end;

end;

Berikut tampilan jendela unit dari tombol proses yang sudah diisi deklarasi rumus luas segitiga diatas.

Setelah itu sebelum program dieksekusi, simpan terlebih dahulu project tadi dengan mengklik menu file, lalu pilih save all. Atau tekan tombol shift + ctrl + s pada keyboard. Simpan project ke dalam folder agar tidak terpisah.

Setelah project di save, kita akan mensimulasikan ekseskusi program yang sudah kita buat. Klik menu run, lalu pilih menu run atau tekan tombol F9 pada keyboard, maka jika project berhasil dijalankan akan tampil jendela aplikasi seperti gambar di bawah ini.

Setelah program berhasil dijalankan, sekarang coba masukkan angka ke dalam kolom Alas Segitiga dan Tinggi Segitiga. Kali ini kita akan memasukkan angka 10 untuk alas dan 20 untuk tinggi. Lalu klik proses maka hasil perhitungan Luas Segitiga akan muncul pada kolom Hasil Perhitungan.

Referensi

https://text-id.123dok.com/document/lzggrn47z-definisi-borland-delphi-7-pengertian-sistem.html