Modul pemrograman-1-revisi

MODUL PRAKTIKKUM
PEMROGRAMAN 1 (DELPHI DASAR)
MENGGUNAKAN BORLAND DELPHI 7.0

DISUSUN OLEH :

MUHAMMAD YUNUS, S.KOM.

Sekolah Tinggi Manajemen Informatika & Komputer
(STMIK) Bumigora Mataram
2011
Muhammad Yunus, S.Kom., islam291@rocketmail.com, http://mhm658.wordpress.com, Phone : 081805291446

BAB I
Mengenal Delphi
1.1. Pengertian Delphi
Delphi adalah suatu bahasa pemograman (development language) yang digunakan
untuk merancang suatu aplikasi program.
a.

Kegunaan Delphi
1. Untuk membuat aplikasi windows
2. Untuk merancang aplikasi program berbasis grafis
3. Untuk membuat program berbasis jaringan (client/server)
4. Untuk merancang program .Net (berbasis internet)

b.

Keunggulan Delphi
1. 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.
2. Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada
Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa
dijalankan terpisah.
3. Mudah digunakan, source kode delphi yang merupakan turunan dari pascal,
sehingga tidak diperlukan suatu penyesuaian lagi.
4. Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan
untuk mengembangkan berbagai keperluan pengembangan aplikasi.

c.

Sejarah Borland Delphi
1. Delphi versi 1 (berjalan pada windows 3.1 atau windows 16 bit)
2. Delphi versi 2 (Berjalan pada windows 95 atau delphi 32 bit)
3. Delphi versi 3 (berjalan pada windows 95 keatas dengan tambahan fitur
internet atua web)
4. Perkembangan selanjutnya diikuti dengan Delphi versi 4, 5 dan 6.
5. Versi terkini dari delphi adalahversi 7 dengan tambahan vitur .net dengan
tambahan file XML

1.2. IDE DELPHI
a.

Langkah – langkah mengaktifkan Delphi
 Klik start
 Pilih All program
 Pilih borland delphi
 Pilih dan klik Delphi 7
Atau bisa dengan masuk lewat menu Run (kombinasi tombol Start + R)
kemudian mengetikkan perintah delphi32


b. Jendela Utama Delphi

Gambar 1.1 Jendela Utama Delphi
c.

Bagian – bagian dari Jendela Delphi
1. Object Tree View
Merupakan sebuah diagram pohon yang menggambarkan hubungan logis
menghubungkan semua komponen yang terdapat dalam suatu proyek
program. Komponen tersebut meliputi form, modul atau frame. Fungsinya
digunakan untuk menampilkan seluruh daftar komponen program dalm
sebuah aplikasi program sesuai dengan penempatnnya.

Gambar 1.2 Jendela Object Tree View


2. Object Inspector
Merupakan jendela yang digunakan untuk mengatur tampilan komponen pada
form, misal bagaimana mengubah tulisan button pada command button
menjadi Simpan, atau menghapus tulisan pada label dan mengganti nama
menjadi Nama Mahasiswa atau memberikan perintah tertentu pada sebuah
komponen sehingga ada interaksi ketika program dijalankan.

Gambar 1.3 Jendela Object Inspector
Secara Umum Object Inspector terbagi menadi 2, yaitu :
a. Properties
Digunakan untuk mengatur tampilan pada sebuah komponen baik itu
meliputi penggantian nama, warna, jenis huruf, border dan lain–lain.
b. Events
Merupakan jendela properties yang digunakan untuk memberikan fungsi
yang lebih detail dari fungsi sebenarnya. Misalnya ketika tombol Simpan
di klik maka program akan menjalankan perintah penyimpanan data. Dari
kalimat tersebut ada event clik untuk mengeksekusi sebuah tombol
simpan. Perintah event clik tersebut dapat diberikan melalui jendela
events.

Gambar 1.4 Jendela Properties & Events

3. Form Designer
Merupakan tempat yang digunakan untuk merancang semua aplikasi program
yang diambil dari komponen pallete.

Gambar 1.5. Jendela Form Designer

4. Component Pallete
Merupakan kumpulan icon yang digunakan untuk merancang suatu aplikasi
pada untuk membentuk sebuah aplikasi user interface. Dalam komponen
pallete semua icon dikelompokan dalam berbagai komponen sesuai dengan
fungsi dan kegunaannya.

Gambar 1.6. Jendela Komponen Pallete
No

Icon

Name

Fungsi
Mengembalikan fungsi mouse
ke defaultnya
Membentuk suatu frame
terhadap obyek yang ada
didalamnya

1

Pointer

2

Frame

3

Main menu

4

Popup Menus

5

label

Hanya untuk menampilkan Teks

6

Edit

Untuk menampilkan dan input
data (1 baris)

Membuat menu Utama


No

Icon

Name

7

Memo

8

Button

9

Checkbox

10

Radio Button

11

List Box

12

Combo Box

13

Scroll Bar

14

Group Box

15

Radio Group

Fungsi
Sama seperti edit tetapi
mempunyai kapasitas lebih
besar (lebih dari 1 baris)
Digunakan untuk melakukan
eksekusi terhadap suatu proses
Digunakan untuk menentukan
pilihan lebih dari satu
pilhan, tetapi hanya satu pilhan
yang bisa digunakan
Menmpilkan pilihan dalam
bentuk list
Menampilkan pilihan dalam
bentuk popup
Merupakan icon yang berupa
baris status
Digunakan untuk
mengelompokan suatu icon
Digunakan untuk
mengelompokan pilihan

5. Code Editor
Bagian dari delphi yang digunakan untuk menuliskan kode program. Pada
bagian code editor terdapat 3 bagian utama yaitu = bagian paling kiri yang
berisi berupa angka menunjukan baris dan kolom. Keterangan modified
menunjukan bahwa telah terjadi modifikasi terhapap baris program. Dan
paling kanan menunjukan status keyboard tentang tombol insert atau over
write.

Gambar 1.7 Jendela Code Editor

6. Code Explorer
Jendela yang digunakan untuk menampilkan seluruh variabel, type, dan
rountine yang didefinisikan pada sebuah unit.

Gambar 1.8 Jendela Code Explorer

7. Code Diagram
Merupakan fasilitas pada delphi yang digunakan untuk mendesain sebuah
diagram atas komponen – komponen yang digunakan dalam seatu rancangan
aplikasi.

Gambar 1.9. Jendela Code Diagram


