LAPORAN HASIL PRAKTEK PEMROGRAMAN KOMPUTER (DLPHI 7)

1
Laporan Praktek Prg. Komputer
Delphi 7
Oleh : Yohanis Sahabat
KEMENTERIAN ENERGI DAN SUMBER DAYA MINERAL
BADAN PENDIDIKAN DAN PELATIHAN ENERGI
DAN SUMBER DAYA MINERAL
SEKOLAHTINGGIENERGIDANMINERAL
STEM AkamigasCepu
LAPORAN HASIL PRAKTEK
PEMROGRAMANKOMPUTER
Oleh:

2
Delphi 7
KATA PENGANTAR
Puji syukur saya panjatkan kehadirat Tuhan Yang Maha Esa, yang selalu melimpahkan
rahmat dan hikmatnya sehingga saya dapat menyelesaikan kegiatan Praktek bahkan sampai
pada pembuatan Laporan ini.
Laporan ini di susun berdasarkan tugas yang di berikan kepada saya, yaitu Praktek Mata
Kuliah “Pemrograman Komputer”. Laporan ini berisikan tentang Kegiatan yang dilaksanakan,
dan hasil dari selama praktek.
Maka untuk itu dengan penuh rasa tanggungjawab sepenuhnya, Laporan ini saya susun
dengan tujuan untuk memenuhi tugas yang saya terima, dan dengan hormat saya sampaikan
Laporan ini kepada Bapak, dan atas perkenanannya sebelumnya saya ucapkan terima kasih.
Cepu, 16 November 2016
Yang Membuat Laporan
YOHANIS SAHABAT
NIM. 15153008

3
Delphi 7
BAB I
PENDAHULUAN
1. Latar Belakang
Delphi adalah sebuah IDE Compiler untuk bahasa pemrograman Pascal dan lingkungan
pengembangan perangkat lunak yang digunakan untuk merancang suatu aplikasi program.
Delphi juga dapat di artikan sebagai Suatu bahasa pemrograman yang menggunakan visualisasi
sama seperti bahasa pemrograman Visual Basic ( VB ). Namun Delphi menggunakan bahasa yang
hampir sama dengan pascal (sering disebut objeck pascal ) . Sehingga lebih mudah untuk digunakan .
Bahasa pemrograman Delphi dikembangkan oleh CodeGear sebagai divisi pengembangan perangkat
lunak milik embarcadero . Divisi tersebut awalnya milik borland , sehingga bahasa ini memiliki versi
Borland Delphi.
Delphi juga menggunakan konsep yang berorientasi objek ( OOP ) , maksudnya pemrograman
dengan membantu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya . Hal itu bisa
dilakukan dengan cara mendesign objek untuk menyelesaikan masalah . OOP ini memiliki beberapa
unsur yaitu ; Encapsulation ( pemodelan ) , Inheritance ( Penurunan ) , Polymorphism ( Polimorfisme )
.
Seiring dengan perkembangan zaman saatini yang terjadi begitu cepat,baik dalam dunia industri,
maupun technologi, dimana disana menuntut sumber daya yang mampu mengimbangi hal tersebut,
sehingga sangat di pandang perlu untuk menyiapkan dan melahirkan tenaga dan pekerja yang
mempunyai kemampuan atauskill. Oleh karena itu kegiatan PraktekPemrogramanKomputer ini sangat
perlu dilakukan dalam dunia pendidikan sebagailangkah untuk membekali pelajar, yang nantinya akan
keluar dan menjadi tenaga yang benar-benar berkopeten dan siap pakai pada dunia pekerjaan yang akan
di hadapi nanti.
2. Maksud dan Tujuan
Maksud dan tujuan pelaksanaan praktik ini adalah untuk memenuhi jadwal
praktikum yang sudah di agendakan di program studi Manajemen Pertambangan dan Energi
semester pertama. Secara garis besar tujuan dari praktek ini adalah supaya penulis mengetahui
aplikasi teori dengan keadaan di lingkungan kerja, khususnya pada Tecnologi Komputer.
3. Waktu dan Tempat Pelaksanaan Praktik

