1. Buka program Delphi7
2. Buat tampilan form seperti gambar di bawah
3. Double klik pada pilihan ‘HITUNG’ dan masukkan syntax seperti berikut
procedure TForm1.Button1Click(Sender: TObject);
VAR
n,m:real;
Begin
n:=strtofloat(edit1.Text);
m:=n*n*n;
edit2.text:=floattostr(m);
end;
4. Double klik pada pilihan ‘HAPUS’ dan masukkan syntax seperti berikut
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.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:
Tidak ada komentar:
Posting Komentar