d. File-file Pendukung Project Delphi
1. File Project (.Dpr)
File ini disimpan dengan ber-ekstenion .dpr. File ini berisi informasi
mengenai seluruh proyek program
2. File Unit (.Pas)
File ini merupakan kumpulan dari barisan kode program yang terdapat di
jendela code editor, baik itu yang dituliskan oleh progremmer maupun oleh
system. Extention file ini adalah . pas
File Unit dibagi menjadi 3 :
a. Unit Form
Unit ini dibuat secara otomatis oleh Delphi. Satu unit untuk satu form.
b. Unit component
Unit yang terbentuk pada saat membuat komponen baru.
c. Unit umum
Unit yang dibuat untuk tipe data, variable, procedure dan class yang dapat
digunakan dan diaplikasikan.
3. File Form (.Dfm)
Berisi tentang seluruh informasi yang ada kaitannya dengan form yang
dibuat, meliputi tinggi, lebar, pososi form atau tentang komponen
didalmnya. Penggunaan file ini tidak dianjurkan karena untu pengaturan
sudah disediakan object inspector sebagai media pengaturan semua
komponen.
e.

Aplikasi Console
Aplikasi console merupakan sebuah aplikasi yang tidak mempunyai form. Aplikasi ini
berbasis text mode dan umumnya berjalan pada command prompt. Delphi menyediakan
fasilitas untuk membangun aplikai console. Aplikasi ini digunakan untuk membuat
sourcode object pascal.
Memulai Aplikasi Console yaitu dengan cara mengklik menu File-New-Other-Console
Aplication.
Beberapa aturan penulisan dalam Pascal/Delphi :
a. Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END
yang paling akhir.
b. Tanda titik koma (;) merupakan pemisah antar instruksi satu dengan lainnya.
c. Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda
baca titk koma (;)
Contoh : simpan := akhir; akhir := simpan + awal;
d. Baris komentar diletakkan diantara tanda (* dan *) atau diantara tanda { dan }
Contoh : Var rerata : real; (*nilai rata-rata*) Nil1 : real; {nilai ujian}
Input dan output (Standar I/O).
Dalam bahasa Pascal/Delphi untuk keperluan input (membaca input) digunakan
identifier standar READ atau READLN. Sedangkan untuk keperluan output
(mencetak output) digunakan identifier standar WRITE atau WRITELN.
1. READ (variabel input) ;
READLN (variabel input) ;
2. WRITE (variabel output) ;
WRITELN (variabel output);


Contoh :
Var
nama : string{15};
Begin
write(‗nama : ‗); readln(nama);
write(‗nama saya:‘nama );
readln;
end.

1.3. Aplikasi Salam Kenal (LATIHAN 1)
a. Hasil Program

Gambar 1.10 Gambar Form Salam kenal

b. Desain Form

Gambar 1.11 Gambar Desain Form Salam Kenal


c. Desain Properties
Object
Label 1
Label 2
Label 3
Label 4
Button1
Form 1

Name
Label 1
Label 2
Lnama
Lalamat
Bclose
Form1

Caption
Nama Saya
Alamat
Close
Salam Kenal

d. Listing program
1. Ketika form dalam keadaan aktif maka form akan menampilkan nama dan alamat
pembuat program
procedure TForml.FormCreate(Sender: TObject);
begin
nama.Caption := 'Irnawan';
alamat.Caption := 'Jalan Bina Warga';
end;

2. Untuk keluar dari program user mengklik buton close
procedure TForml.TcloseClick(Sender: TObject);
begin
close;
end;
end.


BAB II
Tipe Data & Mengenal Object I (Label, Edit, Button)
2.1. Deklarasi
Dalam setiap penulisan bahasa pemograman deklarasi sangat digunakan apabila
dalam penulisan program dibutuhkan indentifier atau tanda pengenal. Indentifier pada
umumnya di buat oleh progremmmer yang digunakan untuk mewakili nilai dari suatu
object.
Indentifier yang dikenal dalam Delphi adalah label, konstanta, tipe, fungsi,
procedure maupun variabel.
2.1.1. Deklarasi Konstanta
Deklarasi konstanta adalah tanda pengenal dalam Delphi yang mempunyai nilai
yang sudah tetap. Definisi konstanta diawali dengan kata baku Const diikuti
dengan kumpulan indentifier yang diberi sebuah nilai.
Contoh :
procedure TForm2.etertulisChange(Sender: TObject); const
nil1:='30000';
begin
end;
2.1.2. Deklarasi Variabel
Deklarasi variabel adalah tanda pengenal dalam Delphi yang mempunyai nilai yang
mana nilai tersebut akan terus berubah selama proses berjalan. Definisi variabel
diawali dengan kata baku Var diikuti dengan kumpulan identifier yang diikuti
dengan tipe data yang dibutuhkan.
Contoh :
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
a:= StrToInt(Edit1.Text);
b:= StrToInt(Edit2.Text);
c:= a+b;
Edit3.Text:= IntToStr(c);
end;
end.


2.2. Tipe Data
Secara sederhana tipe data dapat didefinisikan dengan istilah tempat untuk
menentukan pemberian nilai terhadap suatu variabel sesuai atau tidak dengan nilai
yang diberikan oleh user. Dalam versi lain tipe data juga diartikan sebagai batasan
terhadap fungsi tanda pengenal terhadap semua nilai yang diterima. logika yang
dapat kita berikan adalah ketika kita menempatkan tanda pengenal harga hanya
mengenal angka, maka ketika kita memberikan nilai berupa string maka secara
otomatis data tersebut akan ditolak karena nilai tersebut tidak dikenali oleh tipe
data yang diberikan.
Ada beberapa hal yang perlu diperhatikan dalam menentukan tipe data :
 Penggunaan memori
Masing-masing tipe data memiliki perbedaan dalam hal penggunaan memori. Dalam
hal ini usahakan untuk menggunakan tipe data yang memiliki memori yang kecil.
 Ketelitian Penghitungan
Walaupun unsure penghematan memori sangat penting untuk diperhatikan, namun
kebenaran dalam hal ketelitian penghitungan jauh lebih penting. Oleh karena itu
gunakanlah tipe data yang memiliki tingkat ketelitian yang tinggi.
2.2.1. Tipe Data Numeric Integer
Tipe data integer merupakan tipe data bilangan bulat atau bilangan yang tidak
memmiliki angka desimal. Dimana tipe data Integer tidak mengenal pecahan.
Tipe
Rentang Nilai
Byte
Byte
0-255
1
Word
0-65535
2
Shortint
-128-127
1
Smallint
-32768-32767
2
Integer
-2147483648
4
Cardinal
0-2147483647
4
Longint
-2147483648-2147483648
4
Semakin besar rentang nilai bilangan, semakin besar pula memori yang diperlukan.
Bentuk Umum :
Var
Nill:integer;
Begin
Ni l1:=5000;
2.2.2. Tipe Data Real
Tipe data numeric real digunakan untuk bilangan yang memiliki decimal. Tipe
data ini memiliki beberapa tipe yang tergantung pada rentang nilai dan ukuran
penggunaan memori.
Tipe
Rentang Nilai
Byte
Real
Single
Double
Extended
Currency

± 2.9x10-39 - ± 1.7x1038
± 1.5x10-45 - ± 3.4x1038
± 5.0x10-324 - ± 1.7x10308
± 3.6x10-4951 – ± 1.1x104932
-922337203685477.5808-9223372036855477.5807