4
Delphi 7
Praktik ini dilaksanakan di Kampus STEM Akamigas Cepu, dengan jumlah jam praktek
yang terjadwal sejumlah ...... Jam. Pelaksanaanya dilakukan secara bertahap sesuai jadwal yang
berlaku, dengan jumlah pertemuan sebanyak ............. kali pertemuan.
4. Pembimbing dan Peserta Praktek
Pembimbing Lapangan :
Dosen Pembimbing adalah Bapak SUNOTO, S.ST
Peserta Praktek :
Mahasiswa Kelas Managemen Pertambangan Dan Energi (MPE) II berjumlah 9
(sembilan) orang.

5
Delphi 7
BAB II
PEMBAHASAN
I. MATERI PROGRAM SEDERHANA
1. Menambahkan Komponen Button
Alur Kerja sebagai berikut :
Pertama – tama kita siapkan Design Form sebagai berikut ; cukup gunakan 1 Label,
2 Button, dan 6 Radiobutton (Gambar 1.1)
Gambar 1.1
Dan diatur juga Properties Namenya seperti pada Tabel 1.1 berikut ini
OBJECT NAME CAPTION
Form1 Form1 Form1
Label1 Label1 Selamat Pagi
Button1 Ok Button1
Button2 Exit Button2
Radiobutton1 Tebal Radiobutton1
Radiobutton2 Miring Radiobutton2
Radiobutton3 Miring_dan_Tebal Radiobutton3
Radiobutton4 Biru Radiobutton4
Radiobutton5 Merah Radiobutton5
Radiobutton6 Kuning Radiobutton6
Tabel 1.1
Dengan Alur Program Sebagai Berikut ;
Jika ‘RadioButton1’ (Tebal) di klik, maka tampilan pada ‘Label1’ (Selamat Pagi)
akan muncul text tersebut dalam bentuk bolt atau tulisan tebal;

6
Delphi 7
Jika ‘RadioButton 2’ (Miring) di klik, maka tampilan pada ‘Label1’ (Selamat
Pagi) akan muncul text tersebut dalam bentuk tulisan Miring;
Jika ‘RadioButton 3’ (Miring dan Tebal) di klik, maka tampilan pada ‘Label1’
(Selamat Pagi) akan muncul text tersebut dalam bentuk tulisan tebal dan mirimg;
Jika ‘RadioButton 4’ (Biru) di klik, maka tampilan pada ‘Label1’ (Selamat Pagi)
akan tampil warna Biru;
Jika ‘RadioButton 5’ (Merah) di klik, maka tampilan pada ‘Label1’ (Selamat
Pagi) akan tampil warna Merah;
Jika ‘RadioButton 6’ (Kuning) di klik, maka tampilan pada ‘Label1’ (Selamat
Pagi) akan tampil warna Kuning;
Jika ‘Button1’ (Ok) di klik, maka tampilan pada ‘Label1’ (Selamat Pagi) akan
tampil Text Huruf Besar;
Jika ‘Button2’ (Exit) di klik, maka keluar dari program.
Source Code yang digunakan adalah sebagai berikut ini :
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:='Selamat Pagi;
end;
begin
Close
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
label1.font.Style:=[fsBold];
end;
begin
Label1.Font.Style:=[FsItalic];
end;
begin
Label1.Font.Style:=[FsBold,FsItalic];
end;
begin
Label1.font.Color:=ClBlue;
end;
begin
Label1.font.Color:=ClRed;
end;
begin
Label1.font.Color:=ClYellow;

7
Delphi 7
Kemudian lakukan ‘RUN (F9)’ maka akan muncul Hasil Program yang siap dijalankan
(Gambar 1.2)
Gambar 1.2
Program sederhana ini sudah siap digunakan sebagaimana fungsinya.
2. Menambahkan Komponen Button :
Program berikut ini hampir sama dengan program pertama, hanya ada perbedaan
dimana pada program ini menggunakan komponen ‘Shape’ namun program ini juga
menggunakan ‘Label dan Radiobutton’.
Alur kerja pembuatan program ini adalah sebagai berikut :
Pertama – tama kita siapkan Design Form sebagai berikut ; cukup gunakan 1 Shape,
1 Label, dan 6 radiobutton (Gambar 2.1)
Gambar 2.1

