TUGAS DELPHI 7 Nama NPM Jurusan Semester Kelas
I.
: Tohari : 12326020 : Manajemen Informatika :V : Malam
Membuat Fungsi Looping Langkah-langkah membuat fungsi looping menggunakan Delphi 7 1. Buka program Delphi 7. 2. Buatlah project baru dan buatlah form baru. 3. Desain form, masukan label, form text dan tombol kontrol yang dibutuhkan dari Componen Pallet untuk membuat form looping seperti gambar berikut :
4. Ubahlah caption, name dan text dengan ketentuan properties sebagai berikut : Item Caption Name Text Form1 Edit1 Label1 GroupBox1 GroupBox2 Edit2 Edit3 Edit4 Edit5 Edit6 Button1 Button2 Button3 Button4 Button5 Button6 Button7
Tugas 1 – Tohari Ck FORM LOOPING Lihat Hasil Pilihan Looping For To Do For Down To Do While Do Repeat Until Ganjil Repeat Until Genap Clear Exit
frmlooping eTanggal Label1 GroupHasil GroupAction eHasil1 eHasil2 eHasil3 eHasil4 eHasil5 btnFor btnForDown btnWhile btnRepeatGanjil btnRepeatGenap btnClear btnExit
-
Ket : Untuk mengubah properties diatas dapat diubah ditool box Object Inspector.
5. Memulai coding : a. Di Object Inspector pilih frmLooping, klik Events – klik double OnActivate, ketikan coding sebagai berikut :
Maksud coding diatas adalah untuk memunculkan hari dan tanggal hari ini. b. Pada form, klik dua kali tombol For To Do, ketikan coding sebagai berikut :
c. Coding Tombol For Down To Do, klik double dan ketikan coding sebagai berikut :
d. Coding While Do, klik double dan ketikan coding sebagai berikut :
e. Coding Repeat Until Ganjil, klik double dan ketikan coding sebagai berikut :
f. Coding Repeat Until Genap, klik double dan ketikan coding sebagai berikut :
g. Coding Clear, klik double dan ketikan coding sebagai berikut :
h. Coding Exit, klik double dan ketikan coding sebagai berikut :
Sehingga akan muncul kotak pesan seperti gambar dibawah ini :
6. Hasil akhir yang diharapkan adalah :
7. Menyimpan project, klik save project beri nama Tugas1Looping.dpr dan klik save as untuk menyimpan coding, beri nama Tugasku1Looping.pas
II.
Membuat Fungsi String Langkah-langkah membuat fungsi String menggunakan Delphi 7 1. Buka program Delphi 7. 2. Buatlah project baru dan buatlah form baru. 3. Desain form, masukan label, form text dan tombol kontrol yang dibutuhkan dari Componen Pallet untuk membuat form fungsi string seperti gambar berikut :
4. Ubahlah caption, name dan text dengan ketentuan properties sebagai berikut : Item Caption Name Text Form1 Edit1 Label1 GroupBox1 GroupBox2 GroupBox3 GroupBox4 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10 Label11 Label12 Label13 Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Edit8 Edit9 Memo1 Memo2 Memo3 Memo4 Button1 Button2 Button3 Button4 Button5 Button6 Button7 Button8 Button9
Tugas 1 – Tohari Ck FUNGSI STRING Penggabungan Kata Hapus Karakter Panjang Teks Operasi POS Teks 1 Teks 2 Hasil Kalimat Proses dimulai huruf ke Sejumlah Hasil Kalimat Hasil Kalimat Huruf yang dicari Pada posisi ke OK Clear Proses Clear OK Clear OK Clear Close
Operasi_string eTanggal Label1 GroupBox1 GroupBox2 GroupBox3 GroupBox4 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10 Label11 Label12 Label13 eSatu eDua eHasil eMulai eJumlah eCari ePosisi ePanjang Memo1 Memo2 Memo3 Memo4 Button1 Button2 Button3 Button4 Button5 Button6 Button7 Button8 Button9
-
Ket : Untuk mengubah properties diatas dapat diubah ditool box Object Inspector. 5. Memulai coding : a. Di Object Inspector pilih frmLooping, klik Events – klik double OnCreate, ketikan coding sebagai berikut :
Maksud coding diatas adalah untuk memunculkan hari dan tanggal hari ini. b. Coding untuk menggabungkan kata, klik double tombol OK
c. Coding untuk membersihkan teks pada grup box gabung kata
d. Coding untuk proses menghapus karakter / teks
e. Coding untuk menghapus teks pada grup box hapus karakter
f. Coding untuk menghitung panjang teks / karakter
g. Coding untuk mencari posisi huruf / karakter
h. Coding untuk membersihkan teks pada grup box operasi pos
i. Coding untuk tombol Close
Sehingga muncul kotak pesan seperti gambar dibawah ini :
6. Hasil akhir yang diharapkan
8. Menyimpan project, klik save project beri nama Tugas2FungsiString.dpr dan klik save as untuk menyimpan coding, beri nama Tugas2oprString.pas
= STMIK CIKARANG =