6
4
8
10
8

Keuntungan dari penggunaan tipe data currency adalah :
 Mempunyai ketelitian yang lebih tinggi dalam menangani blangan yang
cukup besar
 Kompatibel dengan tipe database yang menyatakan uang
Bentuk Umum :
Var
Nil:real;
Begin
Nill:=20,5;
2.2.3. Tipe Data String
Tipe data string digunakan untuk menyatakan sederetan karakter, misalnya
nama, alamat, kota dan lain-lain. Adapun tipe-tipe dari data string, yaitu :
Tipe
Byte
Jumlah Maksimum
ShortString
AnsiString
String
WideString

2-256
4-2 GB
255-3 GB
4-2 GB

256 karakter
231 karakter
231 karakter
230 karakter

Tipe ShortString berfungi untuk menyesuaikan kompatibilitas dengan versi
sebelumnya, sedangkan AnsiString dan WideString dapat digunakan untuk
menyimpan karakter Unicode. Variable dengan tipe data string mampu
menangani data string yang hampir tidak terbatas (3 GB).
Bentuk umum
Var
Nama:string;
Begin
Nama:=‘Antoni‘;

2.2.4. Tipe Data Char
Secara fungsi tipe data char sama dengan tipe data string tetapi dari segi
kapasitas ruang diperoleh tipe data char jauh lebih sedikit karena hanya
mengenal 1 karakter.
2.2.5. Tipe Array
Adalah suatu variable yang digunakan untuk menyimpan sekumpulan data yang
sejenis.
Bentuk Umum :
Var
Hari : array[1..7] of string
Begin
Hari[1]:=‘Senin‘;


2.2.6. Tipe Record
Digunakan untuk menyimpan sekumpulan data yang mungkin mempunyai tipe
data yang berbeda tetapi saling berhubungan. Elemen-elemen dalam array
mempunyai tipe yang sama, tetapi elemen-elemen record dapat mempunyai tipe
yang berbeda.
Contoh :
Type
RBarang = record
Kode : String[4];
Nama : String[20];
Harga : integer;
Var
Barang : RBarang;
Begin
Barang.kode :=‘TV01‘;
…..
End.
2.3. Dasar umum merancang Program aplikasi berbasis visual
a. Merancang tampilan program (user interface), hal ini meliputi Form dan toolbox
b. Desain properties. Hal ini digunakan untuk merubah tampilan icon yang asli
toolbox agar sesuai dengan tampilan yang tampilan yang diinginkan.
c. Jendela Code Editor , digunakan sebagai media komunikasi antar object pada
form dengan system yang ada.

2.4. Mengenal Komponen label, edit & Button
Label
Edit
Button

Hanya untuk menampilkan Teks
Untuk menampilkan dan input data
(1 baris)
Digunakan untuk melakukan
eksekusi terhadap suatu proses

2.5. Mengenal Operator
Delphi mengenal banyak operator, sama seperti bahasa pemograman yang lain,
operator menjadi satu hal penting yang harus ada untuk perancangan program.
2.5.1. Operator Penugasan (assignment Operator)
Symbol operator digunakan untuk melakukan suatu proses atas suatu nilai
dengan memberikan nilai baru pada suatu variable.
Lambang operator Penugasan ― := ―
Bentuk Umum penulisan
Var := perintah;


Contoh :
A:=”B”;
Label1.caption := ―Irnawan‖
C:= A + B;
2.5.2. Operator Aritmatika
Operator aritmatika berfungsi untuk melakukan suatu proses aritmatika
yang meliputi perkalian, pembagian, penjumlahn, pengurangan maupun
pengurangan terhdap suatu nilai variabel yang tersimpan dalam suatu object,
dengan memberikan nilai baru.
Symbol yang dikenal dalam delphi
Symbol
Keterangan
+
Penjumlahan
Pengurangan
*
Perkalian
/
Pembagian
Div
Pembagian Integer
Mod
Sisa Pembagian
Contoh
B := 15 + 2;
B := 15 div 2
B := 15/2
B := 15 * 2
B := 15 mod 2

hasil B = 17
B=7
B = 7,5
B = 30
B=1

2.5.3. Operator String
Digunakan untuk menggabungkan dua teks/string atau lebih. Symbol yang
digunakan = +
Bentuk Umum
A := teks1 + teks2
Contoh
A : = ―Aku‖;
B := ―Bisa‖;
C := A + B;
Hasil C = Aku Bisa


2.5.4. Merancang Aplikasi Dengan Delphi
a. Hasil ketika form dijalankan

Gambar 2.1 Form Operator
b. Desain Form

Gambar 2.2 Desain Form Operator


Object

Name

Label 1

Label 1

Label 2
Label 3
Label 4
Label5
Label6
Label7
Label8

Label 2
Label3
Label4
Label5
Label6
Label7
Label8

Caption
Program
pengenalan dasar
operator Delphi
Nilai Praktek I
Nilai Praktek II
Nilai Perhitungan
Hasil
Hasil
Hasil
Hasil

Object
Edit1
Edit2
Edit3
Edit4
Edit5
Edit6

Name
Nil1
Nil2
Ehtambah
ehkali
Ehbagi
ehkurang

-

Object
Button 1
Button2
Button3
Button4
Button5

Name
Btambah
Bkali
Bbagi
Bkurang
Bclose

Caption
Tambah
Kali
Bagi
Kurang
Close

Text

d. Listing Program
a.

Program Tambah
Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek 1
dengan nilai praktek II, cara double klik pada buton tambah dan tuliskan
kode berikut ini :
procedure TForm2.BtambahClick(Sender: TObject); var
nill, nil2 : real;
tambah: real;
begin
nill := strtofloat(enill.text);
nil2 := strtofloat(enil2.text);
tambah := nill + nil2;
ehtambah.text := floattostr(tambah);
end;


Catatan
Var
Nil1,nil2 : real;
Tambah ; real;
Var digunakan untuk mendeklarasikan suatu nama varibael yag dibuat
oleh programmer yang berfungsi untuk menyimpan nilai atau data selama
proses program berjalan.
Nil1,nil2 dan tambah adalah nama variabel baru yang dibentuk oleh
programmer
Real adalah nama dari sekeian banyak tipe data yang dikenal dalam
bahasa peograman Delphi. Cakupan tipe data real adalah membaca
bilangan angka dalam bentuk decimal.
Strtofloat adalah fungsi yang digunakan merubah nilai dari tipe data
string menjadi tipe data numeric.
Floattostr adalah fungsi yang digunakan merubah nilai pecahan menjadi
data string.
b.

Program untuk kali
procedure TForm2.BkaliClick(Sender: TObject);
var
bill,bil2:real;
kali : real;
begin
bill := strtofloat(enill.text);
bil2 := strtofloat(enil2.text);
kali := bill*bil2;
ehkali.text := floattostr(kali);
{ehkali.text :=
inttostr(strtoint(enill.text)
strtoint(enil2.text));}
end;