8
Delphi 7
Dan diatur juga ‘Properties Name’nya seperti pada Tabel 2.1 berikut ini ;
OBJECT NAME CAPTION
Shape1 Shape1
Label2 Label2 Label2
Radiobutton7 Lingkaran Radiobutton7
Radiobutton8 Persegi Radiobutton8
Radiobutton9 Elips Radiobutton9
Radiobutton10 Biru Radiobutton10
Radiobutton11 Merah Radiobutton11
Radiobutton12 Kuning Radiobutton12
Tabel 2.1
Jika ‘RadioButton7’ (Lingkaran) di klik, maka tampilan pada ‘Shape1 dan
Label2’ akan berubah sehingga Shape1 berbentuk lingkaran dan Label2 akan
muncul text Lingkaran;
Jika ‘RadioButton8’ (Persegi) di klik, maka tampilan pada ‘Shape1 dan Label2’
akan berubah sehingga Shape1 berbentuk Persegi dan Label2 akan muncul text
Persegi;
Jika ‘RadioButton9’ (Elips) di klik, maka tampilan pada ‘Shape1 dan Label2’ akan
berubah sehingga Shape1 berbentuk Elips dan Label2 akan muncul text Elips;
Jika ‘RadioButton10’ (Biru) di klik, maka tampilan pada ‘Shape1 dan Label2’
akan berubah sehingga tampilan Shape1 menjadi warna Biru dan text pada Label2
akan menjadi warna Biru;
Jika ‘RadioButton11’ (Merah) di klik, maka tampilan pada ‘Shape1 dan Label2’
akan berubah sehingga tampilan Shape1 menjadi warna Merah dan text pada
Label2 akan menjadi warna Merah;
Jika ‘RadioButton12’ (Kuning) di klik, maka tampilan pada ‘Shape1 dan Label2’
akan berubah sehingga tampilan Shape1 menjadi warna Kuning dan text pada
Label2 akan menjadi warna Kuning;
begin
Label2.Font.Color:=ClBlue;
Shape1.Brush.Color:=ClBlue;
end;
begin
Label2.Font.Color:=ClRed;
Shape1.Brush.Color:=ClRed;

9
Delphi 7
end;
begin
Label2.Font.Color:=ClYellow;
Shape1.Brush.Color:=ClYellow;
end;
begin
Shape1.Shape:=StCircle;
Label2.Caption:=Radiobutton7.Caption;
end;
begin
Shape1.Shape:=StrECTANGLE;
end;
begin
Shape1.Shape:=StEllipse;
end;
procedure TForm1.Shape1ContextPopup(Sender: TObject; MousePos:TPoint;
var Handled: Boolean);
begin
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
end.
Kemudian lakukan ‘RUN (F9)’ maka akan muncul Hasil Program yang siap
dijalankan (Gambar 2.2)
Gambar 2.2
Program sederhana ini sudah siap digunakan sebagaimana fungsinya.

10
Delphi 7
3. Program Hitung Luas
Pertama – tama kita siapkan DesignForm sebagai berikut ; cukup gunakan 3 Label, 3
Edit, dan 5 BitBtn (Gambar 3.1)
Gambar 3.1
Dan diatur juga ‘Properties Name’nya seperti pada Tabel 3.1 berikut ini ;
OBJECT NAME CAPTION
Form1 Form_Hitung_Luas Hitung Luas Empat Persegi Panjang
Label1 Label1 Panjang
Label2 Label2 Lebar
Label3 Label3 Luas
BitBtn1 Tambah BitBtn1
BitBtn2 Kali BitBtn2
BitBtn3 Keluar BitBtn3
BitBtn4 Kurang BitBtn4
BitBtn 5 Bagi BitBtn 5
Edit1 Edit1
Edit2 Edit2
Edit3 Edit3
Tabel 3.1
Objek ‘Edit1 (Panjang) dan Edit2 (Lebar)’ jika di input data (Angka Decimal),
kemudian kita klik pada BitBtn1 (Tambah), maka pada Edit3 (Luas) akan muncul
hasil Penjumlahannya;

