Praktikum Pertemuan 1 Memulai Dengan Delphi

PERTEMUAN KE – I

Memulai Dengan Delphi

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS LAMBUNG MANGKURAT
PROGRAM STUDI S-1 ILMU KOMPUTER
BANJARBARU
2014

I.                   Tujuan Praktikum

Adapun tujuan praktikum ini adalah untuk mengetahui atau mengenal perangkat lunak dalam bahasa pemrograman, yaitu Delphi pada mata kuliah praktikum pemrograman visual, sehingga praktikan bisa membuat program sederhana dari Delphi.

II.                Deskripsi Program

Program ini bernama program cari lingkaran. Program ini berisi input bernama jari-jari lingkaran. Ketika nilai dari jari-jari lingkaran dimasukkan, maka secara otomatis, proses perhitungan keliling, luas, dan diameter dari lingkaran tersebut akan muncul. Program ini dibuat dengan menggunakan Delphi 7. Didalam program ini diselipkan dengan tombol kembali, maksudnya adalah ketika ditekan kembali, maka akan kembali ke menu awal,yaitu memasukkan kembali input jari-jari lingkaran.

III.             Interface Program

IV.             Coding Program

NamaKomponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var   i:real; begin i:=strtofloat(edit1.Text); form2.edit1.Text:=floattostr(i); i:=strtofloat(edit1.Text)*2; form2.edit2.Text:=floattostr(i); i:=2*3.14*strtofloat(edit1.Text); form2.Edit3.Text:=floattostr(i); i:=2*3.14*(strtofloat(edit1.text)*strtofloat(edit1.text)); form2.Edit4.Text:=floattostr(i); form2.show; form1.Hide; end;
Button2	Onclick	procedure TForm2.Button1Click(Sender: TObject); begin form2.Hide; form1.show; end;

V.                Output