*

c. Program untuk bagi
procedure TForm2.BbagiClick(Sender: TObject); var
bill,bil2 : real;
bagi : real;
begin
bill := strtofloat(enill.Text);
bil2 := strtofloat(enil2.Text);
bagi := bill/bil2;
ehbagi.Text := floattostr(bagi);
end;

d.

Program untuk kurang
procedure TForm2.BkurangClick(Sender: TObject);
var
bill,bil2,kurang : real;
begin
bill := strtofloat(enill.Text);
bil2 := strtofloat(enil2.Text);
kurang := bill - bil2;
ekurang.Text := floattostr(kurang);
end;

e. Program untuk keluar
procedure TForm2.bcloseClick(Sender: TObject);
begin
messageblg('Ingin Menutup form',mterror, [mbok],0); close;
end;
Catatan :
Messagedlg adalah penggalan program yang digunakan untuk
menampilkan kotak pesan.
Close digunakan untuk menutup form.
2.5.5. Latihan Program Pembayaran
a. Form setelah dijalankan

Gambar 2.3 Gambar Toko
Ketentuan yang diinginkan pemilik toko
1. Nama barang, harga barang dan jumlah merupakan media input bagi
user mengenai detail nama barang, harga barang serta jumlah yang
dibeli.
2. Bayar digunakan untuk menampilkan perkalian dari jumlah yang dibeli
dengan harga barang, dengan cara mengklik hitung.
3. Untuk menutup form user tinggal mengklik exit, dengan
menampilkan pesan untuk user.


Catatan :
Untuk Menambah Form Baru pilih dan klik icon New
Untuk Mengaktifkan Form Yang Pernah Dibuat adalah pilih dan klik View Form ,
pada jendela View Form pilih form yang ingin diaktifkan dan klik OK
Untuk menyimpan semua project pilih dan klik Save


BAB III
Struktur Kondisi dan Mengenal Object II
(combo box, Radio button)
3.1. Operator Percabangan
Percabangan adalah merupakan operator yang digunakan untuk menentukan pilihan
terhadap beberapa pilihan yang ada.
Dalam bahasa pemograman Delphi mengenal dua operator per cabangan :
3.1.1. Percabangan If
Merupakan operator percabangan yang digunakan untuk menentukan pilihan
atas beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah
ditentukan.
Ada dua model percabangan if
a. Percabangan untuk kondisi pilihan tunggal
Merupakan operator percabangan yang digunakan untuk menentukan
sebuah pilihan dengan kondisi tunggal
Bentuk Umum
If Syarat then hasil;
Contoh
If Nilai > 80 then keterangan = ‗Lulus‘;

b. Percabangan untuk kondisi majemuk
Merupakan operator percabangan yang digunakan untuk menentukan
pilihan dengan kondisi yang harus dipeuhi lebih dari satu.
Bentuk Umum
If Syarat1 then
Hasil 1
Else
If syarat2 then
Hasil2
Else
................
...............
end;
Contoh
If nilai > 80 then
Grade = ―A‖
Else
if nilai > 70 then grade = ―B‖ else
if nilai > 60 then grade = ―C‖ else
grade = ―E‘;


3.1.2. Percabangan case
Case of adalah merupakan metode lain dari sebuah percabangan, berfungsi
sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa pilihan
dengan kondisi sebagai syarat yang harus terpenuhi. Secara fungsi scee dan
if tidak ada perbedaan tetapi untuk penulisan fungsi case lebih mudah
diterapkn untuk pilihan atau kondisi lebih dari satu.
Bentuk Umum fungsi Case OF
Case<variabel> of
<pilihan ke 1> ; hasil 1; <pilihan
ke 2>; hasil2; <pilihan ke
3>;hasil3;
<pilihan ke n>; hasiln;
end;
atau fungsi case of bisa juga diberikan else untuk piliahn
terakhir. Bentuk Umum
Case<variabel> of
<pilihan ke 1> ; hasil 1; <pilihan
ke 2>; hasil2; <pilihan ke
3>;hasil3;
else hasiln;
end;
Contoh :
Case Bilangan of
1 : showmessage(‗Angka 1‘);
2: showmessage( ‗Angka 2‘);
3: showmessage( ‗Angka 3‘);
end;

3.2. Mengenal Object II (combo box, list box dan radio button)
Checkbox
pilihan lebih dari satu
pilhan, tetapi hanya satu pilhan
Radio Button
yang bisa digunakan
List Box
Combo Box

Menmpilkan pilihan dalam
bentuk list
Menampilkan pilihan dalam
bentuk popup


3.3. Merancang Program dengan fungsi IF
a. Hasil Yang Diperoleh

Gambar 3.1 Gambar Perhitungan Gaji
Ketentuan Perhitungan Gaji
1. Dalam Struktur organisasi perusahaan ketentuan gaji perusahaan terbagi menjadi 3
struktur utama
Jabatan
Gaji Pokok
Direktur
5000000
Manager
3000000
Karyawan
1000000

2. Besarnya tunjangan ditentukan oleh status kepegawaian
Status Pegawai
Tunjangan
Tetap
1500000
Honorer
500000


b. Desain Form

Gambar 3.2. Desain Form Gaji

Object
Label 1
Label 2
Label 3
Label 4
Label5
GroupBox
RadioButton1
RadioButton2
Object
Edit 1
Edit2
Edit3
Edit4
Combo Box
Object
Button 1
Button2
Button3

Name
Label1
Label2
Label3
Label4
Label5
GroupBox1
Rtetap
Rhonorer
Name
enama
epokok
etunjangan
ebersih
Cjabatan
Name
Btotal
Blagi
Bclose

Caption
Nama Pegawai
Jabatan
Gaji Pokok
Tunjangan Status
Gaji Bersih
Status
Tetap
Honorer
Text
Caption
Total Gaji
Isi Data Lagi
Close


d. Listing Program


Memberikan pilihan pada combo box sesuai dengan piihan pada jabatan
Dengan Menggunakan Object Properties

Langkah – langkahnya
1. Aktifkan combo box yang akan dipilih
2. Pada properties pilih dan klik item, lalu klik command (...)

3. Pada jendela String list Editor, Seperti terlihat pada jendela berikut

4. Ketikan kata sebagai kata pilihan pada jendela seperti contoh tersebut
diatas.
5. Setelah selesai klik OK


Melalui jendela code editor
Double click pada form, sebarang tempat dan ketikan program berikut ini.
procedure TForm1.FormCreate(Sender: TObject);
begin
cjabatan.Items.Add ('birektur');
cjabatan.Items.Add ('Manager' );
cjabatan.Items.A dd(' Karyawan' );
end;




Program untuk mencari gaji pokok
1. Aktifkan combo box untuk jabatan
2. Pada pada jendela properties pilih event,
3. Pilih dan aktifkan onclick, seperti yang terlihat seperti gambar berikut ini.