11
Delphi 7
kemudian kita klik pada BitBtn2 (Kali), maka pada Edit3 (Luas) akan muncul hasil
Perkaliannya;
kemudian kita klik pada BitBtn3 (Kurang), maka pada Edit3 (Luas) akan muncul
hasil Pengurangannya;
kemudian kita klik pada BitBtn4 (Bagi), maka pada Edit3 (Luas) akan muncul
hasil Pembagiannya;
Jika Objek BitBtn5 (Keluar), maka artinya akan keluar atau mengakhiri program
tersebut.
procedure TFormHitungLuas.BitBtn2Click(Sender: TObject);
var
Panjang, Lebar, Luas : Real;
begin
ThousandSeparator := '.';
DecimalSeparator := ',';
Panjang := StrToCurr(Edit1.Text);
Lebar := StrToCurr(Edit2.Text);
Luas := Panjang * Lebar;
Edit3.Text := CurrToStrF(Luas,ffNumber,2);
end;
procedure TFormHitungLuas.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8, #44]) then
Key := #0;
end;
procedure TFormHitungLuas.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', #8, #44]) then
Key := #0;
end;
begin
Close;
end;
procedure TFormHitungLuas.tambahClick(Sender: TObject);
var
begin
Luas := Panjang + Lebar;
end;

12
Delphi 7
var
begin
Luas := Panjang - Lebar;
end;
var
begin
Luas := Panjang / Lebar;
end;
end.
Program sederhana ini sudah siap digunakan sebagaimana fungsinya dan Berikut ini
adalah tampilan gambar setelah dilakukan percobaan pada program ini ;

13
Delphi 7
4. Program Message Box
Untuk Materi ini hanya simple cara membuattnya, dimana kita hanya akan
membuat Kotak informasi saat kondisi tertentu. Hanya dengan menggunakan beberapa
Code kita sudah bisa membuat kotak pesan /message box standar dari Delphi. Untuk
kali ini kita akan mencoba membuat pesan saat kita mengklik suatu button dalam form,
dengan langkah kerja sebagai berikut :

14
Delphi 7
Pertama kita buat DesignForm Sebagai Berikut : cukup gunakan 3 button (Gambar
4.1)
Gambar 4.1
Lalu diatur Propertis Namenya seperti pada Tabel 4.1 berikut ini
Denegan alur program sebagai berikut
JIka button informasi di klik maka akan tampil pesan informasi ‘Berikut ini
adalah Message Box Berbentuk Informasi’.
Jika Button Konfirmasi Di Klik maka akan tampil Pesan konfirmasi ‘Mau Melihat
Informasi Lainnya’ dengan 2 Pilihan Yakni Yes Dan No.
Jika Yes Di Pilih maka akan tampil pesan informasi ‘Berikut ini adalah Message
Box Berbentuk konfirmasi’.
JIka No Yang Di Pilih maka akan tampil Pesan Informasi ‘Terima Kasih Banyak’.
OBJECT NAME CAPTION
Form1 Form_Materi1 Form Materi1
Button1 Button_Informasi Informasi
Button 2 Button_Konfirmasi Konfirmasi
Button 3 Button_Keluar Keluar

15
Delphi 7
Jika Button Keluar diklik makan akan tampil Pesan Konfirmasi ‘Yakin akan
Keluar dari program’ dengan pilihan yes dan no, jika yes yang dipilih program
akan keluar jika no yang dipilih maka kembali ke program yang berjalan.
procedure TForm_Materi1.Button_InformasiClick(Sender: TObject);
begin
showmessage ('Berikut ini adalah MessageBox Berbentuk Informasi');
end;
procedure TForm_Materi1.Button_KonfirmasiClick(Sender: TObject);
begin
if (application.MessageBox('Mau MelihatInformssi Lainnya','Konfirmasi',MB_YesNo)=ID_yes) then
begin
showmessage ('Berikut ini adalah MessageBox Berbentuk Konfirmasi');
end
else
begin
showmessage ('Terima Kasih Banyak');
end;
end;
procedure TForm_Materi1.Button_KeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Akan Keluar Dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes)
then
begin
close;
end;
end;
end.
Gambar 4.2

