i
Panduan Praktikum
Praktik Pemrogaman Komputer Arif Wibisono, S.Pd, M.Kom.
ii
KATA PENGANTAR Bahasa pascal adalah bahasa pemrogaman yang sangat terkenal, bagi progammer yang biasa memakai bahasa pascal, terutama memakai software turbo pascal dapat beralih ke Borland Delphi (Visual Pascal) yang merupakan bahasa pemrogaman yang berorientasi obyek dengan menggunakan bahasa pascal. Bahasa pascal terkenal dengan bahasa yang terstruktur demikian juga dengan Borland Delphi. Borland Delphi memiliki kelebihan antara lain, memiliki VCL (Visual Component Language) yang lengkap, baik untuk kebutuhan sistem, hubungan dengan data, hubungan dengan internet dan lain-lain. Materi yang dibahas dalam buku ini meliputi: Persiapan meliputi: Instalasi, mengenal lingkungan kerja Delphi, Operator, Deklarasi dan Tipe Data, Proses Berurutan, Proses Percabangan, Proses Perulangan, Fungsi, Array, Operator String untuk Pokok Bahasan Basis Data akan dituliskan di panduan perkuliahan maupun praktikum semester berikutnya. Semoga panduan praktikum pemrogaman komputer ini dapat membantu para mahasiswa untuk mengenal dan lebih memahami mengenai pemrogaman komputer. Semarang, Februari 2014 Tim Penyusun
ii
iii
DAFTAR ISI KATA PENGANTAR ...........................................................................................................ii DAFTAR ISI.........................................................................................................................iii DAFTAR GAMBAR ............................................................................................................. v DAFTAR TABEL................................................................................................................. vi BAB 1.
Persiapan.............................................................................................................. 1
1.1.
Instalasi ................................................................................................................... 1
1.2.
Mengenal Lingkungan Kerja Borland Delphi ......................................................... 1
BAB 2. 2.1.
Operator, Deklarasi, Tipe Data dan Mengenal Object ........................................ 6 Deklarasi ................................................................................................................. 6
2.1.1.
Deklarasi Konstanta ......................................................................................... 6
2.1.2.
Deklarasi Variable ........................................................................................... 6
2.2.
Tipe Data ................................................................................................................. 7
2.2.1.
Tipe Data Numeric Integer .............................................................................. 7
2.2.2.
Tipe Data Real ................................................................................................. 7
2.2.3.
Tipe Data String ............................................................................................... 7
2.2.4.
Tipe Data Char ................................................................................................. 8
2.3.
Mengenal Operator.................................................................................................. 8
2.3.1.
Operator Penugasan (Assigment Operator) ..................................................... 8
2.3.2.
Operator Aritmatika ......................................................................................... 8
2.3.3.
Operator String ................................................................................................ 9
BAB 3.
Proses Berurutan ................................................................................................ 10
3.1.
Memulai Membuat Aplikasi ................................................................................. 10
3.2.
Label dan Font....................................................................................................... 12
3.3.
Merancang Aplikasi Dengan Delphi ..................................................................... 14
3.4.
Latihan Membuat Progam Pembayaran ................................................................ 18
3.5.
Show Message Form (Message Dialog) ............................................................... 18
BAB 4.
Proses Percabangan ........................................................................................... 20
4.1.
Percabangan if ....................................................................................................... 20
4.2.
Percabangan Case.................................................................................................. 20
4.2.1.
Mengenal Object II (Combo box, list box dan radio button)......................... 20
4.3.
Merancang Progam dengan fungsi IF ................................................................... 21
4.4.
Progam Biaya Ujian .............................................................................................. 26
BAB 5.
Prosedur, Perulangan dan Mengenal Input Box ................................................ 27 iii
iv 5.1.
Prosedur................................................................................................................. 27
5.2.
Perulangan ............................................................................................................. 28
5.3.
Study Kasus Perulangan ........................................................................................ 29
5.4.
Aplikasi Konversi Suhu ........................................................................................ 32
BAB 6.
Fungsi ................................................................................................................ 33
6.1.
Pengertian Fungsi .................................................................................................. 33
6.2.
Fungsi Tunggal...................................................................................................... 33
6.3.
Fungsi Untuk Memanggil Fungsi yang lain .......................................................... 34
BAB 7.
Array .................................................................................................................. 37
7.1.
Pengertian Array ................................................................................................... 37
7.2.
Deklarasi Array ..................................................................................................... 37
7.3.
Alokasi Penggunaan Array ................................................................................... 37
7.4.
Studi Kasus progam dengan Array ....................................................................... 38
BAB 8.
Operator String .................................................................................................. 40
8.1.
Menggabungkan String ......................................................................................... 40
8.2.
Menghapus Teks ................................................................................................... 40
8.3.
Mencari Panjang Teks (Length) ............................................................................ 41
8.4.
Mencari Karakter Pada Teks (POS) ...................................................................... 42
8.5.
Mengkopi String (Copy) ....................................................................................... 43
8.6.
Konversi Karakter ke ASCII (Chr) ....................................................................... 44
DAFTAR PUSTAKA .......................................................................................................... 45
iv
v
DAFTAR GAMBAR Gambar 1. Shorcut icon Delphi 7 .......................................................................................... 1 Gambar 2. Properties Delphi 7 .............................................................................................. 1 Gambar 3. Windows Utama................................................................................................... 2 Gambar 4. Component Palette ............................................................................................... 2 Gambar 5. Object Inspector ................................................................................................... 3 Gambar 6. Object Treeview ................................................................................................... 4 Gambar 7. Form Designer ..................................................................................................... 4 Gambar 8. Code Editor .......................................................................................................... 5 Gambar 9. Run “delphi32” untuk memulai progam ............................................................ 10 Gambar 10. Komponen Form .............................................................................................. 10 Gambar 11. Pengaturan Object Treeview ............................................................................ 11 Gambar 12. Pengaturan pada Code Editor........................................................................... 11 Gambar 13. Hasil Compile+Run Aplikasi Tampil Kalimat ................................................ 12 Gambar 14. Desain properti Form ....................................................................................... 12 Gambar 15. Hasil ketika form dijalankan ............................................................................ 14 Gambar 16. Desain form ...................................................................................................... 15 Gambar 17. Form setelah dijalankan ................................................................................... 18 Gambar 18. Form hasil aplikasi showmessage .................................................................... 18 Gambar 19. Form hasil aplikasi perhitungan tunjangan pegawai ........................................ 21 Gambar 20. Form desain aplikasi perhitungan tunjangan pegawai ..................................... 22 Gambar 21. String list editor................................................................................................ 23 Gambar 22. Even properties ................................................................................................ 23 Gambar 23. Form hasil aplikasi saringan masuk IKIP PGRI Semarang ............................. 26 Gambar 24. Form hasil aplikasi studi kasus perulangan ..................................................... 29 Gambar 25. Form desain aplikasi studi kasus perulangan ................................................... 30 Gambar 26. Form hasil aplikasi konversi suhu.................................................................... 32 Gambar 27. Form hasil aplikasi pemanggilan fungsi lain ................................................... 34 Gambar 28. Form desain aplikasi pemanggilan fungsi lain ................................................. 34 Gambar 29. Form hasil aplikasi konversi hari ..................................................................... 38
v
vi
DAFTAR TABEL Tabel 1. Simbol aritmatik dalam delphi................................................................................. 8 Tabel 2. Pengaturan Properti ............................................................................................... 10 Tabel 3. Pengaturan Properti ............................................................................................... 13 Tabel 4. Pengaturan Events ................................................................................................. 14 Tabel 5. Desain properties ................................................................................................... 15 Tabel 6. Desain properties aplikasi showmessage ............................................................... 19 Tabel 7. Mengenal object combo box, list dan radio button................................................ 20 Tabel 8. Struktur kepegawaian ............................................................................................ 21 Tabel 9. Desain properties aplikasi perhitungan tunjangan pegawai ................................... 22 Tabel 10. Desain properties aplikasi studi kasus perulangan .............................................. 30 Tabel 11. Desain properties aplikasi pemanggilan fungsi lain ............................................ 35 Tabel 12. Desain properties aplikasi konversi hari .............................................................. 38
vi
1
BAB 1. 1.1.
Persiapan
Instalasi Untuk memulai proses instalasi siapkan dulu file perangkat lunak yang akan ditambahkan ke dalam sistem komputer anda.
Gambar 1. Shorcut icon Delphi 7
Langkah instlasinya : Klik kanan Install Folder instalasi biarkan default, tunggu proses hingga selesai, tutup progam Pilih Windows Explorer Local Disk (C) Progam Files, Klik kanan pada folder Delphi7SE Klik kanan Properties Berikan pengaturan Full Control pada Users
Gambar 2. Properties Delphi 7
1.2.
Mengenal Lingkungan Kerja Borland Delphi Untuk memulai mempelajari Borland Delphi, langkah pertama yang biasa dilakukan adalah
dengan
mempelajari
lingkungan
pengembangan
Development Environment) dari Borland Delphi itu sendiri.
terintegrasi
(Integrated
2 WINDOWS UTAMA Windows utama berada pada posisi atas dari layar. Windows utama terdiri dari menu utama, toolbar dan komponen palette. Kota menu terdiri dari menu-menu dropdown. Pada bagian toolbar terdapat sekumpulan shotcut/tombol untuk operasi-operasi yang sering digunakan (seperti menjalankan progam, menambahkan form ke sebuah proyek, menyimpan unit dan lain-lain). Untuk melihat fungsi dari tiap-tiap tombol yang ada, dapat dilihat dengan meletakkan kursor mouse diatas tombol tersebut.
Gambar 3. Windows Utama
COMPONENT PALLETTE Pada progam-progam yang berjalan pada sistem operasi Windows, pengguna disajikan dengan aplikasi yang terdiri dari layar dan objek-objek yang berbeda, seperti tombol, textbox, radiobutton, check box dan lain-lain. Dalam istilah delphi, istilah objekobjek tersebut disebut dengan control atau komponen. Setiap komponen mempunyai atribut tertentu yang memungkinkan bagi pengembang untuk mengatur aplikasi ketika waktu desain (design time) atau waktu dijalankan (run time). Component palette dapat dilihat pada gambar dibawah ini.
Gambar 4. Component Palette
OBJECT INSPECTOR Setiap komponen dan setiap form mempunyai sekumpulan properties (seperti warna, ukuran, posisi, judul (caption) yang dapat dimodifikasi pada IDE Delphi atau dalam kode progam anda), dan sekumpulan event (seperti Klik Mouse, penekanan tombol) dimana anda dapat menentukan beberapa perilaku tambahan. Objek inspector menampilakan properties dan event untuk komponen yang sedang dipilih dan memperbolehkan anda untk mengganti nilai properti atau memilih respon terhadap suatu event yang terjadi.
2
3
Gambar 5. Object Inspector
Sebagai contoh, setiap form mempunyai Caption (judul yang terlihat pada kotak judul). Untuk mengubah judul tersebut, caranya adalah dengan mengaktifkan form dengan mengklik form tersebut. Kemudian pada object inspector carilah properti Caption (pada kolom kiri), kemudian ganti isinya dengan yang ada pada bagian kanan dengan mengisi Caption/judul yang diinginkan. Jangan lupa tekan tombol Enter jika telah yakin caption baru tersebut akan digunakan. Mirip dengan properti, event juga dapat dipergunakan. Misalnya kita akan membuat menampilkan suatu pesa ketika form di klik, maka caranya adalah dengan mengaktifkan form dengan mengklik formnya kemudian di object inspector klik tab event. Kemudian cari event OnClick dan kemudian double klik di bagian kanan atau isi nama metode yang akan digunakan ketika event klik terjadi.
3
4 OBJECT TREEVIEW Bagian atas Object Inspector anda akan melihat windows Object Treeview. Awalnya windows ini hanya terdiri dari nama form. Tetapi ketika anda menambahkan sebuah komponen ke form tersebut, maka object baru tersebut akan terdaftar di dalam Object treeview dibagian bawah form.
Gambar 6. Object Treeview
FORM DESIGNER Setiap anda memulai Delphi, sebuah project dibuat yang terdiri dari sebuah windows kosong. Umumnya aplikasi Delphi terdiri dari beberapa windows. Windows tersebut di Delphi disebut sebagai form. Awalnya form pertama akan diberi nama Form1. Kita bisa mengganti namanya, melakukan perubahan ukuran mengatur posisinya. Windows biasanya mempunyai caption/judul dan tiga tombol standar yaitu minimize, maximize dan tutup windows.
Gambar 7. Form Designer
4
5 CODE EDITOR Code editor merupakan tempat di mana anda dapat menuliskan kode progam. Pada bagian ini anda dapat menuliskan pernyataan-pernyataan dalam Object Pascal. Keuntungan bagi pemakai Delphi adalah bahwa anda tidak perlu menuliskan kode-kode sumber, karena Delphi telah menyediakan kerangka penulisan sebuah progam.
Gambar 8. Code Editor
File-file pada Delphi 1. *.pas Merupakan source file, disini akan disimpan kode pascal yang kita tulis. 2. *.dpr Merupakan project file. Sebagai project file, file ini berguna untuk meggabungkan satu atau lebih file-file source (*.pas). 3. *.dcu (Delphi compiled Unit) Pada saat kita membuat sebuah aplikasi, Delphi akan membuat file ini. File ini berfungsi untuk me-link-kan kita dengan file lain (*.dcu) sehingga kita bisa membuat beberapa form yang terhubung satu dengan yang lainnya. 4. *.dfm (Delpi Form) File ini berisi informasi mengenai data-data form. 5. *.res (Windows Resources) File ini merupakan file biner yang berisi sebuah ikon yang digunakan oleh project. File ini secara terus-menerus di update atau diubah oleh Delphi sehingga file ini tidak bisa diubah oleh pemakai. 6. *.dof (Delphi project options) Kita dapat mengubah icon aplikasi tersebut, dan datanya disimpan pada file ini. 7. *.exe Merupakan appllication file setelah kita compile program kita.
5
6
BAB 2. 2.1.
Operator, Deklarasi, Tipe Data dan Mengenal Object
Deklarasi Dalam setiap penulisan bahasa pemrogaman deklarasi sangat digunakan apabila dalam penulisan progam dibutuhkan identifier atau tanda pengenal. Identifier pada umumnya dibuat oleh progammer yang digunakan untuk mewakili nilai dari suatu object. Identifier yang dikenal dalam Delphi adalah label, konstanta, tipe, tungsi, procedure maupun variable.
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 identifier yang diberi sebuah nilai. Contoh procedure Tform1.etertulisChange(sender.Tobject); const nil1:=’30000’; begin end;
2.1.2. Deklarasi Variable Deklarasi variable adalah tanda pengenal dalam Delphi yagn mempunyai nilai yang mana nilai tersebut akan 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.EpraktekKeyPress(Sender:Tobject;var Key: Char); var praktek,nil2,nil1:real; begin if(key=#13)then begin nil:=strtofloat(ehtulis.Text); praktek:=strtofloat(epraktek.text); nil2:=0.4*praktek; ehpraktek.Text:=floattostr(nil2); form2.ActiveControl:=cmi; emurni.Text:=floattostr(nil1+nil2); if nil1>60 then egrade.Text:=’Lulus’ else egrade.Text:=’Gagal’ end; end.
6
7
2.2.
Tipe Data Deklarasi variable adalah tanda pengenal dalam Delphi yagn mempunyai nilai yang mana nilai tersebut akan berubah selama proses berjalan. Definisi variabel diawali dengan kata baku Var diikuti dengan kumpulan identifier yang diikuti dengan tipe data yang dibutuhkan.
2.2.1. Tipe Data Numeric Integer Tipe data integer merupakan tipe data bilangan bulat yang hanya mengenal bilangan decimal. Dimana tipe data Integer tidak mengenal pecahan Bentuk Umum Var Nil1:integer; Begin Nil1:=5000;
2.2.2. Tipe Data Real Tipe data numeric real adalah tipe data dari suatu tanda pengenal selain mengenal bilangan bulat utuh tipe data ini juga mengenal nilai angka yang mengenal pecahan. Bentuk Umum Var Nil:real; Begin Nil1:=20,5;
2.2.3. Tipe Data String Tipe data string merupakan salah satu jenis tipe data selain mengenal angka disini tipe data dapat juga mengenal data berupa huruf maupun tanda baca. Bentuk Umum Var Nama:string; Begin Nama:=’Arif’;
7
8 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.3.
Mengenal Operator Delphi mengenal banyak operator, sama seperti bahasa pemrogaman yang lain, operator menjadi satu hal penting yang harus ada untuk perancangan progam.
2.3.1. Operator Penugasan (Assigment 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:=”Irmawan” C:= A + B;
2.3.2. Operator Aritmatika Operator aritmatika berfungsi untuk melakukan suatu proses aritmatika yang meliputi perkalian, pembagian, penjumlahan, pengurangan maupun pengurangan terhadap suatu nilai variable yang tersimpan dalam suatu object, dengan memberikan nilai baru. Simbol yang dikenal di dalam Delphi Tabel 1. Simbol aritmatik dalam delphi
Symbol
Keterangan
+
Penjumlahan
-
Pengurangan
*
Perkalian
/
Pembagian
Div
Pembagian Integer
Mod
Sisa Pembagian
8
9 Contoh B:= B:= B:= B:= B:=
15+2; 15 div 2 15/2 15*2 15mod2
hasil B= B= B= B= B=
17 7 7,5 30 1
2.3.3. Operator String Digunakan untuk menggabungkan dua teks/string atau lebih. Symbol yang digunakan=+ Contoh = Bentuk Umum A:= teks1 + teks2
Contoh A:=”Aku”; B:=”Bisa”; C:=A + B; Hasil C = Aku Bisa
9
10
BAB 3. 3.1.
Proses Berurutan
Memulai Membuat Aplikasi Project pertama dimulai dengan membuat sebuah aplikasi untuk menampilkan kalimat dengan cara mengklik tombol. Langkah prakteknya : 1. Aktifkan progam Borland Delphi, dengan salah satu cara seperti dibawah ini ;
Gambar 9. Run “delphi32” untuk memulai progam
2. Tambahkan komponen Edit dan komponen Button pada Form ;
Gambar 10. Komponen Form
3. Atur Properti Form Kalimat menjadi seperti dibawah ini ; Tabel 2. Pengaturan Properti
Komponen Form
Edit
Button
Properti
Setting
Name
FormKalimat
Caption
Form Tampil Kalimat
Name
EditTampilan
Text
(Kosongkan)
Name
ButtonTampil
Caption
&Tampil
10
11
Gambar 11. Pengaturan Object Treeview
4. Setelah selesai dengan properti form kalimat pada Button1, aktifkan Code editor ButtonTampil
dengan
Event
OnClick,
tulis
kode
progam
EditTampilkan.Text := ‘SELAMAT BELAJAR DELPHI’; 5. Delphi
memberikan kemudahan dalam penulisan kode progam
dengan
menampilkan properti suatu komponen secara otomatis dengan cara menekan Ctrl+Spacebar
Gambar 12. Pengaturan pada Code Editor
11
12 6. Compile dan jalankan Progam diatas setelah terlebih dulu disimpan dengan ektensi (*.pas) ,(*.dpr) dengan cara tekan tombol Run pada main windows atau tekan F9 pada keyboard. 7. Hasil Compile+Run (F9), progam menampilkan text ketika kita men-klik tombol “Tampil”
Gambar 13. Hasil Compile+Run Aplikasi Tampil Kalimat
3.2.
Label dan Font Untuk memudahkan belajar pemrogaman Delphi yang berbasis PBO (Pemrogaman Berorientasi Objek) kali ini kita akan belajar membuat project Label dan Font. Langkah Prakteknya ; 1. Buatlah desain Form seperti gambar dibawah ini ;
Gambar 14. Desain properti Form
12
13 2. Atur Properti Form menjadi seperti dibawah ini ; Tabel 3. Pengaturan Properti
Komponen
Properti
Setting
Name
Form1
Caption
Contoh Properti Label
Label1
Caption
Selamat Datang ...
Label2
Caption
Style font
Label3
Caption
Ukuran font
Label4
Caption
Warna font
Name
Button1
Caption
Miring
Name
Button2
Caption
Tebal
Name
Button3
Caption
Bergaris Bawah
Name
Button4
Caption
16
Name
Button5
Caption
18
Name
Button6
Caption
20
Name
Button7
Caption
biru
Name
Button
Caption
Merah
Name
Button9
Caption
Hijau
Name
Button10
Caption
Tutup
Form
Button1
Button2
Button3
Button4
Button5
Button6
Button7
Button8
Button9
Button10
13
14 3. Atur Properti Events dan Tulis Peng-codingannya pada jendela Code Editor. Tabel 4. Pengaturan Events
Komponen
Events-OnClick
Coding/Code Editor
Button1
Button1Click
Label1.Font.Style:=[fsitalic];
Button2
Button2Click
label1.Font.Style:=[fsbold];
Button3
Button3Click
label1.Font.Style:=[fsunderline];
Button4
Button4Click
label1.Font.Size:=16;
Button5
Button5Click
label1.Font.Size:=18;
Button6
Button6Click
label1.Font.Size:=20;
Button7
Button7Click
label1.Font.Color:=clBlue;
Button8
Button8Click
label1.Font.Color:=clRed;
Button9
Button9Click
label1.Font.Color:=clGreen;
Button10
Button10Click
close;
4. Jalankan Progam dan Lihat Perbedaan yang terjadi, jika kita menekan masingmasing Tombol (Miring/Tebal/Bergaris bawah/16/18/20/biru/Merah/Hijau).
3.3.
Merancang Aplikasi Dengan Delphi a. Hasil ketika form dijalankan
Gambar 15. Hasil ketika form dijalankan
14
15 b. Desain Form
Gambar 16. Desain form
c. Desain Properties Tabel 5. Desain properties
Komponen
Properti Name
Label 1 Label 2 Label 3 Label 4 Label 5 Label 6 Label 7 Label 8 Edit1 Edit2 Edit3 Edit4 Edit5
Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Text Name Text Name Text Name Text Name Text
Setting Label 1 Progam pengenalan dasar operator delphi Label 2 Nilai Praktek I Label 3 Nilai Praktek II Label 4 Nilai Perhitungan Label 5 hasil Label 6 hasil Label 7 hasil Label 8 hasil Nil1 Nil2 Ehtambah Ehkali Ehbagi -
15
16 Name Text Name Caption Name Caption Name Caption Name Caption Name Caption
Edit6 Button1 Button2 Button3 Button4 Button5
ehkurang Btambah Tambah Bkali Kali Bbagi Bagi Bkurang Kurang Bclose Close
d. Listing Progam 1. Progam untuk tambah Digunakan untuk menampilkan hasil penjumlahan antara nilai praktek I dengan nilai praktek II, cara double klik pada button tambah dan tuliskan kode berikut ini : procedure TForm1.BtambahClick(Sender: TObject); var bil1,bil2,tambah:real; begin bil1:=strtofloat(Nil1.Text); bil2:=strtofloat(Nil2.Text); tambah:=bil1+bil2; ehtambah.Text:=floattostr(tambah); end;
Catatan Var Nil1,Nil2:real; Tambah:real;
Var digunakan untuk mendeklarasikan suatu nama variable yang dibuat oleh progammer yang berfungsi untuk menyimpan nilai atau data selama proses progam berjalan Nil1,nil2 dan tambah adalah nama variable baru yang dibentuk oleh progammer Real adalah nama dari sekian banyak tipe data yang dikenal dalam bahasa pemrogaman 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 Floatttostr adalah fungsi yang digunakan merubah nilai dari tipe data string menjadi tipe data numeric
16
17 2. Progam untuk kali procedure TForm1.BkaliClick(Sender: TObject); var bil1,bil2,kali:real; begin bil1:=strtofloat(Nil1.Text); bil2:=strtofloat(Nil2.Text); kali:=bil1*bil2; ehkali.Text:=floattostr(kali); end;
3. Progam untuk bagi procedure TForm1.BbagiClick(Sender: TObject); var bil1,bil2,bagi:real; begin bil1:=strtofloat(Nil1.Text); bil2:=strtofloat(Nil2.Text); bagi:=bil1/bil2; ehbagi.Text:=floattostr(bagi); end;
4. Progam untuk kurang procedure TForm1.BkurangClick(Sender: TObject); var bil1,bil2,kurang:real; begin bil1:=strtofloat(Nil1.Text); bil2:=strtofloat(Nil2.Text); kurang:=bil1-bil2; ekhurang.Text:=floattostr(kurang); end;
5. Progam untuk keluar procedure TForm1.BcloseClick(Sender: TObject); begin close; end; end.
17
18
3.4.
Latihan Membuat Progam Pembayaran a. Form setelah dijalankan
Gambar 17. Form setelah dijalankan
b. Ketentuan yang diinginkan pemilik counter 1. Nama Menu, Harga Menu dan Jumlah merupakan media input bagi user mengenai detail nama menu, harga menu dan jumlah yang dipesan. 2. Bayar digunakan untuk menampilkan perkalian dari jumlah yang dibeli dengan harga barang, dengan cara mengklik Total Bayar. 3. Untuk menutup form user tinggal mengklik exit.
3.5.
Show Message Form (Message Dialog) a. Hasil ketika form dijalankan
Gambar 18. Form hasil aplikasi showmessage
18
19 b. Desain Properties Tabel 6. Desain properties aplikasi showmessage
Komponen Button1 Button2 Button3
Properti Name Caption Name Caption Name Caption
Setting bSimpan Simpan bHapus Hapus Data bKeluar Keluar
c. Listing Progam 1. Message dialog untuk simpan procedure TForm1.bSimpanClick(Sender: TObject); begin ShowMessage('Data yang anda masukkan sudah masuk ke database'); end;
2. Message dialog untuk hapus procedure TForm1.bHapusClick(Sender: TObject); begin MessageDlg('Apakah anda yakin menghapus data ini',mtConfirmation, mbYesNoCancel, 0 ); end;
3. Message dialog untuk keluar procedure TForm1.bKeluarClick(Sender: TObject); begin messageDlg('Ingin Keluar Progam',mterror,[mbok],0); close; end;
19
20
BAB 4.
Proses Percabangan
Percabangan dalam bahasa pemrogaman disebut juga pengkodisian dalam menentukan keputusan (seleksi), sehingga bila kondisi tertentu memenuhi maka akan diambil keputusan berdasarkan kondisi tertentu memenuhi maka akan diambil keputusan berdasarkan kondisi yang terpenuhi tersebut. Sedangkan operator percabangan merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapap pilihan yang ada.
4.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 b. Percabangan untuk kondisi majemuk
4.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 case dan if tidak ada perbedaan tetapi untuk penulisan fungsi case lebih mudah diterapkan untuk pilihan atau kondisi lebih dari satu.
4.2.1. Mengenal Object II (Combo box, list box dan radio button) Tabel 7. Mengenal object combo box, list dan radio button
1
Checkbox
Digunakan untuk menentukan pilihan lebih dari satu
2
Radio Button
3
List Box
Digunakan untuk menentukan pilihan, tetapi hanya satu pilihan yang bisa digunakan Menampilkan pilihan dalam bentuk list
4
Combo Box
Menampilkan pilihan dalam bentuk popup
20
21
4.3.
Merancang Progam dengan fungsi IF a. Hasil Yang Diperoleh
Gambar 19. Form hasil aplikasi perhitungan tunjangan pegawai
Ketentuan Perhitungan Gaji 1. Dalam Struktur organisasi yayasan ketentuan gaji dosen/karyawan yayasan terbagi menjadi 3 struktur utama Tabel 8. Struktur kepegawaian
Jabatan Struktural Dosen Karyawan
Gaji Pokok 5000000 3000000 1000000
2. Besarnya tunjangan ditentukan oleh status kepegawaian
21
22 b. Desain Form
Gambar 20. Form desain aplikasi perhitungan tunjangan pegawai
c. Desain Properties Tabel 9. Desain properties aplikasi perhitungan tunjangan pegawai
Object Label 1 Label 2 Label 3 Label 4 Label 5 GroupBox1 RadioButton1 RadioButton2 Edit1 Edit2 Edit3 Edit4 Combo Box Button1 Button2 Button3
Name Label1 Label2 Label3 Label4 Label5 GroupBox1 Rtetap Rhonorer enama epokok etunjangan cbersih Cjabatan Btotal Blagi Bclose
Caption/Text Nama Pegawai Jabatan Gaji Pokok Tunjangan Status Gaji Bersih Status Tetap Honorer Total Gaji Isi Data Lagi Close
d. Listing Progam 1. Memberikan pilihan pada combo box sesuai dengan pilihan pada jabatan, dengan menggunakan object properties, langkah-langkahnya : - aktifkan combo box yang akan dipilih - pada properties pilih dan klik item, lalu klik command (...)
22
23 - pada jendela string list editor, seperti terlihat pada jendela berikut
Gambar 21. String list editor
- ketikan kata sebagai kata pilihan pada jendela seperti contoh tersebut diatas - setelah selesai klik OK 2. Progam untuk mencari gaji pokok - aktifkan combo box untuk jabatan - pada jendela properties pilih event - pilih dan aktifkan onclick, seperti terlihat seperti gambar berikut ini
Gambar 22. Even properties
- double klik pada combo onclick - ketikan progam berikut procedure TForm1.CjabatanClick(Sender: TObject); begin if cjabatan.Text='Struktural'then epokok.Text:='5000000' else if cjabatan.Text='Dosen'then epokok.Text:='2000000' else if cjabatan.Text='Karyawan'then epokok.Text:='1000000' else epokok.Text:='0' end;
23
24
3. Progam menghitung tunjangan pegawai tetap - Double klik pada option tetap dan ketikan progam berikut ini procedure TForm1.RtetapClick(Sender: TObject); var a,hasil:real; begin if rtetap.Checked = true then a:=strtofloat(epokok.Text); hasil:=a*0.3; etunjangan.Text:=floattostr(hasil) end;
4. Progam menghitung tunjangan pegawai honorer - Double klik pada option honorer dan ketikan progam berikut ini procedure TForm1.RhonorerClick(Sender: TObject); var a,hasil:real; begin if rhonorer.Checked = true then a:=strtofloat(epokok.Text); hasil:=a*0.1; etunjangan.Text:=floattostr(hasil) end;
5. Progam menghitung gaji bersih/total gaji - Double klik pada command total gaji, dan ketikan progam berikut ini : procedure TForm1.BtotalClick(Sender: TObject); var a,b,c,hasil:real; begin a:=strtofloat(epokok.Text); b:=strtofloat(etunjangan.Text); c:=a+b; ebersih.Text:=floattostr(c); end;
6. Progam bersih/isi data lagi - Double klik pada isi data lagi, dan ketikan progam berikut ini : procedure TForm1.BlagiClick(Sender: TObject); begin cjabatan.Text:='Jabatan'; enama.Text:=''; ebersih.Text:='0'; etunjangan.Text:='0'; epokok.Text:='0'; rtetap.Checked:=false; rhonorer.Checked:=false; end;
24
25 7. Progam Close dengan pesan, seperti tampilan sebagai berikut - Double klik pada close dan ketikan progam berikut ini : procedure TForm1.BcloseClick(Sender: TObject); begin close; end; end.
25
26
4.4.
Progam Biaya Ujian Buatlah progam untuk mencari biaya ujian untuk calon siswa pada suatu perguruan tinggi Tampilan yang diinginkan adalah sebagai berikut ini
Gambar 23. Form hasil aplikasi saringan masuk IKIP PGRI Semarang
Ketentuan Pencarian Biaya 1. Nilai murni didapat dari penjumlahan (nilai praktek * 60%) ditambah (nilai teori * 40%). 2. Keterangan = Gagal jika nilai murni < 60 dan dinyatakan lulus jika nilai murni >=60 3. Biaya penjurusan diperoleh dari dua pilihan jurusan yang ada: - Jika pilihan TI maka biayanya = 250000 - Jika pilihan PTI maka biaya = 300000 4. Pilihan Biaya Waktu Ujian diperoleh dari 2 waktu kuliah yang ada. Jika pilihan pagi maka biaya kuliah = 50000, 1000000 untuk biaya kuliah malam 5. Total biaya diperoleh dari penjumlahan semua jurusan ditambah biaya waktu kuliah 6. Isi data lagi untuk mengulang input data 7. Close untuk menutup progam 26
27
BAB 5. 5.1.
Prosedur, Perulangan dan Mengenal Input Box
Prosedur Prosedur adalah suatu progam terpisah dan berdiri dalam suatu blok progam dan berfungsi sebagai sebuah sub progam (progam bagian). Penulisan prosedur diawali dengan kata Procedure pada bagian deklarasi progam dan cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi. Alasan penggunaan prosedur 1. Digunakan untuk penggalan progam yang akan digunakan secara berulang – ulang dalam suatu proses progam 2. Digunakan untuk memecah-mevah progam menjadi sebuah modul progam. Sehingga listing progam 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 pendeklarasian sebuah prosedur dalam Delphi ditempatkan setelah kata public agar dapat dikenali oleh semua object yang ada dalam proses progam tersebut. Penulisannya diawali dengan kata Procedure diikuti nama procedure. Public Procedure bersih;
b. Penulisan Prosedur Penulisan progam prosedur terdapat dalam bagian implementation, Procedure Tform1.Bersih; Begin Enama.text:=”; Ealamat.text:=”; Ekota:=”; End;
27
28 c. Pemanggilan Prosedur Pemanggilan prosedur terdapat dalam bagian implementation, pada umumnya pemanggilan prosedur terdapat dalam suatu ruang lingkup object yang mempunyai sebuah event. Cara pemanggilannya cukup hanya dituliskan nama prosedurnya saja. Procedure.Tform1.button1click(sender:Tobject); Begin Bersih; End;
atau ketika progam prosedur digunakan pada object yang lain untuk memanggil progam yang sama kita hanya cukup menuliskan nama prosedurnya tanpa dibutuhkan pendeklarasian prosedur baru. Procedure Tform1.enamakeypress(sender:Tobject; var key:char); Begin If key = #13 then Bersih; End;
5.2.
Perulangan Merupakan control progam yang digunakan untuk suatu proses yang akan berjalan terus menerus. Kondisi peruangan merupakan proses berjalannya progam secara terusmenerus dan akan berhenti ketika proses mendapatkan kondisi yang sudah ditentukan.
28
29
5.3.
Study Kasus Perulangan a. Hasil Setelah Dijalankan
Gambar 24. Form hasil aplikasi studi kasus perulangan
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
29
30 b. Desain Form
Gambar 25. Form desain aplikasi studi kasus perulangan
c. Desain Properties Tabel 10. Desain properties aplikasi studi kasus perulangan
Object
Caption/Text
Name
Label 1
Total Item yang dibeli
Label1
Label 2
Tanggal
Label2
Label 3
No Faktur
Label3
Label 4
Total Penjualan
Label4
GroupBox1
Data Penjualan
Groupbox 1
GroupBox2
Daftar Nama Barang Yang Dibeli
Groupbox 2
GroupBox3
Daftar Harga Barang
Groupbox 3
Button1
OK
Cmdok
Button2
Isi Data Lagi
Cmdlagi
Button3
Close
cmdclose
30
31
d. Listing Progam Progam untuk menampilkan tanggal secara otomatis ketika form dijalankan procedure TForm1.FormCreate(Sender: TObject); begin DateSeparator:='-'; ShortDateFormat:='mm/dd/yyyy'; etgl.Text:='Hari ini'+DateToStr(Date); end;
Progam command OK procedure TForm1.CmdokClick(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('Data 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.Items.Add(inputharga); harga:=harga+strtofloat(inputharga); end; end; etotal.Text:=floattostr(harga); end;
Progam Untuk Isi Data Lagi procedure TForm1.CmdlagiClick(Sender: TObject); begin eitem.Text:=''; enofaktur.Text:=''; lnama.Clear; lharga.Clear; etotal.Text:=''; end; end.
31
32
Progam Untuk Menutup Form procedure TForm1.cmdcloseClick(Sender: TObject); begin close; end;
5.4.
Aplikasi Konversi Suhu a. Hasil yang Diinginkan
Gambar 26. Form hasil aplikasi konversi suhu
b. Ketentuan Progam 1. Batas Awal dan Batas akhir diberikan untuk mengetahui nilai awal dan akhir derajat celcius yang ingin dicetak. 2. Penambahan diberikan untuk memberikan penambahan dari nilai awal untuk mencapai nilai akhir. 3. Close adalah untuk keluar dari progam. 4. Rumus Mencari Fahrenheit adalah = 1.8*Celcius+32
32
33
BAB 6. 6.1.
Fungsi
Pengertian Fungsi Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan progam yang terpisah dari progam utama dan berfungsi sebagai sebuah progam bagian dari progam utama. Penulisan fungsi diawali dengan kata cadangan function dan diklarasikan dalam bagian deklarasi fungsi. Dan penulisan progam fungsi ditempatkan pada progam utama. Satu hal yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya. Bentuk Umum penulisan Fungsi Function identifier (daftar-parameter) : type; Contoh Function hitung (var a,b : real) :real; Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;.
6.2.
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.
33
34
6.3.
Fungsi Untuk Memanggil Fungsi yang lain Merupakan pembuatan progam fungsi yang digunakan untuk memanggil progam fungsi yang lain didalam satu listing progam. Contoh a. Hasil Yang Diinginkan
Gambar 27. Form hasil aplikasi pemanggilan fungsi lain
b. Desain Form
Gambar 28. Form desain aplikasi pemanggilan fungsi lain
34
35 c. Desain Properties Tabel 11. Desain properties aplikasi pemanggilan fungsi lain
Object
Caption/Text
Name
Label 1
Nama Peminjam
Label1
Label 2
Jumlah Uang Pinjam
Label2
Label 3
Tingkat Bunga (dalam %)
Label3
Label 4
Lama Pinjam
Label4
Label 5
Besarnya
Uang
Yang
Harus Label5
Label 6
Cicilan Uang Setiap Bulan
Label6
GroupBox1
Rincian Nama Anggota
Groupbox1
Edit1
-
Epeminjam
Edit2
-
Epinjam
Edit3
-
Ebunga
Edit4
-
Elama
Edit5
-
Ekembalian
Edit6
-
Ecicil
Button1
Total
Btotal
Button2
Bersih
Bbersih
Button3
Close
bclose
Dikembalikan
35
36 d. Listing Progam Progam Total function pangkat(x,y:real):real; begin pangkat:=exp(ln(x)*y); end; function bunga(e,f,g:real):real; begin bunga:=e*pangkat((1+f/100),g); end; procedure TForm1.BtotalClick(Sender: TObject); var a,b,c,d,e:real; begin a:=strtofloat(epinjam.Text); b:=strtofloat(ebunga.Text); c:=strtofloat(elama.Text); d:=bunga(a,b,c); ekembalian.Text:=floattostr(d); ekembalian.Text:=formatfloat('#.###,0',d); e:=d/c; ecicil.Text:=floattostr(e); ecicil.Text:=formatfloat('#.###,0',e); end;
Progam Bersih procedure TForm1.BbersihClick(Sender: TObject); begin epinjam.Text:=''; elama.Text:=''; epeminjam.Text:=''; ebunga.Text:=''; ekembalian.Text:=''; ecicil.Text:=''; end;
Progam Menutup Form procedure TForm1.bcloseClick(Sender: TObject); begin close; end;
36
37
BAB 7. 7.1.
Array
Pengertian Array Pengertian secara umum mengenai fungsi adalah merupakan sebuah penggalan progam yang terpisah dari progam utama dan berfungsi sebagai sebuah progam bagian dari progam utama. Penulisan fungsi diawali dengan kata cadangan function dan diklarasikan dalam bagian deklarasi fungsi. Dan penulisan progam fungsi ditempatkan pada progam utama. Satu hal yang perlu diperhatikan dalam penulisan fungsi adalah harus diikuti dengan tipe datanya.
7.2.
Deklarasi Array Didalam penulisan bahasa pemrogaman setiap penggunaan array harus dideklarasikan terlebih dahulu. Pendeklarasian array diawali dengan nama variable array diikuti dengan indeks array yang dituliskan didlam 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;
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 bisa disebut array dengan deklarasi tipe indeks subrange integer. b. Array Dinamis (Dynamic Arrays) Larik atau array dinamis merupakan array yang tidak mempunyai suatu jangkauan atau ukuran yang tetap. Tetapi ketika progam dijalankan maka memori untuk suatu array dinamis direalukasikan ketika kita menugaskan suatu nilai kepada array. Dynamic-Array jenis ditandai oleh konstruksi (menyangkut) format.
37
38
7.4.
Studi Kasus progam dengan Array a. Hasil ketika form Dijalankan
Gambar 29. Form hasil aplikasi konversi hari
b. Desain Properties Tabel 12. Desain properties aplikasi konversi hari
Object
Caption/Text
Name
Label 1
Tanggal
Label1
Label 2
Bulan
Label2
Label 3
Tahun
Label3
Label 4
Hari Pada Tanggal tersebut Adalah
Label4
GroupBox1
Entry Tanggal
Groupbox1
Edit1
-
Etgl
Edit2
-
Ebln
Edit3
-
Etahun
Edit4
-
Ehari
Button1
OK
bok
38
39 c. Listing Progam Progam untuk Button OK procedure TForm1.bokClick(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','Kamis','','Jum''at','Sabt u'); var hr:string; nama:string[255]; j1,j2,j3,j4:integer; tanggal,bulan,tahun:integer; begin tanggal:=strtoint(etgl.Text); bulan:=strtoint(ebln.Text); tahun:=strtoint(etahun.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; end.
39
40
BAB 8. 8.1.
Operator String
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 „+‟. Contoh procedure TForm1.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; Egabung.Text :=gabung; end; end.
Bila Progam tersebut dijalankan maka akan diperoleh hasil sebagai berikut
8.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)
40
41 Delete adalah prosedur standart yang digunakan untuk menghapus teks. Teks merupakan kalimat atau string yang akan dihapus, index menunjukkan posisi awal yang akan dihapus. Jumlah menunjukkan jumlah karakter yang akan dihapus.
8.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. Contoh procedure TForm1.bOKClick(Sender: TObject); var nama:string; begin nama:=enama.Text; ehasil.Text:=inttostr(length(nama)); end; procedure TForm1.bcloseClick(Sender: TObject); begin close; end; end.
Bila Progam tersebut dijalankan maka akan diperoleh hasil sebagai berikut
41
42
8.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 procedure TForm1.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; procedure TForm1.BcloseClick(Sender: TObject); begin close; end; end.
Bila Progam tersebut dijalankan maka akan diperoleh hasil sebagai berikut
42
43
8.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 ditunjukkan teks. Awal pengcopian ditunjukkan dengan index, dan jumlah karakter yang akan ditulis ulang ditunjukkan dengan perintah jumlah. Contoh procedure TForm1.bOKClick(Sender: TObject); var karakter:string; begin karakter:=eawal.Text; ehasil1.Text:=copy(karakter,5,3); ehasil2.Text:=copy(karakter,3,10) end; procedure TForm1.BcloseClick(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.
Bila Progam tersebut dijalankan maka akan diperoleh hasil sebagai berikut
43
44
8.6.
Konversi Karakter ke ASCII (Chr) Fungsi ini digunakan untuk mengkonversi Kode ASCII menjadi nilai karakter atau huruf. Bentuk umum Chr(karakter);
Contoh procedure TForm1.bOKClick(Sender: TObject); var angka:integer; begin angka:=strtoint(eangka.Text); ehuruf.Text:=chr(angka); end; end.
Bila Progam tersebut dijalankan maka akan diperoleh hasil sebagai berikut
44
45
DAFTAR PUSTAKA Kusdiawan, W. (2010). Cara Mudah dan Cepat Membuat Progam Aplikasi Database dengan Delphi. Yogyakarta: Penerbit Gava Media. Supardi, Y. (2004). Borland Delphi Dalam Praktek. Jakarta: Datakom Lintas Buana.
45