4. Double click pada combo onclick.
5. Ketikkan program berikut ini
procedure TForm3.cjabatanClick(Sender: TObject);
begin
if cjabatan.Text = ' birektur' then
epokok.Text := ' 5000000'
else
if cjabatan.Text = 'Manager' then
epokok.Text := '2000000'
else
if cjabatan.Text = ' Karyawan' then
epokok.Text := '1000000'
else
epokok.Text := '0'
end;






Program menghitung Tunjangan Karyawan Tetap
Double click pada option tetap dan ketikan program berikut ini :
procedure TForm3.etetapClick(Sender: TObject);
begin
if etetap.Checked = true then
a := strtofloat(epokok.Text);
hasil :=a*0.3;
etunjangan.Text := floattostr(hasil)
end;
Program menghitung Tunjangan Karyawan Honorer
Double click pada option honorer dan ketikan program berikut ini :
procedure TForm3.rhonorerClick(Sender: TObject);
begin
if rhonorer.Checked = true then
hasil :=a*0.1;
etunjangan.Text := floattostr(hasil)
end;



Program menghitung Gaji Bersih
Double click pada command total gaji, dan ketikan program berikut ini :
procedure TForm3.btotalClick(Sender: TObject);
begin
b := strtofloat(etunjangan.Text);
c := a+b;
ebersih.Text := floattostr(c);
end;



Program bersih
Double click pada Isi Data Lagi, dan ketikan program berikut ini
procedure TForm3.blagiClick(Sender: TObject);
begin
cjabatan.Text := 'Jabatan';
enama.Text := ' ';
ebersih.Text := '0';
etunjangan.Text := '0';
epokok.Text := '0';
etetap.Checked := false;
rhonorer.Checked := false;
end;


 Program Close dengan pesan, seperti tampilan sebagai berikut.