16
Delphi 7
5. Input Data Text Di ListBox
Pertama – tama kita siapkan Design Form sebagai berikut ; cukup gunakan 3 Label, 3
Edit, dan 5 BitBtn (Gambar 5.1)

17
Delphi 7
Gambar 5.1
Lalu diatur Propertis Namenya seperti pada Tabel 5.1 berikut ini
Tabel 5.1
Denegan alur program sebagai berikut
JIka kita input text pada Edit1, kemudian kita klik di Button1 (Add), maka text pada
Edit1 akan berpindah otomatis ke kolom ListBox1;
JIka kita input text pada Edit1, kemudian kita klik di Button2 (Insert), maka text
pada Edit1 akan dicopy otomatis ke kolom ListBox1;
JIka kita menghapus text yang diinginkan pada ListBox1, klik/blok text tersebut
kemudian kita klik di Button3 (Delete), maka text pada ListBox1 akan terhapus
otomatis.
JIka kita ingin menaikan posisi text yang diinginkan pada ListBox1 ke urutan teratas
maka klik/blok text tersebut kemudian kita klik di Button4 (Up), maka text tersebut
akan berubah posisi otomatis naik ke urutan teratas.
JIka kita ingin menurunkan posisi text yang diinginkan pada ListBox1, klik/blok
text tersebut kemudian kita klik di Button5 (Down), maka text tersebut akan turun
otomatis dan berubah posisi pada antrian bawah sesuai yang kita inginkan.
JIka kita klik pada Button6 (Exit), maka otomatis kita keluar dari program ini.
procedure TForm_Materi1.Edit_AddChange(Sender: TObject);
begin
edit_add1.Text:='';
end;
procedure TForm_Materi1.Button_AddClick(Sender: TObject);
begin
listbox1.Items.Add(edit_add1.Text);
edit_add1.Text:='';
edit_add1.SetFocus;
OBJECT NAME CAPTION
Form1 Form_Materi1 Form Materi1
ListBox1 ListBox1
Edit1 Add_Edit1
Button1 Button_Add Add
Button 2 Button_Insert Insert
Button 3 Button_Delete Delete
Button4 Button_Up Up
Button 5 Button_ Down Down
Button 6 Button_Exit Exit

18
Delphi 7
end;
procedure TForm_Materi1.Button_InsertClick(Sender: TObject);
begin
listbox1.Items.Insert(Listbox1.ItemIndex, edit_add1.Text);
end;
procedure TForm_Materi1.Button_DeleteClick(Sender: TObject);
begin
listbox1.DeleteSelected;
end;
procedure TForm_Materi1.Button_UpClick(Sender: TObject);
var
posisi_lama :integer;
begin
posisi_lama :=listbox1.ItemIndex;
listbox1.Items.Move(posisi_lama, posisi_lama-1);
listbox1.ItemIndex:=posisi_lama-1
end;
procedure TForm_Materi1.Button_DownClick(Sender: TObject);
var
posisi_lama :integer;
begin
posisi_lama :=listbox1.ItemIndex;
listbox1.Items.Move(posisi_lama, posisi_lama +1);
listbox1.ItemIndex:=posisi_lama +1;
end;
procedure TForm_Materi1.Button_ExitClick(Sender: TObject);
begin
close;
end;
end.

19
Delphi 7
Gambar 5.2

