Menghitung luas segitiga || Delphi 7

Assalamualaikum, selamat malam teman-teman semua, kali ini saya akan posting program mencari luas segitiga dengan menggunakan Delphi.. 

Langsung saja yang teman-teman :)

Include

• 3 Label
• 3 Edit
• 3 Button

Jika teman – teman sudah membuat tampilan seperi gambar diatas, double klik pada tombol hitung kemudian masukkan source code berikut :

var

a:integer;

t:integer;

Luas:real;

begin

a:=strtoint(edit1.Text);

t:=strtoint(edit2.Text);

Luas:=1/2*a*t;

edit3.Text:=FloatTostr(Luas);

end;

Sebenarnya intinya cuma itu, tapi saya menambahkan dua tombol button lagi..

yaitu tombol ulang dan tombol keluar.

Jika teman-teman juga menambahkan tombol itu, double klik pada tombol ulang dan masukkan source code berikut :

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

source code diatas berguna untuk menghapus atau membersihkan bagian edit jika kita ingin memasukkan angka lainnya.

Kemudian pada tombol keluar, saya menggunakan komentar, tapi jika teman-teman lebih memilih sederhana, gampangnya tinggal memasukka code :

Close;

Tapi jika ingin menambahkan komentar pada tombol keluarnya masukkan source code berikut :

begin

if(application.MessageBox('Anda Yakin ingin Keluar??','Informasi',MB_YESNO)=idYES)then

close;

end;

Demikian tutorial singkat dari saya :D

Koment jika ada kesalahan, kita sama-sama belajar :D
Hehehee...

Salam Anak IT (y)

Related Posts:

Tweet