PERTEMUAN KE-I
PENGENALAN DELPHI
DWIDYA POERNAREKSA
NIM. J1F113023
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS LAMBUNG MANGKURAT
PROGRAM STUDI S-1 ILMU KOMPUTER
BANJARBARU
2014
I.
Tujuan Praktikum
Adapun tujuan praktikum adalah mengetahui atau mengenal perangkat lunak (bahasa pemrograman) yaitu
Delphi (pemrograman visual), 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
Kalian bisa liat dan download programnya disini
Terima kasih
Tidak ada komentar:
Posting Komentar