20
Delphi 7
6. Percabangan IF Delphi 7
Percabangan IF ialah kondisi dimana kita memberikan nilai yang berbeda pada
output Delphi sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam
Kondisi dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika
kondisi dua akan muncul kondisi dua, begitu seterusnya.
Pertama Tama Kita Buat Tampilan Form Design Sebagai Berikut (Gambar 6.1) :
Gambar 6.1
Ubahlah Properties Name Tiap Object Seperti pada Tabel 6.1 berikut ini :
Alur Algoritma Programnya adalah sebagai berikut :
Pada Saat Program Di Jalankan Maka Combo Box Akan Terisi 3 Items sebagai berikut
Maw01-10, Mel02-20, Ros03-30.
OBJECT NAME CAPTION
Form1 Form1 Form Percabangan IF
Label1 Label1 Kode Kamar
Label2 Label2 Nama Kamar
Label3 Label3 Lantai 2
Label4 Label4 No Kamar
ComboBox1 Combo Kode
Edit1 Edit_Kamar
Edit2 Edit_Lantai
Edit3 Edit_No
Button1 Keluar Keluar

21
Delphi 7
Pada Saat Combo_kode dipilih Maw01-10 maka akan Tampil Teks :
 Nama Kamar : Kamar Mawar
 Lantai Kamar : Lantai 1
 No Kamar : No 10
Pada Saat Combo_kode dipilih Mel02-20 maka akan Tampil Teks :
 Nama Kamar : Kamar Mawar
Pada Saat Combo_kode dipilih Ros03-30 makan akan tampil Teks :
 Nama Kamar : Kamar Rose
Saat Button_keluar di Klik Maka akan Keluar dari Program.
procedure TMateri1.FormCreate(Sender: TObject);
begin
combo_kode.Items.Add('Maw01-10');
combo_kode.Items.Add('Mel02-20');
combo_kode.Items.Add('Ros03-30');
end;
procedure TMateri1.combo_kodeChange(Sender: TObject);
begin
if combo_kode.Text='Maw01-10' then
begin
edit_kamar.Text:='Kamar Mawar';
edit_lantai.Text:='Lantai 1';
edit_no.Text:='No 10';
end
else if combo_kode.Text='Mel02-20'then
begin
edit_kamar.Text:='Kamar Melati';
end
else
begin
edit_kamar.Text:='Kamar Rose';
end;
end;
procedure TMateri1.KELUARClick(Sender: TObject);
begin
close;
end;

22
Delphi 7
end.
(Gambar 6.2)
Gambar 6.2
adalah beberapa tampilan gambar setelah dilakukan percobaan pada program ini ;

23
Delphi 7
7. Looping Input Box
Input Boxadalah kotak informasi yang memiliki fungsi untuk mengabil suatu nilai
yang akan dimasukkan, penggunaan input box dapat mengurangi penggunaan
component untuk mode masukan data sehingga bisa menghemat component dan
membuat aplikasi yang simple namun power full. Untuk Looping sendiri
adalah pengulangan perintah dimana selama masih memenuhi criteria yang ditetapkan.
Dan penggabungan fungsi input box dan looping kita dapat membuat suatu pemasukan
nilai berdasarkan input box dengan jumlah inputan yang disesuaikan dengan yang
diinginkan. Sok Langsung aja kita Praktekkan nich /(^.^”).
Pertama tama Kita akan buat Design Form nya seperti dibawah ini (Gambar 7.1):
Gambar 7.1

24
Delphi 7
Tabel 7.1
Alur
Algoritma Programnya adalah sebagai berikut :
Untuk memulai penginputan nilai kita diharuskan mengisi jumlah input box yang
akan ditampilkan,
Jika button isi data diklik maka akan memunculkan input box sejumlah nilai yang
sudah dimasukkan, jika edit jumlah kosong maka akan memunculkan
pesan’ SIlahkan masukkan jumlah input data’ kemudian setfocus ke edit jumlah.
Jika input box muncul kita bisa memasukkan nilai kemudian di ok maka teks akan
masuk ke listbox, dan list box akan muncul kembali sampai jumlah yang diminta telah
terpenuhi
Jika button bersih di klik maka list box akan dibersihkan.
Jika button keluar maka akan menampilkan pesan konfirmasi yang menyatakan
‘apakahanda yakin akankeluar dari program’ jika yam aka akan keluar dari program.
var
input_barang:string;
awal,jumlah:integer;
begin
if edit_jumlah.Text=''then
begin
showmessage('Maaf Silakan Masukkan Jumlah InputData!');
edit_jumlah.SetFocus;
end
else
begin
jumlah:=strtoint(edit_jumlah.text);
awal:=1;
whileawal<=jumlah do
begin
input_barang:=inputbox('Konfirmasi','Silahkan Masukkan Nama Barang','');
listbox1.Items.Add(input_barang);
awal:=awal+1;
edit_jumlah.Text:='';
edit_jumlah.SetFocus;
end;
OBJECT NAME CAPTION
Form1 Form1 Looping Input Data
Label1 Label1 Jumlah Barang
Edit1 Edit_Jumlah
ListBox1 ListBox1
Button1 Button1 Input Data
Button2 Button2 Bersih
Button3 Button3 Keluar

