Daftar Isi
MODUL I PENDAHULUAN................................................................................2
MODUL II VISUAL COMPONENT LIBRARY.......................................................13
MODUL III VISUAL COMPONENT LIBRARY II...................................................19
MODUL IV VISUAL COMPONENT LIBRARY III..................................................26
MODUL V FILE...............................................................................................36
MODUL VI DATABASE INTERBASE DAN KOMPONEN TABEL..........................48
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 2
MODUL I
PENDAHULUAN
Tujuan:
- Mengenal bahasa pemrograman Delphi
- Mengenal lingkungan Delphi
- Membuat program sederhana dengan menggunakan Delphi
Dasar Teori
Mengenal Delphi
Berikut merupakan beberapa hal yang perlu anda ketahui tentang Delphi:
Merupakan suatu tool untuk mengembangkan aplikasi untuk Microsoft
Windows.
Delphi merupakan sebuah tool yang ampuh dan mudah digunakan untuk
membangun aplikasi berbasis GUI (Graphical User Interface) maupun
aplikasi berbasi console 32-bit.
Selain Delphi, Borland juga mengeluarkan Borland Kylix, dimana dengan
Borland Kylix, seorang programmer dapat membuat aplikasi untuk Windows
dan Linux dari satu kode program yang sama.
Bahasa pemrograman di Delphi merupakan bahasa Object-Pascal1. Hal ini
berarti, alur program di Delphi, mirip dengan bahasa pemrograma Pascal.
Hal ini tentunya akan memudahkan bagi programmer, yang tudak ada
pengetahuan tentang pemrograman Pascal, untuk mempelajari Delphi.
1 Object Pascal merupakan bahasa pemrograman berorientasi object seperti halnya
C++. Akan tetapi dalam beberapa hal, Object-Pascal lebih baik daripada C++.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 3
Pemrograman Berorientasi Objek (PBO)
PBO atau Pemrograman Berorientasi Objek merupakan adalah perluasan dari
pemrograman terstruktur yang mengutamakan pemakaian ualang program dan
enkapsulasi data berdasarkan fungsinya. Enkapsulasi merupakan kombinasi data
dan fungsionalitas ke dalam sebuah unit tunggal.
Ciri – cirri lain dari PBO adalah inheritance dan polymorphism. Inheritance artinya
suatu objek membawa fungsionalitas dari objek lain (ancestor), objek tersebut
dapat mengubah sifat dari ancestor. Polymorphism berarti objek – objek yang
berbeda, yang diturunkan dari ancestor yang sama.
Integrated Development Environment (IDE)
IDE adalah sebuah lingkungan di mana semua tools yang diperlukan untuk proses
desain, running, dan testing sebuah aplikasi disajikan dan terhubung dengan baik
sehingga memudahkan pengembangan program. Secara default, IDE Borland
Delphi 2005 terdiri dari Main Menu, Tool Bar, Structure, Object Inspector, Project
Manager, Tool Palette. Perhatikan gambar di bawah ini:
IDE Delphi
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 4
IDE Delphi, Form Designer
IDE Delphi, Code Editor
Keterangan:
Main Menu
Tool Bar
Form Designer Digunakan untuk menentukan tampilan aplikasi. Adapun cara
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 5
penggunaannya adalah dengan memilih sebuah komponen dari
Component Palette, kemudian meletakkannya ke dalam Form
Designer
Code Editor Digunakan untuk menuliskan program Delphi
Object
Inspector
Object Inspector terdiri dari 2 tab, yaitu:
- Tab Properties : Digunakan untuk melihat dan merubah
property dari setiap komponen
- Tab Event : Digunakan melihat dan menambahkan event atau
kejadian yang akan direspon oleh sebuah komponen
Structure
Membangun Sebuah Aplikasi Dengan Borland Delphi 2005
Sebelum membangun aplikasi dengan Delphi, anda harus memahami bahwa di
dalam Delphi, suatu aplikasi dibangun di atas sebuah Project. Karena, Delphi
hanya akan mengenali form dan unit yang terdaftar di dalam sebuah Project. Jika
tidak terdaftar dalam sebuah Project, atau tidak ada Project, dengan kata lain
hanya form dan unit saja, maka aplikasi tidak akan pernah bisa di-running dengan
menggunakan Delphi.
Berdasarkan hal tersebut di atas, maka dapat disimpulkan bahwa untuk bisa
membangun aplikasi, running, dan testing dengan menggunakan Delphi, ada
beberapa file yang harus ada:
1. File Borland Developer Studio Project (.bdsproj)
File ini digunakan untuk menyimpan informasi project yang dibuat dengan
menggunakan Borland Delphi 2005
2. File Project (.dpr)
File ini akan digunakan untuk menyimpan informasi mengenai form dan unit, serta
untuk menjalankan aplikasi.
3. File Unit (.pas)
File ini digunakan untuk menyimpan program. File unit ada 3 macam, yaitu:
a. Unit Form, Data Module, dan Frame. Unit ini dibuat secara
otomatis oleh Delphi pada saat anda menambahkan Form, Data
Modul, atau Frame.
b. Unit Component. Unit ini dibuat pada saat membuat komponen
baru.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 6
c. Unit Umum. Unit ini dibuat untuk tipe data, variable, procedure, dan
class yang dapat diakses oleh aplikasi.
Dalam sebuah file unit, ada beberapa bagian yang perlu anda
ketahui:
Sebuah file unit dimulai dengan kata unit, kemudian diikuti dengan
bagian interface, implementation, initialization, dan finalization. Dua
bagian yang terakhir, initialization dan finalization, merupakan bagian
optional, artinya boleh ada, boleh tidak.
o Keyword Unit
Kata unit adalah kata yang mengawali sebuah unit, biasanya terletak
di baris pertama. Kata unit yang biasanya diikuti dengan nama unit.
Perlu anda perhatikan, bahwa nama unit haruslah sama dengan nama
file unit yang tersimpan di komputer anda. Anda bisa merubah nama
unit tersebut dengan cara anda menyimpan unit itu ke dalam file lain
melalui meni File -> Save As… Dengan demikian, Nama unit akan
secara otomatis sama dengan nama file unit.
Hal lain yang perlu anda perhatikan adalah di dalam satu project,
nama unit haruslah unik, tidak boleh terjadi duplikasi.
o Bagian Interface
Bagian interface adalah bagian dimana akan didefinisikan semua hal
yang akan dimunculkan di dalam sebuah unit. Bagian ini memiliki
beberapa sub bagian yang diantaranya adalah:
Uses
Bagian uses digunakan untuk mendefinisikan semua unit yang
akan digunakan di dalam unit.
Type
Bagian type digunakan untuk mendefinisikan tipe data baru,
termasuk class.
Var
Bagian var digunakan untuk membuat object yang telah
didefinisikan di dalam sub bagian Type. Selain itu, bagian ini
juga digunakan untuk mendeklarasikan semua variable yang
akan digunakan di dalam unit.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 7
Const
Bagian const digunakan untuk mendefinisikan konstanta yang
akan digunaka di dalam unit. Konstanta merupakan variable
yang memiliki nilai tetap.
o Bagian Implementation
Bagian implementation merupakan bagian dimana anda
mendefinisikan kode program untuk sebuah aksi atau event.
Sebuah unit selalu diakhirir dengan tanda end.
4. File Form (.dfm)
File ini menyimpan informasi menenai form dan komponen – komponen
yang ditambahkan ke dalam form.
Selain ketiga file di atas, ada file resource (.res), file project option (.dof), file
desktop settings (.dsk), dan file backup.
Pada saat suatu Project di-running dengan dengan menggunakan Delphi, maka
secara otomatis Delphi akan membuat file – file compiler, diantaranya adalah file
executable (.exe) dan file unit object (.dcu).
Selanjutnya, kita akan membuat sebuah aplikasi sederhana seperti gambar di
bawah ini:
Adapun langkah – langkahnya adalah sebagai berikut:
1. Buka program Delphi (Start Menu -> All Programs -> Borland Delphi 2005 ->
Delphi 2005)
2. Buat project baru, dengan cara (File > New > VCL Forms Application – Delphi
For Win32)
3. Klik Form Designer, kemudian ubah property Caption dari Form1 menjadi
Coba
4. Tambahkan komponen TLabel (dari Component Palette, Tab Standard),
kemudian ubah property Caption menjadi Isi Pesan
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 8
5. Tambahkan komponen TEdit, kemudian kosongkan property Text
6. Tambahkan komponen TButton, kemudian ubah property Name menjadi
Tombol1. Selanjutnya ubah property Caption menjadi Satu.
7. Tambahkan komponen TButton, kemudian ubah property Name menjadi
Tombol2. Selanjutnya ubah property Caption menjadi Dua.
8. Aturlah komponen – komponen tersebut sedemkian rupa sehingga tampak
seperti contoh.
9. Dari aplikasi ini, bila tombol Satu ditekan, maka komponen Edit akan terisi
“Saya Ingin Belajar Delphi”. Apabila tombol Dua ditekan, maka komponen
Edit akan terisi “Delphi Keren”.
10. Agar aplikasi bisa melakukan apa yang ada di point 8, maka pada tombol
Satu dan Dua perlu ditabahkan sebuah event handler (penanganan event).
Ada 2 cara untuk mendefinisikan event handler, yaitu:
a. Klik ganda pada komponen, dalam hal ini tombol Satu
b. Klik komponen tombol Satu, kemudian pilih tab Event pada Object
Inspector. Pilih Event OnClick, klik ganda pada kolom isiannya.
11. Kemudian tuliskan kode program berikut:
Edit1.Text := ‘Saya Mau Belajar Delphi’;
12. Dengan cara yang sama, tambahkan event handler untuk tombol Dua,
kemudian tuliskan kode program berikut ini:
Edit1.Text := ‘Saya Mau Belajar Delphi’;
13. Untuk bisa menjalankan program, klik Menu Run -> Run Atau dengan
menekan tombol F9 pada keyboard.
Menampilkan Message Box
Coba anda tambahkan baris kode program berikut pada event handler untuk
Tombol Satu dan Dua.
ShowMessage(‘Halo Dunia !!!’);
Perhatikan apa yang terjadi!
Catatan:
Untuk menyimpan sebuah project anda, tinggal klik Menu File -> Save All. Pada
saat penyimpanan, jika project baru dibuat, maka Delphi akan menyimpan file unitnya
terlebih dahulu, kemudian diikuti dengan menyimpan file project. Pastikan file
project dan file unit tersimpan di dalam satu folder yang sama.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 9
Bekerja Dengan 2 Form
Menambahkan Form Baru
– File > New > Form - Delphi For Win32
– Ubah property caption-nya menjadi Form2
Mengubah Main Form
- Jika ingin menjalankan aplikasi dengan Form2 muncul terlebih dahulu, yang perlu
anda lakukan adalah pilih menu: Project > Options
– Pada menu tersebut, secara default, Form1 akan berlaku sebagai main form.
Main form merupakan form yang akan pertama kali dijalankan oleh Delphi
– Anda bisa merubah form mana yang akan dijadikan sebagai main form dengan
cara mengganti main form dengan form lain yang ada di dalam combo
– Selain itu, di dalam window tersebut ada 2 list form, yaitu Auto-create forms dan
Available forms
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 10
– Auto-create forms: menampilkan daftar form yang akan secara otomatis
dibuatkan oleh program pada saat program dijalankan
– Available forms: menampilkan daftar form yang tidak akan dibuatkan oleh
program secara otomatis, tapi form - form yang ada pada list ini dapat
secara runtime dibuat (create) dan dihancurkan (destroy) --> biasanya
digunakan untuk mengefektifkan penggunaan memori
Memanggil Form1 dari Form2
Agar kita bisa memanggil Form1 dari Form2 dan sebaliknya, hal yang perlu
dilakukan adalah:
– Tambahkan satu buah Button pada Form2
– Ubah property Caption menjadi Lihat Form 1.
– Kemudian, anda harus menambahkan unit form1 ke dalam deklarasi uses pada
form2, caranya dengan tekan tombol Alt + F11, yang akan memunculkan
jendela seperti ini:
– Pilihlah unit yang ingin anda tambahkan, misal unit1.
– Kemudian klik OK.
– Kemudian, pada Form2, tambahkan event handler OnClick untuk Button1
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 11
– Masukkan kode program berikut:
Form1.Show;
– Sekarang jalankan aplikasi dan coba anda klik tombol dengan caption Lihat
Form 1, perhatikan apa yang terjadi.
TUGAS
Buatlah sebuah aplikasi seperti di bawah ini
Keterangan:
Bila tombol Indonesia diklik, akan tampil: Liga Djarum
Bila tombol Jerman diklik, akan tampil: Bundesliga
Bila tombol Spanyol diklik, akan tampil: La Liga
Bila tombol Italia diklik, akan tampil: Serie A
Bila tombol Inggris diklik, akan tampil: Premier League
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 12
MODUL II
VISUAL COMPONENT LIBRARY
Tujuan
- Mengenal komponen pada Delphi
- Mengenal Komponen pada Kategori Standard
- Membuat aplikasi dengan menggunakan komponen TEdit, TButton, TLabel,
TRadioButton, TRadioGroup, dan TGroupBox.
Dasar Teori
Visual Component Library (VCL) merupakan hierarki dari class (object) yang ditulis
dengan Object Pascal dan tergabung dalam IDE Delphi. Dengan demikian, kita
dapat dengan mudah menambahkan komponen pada form dan memanipulasi
property-nya tanpa harus menuliskan program.
Di dalam Delphi, ada dua macam komponen, yaitu komponen yang bersifat Visual
dan Non-Visual. Komponen visual digunakan untuk mebuat desain user interface
(antar muka dengan pemakai) sehingga kita bisa merubah ukuranya sesuai
kebutuhan. Contoh: Label, Edit, Button, RadioButton, RadioGroup, dan GroupBox.
Sedangkan komponen non-visual, hanya bisa diubah propertynya, tanpa bisa
merubah ukurannya. Hal ini dikarenakan pada saat program dijalankan, komponen
non-visual tidak tampak. Contoh: ActionList.
Pada Tab Standard, terdapat kurang lebih 16 komponen. Komponen – komponen ini
merupakan komponen yang sering digunakan. Pada praktikum kali ini, kita akan
mencoba 6 buah komponen, yaitu TLabel, TButton, TEdit, TRadioButton,
TRadioGroup, dan TGroupBox.
Nama Komponen Keterangan
TLabel Untuk menempatkan teks di dalam form
TEdit Untuk menerima satu baris teks yang merupakan masukan dari luar
TButton Untuk membuat tombol yang akan dipakai untuk memilih option di
dalam aplikasi
TRadioButton Untuk memberikan sekumpulan pilihan dan hanya satu yang dapat
dipilih
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 13
TGroupBox Untuk mengelompokkan komponen – komponen yang berhubungan
TRadioGroup Untuk membuat sekelompok RadioButton
Catatan:
Semua masukan yang diterima oleh komponen Edit, merupakan string. Artinya, jika
anda ingin membuat sebuah aplikasi untuk menjumlahkan bilangan yang
dimasukkan oleh user, maka anda harus merubah nilai yang diterima di dalam
kompenen Edit menjadi tipe data yang bisa dikenakan operasi penjumlahan,
misalnya integer. Untuk itu, anda perlu menggunakan fungsi StrtoInt(AString),
AString adalah variable bertipe string, yang akan mengubah string ke integer.
Sebaliknya, jika anda ingin merubah dari integer ke string, maka anda bisa
menggunakan fungsi IntToStr(AInteger), AInteger adalah sebuah variable bertipe
integer.
Latihan I
Buatlah sebuah program untuk menjumlahkan dua buah angka yang dimasukkan
oleh user. Adapun tampilannya adalah sebagai berikut:
Langkahnya:
1. Buatlah tampilan seperti gambar di atas dengan menggunakan komponen –
komponen pada tabel berikut:
Komponen Property
Name Caption Text
TLabel lbl1 Bilangan Pertaman
lbl2 Bilangan Kedua
lbl3 Hasil
TEdit EBilangan1
EBIlangan2
EHasil
TButton BJumlah Jumlah
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 14
2. Masukkan kode program berikut untuk penanganan event pada tombol
Jumlah
procedure TForm1.BJumlahClick(Sender: TObject);
var bil1, bil2: Integer;
begin
bil1 := StrToInt(EBilangan1.Text);
bil2 := StrToInt(EBilangan2.Text);
EHasil.Text := IntToStr(bil1 + bil2);
end;
Latihan II
Buatlah aplikasi untuk menghitung Pembayaran seperti di bawah ini:
Langkahnya:
1. Buatlah tampilan seperti di atas dengan menggunakan komponen -
komponen pada tabel di bawah ini:
Komponen Property
Name Caption Text
TLabel Label1 Nama
Label2 Banyak
Label3 Harga Per Kg
Label4 BAYAR
TButton THitung Hitung
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 15
TRadioGroup RadioGroup1 Jenis Buah
TEdit ENama
EBanyak
EHarga
EBayar
2. PIlih komponen RadioGroup. Kemudian untuk property items, isikan:
3. Selanjutnya ubah property column menjadi 4 agar sesuai dengan tampilan
yang diinginkan.
4. Pada komponen EHarga, property Enabled diisi False.
5. Masukkan kode program berikut untuk penanganan event pada tombol
HITUNG
procedure TForm1.THitungClick(Sender: TObject);
var banyak, harga, bayar: Real;
begin
banyak := StrToFloat(EBanyak.Text);
if RadioGroup1.ItemIndex = 0 then
begin
harga := 9000;
EHarga.Enabled := True;
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 16
EHarga.Text := FloatToStr(harga);
end
else if RadioGroup1.ItemIndex = 1 then
begin
harga := 8500;
EHarga.Enabled := True;
EHarga.Text := FloatToStr(harga);
end
else if RadioGroup1.ItemIndex = 2 then
begin
harga := 6500;
EHarga.Enabled := True;
EHarga.Text := FloatToStr(harga);
end
else if RadioGroup1.ItemIndex = 3 then
begin
harga := 9500;
EHarga.Enabled := True;
EHarga.Text := FloatToStr(harga);
end;
bayar := banyak * harga;
EBayar.Text := FloatToStr(bayar);
end;
TUGAS
Buatlah sebuah program Kalkulator sederhana seperti di bawah ini
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 17
Keterangan:
Jika RadioButton Perkalian dipilih, maka program akan menampilkan hasil perkalian
antara bilangan pertama dan bilangan kedua
Jika RadioButton Pembagian dipilih, maka program akan menampilkan hasil
pembagian antara bilangan pertama dan bilangan kedua
Jika RadioButton Penjumlahan dipilih, maka program akan menampilkan hasil
penjumlahan antara bilangan pertama dan bilangan kedua
Jika RadioButton Pengurangan dipilih, maka program akan menampilkan hasil
pengurangan antara bilangan pertama dan bilangan kedua
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 18
MODUL III
VISUAL COMPONENT LIBRARY II
Tujuan
- Mengenal komponen TCheckBox, TMemo, TListBox, TComboBox, TPanel,
TMainMenu, dan TPopUpMenu
- Membuat aplikasi menggunakan TCheckBox, TMemo, TListBox, TComboBox,
dan TPanel
- Membuat aplikasi memakai TMainMenu dan TPopUpMenu
Dasar Teori
Setelah pada praktikum sebelumnya kita belajar untuk menggunakan komponen
Label, Edit, Button, RadioBox, GroupBox, dan RadioGroup, selanjutnya kita akan
belajar menggunakan komponen lain di dalam Tab Standard Component Palette.
Adapun komponen – komponen itu adalah ChechBox, Memo, ListBox, ComboBox,
Panel, dan Menu.
Nama Komponen Keterangan
Menu Komponen menu akan memberikan cara yang mudah untuk
menjalankan kelompon perintah. Untuk menambahkan menu ke
dalam sebuah form, digunakan Menu Designer. Di dalam Delphi, ada
2 macam komponen Menu, yaitu TMainMenu dan TPopUpMenu.
Komponen TMainMenu akan membut menu yang menempel pada
titile bar dari form. Sedangkan komponen TPopUpMenu akan
membuat menu pada saat user mengklik kanan pada form atau pada
sebuah komponen.
TMemo Komponen TMemo digunakan untuk memasukkan string lebih dari
satu baris.
TCheckBox Komponen TCheckBox digunakan untuk memberikan 3 pilihan, yaitu
checked, unchecked, dan grayed. Untuk pilihan yang terakhir, anda
bisa mengaktifkannya dengan cara merubahlah property
AllowGrayed dari komponen TCheckBox menjadi True, jika anda
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 19
tidak ingin mengaktifkannya, maka ubahlah property AllowGrayed
tersebut menjadi False.
TListBox Komponen TListBox digunakan untuk menampilkan daftar item dan
anda bisa memilih item – item tersebut. Berikut beberapa property
dari komponen TListBox yang perlu anda ketahui:
– Property Items: digunakan untuk mengisi daftar item yang bisa
dipilih
– Property ItemIndex: menyatakan indeks dari iten yang terpilih,
secara default dimulai dengan angka 0.
– Property MultiSelect: menyatakan apakah anda dapat memilih
lebih dari satu pilihan pada saat yang bersamaan atau tidak.
– Property Sorted: menyatakan apakah daftar pilihan akan terurut
secara alfabetis atau tidak.
TComboBox Komponen TComboBox merupakan kombinasi antara komponen Edit
dengan komponen TListBox.
TPanel Komponen TPanel merupakan suatu kontainer, untuk
mengelompokkan komponen, seperti halnya TGroupBox.
Latihan I
Buatlah sebuah aplikasi dengan tampilan seperti di bawah ini:
Keterangan:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 20
– ComboBox akan menyediakan pilihan teks untuk dituliskan ke Memo
– ListBox akan menyediakan pilihan warna untuk Memo
– GroupBox Font, menyediakan pilihan untuk style teks yang akan ditampilkan di
Form.
Langkah – langkahnya:
1. Tambahkan komponen Panel.
2. Kosongkan property Captionnya ubah property Name menjadi Panel1.
3. Tambahkan komponen ComboBox, ListBox, dan GroupBox pada Panel1.
4. Ubah property Name dari ComboBox menjadi cbbCombo.
5. Pada property Items dari cbbCombo, isikan teks – teks berikut:
FMIPA
FIB
FKU
6. Kosongkan property Texk dari cbbCombo.
7. Ubah property Name dari komponen ListBox menjadi lstListWarna
8. Pada property Items dari lstListWarna, isikan teks – teks berikut:
Kotak Pesan Warna Biru
Kotak Pesan Warna Merah
Kotak Pesan Warna Kuning
9. Tambahkan komponen CheckBox pada GroupBox, kemudian ubah
property Name menjadi chkBiru dan Caption menjadi Teks Warna Biru
10. Ulangi lagkah 9, namun ubah property Name menjadi chkMiring dan
Caption menjadi Teks Miring.
11. Ulangi langkah 9, namun ubah property Name menjadi chkTebal dan
Caption menjadi Teks Tebal.
12. Tambahkan komponen Panel, kemudian ubah property Name menjadi
Panel2, kosongkan property Caption-nya, dan isikan 10 pada property
BorderWidth.
13. Tambahkan komponen Memo ke dalam Panel2, kemudian ubah Property
Name menjadi mmo1 dan Align menjadi allClient.
14. Tambahkan kompone Panel, kemudian ubah property Name menjadi
Panel3 dan kosongkan property Caption-nya.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 21
15. Tambahkan 3 buah komponen Button pada Panel3, yang masing – masing
diberi nama btnIsiPesan, btnUbahFont, dan btnKeluar. Adapun Caption
untuk masing – masing button adalah Isi Pesan, Ubah Font, dan Keluar.
BtnIsiPesan akan digunakan untuk mengisi 2 baris teks ke dalam mmo1,
dimana baris pertama berasal dari cbbCombo, sedangkan baris kedua
menyatakan indeks teks baris pertama di dalam cbbCombo. Selain itu,
button ini juga akan mengubah warna dari mmo1 sesuai dengan warna
yang dipilih pada lstListWarna.
BtnUbahFont digunakan untuk mengubah fornt di dalam Form1
berdasarkan pilihan CheckBox di GroupBox.
BtnKeluar digunakan untuk mengakhiri program.
16. Tambahkan event handler untuk masing – masing button sesuai dengan
penjelasan di point 15.
Untuk btnIsiPesan
procedure TForm1.btnIsiPesanClick(Sender: TObject);
begin
mmo1.Clear;
mmo1.Lines.Add(cbbCombo.Text);
mmo1.Lines.Add('String dari combobox no. ' +
IntToStr(cbbCombo.ItemIndex));
case lstListWarna.ItemIndex of
0: mmo1.Color := clRed;
1: mmo1.Color := clAqua;
2: mmo1.Color := clYellow;
end;
end;
17. Untuk btnUbahFont
procedure TForm1.btnUbahFontClick(Sender: TObject);
begin
if chkBiru.Checked then
Form1.Font.Color := clBlue
else
Form1.Font.Color := clWindowText;
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 22
Form1.Font.Style := [];
if chkMiring.Checked then
Form1.Font.Style := [fsItalic];
if chkTebal.Checked then
Form1.Font.Style := [fsBold];
end;
18. Untuk btnKeluar
procedure TForm1.btnKeluarClick(Sender: TObject);
begin
Application.Terminate;
end;
Latihan II
Buatlah sebuah program dengan mengikuti langkah – langkah berikut:
1. Buat sebuah aplikasi baru, ubah property Caption Form menjadi MENU
2. Tambahkan komponen MainMenu, PopUpMenu, dan Edit. MainMenu dan
PopUpMenu merupakan komponen non-Visual, sehingga bisa anda
letakkan di mana saja.
3. Klik ganda pada komponen MainMenu tersebut untuk membuka Menu
Designer. Menu Designer digunakan untuk menambahkan item – item
yang ingin anda tampilkan dalam menu. Cara lain untuk memunculkan
adalah melalui property Items pada komponen MainMenu.
4. Selanjutnya isikan item pertama Menu Designer dengan &Data. Tanda &
digunakan agar menu tersebut bisa dipilih dengan menekan Ctrl+D (huruf
dibelakang tanda &). Kemudian, lengkapi item dalam menu tersebut dengan:
&Nama Anda
&Alamat Anda
&Prodi Anda
Sedemikian sehingga tampilan menu-nya seperti pada gambar di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 23
5. Klik ganda item Nama Anda, sehingga jendela Code Editor muncul,
kemudian masukkan kode program berikut:
Edit1.Text := 'Bambang Pamungkas';
6. Lakukan hal yang sama untuk item Alamat Anda dan Prodi Anda, adapun
untuk item Alamat Anda, ketikkan kode program berikut:
Edit1.Text := 'Jakarta';
Sedangkan untuk item Prodi Anda, ketikkan kode program berikut:
Edit1.Text := 'D3 Komputer dan Sistem Informasi';
7. Dengan cara yang sama, lakukan pada komponen PopUpMenu. Isikan pada
menu Designer item – item berikut:
Teks Warna Biru
Teks Warna Hijau
8. Pada setiap item, secara berturut – turut masukkan kode program berikut:
Edit1.Font.Color := clBlue;
Edit1.Font.Color := clGreen;
9. Pada latihan kali ini, kita akan mencoba menambahkan menu klik kanan
pada Form, sehingga pada property PopupMenu form anda, isikan nama
komponen PopUpMenu yang telah anda tambahkan sebelumnya. Untuk
mudahnya, anda tinggal klik pada combo yang ada untuk memperoleh
nama komponen PupUpMenu yang sudah anda tambahkan.
10. Setelah selesai, coba anda jalankan. Kemudian amatilah apa yang terjadi.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 24
Latihan III
Kadang kala kita menjumpai menu yang memiliki daftar drop-down di samping
sebuah item menu. Daftar menu yang muncul di samping sebuah item menu kita
sebut sebagai SubMenu. Untuk menambahkan sebuah SubMenu, langkah yang
perlu anda lakukan adalah:
1. Buka kembali aplikasi menu yang pernah anda buat
2. Klik ganda pada Komponen MainMenu, untuk menampilkan Menu
Designer.
3. Pada item Nama Anda, klik kanan, kemudian pilih Create Submenu. Isikan
item pertama dengan Nama Depan, selanjutnya item kedua, isikan dengan
Nama Belakang. Sebelumnya, hapus kode program pada item Nama
Anda. Adapun tampilannya akan menjadi seperti gambar di bawah ini:
4. Selanjutnya, isikan kode program berikut ini untuk item Nama Depan dan
Nama Belakang
Edit1.Text := 'Bambang';
Edit2.Text := 'Pamungkas';
Catatan:
Pada komponen PopUpMenu, anda juga bisa menambahkan SubMenu dengan cara
yang sama seperti anda menambahkan SubMenu pada komponen MainMenu.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 25
MODUL IV
VISUAL COMPONENT LIBRARY III
Tujuan
- Mengenal TMaskEdit, TBitBtn, TImage, dan TShape pada kategori Additional
- Mengenal komponen TDateTimePicker dan TMonthCalendar pada kategori
Win32
- Mengenal komponen TTimer pada kategori System
- Membuat aplikasi dengan meggunakan komponen TMaskEdit, TBitBtn,
TImage, TShape, TDateTimePicker, TMonthCalendar, dan TTimer.
Dasar Teori
Setelah mempelajari beberapa komponen di tab Standard, kita akan
mencoba mengenal beberapa komponen di kategori Additional. Pada tab Additional
ini, komponen yang akan kita pelajari adalah komponen TMaskEdit, TBitBtn,
Timage, dan TShape.
TMaskEdit
Komponen TMaskEdit digunakan untuk menformat data masukan. Agar
mudah dimengerti, sekarang coba anda buat aplikasi baru. Kemudian tambahkan
komponen Label dan EditMask. Aturlah komponen – komponen yang anda
tambahkan sedemekian sehingga seperti pada gambar di bawah ini:
Sekarang kita akan coba memberikan format pada komponen MaskEdit yang telah
anda tambahkan ke dalam Form1. Langkahnya adalah:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 26
1. Pilihlah komponen MaskEdit yang sudah anda tambahkan ke dalam form,
misal komponen MaskEdit1.
2. Klik property EditMask, selanjutnya akan muncul jendela Input Mask Editor
Keterangan:
Input Mask: Field ini digunakan untuk mendefinisikan mask pada kotak edit. Mask
terdiri dari tiga bagian yang dipisahkan oleh karakter titik koma (;). Ketiga field itu
adalah:
• Field pertama adalah mask. Mask dapat anda buat sendiri atau menggunakan
mask yang sudah ada (Sample Mask).
• Field kedua adalah karakter yang menyatakan apakah karakter literal pada
mask akan disimpan di dalam data atau tidak.
• Field ketiga adalah karakter untuk menyatakan spasi di dalam mask.
Save Literal Characters: Jika diaktifkan, maka karakter literal akan tersimpan di
dalam data.
Character For Blanks: Menyatakan karakter yang dipakai sebagai blank (karakter
kosong) di dalam mask. Blank digunakan user untuk mengisikan data.
Test Input: Digunakan untuk mngetes mas yang telah dibuat.
Sample Mask: Digunakan untuk menampilkan mask sudah ada.
Masks: Untuk menampilkan kotak dialog Open Mask File dan dapat memilih contoh
– contoh mask yang sudah ada.
Berikut adalah daftar karakter – karakter yang dapat dipakai pada field pertama
dari mask:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 27
Karakter Keterangan
! Jika ada karakter !, karakter – karakter optional pada kotak
edit akan dinyatakan sebagai leading blank. Jika tidak ada,
maka dinyatakan sebagai trailing blank.
> Karakter ini menyatakan semua karakter yang mengikutinya
adalah huruf besar sampai akhir mask atau sampai
ditemukan karakter <
< Karakter ini menyatakan semua karakter yang mengikutinya
adalah huruf kecil sampai akhir mask atau sampai ditemukan
karakter >
<> Jika kedua karakter ini ditemukan bersama – sama pada
sebuah mask, maka tidak ada permeriksaan huruf kecil dan
kapital serta data diformat sesuai dengan input yang
diberikan oleh user.
\ Karakter – karakter sesudah karakter \ merupakan karakter
literal. Karakter ini dipakai untuk karakter – karakter yang
berlaku sebagai literal pada data.
L Karakter ini menyatakan bahwa pada posisi tersebut, hanya
menerima karakter (A – Z atau a – z).
l Karakter ini menyatakan bahwa pada posisi tersebut, hanya
menerima karakter tetapi tidak harus ada.
A Karakter ini menyatakan bahwa pada posisi tersebut,
menerima karakter alphanumerik (A – Z, a – z, 0 – 9).
a Karakter ini menyatakan bahwa pada posisi tersebut,
menerima karakter alphanumerik tetapi tidah harus ada.
C Karakter ini menyatakan bahwa pada posisi tersebut,
menerima karakter apa saja.
0 Karakter ini menyatakan bahwa pada posisi tersebut, hanya
menerima karakter numerik (0 – 9).
9 Karakter ini menyatakan bahwa pada posisi tersebut, hanya
menerima karakter numerik tetapi tidak harus ada.
# Karakter ini menyatakan bahwa pada posisi tersebut,
menerima karakter numerik atau tanda plus (+) atau tanda
minus (-), tetapi boleh kosong.
: Karakter ini digunakan untuk memisahkan jam, menit, dan
detik
/ Karakter ini digunakan untuk memisahkan tanggal, bulan, dan
tahun pada data tanggal
_ Karater _ digunakan untuk menyisipkan spasi ke dalam teks.
Jika user memasukkan karakter ke dalam field, maka kursor
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 28
akan melewati karakter _
3. Dari contoh aplikasi yang dibuat:
MaskEdit1 akan menerima data nama. Data nama terdiri dari karakter
alphabetis (tidak ada angka) dan panjangnya bervariasi (misal: maksimal 20
karakter). Oleh karena itu, mask yang cocok adalah:
llllllllllllllllllll;1;_
MaskEdit2 akan digunakan untuk mengisi data nomor telepon. Data telepon
biasanya didahului oleh kode area yang merupakan deretan 3 atau 4 angka.
Panjang maksimum nomor telepon, misalnya adalah 7. Oleh karena itu,
mask edit yang cocok adalah:
!\(9999\) 999 9999;1;_
Latihan 1
Dari aplikasi yang sudah anda buat, coba anda tambahkan komponen TMaskEdit
untuk menerima masukan kode pos yang terdiri dari 6 digit. Tambahkan pula
komponen MaskEdit untuk menerima masukan data tanggal yang berformat
dd/mm/yyyy.
TBitBtn
Komponen TBitBtn adalah komponen button yang mempunya gambar kecil
pada tampilannya. Perlakuan pada komponen TBitBtn sama dengan kompenen
Button. Hanya saja, di komponen ini ada property Kind untuk menentukan tipenya,
dan property Glyph untuk menentukan gambar apa yang bisa anda tampilkan di
komponen TBitBn tersebut.
Coba anda tambahkan sebuah komponen TBitBtn ke dalam aplikasi yang
tadi sudah anda buat. Kemudian ubah property Kind menjadi bkClose. Perhatikan
apa yang terjadi. Selanjutnya masukkan sebuah event handler ke dalam komponen
BitBtn tersebut agar pada saat user mengkliknya, maka aplikasi akan ditutub.
Catatan:
Gambar yang bisa diteima di komponen TBitBtn adalah gambar bertipe *.bmp
(bitmap).
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 29
TImage
Sesuai dengan namanya, komponen TImage digunakan untuk menampilkan
gambar. Adapun property dari komponen ini yang bisa anda ubah nilainya adalah
– Picture : Property ini digunakan untuk menampilkan picture editor
Untuk memilih sebuah gambar, anda bisa mengklik tombol Load. Kemudian, klik
tombol OK jika anda yakin bahwa gabar tersebut adalah gambar yang ingin
tampilkan.
– Strech: Property ini mempunyai dua buah nilai. Jika True, maka gambar akan
menyesuaikan ukuran komponen TImage. Sebaliknya, jika False, maka gambar
akan ditampilkan sesuai dengan ukuran sebenarnya.
Catatan:
Secara default, komponen TImage hanya bisa menampilkan gambar bertipe BitMap
(*.bmp) dan JPEG (*.jpg).
TShape
Komponen TShape digunakan untuk menampilkan bentuk geomertis ke
dalam sebuah form. Adapun property dari komponen ini yang bisa anda ubah
nilainya adalah:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 30
– Shape : Property ini digunakan untuk merubah bentuk dari objek geometris
yang ditampilkan di form. Ada 6 bentuk geometris yang disediakan oleh
komponen Shape, yaitu: Circle, Ellipse, Rectangle, Round Rectangle, Square,
dan Round Square.
Pertanyaanya adalah bagaimana untuk memasukkan object geometris berupa
segitiga?
Tugas
Buatlah sebuah form untuk memasukkan data mahasiswa yang terdiri dari NIM,
Nama, Tempat Lahir, Tanggal Lahir, Alamat, Kode Pos, dan Nomor Telepon.
Desainlah sedemiakn rupa sehingga menarik perhatian user.
Petunjuk: Gunakan komponen TMaskEdit.
Setelah anda mengenal beberapa komponen di kategori Additional, sekarang
kita akan mencoba untuk mengenali beberapa komponen yang ada di kategori
Win32, yaitu komponen TDateTimePicker dan TMonthCalendar.
TDateTimePicker
Komponen TDateTimePicker digunakan untuk menampilkan sebuah listbox
untuk memasukkan jam atau tanggal. Beberapa property dari komponen ini yang
bisa anda ubah nilainya adalah:
– Kind: Property ini digunakan untuk menentukan apa yang akan ditampilkan oleh
komponen ini, Ada dua pilihan, yaitu dtkDate dan dtkTime. Jika anda memilih
dtkDate, maka komponen ini akan menampilkan tanggal, sebaliknya jika anda
memilih dtkTime, maka komponen ini akan menampilkan waktu.
– DateFormat: Property ini digunakan untuk menentukan format tanggal yang
akan ditampilkan, ada dua pilihan, yaitu dtShort dan dtLong.
– Format: Dengan menggunakan property ini, anda bisa memasukkan tanggal dan
waktu sekaligus. Tentunya dengan memasukkan beberapa elemen di bawah ini:
Elemen Keterangan
d Elemen ini akan menampilkan tanggal, satu digit atau dua digit.
dd Elemen ini akan menampilkan tanggal dalam dua digit.
ddd Elemen ini akan menampilkan nama hari yang disingkat.
dddd Elemen ini akan menampilkan nama hari secara penuh.
h Elemen ini akan menampilkan jam satu atau dua digit dalam
format 12 jam.
hh Elemen ini akan menampilkan jam dua digit dalam format 12 jam.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 31
H Elemen ini akan menampilkan jam satu atau dua digit dalam
format 24 jam.
HH Elemen ini akan menampilkan jam dua digit dalam format 24 jam.
m Elemen ini akan menammpilkan menit satu atau dua digit.
mm Elemen ini akan menampilkan menit dua digit.
M Elemen ini akan menampilkan nomor bulan , satu digit atau dua
digit.
MM Elemen ini akan menampilkan nomor bulan dua digit.
MMM Elemen ini akan menampilkan nama bulan yang disingkat.
MMMM Elemen ini akan menampilkan nama bulan secara penuh.
t Elemen ini akan menampilkan satu huruf AM/PM (misal jika waktu
sekarang adalah AM, maka yang ditampilkan adalah A).
tt Elemen ini akan menampikan huruf AM/PM.
yy Elemen ini akan menampilkan bilangan tahun yang disingkat,
misal 2001 akan disingkat menjadi 01.
yyyy Elemen ini akan menampilkan bilangan tahun secara penuh.
TMonthCalendar
Komponen ini digunakan untuk menampilkan tanggal dalam satu bulan.
Adapun beberapa property dari komponen ini yang bisa anda ubah nilainya adalah:
– MultiSelect: Property ini jika bernilai true, maka tanggal di komponen
MonthCalendar bisa dipilih lebih dari satu. Sebaliknya jika false, maka anda
hanya bisa memilih satu buah tanggal saja.
– WeekNumbers: Property ini digunakan untuk menampilkan nomor minggu
dalam satu tahu pada bulan terpilih.
– FirstDayOfWeek: Property ini digunakan untuk mengubah hari pertama dati
komponen MinthCalendar. Secara default, nilai property ini akan sama dengan
tanggal yang ada di system (komputer anda).
Latihan 2
Buatlah form seperti di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 32
Langkahnya:
1. Tambahkan komponen TDateTimePicker.
2. Ubah property Name menjadi dtp1.
3. Tambahkan property TMonthCalendar.
4. Ubah property Name menjadi cal1.
5. Selanjutnya, tambahkan even handler onClick pada komponen
MonthCalendar.
6. Isikan kode program di bawah ini:
dtp1.Date := cal1.Date;
7. Jalankan aplikasi yang telah anda buat
Perhatikan apa yang terjadi!
Komponen terakhir yang akan kita kenal pada modul ini adalah TTimer.
Komponen ini terletak pada kategori System. Komponen TTimer digunakan sebagai
pemicu suatu event, baik itu hanya sekali maupun berulang – ulang.
Latihan 3
Pada latihan kali ini, kita akan mebuat sebuah tulisan berjalan. Langkahnya:
1. Buatlah form seperti di bawah ini
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 33
2. Tambahkan sebuah komponen TTimer.
3. Ubah property Name menjadi tmr1.
4. Tambahkan sebuah komponen Label.
5. Ubah property Caption menjadi FMIPA UGM.
6. Tambahkan event handler OnTimer pada komponen Timer, kemudian isikan
kode program berikut:
if lbl1.Left < Form1.Width then
lbl1.Left := lbl1.Left + 1
else
lbl1.Left := 0 - lbl1.Width;
7. Coba jalankan program tersebut, perhatikan apa yang terjadi!
8. Jika tulisan berjalan terlalu lambat, anda bisa mengubah nilai property
Interval pada komponen Timer menjadi nilai yang lebih kecil.
Latihan 4
Selanjutnya, masih berkaitan dengan komponen timer, kita akan mencoba
membuat sebuah jam digital. Langkah – langkahnya:
1. Buatlah sebuah form seperti di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 34
2. Tambahkan komponen TTimer.
3. Ubah property Name menjadi tmr1.
4. Tambahkan kompone Label.
5. Ubah property Name menjadi lbl1.
6. Ubah Font dari lbl1 sehingga terlihat lebih jelas. Gunakan property Font pada
komponen Label. Jenis font dan ukurannya bebas, sesuai dengan keinginan
anda.
7. Tambahkan event handler OnTimer pada komponen Timer, kemudian isikan
kode program berikut:
lbl1.Caption := TimeToStr(Now);
8. Jalankan program dan perhatikan apa yang terjadi.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 35
MODUL V
FILE
Tujuan
- Mengenal File
- Mengenal File Teks dab File Biner
- Membuat aplikasi yang menggunakan File Teks dan File Biner
Dasar Teori
File adalah kumpulan data yang tersusun rapi dan disimpan di media
penyimpanan, seperti Flash Disk, Hard Disk, CD-ROM, Disket, dan lain – lain. File
dapat digunakan untuk menyimpan informasi setup, menyimpan data sementara,
dan mengirimkan data antar program. Adapu Delphi, telah menyediakan fasilitas –
fasilitas untuk penanganan file yang mudah untuk digunakan.
File mempunyai atribut – atribut. Beberapa diantaranya adalah:
Elemen Konstanta Delphi Keterangan
Read-Only faReadOnly File dapat dibaca, tetapi tidak dapat
diubah
Hidden faHidden File tidak terlihat pada listing direktori
System faSysFile File untuk sistem dan tidak terlihat pada
listing direktori
Archive faArchive Atribut ini akan berubah menjadi off jika
file sudah di back-up
Atribut – atribut tersebut dapat diset on dan off. Adapun fungsi yang disediakan
Delphi untuk mengetahui dan merubah atribut file adalah FileGetAttr dan
FileSetAttr.
Di dalam Delphi, dikenal dua jenis file, yaitu file teks dan file biner. Pada
modul ini, kita akan membahas file teks terlebih dahulu.
File Teks
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 36
File Teks berisi karakter – karakter ASCII. Data pada file teks disimpan dan
dibaca secara sekuensial satu baris satu baris. Setip baris akan diakhiri dengan
karakter Carriage Return ($D) dan Line Feed ($A).
Agar bisa menggunakan file, pertama perlu dideklarasikan sebuah variabel
bertipe TextFile, misal:
var MyFile : TextFile;
Kemudian, variabel bertipe TextFile tersebut dihubungkan dengan file sebenarnya
dengan mengunakan procedure AssignFile. Contoh:
AssignFile(MyFile, “C:\Coba.Text”);
Beberapa procedure dan function yang digunakan pada file teks:
Procedure Keterangan
Rewrite Procedure ini digunakan untuk membuat dan membuka file baru.
Jika ada file dengan nama yang sama, maka file yang lama akan
diganti dengan file yang baru.
Writeln Procedure ini digunakan untuk menuliskan teks ke dalam file dan
menambahkan karakter CR dan LF pada akhir baris.
CloseFile Procedure ini digunakan untuk mebutup file dan menyimpan
perubahan yang dilakukan.
Reset Procedure ini digunakan untuk membuka file yang sudah ada.
Jika file diakses dengan menggunakan procedure ini, maka file
akan berada dalam modus Read Only dan hanya dapat dibaca
saja.
Readln Procedure ini digunakan untuk membaca sebuah baris dari file
yang sudah dibuka, kemudian memindahkan penunjuk file ke
baris selanjutnya jika penunjuk file belum berada di akhir file.
Eof Function ini digunakan sebagai penunjuk apakah penunjuk file
sudah berada di akhir file atau belum
Latihan 1
1. Buatlah aplikasi seperti di bawah ini
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 37
2. Tambahkan komponen – komponen: 2 Label, 2 Edit, dan 3 Button.
3. Untuk Button1 (dengan Caption Simpan), tambahkan event handler OnClick
dengan kode program berikut:
procedure TForm1.Button1Click(Sender: TObject);
var OutFile: TextFile;
begin
AssignFile(OutFile, 'C:\Tes.txt');
Rewrite(OutFile);
Writeln(OutFile, Edit1.Text);
CloseFile(OutFile);
end;
4. Untuk Button2 (dengan caption Baca)
procedure TForm1.Button2Click(Sender: TObject);
var InFile: TextFile;
str: string;
begin
AssignFile(InFile, 'C:\Tes.txt');
Reset(InFile);
Readln(InFile, str);
Edit2.Text := str;
CloseFile(InFile);
end;
5. Sedangkan Button3 digunakan untuk menghentikan program.
6. Perhatikan apa yang terjadi.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 38
Latihan 2
1. Buatlah sebuah folder dengan nama File -
2. Di dalam folder tersebut, buatlah sebuah file teks dan beri nama file teks
tersebut dengan Latih.
3. Isikan teks – teks berikut ke dalam file Latih.txt tersebut:
FMIPA
FKU
FKG
FISIPOL
FT
FE
4. Buatlah aplikasi seperti di bawah ini:
5. Simpan aplikasi anda di dalam folder yang telah anda buat pada langkah 1.
6. Tambahkan komponen – komponen: 1 Label, 1 ListBox, dan 2 Button.
7. Tambahkan event handler untuk Button1 dengan caption Baca
procedure TForm1.Button1Click(Sender: TObject);
var FileName: string;
InFile: TextFile;
str: string;
begin
FileName := ExtractFilePath(Application.ExeName) +
'Latih.txt';
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 39
AssignFile(InFile, FileName);
Reset(InFile);
ListBox1.Clear;
while not(Eof(InFile)) do
begin
Readln(InFile, str);
ListBox1.Items.Add(str);
end;
CloseFile(InFile);
end;
8. Sedangkan Button2 digunakan untuk menghentikan program.
9. Perhatikan apa yang terjadi.
File Biner
Semua file yang bukan file teks merupakan file biner. File biner berisikan
informasi biner yang ditulis oleh program (bukan diketik sendiri seperti pada file
teks). File biner adalah file bertipe, di dalamnya dapat bertipe integer, real, string,
dan lain – lain.
Seperti halnya file teks, file biner juga memiliki beberapa procedure yang
bisa digunakan untuk mengolah file. Beberapa diantaranya adalah:
Procedure Keterangan
AssignFile Procedure ini digunakan untuk menghubungkan nama file
dengan variabel file.
Rewrite Procedure ini digunakan untuk membuat dan membuka file baru.
Jika ada file dengan nama yang sama, maka file yang lama akan
diganti dengan file yang baru.
Write Procedure ini digunakan untuk menuliskan record ke dalam file.
CloseFile Procedure ini digunakan untuk mebutup file dan menyimpan
perubahan yang dilakukan.
Reset Procedure ini digunakan untuk membuka file yang sudah ada.
Read Procedure ini digunakan untuk membaca record dari file.
Eof Function ini digunakan untuk menunjukkan akhir dari file.
Seek Procedure ini digunakan untuk menggerakkan pointer ke posisi
tertentu. Pada file teks, hal ini tidak bisa dilakukan, karena file
teks hanya bisa diakses secara sekuensial.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 40
Latihan 3
1. Buatlah sebuah aplikasi baru.
2. Tambahkan komponen – komponen berikut, 7 Label, 5 Edit, 1 MaskEdit, 2
GroupBox, dan 5 Button.
3. Aturlah komponen – komponen tersebut sehingga tampak seperti gambar di
bawah ini:
4. Namakan setiap Button dengan Bsebelum, Bsesudah, Bsimpan, Bbaru, dan
Bkeluar.
5. Ubah property EditMask dari komponen MaskEdit menjadi \M\M\D\-9999;1;_
6. Simpanlah aplikasi di dalam folder FileBiner -
7. Perhatikan alur aplikasi yang akan anda buat berikut ini:
Nomor record dimulai dari 0, bukan 1.
Pada saat program pertama kali dijalankan, akan dicek apakah file sudah
ada. Jika sudah ada, maka tampilkan record pertama. Jika tidak ada, maka
kotak – kotak edit dibersihkan. Selengkapnya lihat di procedure FormCreate.
Tombol Sebelum digunakan untuk melihat record sebelum record yang
sedang ditunjuk.
Tombol Sesudah digunakan untuk melihat record selanjutnya.
Tombol Simpan digunakan untuk menyimpan data pada kotak – kotak edit
ke dalam file, tombol ini dipakai setelah memakai tombol baru.
Tombol Baru akan membersihkan kotak – kotak edit dan mencari akhir dari
file, sehingga data yang dimasukkan menjadi data terakhir.
Jika ingin melakukan perubahan, tunjuk record tertentu, kemudian setelah
perubahan dilakukan, tekan tombol Simpan.
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 41
Kotak isian UTS, UAS, dan Tugas jika tidak diisi, maka nilainya adalah 0.
8. Listing lengkap program adalah sebagai berikut:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Mask;
type
TForm1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
grp1: TGroupBox;
grp2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
MaskEdit1: TMaskEdit;
BSebelum: TButton;
BSesudah: TButton;
BSimpan: TButton;
BBaru: TButton;
BKeluar: TButton;
procedure FormCreate(Sender: TObject);
procedure BSebelumClick(Sender: TObject);
procedure BSesudahClick(Sender: TObject);
procedure BBaruClick(Sender: TObject);
procedure BSimpanClick(Sender: TObject);
procedure BKeluarClick(Sender: TObject);
private
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 42
procedure BacaRecord; // Tambahkan Sendiri
procedure SimpanRecord; // Tambahkan Sendiri
procedure TampilkanRecord; // Tambahkan Sendiri
procedure HapusData; // Tambahkan Sendiri
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
Mahasiswa = record
NIM: string[5];
Nama: string[20];
KodeMK: string[8];
UTS: Real;
UAS: Real;
Tugas: Real;
end;
var
FileMhs: file of Mahasiswa;
DataMhs: Mahasiswa;
NamaFile: string;
RecSekarang: Longint;
{ TForm1 }
procedure TForm1.BacaRecord;
begin
Read(FileMhs, DataMhs);
end;
procedure TForm1.HapusData;
begin
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 43
Edit1.Clear;
Edit2.Clear;
MaskEdit1.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
end;
procedure TForm1.SimpanRecord;
begin
with DataMhs do
begin
NIM := Edit1.Text;
Nama := Edit2.Text;
KodeMK := MaskEdit1.Text;
if Edit3.Text <> '' then UTS := StrToFloat(Edit3.Text) else UTS :=
0;
if Edit4.Text <> '' then UAS := StrToFloat(Edit4.Text) else UAS :=
0;
if Edit5.Text <> '' then Tugas := StrToFloat(Edit5.Text) else
Tugas := 0;
end;
Write(FileMhs, DataMhs);
end;
procedure TForm1.TampilkanRecord;
begin
with DataMhs do
begin
Edit1.Text := NIM;
Edit2.Text := Nama;
MaskEdit1.Text := KodeMK;
Edit3.Text := FloatToStr(UTS);
Edit4.Text := FloatToStr(UAS);
Edit5.Text := FloatToStr(Tugas);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 44
HapusData;
RecSekarang := 0;
NamaFile := ExtractFilePath(Application.ExeName) + 'Mhs.dat';
AssignFile(FileMhs, NamaFile);
if FileExists(NamaFile) then
begin
Reset(FileMhs);
if not Eof(FileMhs) then
begin
BacaRecord;
TampilkanRecord;
end;
end
else
begin
HapusData;
Rewrite(FileMhs);
end;
end;
procedure TForm1.BSebelumClick(Sender: TObject);
begin
if RecSekarang - 1 < 0 then
begin
RecSekarang := 0;
Seek(FileMhs, RecSekarang);
ShowMessage('Ini adalah awal dari file');
end
else
begin
RecSekarang := RecSekarang - 1;
Seek(FileMhs, RecSekarang);
BacaRecord;
Seek(FileMhs, RecSekarang);
TampilkanRecord;
end;
end;
procedure TForm1.BSesudahClick(Sender: TObject);
begin
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 45
RecSekarang := RecSekarang + 1;
Seek(FileMhs, RecSekarang);
if not Eof(FileMhs) then
begin
BacaRecord;
Seek(FileMhs, RecSekarang);
TampilkanRecord;
end
else
begin
RecSekarang := RecSekarang - 1;
Seek(FileMhs, RecSekarang);
ShowMessage('Ini adalah akhir dari file');
end;
end;
procedure TForm1.BBaruClick(Sender: TObject);
begin
repeat
RecSekarang := RecSekarang + 1;
Seek(FileMhs, RecSekarang);
until Eof(FileMhs);
HapusData;
SimpanRecord;
Seek(FileMhs, RecSekarang);
end;
procedure TForm1.BSimpanClick(Sender: TObject);
begin
SimpanRecord;
TampilkanRecord;
end;
procedure TForm1.BKeluarClick(Sender: TObject);
begin
SimpanRecord;
CloseFile(FileMhs);
Application.Terminate;
end;
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 46
end.
Tugas
Buatlah sebuah program untuk membaca sebuah file teks dan menampilkan
hasilnya ke dalam komponen TMemo
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 47
MODUL VI
DATABASE INTERBASE DAN KOMPONEN TABEL
Tujuan
- Memahami database Interbase dalam Delphi
- Dapat membuat tabel dengan Interbase
- Dapat membuat program dengan Delphi untuk mengakses database
Interbase
Dasar Teori
Database
Pada pertemuan sebelumnya, anda telah mengenal tipe data file untuk
menyimpan data di luar program. Selain menggunakan tipe data file, sebenarnya
kita juga bisa menyimpan data, di luar program, dengan menggunakan database.
Berdasarkan lisensinya, database dibedakan menjadi database komersial
dan database yang free dan open source. Adapun contoh database komersial
antara lain Interbase, Oracle, SQL Server. Sedangkan contoh database free dan
open source antara lain adalah Firebird dan PostgreSQL.
Selain itu database juga dibedakan berdasarkan kebutuhan akan server.
Contoh database yang memerlukan server antara lain Firebird, Interbase, MySQL,
Oracle, SQL Server. Adapun contoh database yang tidak memerlukan server antara
lain Paradox, Access.
Interbase
Borland Interbase 7.1 adalah database transaksional yang ekonomis dan
memiliki performa yang tinggi, dan banyak digunakan oleh jutaan pengguna di
seluruh dunia. Dengan mengkombinasi instalasi yang mudah, crash-recovery secara
otomatis, dan perawatan yang sangat minim, Interbase menjadi sangat sesuai
untuk embedding dalam aplikasi terdistribusi. Dukungan terhadap multiprosesor
dan arsitektur yang canggih menjadikannya sebuah pilihan yang tepat untuk
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 48
aplikasi bisnis dengan kekuatan tinggi yang memiliki banyak pengguna yang
terkoneksi. Kekuatannya, yaitu kemudahan penggunaan, dukungan terhadap
platform Windows, Linux, dan Solaris (termasuk pengembangan dalam lingkungan
seperti Borland Delphi, C++ Builder, dan Kylix), membuat Interbase menjadi favorit
bagi para pengembang.2
Menjalankan Server Interbase
– Buka jendela Interbase server manager melalui menu: All Programs > Interbase
> Interbase server manager
– Kemudian perhatikan status Interbase server
– Jika sudah Running, maka biarkan saja. Akan tetapi, jika masih Stopped,
jalankan server interbase dengan cara menekan tombol Start
IBConsole
Untuk mempermudah pengelolaan database interbase, ada sebuah tool
yang disediakan oleh Interbase dan disebut dengan IBConsole. Untuk menjalankan
IBConsole buka menu All Programs > Interbase > IBConsole. Selanjutnya akan
muncul dialog seperti di bawah ini:
2 Dafferianto, BORLAND INTERBASE 7.1,
www.dafferianto.web.ugm.ac.id/mystudy/database/Tugas%20Interbase.doc
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 49
– Di dalam IBConsole, ada 2 bagian utama yang perlu anda ketahui. Bagian
pertama merupakan tree server interbase, termasuk database yang terdaftar,
terletak di sebelah kiri.
– Bagian kedua, yang terletak di sebelah kanan, merupakan detil dari setiap node.
Mendaftarkan server di dalam IBConsole
Sebelum kita bisa membuat database di dalam Interbase, terlebih dahulu
kita harus mendaftarkan server di dalam server ke dalam IBConsole. Adapun
caranya adalah:
– Double Click Interbase Servers
– Kemudian akan muncul Dialog Register Server and Connect
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 50
– Di dalam dialog tersebut, pilih Local Server.
– Anda juga bisa memilih Remote server jika server interbase tidak berada di
satu komputer yang sama tapi terhubung jaringan.
– Isikan username: sysdba; password: masterkey (Ingat: case sensitive!!!)
– Jika server sudah terdaftar dan sudah connect, maka akan muncul seperti di
bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 51
– Klik tanda + untuk meng-ekspand tree Local Server
– Kemudian anda akan mendapati Node Database, Backup, Certificates, Server
Log, dan Users
Membuat Database Baru
Adapun langkah untuk membuat database baru adalah:
– klik kanan pada node Database
– Kemudian anda bisa memilih register database atau create database
– Register database: berarti anda sudah mempunyai file database interbase
– Create database: berarti anda membuat database baru
– Karena sekarang kita akan membuat database baru, berarti anda pilih Create
Database
– Selanjutnya akan muncul jendela Create Database, kemudian isi sesuai dengan
gambar di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 52
– Jika sudah, klik tombol OK. Selanjutnya di dalam IBConsole akan tampil seperti
di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 53
Membuat Tabel
Untuk membuat tabel, langkahnya adalah sebagai berikut:
– Klik node Tables
– Kemudian klik kanan di bagian detil node Tables
– Pilih menu create
– Selanjutnya akan muncul dialog Table Editor
– Dalam dialog Table Editor di atas, ada 3 bagian yang perlu anda perhatikan:
– Nama Table
– Daftar Field
– Primary Key
– Untuk membuat suatu table, minimal anda perlu mengisikan nama table dan
field tabel
Menambahkan Field ke dalam Tabel
Untuk menambahkan field tabel, langkahnya adalah:
– Klik kanan pada bagian Daftar Field di dialog Table Editor
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 54
– Pilih Add Field
– Selanjutnya akan muncul dialog Field Property Editor
– Setiap field di dalam tabel, akan mempunyai satu tipe data, misalnya integer,
varchar, numeric, dan sebagainya. Di dalam Interbase, tipe data dari suatu field
disimpan di dalam sebuah domain.
– Oleh karena itu, untuk bisa membuat field, anda juga harus mendefinisikan
domainnya.
– Sebagai catatan, jumlah domain tidak harus sama dengan jumlah field. Karena
sebuah domain, bisa dipakai oleh lebih dari field, asalkan field tersebut
ditujukan untuk menyimpan tipe data yang sama. Misalkan, anda membuat
domain nim, isinya tipe data varchar dengan panjang 9 karakter. Domain ini
akan bisa digunakan untuk field – field yang digunakan untuk menyimpan data
nim. Kalau domain ini anda gunakan untuk field yang akan menyimpan nama
mahasiswa, ini kurang tepat, karena panjang dari sebuah nama bisa lebih dari 9
karakter. Lebih tidak tepat lagi kalau anda menggunakan domain nim untuk
field yang menyimpan nilai integer.
– Untuk bisa menambahkan domain, caranya adalah sebagai berikut:
– klik tombol New Domain
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 55
– Kemudian akan muncul dialog Domain Editor
– Di dalam dialog Domain editor tersebut, ada 4 hal yang bisa anda isi:
– Domain Name >> untuk mengisi nama domain
– Data Type >> untuk mengisi tipe data domain
– Default >> untuk mengisi nilai default, boleh tidak diisi
– Not null >> jika anda pilih, maka field yang memakai domain ini tidak
boleh kosong (null)
– Sekarang coba isikan Domain Name: nim
– Kemudian untuk Data Type, anda bisa menekan tombol berlabel ...
– Selanjutnya akan muncul dialog Data Type
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 56
– Karena nim itu adalah kumpulan dari karakter, maka pada combo box SQL
Type anda pilih VARCHAR
– Selanjutnya dialog Data Type akan berubah menjadi
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 57
– Coba anda ubah Character length menjadi 4
– Kemudian Klik OK
– Selanjutnya Klik OK Kembali pada dialog Domain Editor
– Sekarang, coba anda tambahkan 2 domain lagi, yaitu
– nama: varchar(50)
– prodi: varchar(25)
– Setelah anda mempunyai 3 buah domain, anda bisa menambahkan field – field
berikut ini:
– NIM >> domain nim
– NAMA >> domain nama
– PRODI >> domain prodi
– Setelah anda menambahkan ketiga field tersebut, jangan lupa memasukkan
nama Table, yaitu MAHASISWA
– Kemudian, pada dialog Table Editor akan tampak seperti di bawah ini:
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 58
Mengisikan Data Ke Dalam Table dengan Menggunakan IBConsole
Untuk bisa mengisikan data ke dalam table melaui IBConsole, langkah yang harus
anda lakukan adalah:
– Klik dua kali pada tabel MAHASISWA
– Kemudian akan muncul dialog Properties of MAHASISWA
– Pilih tab Data Kemudian masukkan data seperti table di bawah ini:
NIM NAMA PRODI
0100 Hesti Ilmu Komputer
0103 Nana Matematika
0104 Dina D3 Komsi
0107 Lorenza D3 Komsi
– Kemudian klik Commit & Refresh
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 59
Menampilkan Data Dari Database Interbase Melalui Aplikasi yang
Dibangun dengan Menggunakan Delphi 2005
Setelah anda membuat database dan table di dalam Interbase serta mengisikan
data, anda bisa menampilkan data tersebut ke dalam program yang anda buat
sendiri dengan menggukan Delphi 2005, caranya adalah:
– Buka aplikasi Delphi 2005
– Buat Project Baru
– Pada Tool Palette, buka kategori Interbase
– Kemudian tambahkan komponen TIBDatabase ke dalam form
– Ubah property name menjadi DBCoba
– Selanjutnya klik dua kali pada komponen tersebut untuk memunculkan dialog
Database Component Editor
– Untuk connection anda pilih local
– Kemudian untuk file database-nya, klik browse dulu untuk mencari file yang
anda inginkan
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 60
– Masukkan username: sysdba; password: masterkey
– Klik test untuk mencoba koneksi ke database, jika sukses, muncul pesan seperti
di bawah ini
– Klik ok untuk menyimpan konfigurasi
– Kemudian dari kategori Interbase, tambahkan komponen TIBTransaction
– Ubah property name menjadi TransCoba
– Isikan property Default Database dengan DBCoba
– Kemudian tambahkan komponen TIBTable
– Ubah property name menjadi TbMahasiswa
D3 KOMSI
FMIPA UGM
KERJA LAB PEMROGRAMAN VISUAL I 61
– Isikan property Database dengan DBCoba
– Isikan property Transaction dengan TransCoba
– Isikan property TableName dengan MAHASISWA
– Ubah property Active menjadi true
– Selanjutnya, buka kategori Data Access
– Tambahkan komponen TdataSource
– Ubah property name menjadi DSMahasiswa
– Isikan property DataSet dengan TbMahasiswa
– Selanjutnya, buka kategori Data Control
– Tambahkan komponen TDBGrid
– Kemudian isi property DataSource dengan DSMahasiswa
– Terakhir, jalankan program anda dan perhatikan apa yang terjadi
Latihan:
Buatlah sebuah database dengan menggunakan Interbase dengan nama PEGAWAI.
Database ini mempunyai table BIODATA_PEGAWAI yang memiliki field sebagai
berikut:
– NIP (varchar(9))
– NAMA (varchar(64))
– ALAMAT (varchar(128))
– TEMPAT_LAHIR (varchar(32))
– TANGGAL_LAHIR (Integer)
– BULAN_LAHIR (Integer)
– TAHUN_LAHIR (Integer)
– HOBI (varchar(256))
Setelah anda membuat database dan table, buatlah sebuah aplikasi untuk
menampilkan isi BIODATA_PEGAWAI!
D3 KOMSI
Postingan
0 komentar: