Tutorial DELPHI7 (Membuat Aplikasi Penghitung Luas Segitiga)

Membuat Aplikasi Penghitung Luas Segitiga

1. Buka program Delphi7

2. Buat tampilan form seperti gambar di bawah

3. Double klik pada pilihan ‘HITUNG’ dan masukkan coding seperti berikut

procedure TForm1.Button1Click(Sender: TObject);

Var

n,m : real ;

Begin

n := strtofloat (edit1.text) ;

m := strtofloat (edit2.text) ;

edit3.text := floattostr (1/2*n*m) ;

end;

4. Double klik pada pilihan ‘HAPUS’ dan masukkan coding seperti berikut

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Clear ;

edit2.Clear ;

edit3.Clear ;

end;

end.

5. Syntax List

6. Run program yang sudah di buat atau klik F9

7. Output program yang telah di buat

8. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

• iLab Gunadarma
• StudentSite
• BAAK Gunadarma
• Lab SK
• Lab Microprocessor Gunadarma