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