25
Delphi 7
end;
end;
procedure TForm1.BersihClick(Sender: TObject);
begin
listbox1.Clear;
end;
procedure TForm1.KeluarClick(Sender: TObject);
begin
close;
end;
end.
(Gambar 7.2)
Gambar 7.2

26
Delphi 7
8. Program Hitung Luas Lingkaran
Program Hitung Luas ini sangat sederhann, di mana fungsinya adalah menghitung Luas
dan keliling suatu Lingkaran. Pada program ini, kita hanya input Jari-Jari. Untuk
pembuatan program ini hanya dibutuhkan beberapa objek berikut ini yaitu 3 Labe, 3 Edit,
dan 3 Button.
Pertama Tama Kita Buat Tampilan Form Design Sebagai Berikut (Gambar 8.1) :
Gambar 8.1

27
Delphi 7
Tabel 8.1
Alur
Algoritma Programnya adalah sebagai berikut :
Untuk memulai penginputan nilai kita diharuskan mengisi nilai Jari-Jari (Edit1);
Kemudian klik Hitung (Button1);
Lalu akan tampil hasil hitungan pada Luas (Edit2) dan Keliling (Edit3).
Jika ingin mau menghitung lagi klik Reset (Button2), maka tampilan pada Jari-jari
(Edit1) akan siap kembali untuk input angka selanjutnya yang mau dihitung luas dan
kelilingnya.
Jika kita klik Keluar (Button3), artinya kita akan keluar dari program ini.
var
k,l,r:real;
begin
r:=strtofloat(edit1.Text);
k:=2*pi*r;
l:=pi*r*r;
edit1.Text:=floattostr(r);
edit2.Text:=floattostr(l);
edit3.Text:=floattostr(k);
end;
begin
close;
end;
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.SetFocus;
end;
end.
(Gambar 8.2)
OBJECT NAME CAPTION
Form1 Form1 Hitung Luas Lingkaran
Label1 Label1 Jari-Jari
Label2 Label2 Luas
Label3 Label3 Keliling
Edit1 Edit1
Edit2 Edit2
Edit3 Edit3
Button1 Button1 Hitung
Button2 Button2 Keluar
Button3 Button3 Reset

28
Delphi 7
Gambar 8.2
Demikian beberapa contoh Program Sederhana, yang menjadi latihan pada praktek
saat ini. Program-program sederhana ini merupakan dasar untuk pengembangan
pengetahuan pada Komputer, dan ini sangat membantu bahkan bermanfaat bila nanti
kita sudah dapat menguasai program – program ini karena dapat di pakai untuk
kelangsungan pekerjaan kantor, dan dapat mempermudah dan membantu pekerjaan
tersebut.
Dengan harapan bahwa dengan mempelajari program ini kiranya dapat
membuka dan memotivasi kami kedepan untuk ingin giat lagi pada pelajaran
komputer ini.