Gambar 3.3 Form Pesan
Programnya :
begin
if(application.MessageBox('Anda
Yakin akan
keluar','Informasi',MB_YESNO)= ILYES)then
close
end;
3.4. Latihan
1. Program Biaya Ujian
Buatlah program untuk mencari biaya ujian untuk calon siswa pada suatu
perguruan tinggi.
Tampilan yang diinginkan adalah sebagai berikut

Gambar 3.4 Form Penilaian Siswa











Ketentuan Pencarian Biaya
Nilai murni didapat dari penjumlahan (nilai Prkatek * 60%) ditambah (Nilai Teori *
40 %).
Keterangan = Gagal jika nilai murni < 60 dan dinyatakan lulus jika nilai murni
>= 60
Biaya perjurusan diperoleh dari dua pilihan jurusan yang ada:
1. Jika pilhan MI maka biayanya = 250000
2. Jika pilihan TK maka biaya = 300000
Pilihan Biaya Waktu Ujian diperoleh dari 2 waktu kuliah yang ada. Jika pilihan
pagi maka biaya kuliah = 50000, 1000000 untuk biaya kuliah malam.
Total biaya diperoleh dari penjumlahan Semua jurusan ditambah biaya waktu
kuliah.
Isi data lagi untuk mengulang input data
close untuk menutup program

2. Informasi Biaya Kursus
Buatlah program untuk menampilkan biaya kursus dan total biaya dengan tampilan
sebagai berikut :

Rincian Biaya :
no

Jenis Kursus

Pendaftaran

Pendidikan

Ujian Lokal

1
2
3
4

Ms Office
Open Office
PhotoShop
Web Design

100.000
100.000
150.000
200.000

350.000
450.000
500.000
650.000

200.000
250.000
300.000
400.000


BAB IV
Struktur Perulangan dan Mengenal Input Box
4.1. Perulangan
Merupakan control program yang digunakan untuk suatu proses yang akan berjalan terus
menerus. Kondisi perulangan merupakan proses berjalannya program secara terus
menerus dan akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan.
Di dalam Delphi mengenal 3 jenis perulangan :
a.

Perulangan For – To - Do
Perulangan dengan statement for adalah perulangan yang digunakan untuk
melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To –
Do dimulai dengan nilai terkecil ke besar.
Bentuk Umum :
For variabel := nilai awal to nilaiakhir statement
Catatan : semua variabel yang berhubungan dengan perulangan harus
mempunyai tipe data sama.
Contoh :
var
i: integer;
begin
for i := 1 to 5 do
editl.SelText := inttostr(i);
end;
end.
Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit 1 dengan
hasil sebagai berikut =

b.

Perulangan For – DownTo-Do
Perulangan For-Dowbto-Do adalah perulangan yang mengihutng suatu proses
dengan nilai awal besar dan nilai akhinya lebih kecil, maka variabel sebagai control
program yang diperoleh adalah dari besar ke kecil.
Bentuk Umum :
For Variabel := nilai-awal Downto Nilai-akhir Do Pernyataan


Contoh :
var
i : integer;
begin
for i := 5 bownto 1 do
edit2.SelText := inttostr(i);
end;
Bila program tersebut dijalankan maka hasil yang diperoleh adalah sebagai berikut ;

c.

Perulangan While Do
Perulangan While Do adalah statement perulangan akan terus melakukan suatu
proses selama kondisi/syarat yang ditentukan bernilai benar.
Bentuk Umum
Statement While – Variabel Syarat – Do Pernyataan
Contoh :

procedure TForrn4.Button3Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 5 do
begin
edit3.5elText := inttostr(i);
i := i + 1;
end;
end;
Bila program tersebut dijalankan maka hasil yang akan diperoleh adalah sebagai
berikut :

d. Perulangan Repeat Until
Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until)
kondisi bernilai salah.
Bentuk Umum :

Repeat - Statement/penyataan — Until - - - ungkapan logika
Contoh :
procedure TForrn4.Button4Click(Sender: TObject);
var
i : integer;
begin
i := 1;
repeat
i := i + 2;
edit4.5elText := inttostr(i);
until i = 15;
end;
Bila program tersebut dijalankan maka akan diperoleh hasil sebagai berikut :

4.2. Mengenal Input Box
Input Box adalah sebuah kotak pesan bagi user. Selain itu juga bisa digunakan untuk
menginput data.
Bentuk umum
Var
Indentifier : typedata;
begin
Identifier := inputbox (‗ string_title‘ ,‘ string_subtitle‘ ,‖ );
end;
Contoh :
Var
Inputnama : string;
Begin
Inputnama := inputbox(‗Info‘,‘Ketikan Nama‘,‖ );
End;


4.3. Study Kasus Perulangan
a.

Hasil Setelah Dijalankan

Gambar 4.1 Form Penjualan
Ketentuan Dan Alur Logika
1. Total item digunakan sebagai pembatas berapa kali, pelanggan akan membeli
barang.
2. Ketika jumlah item diberikan nilai maka ketika kita klik OK akan ditampilkan
kotak pesan (input Box) untuk menginput nama barang dan harga barang yang
dibeli. Begitu seterusnya sampai kondisi dari total item terpenuhi.
3. Total Penjualan diperoleh dari penjumlahan seluruh harga barang yang dibeli.
4. isi data lagi diberikan untuk mengulang pembelian.
5. Close untuk menutup form.
6. Untuk tanggal ditampilkan secara otomatis.


b.

Desain Form

Gambar 4.2 Desain Form Penjualan
c.

Desain Properties
Object
Caption
Label 1
Total Item yang dibeli
Label 2
Tanggal
Label 3
NO Faktur
Label 4
Total Penjualan
GroupBox1
Data Penjualan
GroupBox2
Daftar Nama Barang Yang Debeli
Groupbox3
Daftar Harga Barang
Command 1
OK
Command2
Isi Data Lagi
Command3
Close

Name
Label1
Label2
Label3
Label4
Groupbox1
Groupbox2
Groupbox3
Cmdok
Cmdlagi
cmdclose

Object
Edit 1
Edit2
Edit3
Edit4
ListBox1
Listbox2

Name
eitem
enofaktur
etgl
Etotal
lnama
lharga

Text
-


d. Listing Program
Program untuk menampilkan tanggal secara otomatis ketika form dijalankan
procedure TForm5.FormCreate(Sender: TObject);
begin
bateSeparator := '-';
ShortbateFormat := 'mm/dd/yyyy';
etanggal.Text := 'Hari ini' + bateToStr(bate);
end;
Program command OK
procedure TForm5.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin harga := 0;
j := 0;
j:= strtoint(eitem.Text);
if j <= 0 then
begin
showmessage('bata Tidak boleh lebih kecil dari Nol');
exit;
end
else
begin
for i := 1 to j do
begin
inputnama := inputbox('INput','Ketikan Nama Barang','');
inputharga := inputbox('INput','Ketikan Harga Barang','');
lnama.Items.Add(inputnama) ;
lharga.$tems.Add(inputharga);
harga := harga + strtofloat(inputharga);
end;
end;
etotal.Text := floattostr(harga);
end;
Program Untuk Isi Data Lagi
procedure TForm5.clagiClick(Sender: TObject); begin
eitem.Text :='';
enofaktur.Text := '';
lnama.Clear;
lharga.Clear;
etotal.Text :='';
end;


Program Untuk Menutup Form
Close;
4.4. Aplikasi Konversi Suhu
a. Hasil yang Diinginkan

Gambar 4.4 Hasil Form Penjualan
b. Ketentuan Program
1. Batas Awal dan Batas akhir diberikan untuk mengetahui nilai awal dan
akhir derajat celcius yang ingin cetak.
2. Penambahan diberikan untuk memberikan penambahan dari nilai awal untuk
mencapai nilai akhir.
3. Close adalah untuk keluar dari program
4. Rumus Mencari Fahrenheit adalah = 1.8*Celcius+32


BAB V
Subrutin (Procedure & Function)
5.1. Procedure
Prosedur adalah suatu program terpisah dan berdiri dalam suatu blok program dan
befungsi sebagai sebuah sub program (program bagian). Penulisan prosedur diawali
dengan kata Procedure pada bagian deklarasi program dan cukup menuliskan nama
prosedur yang dibuat pada bagian Implementasi.
Alasan penggunaan prosedur :
1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang
dalam suatu proses program.
2. Digunakan untuk memecah – mecah program menjadi sebuah modul program, sehingga
listing program menjadi lebih sederhana.
Syarat penulisan nama procedure :
1. Harus diawali dengan karakter.
2. Untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya
tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan
underscore ( _ )
3. Tidak mengenal tanda baca.
Contoh :

a. Pendeklarasian Prosedur
Penulisan pendeklarian sebuah prosedur dalam Delphi ditempatkan setelah kata
public agar dapat dikenali oleh semua object yang ada dalam proses program
tersebut. Penulisannya diawali dengan kata Procedure diikuti nama procedure.
Public
Procedure bersih;

b. Penulisan

prosedur
implementation,

c.

Penulisan

pogram

prosedur

terdapat

dalam

bagian

Procedure TForml.Bersih;
Begin
Enama.text := ";
Ealamat.text := ";
Ekota := ";
End;
Pemanggilan Prosedur
Pemanggilan prosedur terdapat dalam bagian implementation, pada umumnya
pemanggilan prosedur terdapat dalam suatu ruang lingkup object yang
mempunyai sebuah event. Cara pemenggilannya cukup hanya dituliskan nama
prosedurnya saja.


Procedure.TForm1.button1click(sender: Tobject);
Begin
Bersih;
End;
5.2. Pengertian Fungsi
Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan
program yang terpisah dari program utama dan berfungsi sebagai sebuah program
bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan
function dan dideklarasikan dalam bagian deklarasi fungsi. Dan penulisan program
fungsi ditempatkan pada program utama. Satu ha yang perlu diperhatikan dalam
penulisan fungsi adalah harus diikuti dengan tipe datanya.
Bentuk Umum penulisan Fungsi
Function indentifier(daftar-parameter) : type;
Contoh :
Function hitung(var a,b : real) :real;
Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.
5.3. Fungsi Tunggal
Fungsi tunggal merupakan suatu fungsi dimana proses pemanggilan dirinya sendiri
tanpa melalui fungsi yang lain atau fungsi yang tidak terdapat dalam fungsi yang lain.
Contoh :
.
a.

Hasil yang diinginkan


b. Desain Form

c.

Listing Program Dengan Fungsi
function hitung(var a,b : integer): integer;
begin
hitung := a+b;
end;
procedure TForm10.bjumlahClick(Sender: TObject);
var
x,y : integer;
c : integer;
begin
x := strtoint(enill.Text);
y := strtoint(enil2.Text);
c:= hitung(x,y);
ehasil.Text := inttostr(c);
end;

Didalam program utama tidak ditempatkan rumus untuk menghitung penjumlahan
tetapi ketika dilakukan eksekusi terhadap program dan kita melakukan input nilai 1
dan 2 dan kita klik jumlah maka akan ditampilkan hasil yang diinginkan. Hasil itu
diperoleh dari pengiriman nilai dari teks ke nilai pada variabel deprogram
utama (x := strtoint(enil1.Text);y := strtoint(enil2.Text);). Selanjutnya nilai pada
variabel deprogram utama dikirim ke fungsi hitung untuk mendapat hasil
penjumlahan (c:= hitung(x,y);).


5.4. Fungsi Untuk Memanggil Fungsi yang Lain
Merupakan pembuatan program fungsi yang digunakan untuk memanggil program
fungsi yang lain didalam satu listing program.
Contoh :

a. Hasil Yang Diinginkan

b. Desain Form


Object
Label 1
Label 2
Label 3
Label 4
Label5
Label6
GroupB ox 1
Edit1
Edit2
Edit3
Edit4
Edit5
Edit6
Button1
Button2
Button3

Caption/Text
Nama Peminjam
Jumlah Uang Pinjam
Tingkat Bunga (dalam %)
Lama Pinjam
Besarnya Uang
Yang
Dikembalikan
Cicilan Uang Setiap Bulan
Rincian Nama Anggota
Total
Bersih
Close

Name
Label1
Label2
Label3
Label4
Harus Label5
Label6
Groupbox 1
Epeminjam
Epinjam
Ebunga
Elama
Ekembalian
Ecicil
Btotal
Bbersih
bclose

d. Listing Program


Fungsi Perhitungan Bunga
function pangkat(x,y : real):real;
begin
pangkat := exp(ln(x)*y);
end;
function bunga(e,f,g : real):real;
begin
bunga := e*pangkat((17f/100),g);
end;



Program Total
procedure TForm15.btotalClick(Sender: TObject);
var
a,b,c,d,e : real;
begin
a := strtofloat(ejumlah.Text);
b := strtofloat(ebunga.Text);
c := strtofloat(elama.Text);


d := bunga(a,b,c);
ekembalian.Text := floattostr(d);
ekembalian.Text := formatfloat(I#.###,0I,d);
e := d/c;
ecicil.Text := floattostr(e);
ecicil.Text := formatfloat(I#.###,0I,e);
end;


Program Bersih
procedure TForm15.bbersihClick(Sender: TObject);
begin
ejumlah.Text :=II; elama.Text := II;
epeminjam.Text := II; ebunga.Text := II;
ekembalian.Text :=II; ecicil.Text := II;
end;



Program Menutup Form
begin
close;
end;


BAB VI
ARRAY
7.1. Pengertian Array
Array (larik) merupakan tipe data tersetruktur dimana didalamnya terdiri dari
komponen – komponen yang mempunyai tipe data yang sama. Didalam suatu
array jumlah komponen banyaknya adalah tetap. Didalam suatu larik atau array
setiap kompoenen ditunjukan oleh suatu index yang unik. Index dari setiap komponen
array menunjukan urutan data atau identitas yang mewakili data yang ada
didalamnya.
Logika sederhananya array itu bisa disamakan dengan dua orang dengan nama
yang sama didalam suatu komunitas, untuk membedakan antara nama yang satu
atau dengan nama yang lain maka diberikan initial tambahan untuk setiap nama.
7.2. Deklarasi Array
Didalam penulisan bahasa pemograman setiap penggunaan array harus
dideklarsikan terlebih dahulu. Pendeklarasian array diawali dengan nama variabel
array diikuti dengan indeks array yang dituliskan didalam tanda ―[]‖ , diikuti dengan kata
cadangan of dan tipe data yang dibutuhkan.
Bentuk Umum Penulisan
Tanda_pengenal : array [..tipe index ..] of tipe data;
Contoh :
Var
A : array[ 1. .4] of integer;
B : array[1..5] of string;
C: array[1..10] of real;
Keterangan :
 A,B,C merupakan tanda pengenal/ nama variabel dari array;
 1. .4 : merupakan tipe indek dari array, yang menunjukan banyaknya data yang
mampu disimpan.
 Integer : menunjukan bahwa data yang diinput berupa bilangan bulat.
7.3. Alokasi Penggunaan Array
a. Array Static (Static Array)
Array static adalah model pendeklarasian array dimana tipe data yang
digunakan mempunyai nilai yang tetap. Nilai yang digunakan untuk menentukan
jangkauan pada umumnya bernilai integer. Array Static juga bisa disebut Array
dengan deklarasi tipe indeks subrange integer.
Bentuk Umum
array[indexType1, ..., indexTypen] of baseType
Keterangan : index type menunjukan tipe data ordinal yang menunjukan batasan
atau elemen maksimul terhadap seberapa besar variabel tersebut menyimpan
komponen.


Contoh
Var arrayku : array[1..5] of char
Atau juga
type
jangkauan = 1..5;
var
nilai : array[jangkauan] of integer;
b.

Array Dinamis (Dynamic arrays)
Larik atau array dinamis merupakan array yang tidak mempunyai suatu jangkauan
atau ukuran yang tetap. Tetapi ketika program dijalankan maka memori untuk
suatu array dinamis direalokasikan ketika kita menugaskan suatu nilai kepada
array.
Bentuk Umum
array of baseType
Contoh
var nilai: array of Real;
Dari deklarasi tersebut nilai yang merupakan deklarasi array belum memperoleh
nilai yang tetap, tetapi hanya diberikan batasan sebagai tipe data real. Untuk
mendeklarasikan array tersebut kita harus menempatkan array didalam suatu
memori, caranya adalah dengan memanfaatkan fungsi dari perintah sellength.
Selllength(nilai,20)
Dari penggalan program tersebut nilai untuk array nilai tersebut mempunyai
range sebanyak atau cakupan 20 untuk tipe data real, dengan indeex dimulai
dari 0 sampai dengan 20.

7.4. Studi Kasus program dengan Array
a. Hasil ketika form Dijalankan

Gambar 5.1 Form Konversi Tanggal


b. Desain Properties
Object
Caption/Text
Label 1
Tanggal
Label 2
Bulan
Label 3
Tahun
Label 4
Hari Pada Tanggal tersebut Adalah
GroupBox 1
Entry Tanggal
Edit1
Edit2
Edit3
Edit4
Command1
OK
c.

Name
Label1
Label2
Label3
Label4
Groupbox 1
Etgl
Ebln
Etahun
Ehari
bok

Listing Program


Program untuk Command OK
procedure TForm12.bhariClick(Sender: TObject);
type
x = string[7]; const
faktorbln : array[1..12] of byte = (0,3,3,6,1,4,6,2,5,0,3,5); hari : array[0..8] of x=('

Minggu' ,' Senin' ,' Selasa' ,'' ,' Rabu' ,' Karnis' ,' ' ,' Jurn' ' at' ,' Sabtu' );
var
hr : string;
narna : string[255];
j1,j2,j3,j4 : integer;
tanggal,bulan,tahun : integer;
begin
tanggal := strtoint(etgl.Text);
bulan := strtoint(ebln.Text);
tahun := strtoint(ethn.Text);
if tahun > 1900 then tahun := tahun - 1900;
j1 := trunc(tahun * 365.25);
j2 := j1 + faktorbln[bulan];
if (tahun/4 = int(tahun/4)) and (bulan < 3) then j2 := j2-1;
j3 := j2 + tanggal;
j4 := trunc(frac(j3/7) * 10); hr :=
Hari[j4];
ehari.Text := hr;
end;


BAB VII
Operator String
7.1. Menggabungkan String
Menggabungkan string adalah proses merangkai dua karakter atau lebih menjadi
satu kalimat atau kata yang baru. Operator string yang dikenal dalam Bahasa Delphi
adalah operator dengan symbol ‗+‘.
a. Model Penulisan
var
nama : string[20];
saya : string[15];
namasaya : string[50];
Begin
Nama := ‗Nama Saya adalah = ‗;
Saya : = ‗Irnawan‘;
Namasaya : = ‗nama+‘ ‗+saya;
Ehasil.text : = namasaya;
End.
b.

Contoh Program Hasil yang Diperoleh

Gambar 7.1 Form Penggabungan String

Gambar 7.2 Desain Form Penggabungan String


c.

Desain Properties
Object
Caption/Text
Label 1
Nama Depan
Label 2
Nama Tengah
Label 3
Nama Akhir
Label 4
Nama Lengkap
Edit1
Edit2
Edit3
Edit4
Button1
Gabung

Name
Label1
Label2
Label3
Label4
Edepan
Etengah
Eakhir
Egabung
bgabung

Listing Program
procedure TForm13.bgabungClick(Sender: TObject);
var
depan : string[20];
tengah : string[20];
akhir : string[20];
gabung : string[80];
begin
depan := edepan.Text ;
tengah := etengah.Text;
akhir := eakhir.Text;
gabung := depan+' '+tengah+' '+akhir;
elengkap.Text := gabung;
end;
7.2. Menghapus Teks
Prosedur standart ini digunakan untuk menghapus atau mengurangi sebagian atau seluruh
karakter terhadap string atau teks.
Bentuk umum penulisan :
Delete(teks, index, jumlah)
Delete adalah prosedur standart yang digunakan untuk menghapus teks. Teks merupakan
kalimat atau string yang akan dihapau, Index menunjukan posisi awal yang akan
dihapus. Jumlah menunjukan jumlah karakter yang akan dihapus.


Contoh :

a.

Hasil Setelah Form Dijalankan

Gambar 7.3 Form Hapus teks

Gambar 7.4 Desain Form Hapus teks


b.

Desain Properties
Object
Caption/Text
Label 1
Nama Anda
Label 2
Ketikan urutan mulai penghapusan
Label 3
Jumlah Karakter yang dihapus
Label 4
Nama Sesudah dihapus
Edit1
Edit2
Edit3
-

Name
Label1
Label2
Label3
Label4
Enama
Eurut
Ejumlah

Edit4
Button1
Button2
Group Box 1

Ehasil
bOK
Bclose
Group box 1

OK
Close
Rincian Nama Yang Ingin Dihapus

Listing Program :
Perintah penghapusan teks.
procedure TForm9.bokClick(Sender: TObject); var
karakter:string;
pos,jumlah:integer;
begin
karakter: = enama.Text;
pos := strtoint(eurut.Text);
jumlah := strtoint(ejumlah.Text); belete(karakter,pos,jumlah);
ehasil.Text := karakter;
end;
Program untuk keluar dari form
begin
close;
end;
7.3. Mencari Panjang teks (length)
Fungsi ini digunakan untuk menghitung panjang atau jumlah karakter dari suatu teks
atau kalimat. Dalam menghitung jumlah karakter dalam suatu teks spasi akan dibaca
sebagai satu karakter. Sebagai catatan hasil yang diperoleh dari perhitungan adalah
bilangan bulat positif.


Bentuk Umum
Length(teks)
Contoh :

Gambar 7.5 Desain Form Panjang String
a.

b.

Desain properties
Object
Caption/Text
Label 1
Operasi Standart Length
Label 2
Nama Anda
Label 3
Panjang Karakter dari Nama Anda
Edit1
Edit2
Button1
OK
Button2
Close

Name
Label1
Label2
Label3
Enama
Ehasil
bOK
Bclose

Listing Program Program untuk mengeksekusi pencarian panjang karakter
var
nama:string;
begin
nama := enama.Text ;
ehasil.Text := inttostr(length(nama));
end;
Program Untuk menutup Form
begin
close;
end;


7.4. Mencari Karakter Pada Teks (POS)
Fungsi ini digunakan untuk mencari letak atau posisi dari suatu karakter dari suatu
nilai string. Nilai yang dihasilkan adalah berupa byte.
Bentuk umum
Pos(sustr, string);
Contoh :
Hasil setelah dijalankan :

Gambar 7.6 Hasil Form Pencarian Huruf
a.

Desain Form

Gambar 7.7 Desain Form Pencarian Huruf


Object
Label 1
Label 2
Label 3
Label4
Edit1
Edit2
Edit3
Button1
Button2

b.

Caption/Text
Operasi Standart Pos
Kata Awal
Huruf yang Dicari
Huruf tersebut ada diposisi ke .......
OK
Close

Name
Label1
Label2
Label3
eawal
ecar
ehasil
bOK
Bclose

Listing Program Program untuk eksekusi perintah pencarian
procedure TForti7.bokClick(Sender: TObject); var
karakter : string;
kar : string;
hasil : integer;
begin
karakter:= eawal.Text;
kar:= ecari.Text;
hasil := pos(kar,karakter);
ehasil.Text := inttostr(hasil);
end;
Program Untuk menutup Form
procedure TFortig.bcloseClick(Sender: TObject);
begin
close;
end;
end.

7.5. Mengkopi String (Copy)
Fungsi ini digunakan untuk mencetak ulang string atau karakter sebanyak huruf yang
dipilih dengan posisi karakter awal yang sudah ditentukan.
Bentuk Umum : Copy(teks, index, jumlah);
Penulisan awal diawali dengan perintah copy, dengan diikuti teks yang ditunjukan
teks. Awal pengcopian ditunjukan dengan index, dan jumlah karakter yang akan di tulis
ulang ditunjukan deengan perintah jumlah.


Contoh
a.

Hasil setelah form dijalankan

Gambar 7.8 Hasil Form Copy Teks
b. Desain Form

Gambar 7.9 Desain Form Copy Teks
Desain Properties :
Object
Caption/Text
Label 1
Operasi Copy Teks
Label 2
Kata Awal
Label 3
Hasil Copy 1
Label4
Hasil Copy 2
Edit1
Edit2
Edit3
Button1
OK
Button2
Close

Name
Label1
Label2
Label3
Label4
eawal
Ehasil1
Ehasil2
bOK
Bclose


c. Listing Program Program untuk mengeksekusi program
var
karakter:string;
begin
karakter := eawal.Text;
ehasil1.Text := copy(karakter,5,3);
ehasil2.Text := copy(karakter,3,10)
end;
Program untuk menutup Form
begin
close;
end;

##Selamat Mencoba, Semoga Sukses##

STMIK Bumigora Mataram
Status Terakreditasi
Jl. Ismail Marzuki Mataram
Website : www.stmikbumigora.ac.id
Email : mail@stmikbumigora.ac.id
Telepon : (0370) 634498, Fax (0370) 638369



Modul pemrograman-1-revisi

More Related Content

What's hot (18)

Similar to Modul pemrograman-1-revisi (20)

More from Yang Terluka (20)

Modul pemrograman-1-revisi