29
Delphi 7
BAB III
PENUTUP
1. Kesimpulan
Keunggulan Delphi adalah IDE (Integrated Development Environment) atau
lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi,
didalamnya terdapat menu – menu yang memudahkan kita untuk membuat suatu proyek
program.
Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka
secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga
tidak diperlukan suatu penyesuain lagi.
Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk
mengembangkan berbagai keperluan pengembangan aplikasi.
Adapun sejumlah kelebihan Embarcadero Delphi lainnya, antara lain meliputi:
Dapat mengkompilasi menjadi single executable (aplikasi portable), memudahkan
distribusi dan meminimalisir masalah yang terkait dengan versioning
Banyaknya dukungan dari pihak ketiga terhadap VCL (biasanya tersedia berikut
source codenya) ataupun tools pendukung lainnya (dokumentasi, tool debugging)
Optimasi kompiler yang cukup cepat
Mendukung multiple platform dari source code yang sama

30
Delphi 7
Untuk yang dikelola oleh embarcadero, delphi dapat dijalankan pada multiflatform
yaitu windows, linux, android, IOS.
Kegunaan Delphi sebagai berikut :
Untuk membuat aplikasi windows
Untuk merancang aplikasi program berbasis grafis
Untuk membuat program berbasis jaringan (client/server)
Untuk merancang program .Net (berbasis internet)
2. Saran
Untuk mengimbangi pertumbuhan dan perkembangan tecnologi yang semakin
pesat pada dunia informasi dan dunia industri, maka sangat dipandang perlu untuk
meningkatkan sumber daya manusia yang handal, sehingga mata kuliah Program
Komputer dengan Prakteknya alangkah baiknya lebih ditingkatkan pada dunia
pendidikan karena sangat penting untuk dipelajari.

31
Delphi 7
DAFTAR ISI
BAB I.....................................................................................................................................1
PENDAHULUAN....................................................................................................................3
1. Latar Belakang............................................................................................................3
2. Maksud dan Tujuan .....................................................................................................3
3. WaktudanTempatPelaksanaanPraktik.................................................................................3
BAB II..................................................................................................................................5
PEMBAHASAN....................................................................................................................5
I. PELAKSANAAN KEGIATAN..................................... Error! Bookmark not defined.
1. Pembimbing Lapangan :..........................................................................................5
2. Acara / Jadwal Kegiatan :........................................................................................7
3. Ke sa mpa ia n Da e ra h :....................................... Error! Bookmark not defined.
II. INFORMASI YANG DI PEROLEH.............................. Error! Bookmark not defined.
1. Penjelasan Umum..................................................... Error! Bookmark not defined.
a. Pengenalan Tentang Sistem Panas Bumi..................... Error! Bookmark not defined.
b. Sejarah..................................................................... Error! Bookmark not defined.
c. Kontrak Operasi Bersama (KOB) ....................... Error! Bookmark not defined.
d. Kontrak Penjualan Energy (ESC)............................... Error! Bookmark not defined.
e. Pemanfaatan Panas Bumi di Star Energy Geothermal (Wayang Windu) L td.
Error! Bookmark not defined.
f. Profil Jumlah Sumur, (Sumur Produksi & Injeksi)....... Error! Bookmark not defined.
g. Details ..................................................................... Error! Bookmark not defined.
h. Pembangunan Unit 3 dan 4........................................ Error! Bookmark not defined.
i. Konsep..................................................................... Error! Bookmark not defined.
j. Pengelolaan Lingkungan ........................................... Error! Bookmark not defined.
2. Kunjungan ke Pembangkitan ......................................... Error! Bookmark not defined.
3. Kunjungan ke Sumur Produksi ...................................... Error! Bookmark not defined.
4. Kunjungan ke Manifestasi............................................. Error! Bookmark not defined.
BAB III............................................................................................................................... 29
PENUTUP.......................................................................................................................... 29
1. Kesimpulan............................................................................................................... 29
2. Saran........................................................................................................................ 30
3. Lampiran (Dokumentasi) .............................................. Error! Bookmark not defined.

32
Delphi 7

LAPORAN HASIL PRAKTEK PEMROGRAMAN KOMPUTER (DLPHI 7)

More Related Content

What's hot

Viewers also liked

Similar to LAPORAN HASIL PRAKTEK PEMROGRAMAN KOMPUTER (DLPHI 7)

More from YOHANIS SAHABAT

Recently uploaded

LAPORAN HASIL PRAKTEK PEMROGRAMAN KOMPUTER (DLPHI 7)