MODUL PRAKTIKUM ALGORITMA DAN PEMROGAMAN III. Tim Penyusun: Dosen Teknik Informatika

MODUL PRAKTIKUM ALGORITMA DAN PEMROGAMAN III

Tim Penyusun: Dosen Teknik Informatika

JURUSAN TEKNIK INFORMATIKA FAKULTAS TEKNIK UNIVERSITAS PALANGKARAYA 2015

TATA TERTIB DAN TATA LAKSANA PRAKTIKUM TATA TERTIB : 1. Praktikan WAJIB mengikuti semua modul praktikum. 2. Praktikan hanya boleh tidak mengikuti praktikum 1 (satu) kali DENGAN ATAU TANPA SURAT IZIN dari jumlah pertemuan praktikum. 3. Praktikan yang berhalangan mengikuti praktikum, diwajibkan melaporkan ke dosen praktikum untuk menentukan jadwal praktikum sebagai pengganti jadwal yang berhalangan. 4. Praktikan yang lebih dari 1 (satu) kali tidak mengikuti praktikum, tidak diperbolehkan untuk mengikuti praktikum untuk modul-modul praktikum selanjutnya dan NILAI AKHIR PRAKTIKUM adalah NOL. 5. Praktikan diberikan toleransi waktu keterlambatan selama 15 menit dan tidak ada penambahan waktu praktikum. 6. Tidak diperbolehkan saling bekerja sama. 7. Dilarang menggunakan kaos oblong dan sendal selama praktikum. Bagi yang melanggar poin ini, tidak diperbolehkan mengikuti praktikum. TATA LAKSANA : 1. Sebelum praktikum di mulai, setiap praktikum wajib mengumpulkan LAPORAN HASIL PRAKTIKUM modul sebelumnya. 2. Jika praktikan tidak melaksanakan Tata Laksana poin 1, maka tidak diperbolehkan mengikuti praktikum. 3. Setiap modul praktikum, akan dilakukan Pre-Test. 4. Format laporan meliputi : Laporan Hasil Praktikum :  Halaman Depan  BAB I. Tujuan dan Landasan Teori  BAB II. Langkah Kerja  BAB III. Pembahasan  BAB IV. Kesimpulan  BAB V. Daftar Pustaka  BAB VI. Lampiran (disertai laporan rencana praktikum modul sebelumnya) 5. Format Penulisan  Spasi  Font  Font Size  Margins  Kertas

: 1,5 : Times New Roman : 12 : Top 3, Left 4, Right 3, Bottom 3 : A4

6. Penilaian Laporan Hasil Praktikum      

BAB I. Tujuan dan Landasan Teori BAB II. Langkah Kerja BAB III. Pembahasan BAB IV. Kesimpulan BAB V. Daftar Pustaka BAB VI. Lampiran Total

Nilai 20 Nilai 10 Nilai 40 Nilai 15 Nilai 5 Nilai 10 100

7. Praktikan yang mengabaikan format penulisan poin 5, akan dikurangi 5 setiap kesalahan.

8. Penilaian Akhir Praktikum :    

Pre-Test Praktikum Laporan Praktikum Responsi

Total

: 15 % : 30 % : 20 % : 35 % 100 %

9. Penilaian Akhir Mata Kuliah Algoritma dan Pemrograman III : Kuliah Praktikum Total

: 50 % : 50 % 100 %

Modul Algoritma dan Pemrograman III

MODUL I IDE ( Integrated Development Environment )

1. Perangkat lunak yang dibutuhkan 

Borland Delphi

2. Tujuan 

Memperkenalkan lingkungan kerja (IDE) Borland Delphi



Mendesain/membuat Program Sederhana



Menulis Source Program



Me-Run program/membuat file Executable

3. Teori A

Borland Delphi 6.0 Delphi merupakan bahasa pemrograman yang berorientasi objek (Objek

Oriental Programming/OOP). Objek Oriental Programming adalah Pemrograman yang terdiri dari beberapa objek yang berhubungan dan melakukan suatu aksi dalam suatu kejadian (event). Objek-objek tersebut digambarkan pada layar dan melakukan pengaturan property terhadap objek tersebut dengan menuliskan metode-metode terhadap objek tersebut sesuai dengan kajian dari program

B.

Jendela IDE

IDE delphi terdiri dari beberapa bagian utama yaitu menu, component pallet,toolbar, object tree view, code explorer, object inspector, from designer dan code editor seperti ditunjukkan pada Gambar 1.1. Dalam perancangan program ini komponenkomponen yang penting diketahui,yakni : Object Tree View

Toolbar

Form

Component Pallet

Code Explore

Menu

Code Editor

Object Inspector

Gambar 1.1 IDE Delphi 6.0 a. Object treeview digunakan untuk menampilkan hubungan parent-child antar komponen dalam bentuk hirarki Jurusan Teknik Informatika Fak. Teknik 2013

1


b. Componen Palette merupakan bagian yang digunakan untuk meletakkan bebagai komponen yang sesuai dengan kategory. Misalnya komponen yang digunakan untuk aplikasi yang menggunakan Borland Database Engine (BDE) akan diletakkan pada page BDE atau komponen yang digunakan untuk aplikasi yang membutuhkan Interbase akan diletakkan pada Interbase dan Interbase Admin.

c. Object Inpector terdiri dari 2 bagian yaitu : properties dan events, pada bagian properties dapat diatur berbagai property dari object atau komponen yang digunakan setiap komponen tentunya mempunyai property sendiri-sendiri.

d. Code Explorer pada jendela code explorer ini akan ditampilkan semua tipe variable dan routine yang didefinisikan pada unit. Selain itu juga ditampilkan semua unit yang digunakan dan terletak pada clausa uses. Untuk tipe yang kompleks seperti kelas pada explorer akan menampilkan semua informasi termasuk daftar field, properties dari method. Jika dilakukan klik dua kali pada salah satu item code explorer, secara otomatis Code Editor akan menampilkan deklarasi dari item yang di klik.

e. Code Editor Dalam bagian ini dapat dituliskan semua code dan memasukkan semua unit yang dipakai untuk program yang dibuat. Jika dibuka lebih dari satu file unit code Editor ini, pada bagian atas akan muncul tab atau page yang berisi nama file yang sedang dibuka. Susunan atau urutan page dapat dibuat judul yang lebih menarik pada bagian posisi yang diinginkan

f. Form adalah form tempat mengatur komponen yang sesuai dengan kebutuhan tampilan program yang kita buat.

C.

Langkah Kerja

Project Pertama (Membuat program hello ) Pada program yang pertama ini, kita akan membuat sebuah program hello. Langkah yang harus dilakukan: 1. Bukalah sebuah aplikasi baru, pilih menu File  New Application, kemudian Delphi akan menyediakan sebuah form kosong sebagai tempat untuk membuat tampilan program. 2.

Pada Form1 tanamkan sebuah kontrol Button (button1)

Jurusan Teknik Informatika Fak. Teknik 2013

2


Gambar 1.2. Desain Form

3. Letakanlah komponen tersebut pada form dan klik 2 kali maka akan tampil Code Editor untuk event Button on Click 4. Pada procedure klik, tuliskan koding berikut ini procedure TForm1.Button1Click(Sender: TObject); begin messagedlg('hallo apa kabar',mtinformation,[mbok],0); end;

5. Dan kita juga biasa menambahkan koding yang megakibatkan bila kita mengklik diluar button, maka aplikasi tersebut mengeluakan sebuah pesan procedure TForm1.FormClick(Sender: TObject); begin messagedlg('Anda menekan di luar tombol',mtwarning,[mbok],0); end;

6. Jalankan program dengan memilih Run atau dengan memilih F9, sehingga diperoleh hasil dengan mengklik button dan diluar button.

Gambar 1.3. Hasil Program pada saat Run

Project Kedua (Membuat program dengan Kontrol Label dan Button ) Langkah-langkah : 1. Aktifkan IDE Delphi 2. Pilih menu file dan klik new application 3. Pada form1 tambahkan kontrol Edit (Edit1) dan kontrol Button (button1)


3


Gambar 1.4. Desain untuk menampilkan pesan

4. aturlah properti-properti dari masing-masing kontrol sehingga menjadi sebagai berikut : Component Form1

Edit1

Properti

Nilai

Name

FrmPesan

Caption

Pesan

Name

EdPesan

Text Button1

Name

BtnTombol

Caption

Tombol

5. Lakukan koding untuk menmpilkan pesan berada pada control edit, ketika pemakai melakukan klik pada BtnTombol procedure TForm1.BtnTombolClick(Sender: TObject); begin edPesan.Text:=’ Selamat Belajar Delphi …’ ; end;

Caranya : Lakukan double klik pada kontrol BtnTombol, sehingga akan muncul jendela koding dan procedure BtnTombolClick: 6. Jalankan program anda dengan klik Run, atau tekan pada tombol F9, Jika terjadi kesalahan periksa kembali kebenaran programnya. 7. Keluar dari Delphi.

TUGAS PRAKTIKUM

1. Buatlah sebuah program dengan komponen edit dan 2 buah button. Apabila user memasukan text pada komponen edit dan menekan button ganti judul, maka judul form akan berubah sesuai dengan isi text pada komponen edit.


4


Gambar 1.5 Form Ganti Judul


5


MODUL II

TIPE DATA, OPERATOR, FUNCTION DAN PROCEDURE (Pertemuan Kedua)

1. Tujuan 

Memperkenalkan tipe data, Operator, Function Procedure pada Borland Delphi



Mendesain/membuat Source Program dengan menggunakan tipe data, operator, Function dan Procedure

1. Tipe Data

Setiap data yang disimpan di memori komputer harus memiliki tipe data. Tipe data yang sederhana sekali adalah dikelompokkan menjadi 2 bagian : a. Teks : 

Char (terdiri dari 1 huruf / 1 angka)



String (terdiri dari beberapa huruf/ angka)

b. Bilangan : 

Integer (bilangan bulat ). Tipe data integer terdiri atas beberapa varian data yaitu, Byte, Word, Longword, Shortint, Longint, Integer, int64 dsb.



Real (bilangan pecahan). Tipe data real terdiri atas beberapa varian data yaitu single, real, double, extended, comp, currency.

c. Boolean merupakan tipe variabel logika. Nilai dari variabel dari bertipe boolean adalah True atau False.

2. Operator Operator dipakai untuk memanipulasi dan mengolah adata. Delphi menyediakan bermacam-macam operator seperti tabel berikut

a. Operator Aritmatika


6


Operator aritmatika digunakan untuk melakukan operasi aritmatika. Delphi mempunyai beberapa operator aritmatik yaitu *, /, Div, Mod, +, -

b. Operator Relasi atau perbandingan

digunakan untuk membandingkan suatu

ekspresi atau data dengan expresi atau data lain. Hasil penggunaan operator relasi adalah data logika (Boolean) benar atau salah. Operator relasi yang digunakan dalam Delphi antara lain : = , < >, <, >, <=, >=

c. OperatorLogika Operator Logika digunakan untuk mengekspresikan satu atau lebih data atau ekspresi logika(Boolean), menghasilkan data logika (Boolean) seperti not, and, or dan xor.

3. Function dan Procedure

Function (fungsi) dan procedure adalah suatu rutin yang biasa dipakai sebagai alat untuk melakukan tugas tertentu dan mendapatkan nilai tertentu. a. Str : berupa procedure yang digunakan untuk mendapatkan nilai string dari suatu data numeric. Penulisannya seperti berikut ini: Str (x [:Width[: Decimal]],var S) x adalah data numeric dan S adalah variabel bertipe String

b. StrToCurr : berupa Function yang dipakai untuk mendapatkan nilai berupa data numeric bertipe currency dari suatu data string. Bentuk penulisannya seperti berikut : StrToCurr(S: string) Argumen S adalah suatu data string yang akan diambil nilai currencynya.

c. StrToDate : berupa Function yang dipakai untuk mendapatkan nilai berupa data bertipe TDateTime dari suatu data string StrToDate(S: string) Argumen S adalah suatu data string yang akan diambil nilai TDateTime


7


d. StrToFloat Function StrToFloat dipakai untuk mendapatkan nilai bertipe extended (salah satu tipe real). Bentuk penulisannya sebagai berikut : StrToFloat(S: string) S adalah data tipe string yang akan diambil nilai Extended-nya.

e. StrToInt Function StrToInt dipakai untuk mendapatkan nilai Integer dari suatu data string. Bentuk penulisannya sebagai berikut : StrToInt(S: string) S adalah data tipe string yang akan diambil nilai Integer-nya.

Project Pertama Menghitung luas empat persegi panjang Langkah-langkah : 1. Aktifkan IDE Delphi 2. Pilih menu file dan klik new application 3. Pada form1 tanamkan kontrol Label (4 buah), Edit (3 buah), dan Button (2 buah) 4. Aturlah properti-properti dari masing-masing komponen sesuai dengan table sebagai berikut :

Komponen Form1 Label1

Label2 Label3

Properti Name Caption Name Caption Font Size Font Style Name Caption Name Caption


Nilai FrmSegiempat Segi Empat LblJudul Empat Persegi Panjang 14 Bold LblPanjang Panjang LblLebar Lebar

8


Label4 Edit1 Edit2 Edit3 Button1 Button2

Name Caption Name Text Name Text Name Text Name Caption Name Caption

LblLuas Luas EdPanjang EdLebar EdLuas BtnHitung Hitung BtnKeluar Keluar

5. Lakukan desain seperti ditunjukkan pada Gambar 2.1.

Gambar 2.1. Desain Form untuk program Empat Persegi

6. Lakukan kode program untuk menghitung luas, ketika pemakai melakukan klik pada BtnHitung procedure TForm1.BtnHitungClick(Sender: TObject); var Luas : integer; begin luas:=StrToInt(edpanjang.Text)*StrToInt(edlebar.Text); edluas.Text:=IntToStr(luas); end;


9


Pilih menu file | Save lalu ketikkan nama filenya dan ulangi untuk menyimpan project. 7. Jalankan program anda dengan klik Run, atau tekan pada tombol F9, Jika terjadi kesalahan periksa kembali kebenaran programnya. 8. Keluar dari Delphi.

TUGAS PRAKTIKUM 1. Buatlah program untuk menghitung nilai akhir yang didapat oleh seorang Mahasiswa Algor 3. Sesuaikan dengan desain pada gambar 2.2

Gambar 2.2 Form Isi Nilai Mahasiswa a. Adapun yang menjadi input adalah : Nama Mahasiswa, Nilai Tugas, Nilai UTS, Nilai UAS dan Nilai Praktikum. b. Total Nilai Teori di dapat dari : 20% * Nilai Tugas + 30 % * Nilai UTS + 50% * Nilai UAS. c. Nilai Praktikum di dapat dari 50% * Nilai Total Teori + 50% Nilai Praktikum

2. Buatlah yang dapat mendemokan operator aritmatika dan operator logika yang menginputkan dua buah data. Hasil yang ditampilkan harus sesuai dengan tombol yang klik


10


Gambar 2.3. Desain Form untuk program Kalkulator Sederhana


11

Modul Algortima dan Pemrograman III

MODUL III PERCABANGAN DAN PERULANGAN 

IF, THEN, ELSE Struktur Kontrol IF … THEN digunakan untuk mengambil keputusan tertentu berdasarkan pengujian nilai logika (kondisi). if <ekspresi Boolean> then <statement> [else <statement>];



CASE Case adalah percabangan yang memiliki lebih dari dua alternative. Bentuk umum: Case <ekspresi case> of : <statement>; … : <statement>; else : <statement>; end



FOR Loop jenis ini dilakukan untuk pengulangan dengan banyaknya pengulangan yang sudah diketahui. Bentuk umum : For to [downto] do <statement> … End



WHILE Loop jenis ini digunakan untuk melakukan pengulangan selama suatu kondisi tertentu dipenuhi. Bentuk umum : While do begin <statement> … End



REPEAT Digunakan untuk melakukan pengulangan sampai suatu kondisi terpenuhi. Bentuk umum : Repeat <statement> … End

Komponen GroupBox dan RadioButton GroupBox digunakan untuk membingkai dan mengelompokkan beberapa objek tertentu. RadioButton digunakan untuk menampilkan pilihan yang dapat dipilih hanya salah satu pilihan yang disediakan. Pada bagian ini kita akan mempelajari komponen GroupBox dan RadioButton dengan suatu contoh program. Berikut ini adalah langkah-langkahnya.

Jurursan Teknik Informatika Fak. Teknik 2013

12


Langkah-langkah : 1. Pilih menu file dan klik new application 2. Pada form1 tanamkan komponen label (7 buah) dan komponen edit (7 buah), serta Button (2 buah) 3. Aturlah properti-properti dari masing-masing komponen sesuai dengan table sebagai berikut :

Komponen Form1 Label1 Label2 Label3 Label4 Label5 Label6 Edit1 Edit2 Edit3 Edit4 Edit5 Edit6 GroupBox1 RadioButton1 RadioButton2 Button1 Button2

Properti Name Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Caption Name Name Name Caption Name Caption

Nilai FrmNILAI SELEKSI TINGGI SISWA NIP NAMA ALAMAT KOTA NILAI TINGGI KETERANGAN EdNip EdNama EdAlamat EdKota EdNilai EdKeterangan Jenis Kelamin RbPerempuan RbLaki BtnMulai Mulai BtnSelesai Selesai



13


Gambar 3.1 Desain Form Untuk program Seleksi nilai Tinggi

5. Lakukan kode program untuk event OnClick pada BtnMulai dengan klik ganda pada BtnMulai. procedure TFrmNilai.BtnMulaiClick(Sender: TObject); begin EdNIP.Enabled:=true; EdNAMA.Enabled:=true; EdALAMAT.Enabled:=true; EdKOTA.Enabled:=true; EdNilai.Enabled:=true; EdNIP.Text:=''; EdNAMA.Text:=''; EdALAMAT.Text:=''; EdKOTA.Text:=''; EdNilai.Text:='0'; EdKeterangan.Text:=''; EdNIP.SetFocus; end;

6. Lakukan kode program untuk event OnChange pada komponen Edit (EdNilai). procedure TFrmNilai.EdNilaiChange(Sender: TObject); begin if (strtofloat(EdNilai.Text)>=155) and (RBPerempuan.Checked) then EdKeterangan.Text:='Lulus' else if (strtofloat(EdNilai.Text)>=165) and (RBLaki.Checked) then EdKeterangan.Text:='Lulus' else EdKeterangan.Text:='Gagal'; end;

ListBox dan ComboBox ListBox digunakan untuk menampilkan daftar pilihan. ComboBox digunakan untuk menampilkan dan mengetikkan teks dan dapat memilih pilihan dari daftar pilihan seperti pada object ListBox. Berikut ini adalah langkah-langkah membuat program menggunakan ListBox dan ComboBox.


14


Program Harga Barang Elektronika Langkah-langkah : 1. Pilih menu file dan klik new application 2. Pada form1 tanamkan kontrol label (3 buah), edit (1 buah), ComboBox (1 buah), dan ListBox (1 buah) 3.

Aturlah properti-properti dari masing-masing kontrol sesuai dengan table sebagai berikut : Component Form1 Label1 Label2 Label3 ComboBox1 ListBox1 Edit1

Properti Name Caption Caption Caption Caption Name Text Name Name Text Enabled

Nilai FrmBarang BARANG ELEKTRONIK Pilihan Barang Nama Barang Harga CBPilihan LBNama EdHarga False

4. Lakukan desain seperti ditunjukkan pada Gambar 3.2

Gambar 3.2 Desain Form Untuk Program Pilihan Barang 5. Lakukan kode program untuk event OnActive pada Form. procedure TFrmBarang.FormActivate(Sender: TObject); begin CBPilihan.Items.Clear; CBPilihan.Items.Append('Komputer'); CBPilihan.Items.Append('Printer'); CBPilihan.Items.Append('Televisi'); end;

6. Lakukan kode program untuk event OnClick pada CBPilihan.. procedure TFrmBarang.CBPilihanClick(Sender: TObject); var pilihan:integer; begin if CBPilihan.Text='Komputer' then Jurursan Teknik Informatika Fak. Teknik 2013

15


begin LBNama.Items.Clear; LBNama.Items.Append('Pentium III'); LBNama.Items.Append('Pentium IV'); end else if CBPilihan.Text='Printer' then begin LBNama.Items.Clear; LBNama.Items.Append('Canon 200SPX'); LBNama.Items.Append('Canon Pixma ip1000'); LBNama.Items.Append('Epson L-300'); end else if CBPilihan.Text='Televisi' then begin LBNama.Items.Clear; LBNama.Items.Append('Televisi 21"'); LBNama.Items.Append('Televisi 24"'); end; end;

7. Lakukan kode program untuk event OnClick pada LBNama.. procedure TFrmBarang.LBNamaClick(Sender: TObject); begin if CBPilihan.Text='Komputer' then case LBNama.ItemIndex of 0: edharga.Text:='Rp. 3000000'; 1: edharga.Text:='Rp. 4500000'; else edharga.Text:='0'; end else if CBPilihan.Text='Printer' then case LBNama.ItemIndex of 0: edharga.Text:='Rp. 500000'; 1: edharga.Text:='Rp. 600000'; 2: edharga.Text:='Rp. 700000'; else edharga.Text:='0'; end else if CBPilihan.Text='Televisi' then case LBNama.ItemIndex of 0: edharga.Text:='Rp. 2000000'; 1: edharga.Text:='Rp. 4000000'; else edharga.Text:='0'; end; end;


16


TUGAS PRAKTIKUM

1. Modifikasi Program harga barang elektronik dengan menambahkan 1 combo box seperti desain berikut :

-

Setiap harga barang akan di kurangi 10 % dari harga sebenarnya jika keanggotaan yang dipilih adalah Member.

2. Menggunakan desain program pada tugas no 1 praktikum modul 2, rancanglah program untuk menentukan nilai Akhir dan nilai Mutu dengan keterangan sebagai berikut : Nilai Huruf (NH) adalah berdasarkan Kriteria : Jika NA >= 75.5, maka NH=’A’ Jika NA < 75.5 dan NA >= 65.5, maka NH=’B’ Jika NA < 65.5 dan NA >= 55.5, maka NH=’C’ Jika NA < 55.5 dan NA >= 45.5, maka NH=’D’ Jika NA <45.5, maka NH=’E’


17


MODUL IV STRUKTUR KONTROL PERULANGAN

Perulangan (Loop) adalah proses pengulangan sekelompok pernyataan hingga batas waktu tertentu. Ada tiga perulangan yang digunakan yaitu FOR … DO , WHILE … DO dan REPEAT … UNTIL. A. Struktur Perulangan FOR … DO FOR … DO digunakan sebagai pencacah yang menambah atatu mengurangi nilai dari variabel tiap dilakukan perulangan. Bentuk penulisan Struktur FOR … DO : a. FOR-TO-DO Perulangan positif dengan penghitung (counter) dari kecil ke besar dengan kata lain pertambahannya positif. FOR Variabel_Indeks:=Nilai_Awal TO Nilai_Akhir DO Statemen b. FOR-DOWNTO-DO FOR Variabel_Indeks:=Nilai_Awal DOWNTO Nilai_Akhir DO Statemen Perulangan negatif dengan penghitung (counter) dari besar ke kecil dengan kata lain pertambahannya positif Contoh Program dengan Perulangan FOR … DO Langkah-langkah : 1. Pilih menu file dan klik new application 2. Pada form1 tanamkan kontrol label (1 buah), GroupBox (1 buah), RadioButton (1 buah), dan ListBox (1 buah) 3. Aturlah properti-properti dari masing-masing kontrol sesuai dengan table sebagai berikut : Component Form1 Label1 ListBox1 GroupBox1 RadioButton1 RadioButton2

Properti Name Caption Name Name Caption Caption Name Caption Name

Nilai FrmFORDO PERULANGAN FOR_DO Label1 LBLoop Perulangan FOR-DO FOR-TO-DO RBFORTODO FOR-DOWNTO-DO RBFORDOWNTODO



Gambar 4.1 Desain Form untuk Program Perulangan For-Do 5. Lakukan kode program untuk event OnClick pada RBFORTODO. procedure TFrmFORDO.RBFORTODOClick(Sender: TObject); var i:integer; begin label1.Caption:='Huruf Kapital A sampai Z'; LBLoop.Items.Clear; for i:=65 to 90 do LBLoop.Items.Append(chr(i)); end; 6. Lakukan kode program untuk event OnClick pada RBFORDOWNTODO. procedure TFrmFORDO.RBFORDOWNTODOClick(Sender: TObject); var i:integer; begin label1.Caption:='Huruf Kecil dari z ke a'; LBLoop.Items.Clear; for i:=122 downto 97 do LBLoop.Items.Append(chr(i)); end; B. Struktur Perulangan REPEAT … UNTIL REPEAT … UNTIL digunakan untuk melakukan proses perulangan suatu statemen terus-menerus selama kondisi masih bernilai logika salah. Bentuk penulisan Struktur REPEAT … UNTIL : REPEAT Statemen UNTIL Contoh Program dengan Perulangan REPEAT … UNTIL Langkah-langkah : 1. Pilih menu file dan klik new Form 2. Pada form3 tanamkan kontrol Button (1 buah) dan LisBox (1 buah).


3. Aturlah properti-properti dari masing-masing kontrol sesuai dengan table sebagai berikut : Component Form3 Button1 ListBox1

Properti Name Caption Caption Name Name

Nilai FrmREPEAT REPEAT UNTIL Repeat Until BTRepeat LBLoop


Gambar 5.3 Desain Form untuk program Perulangan Repeat-Until

4. Lakukan kode program untuk event OnClick pada BTRepeat. procedure TFrmRepeat.BTRepeatClick(Sender: TObject); var i:integer; begin i:=0; repeat LBLoop.Items.Add(inttostr(i)); i:=i+1; until i>20; end;

TUGAS PRAKTIKUM 1. Buatlah program untuk menampilkan : a. Bilangan 1 sampai N b. Bilangan Ganjil dan Genap dari N buah bilangan 2. Buatlah program untuk membaca N buah bilangan dan tentukan hasil penjulahan dan rata-ratanya (Perulangan FOR-DO dan WHILE-DO). 3. Buatlah Program untuk menentukan N Faktorial (Perulangan REPEAT UNTIL)


MODUL V LARIK/ARRAY

TUJUAN Mahasiswa lebih mahir menggunakan perintah dasar bahasa pemrograman Delphi.

LANDASAN TEORI Array adalah kumpulan data yang bertipe sama. Elemen array dapat diakses dengan menggunakan indeks yang berada pada kurung kotak ([]). Delphi menyediakan beberapa tipe array, yaitu static array, dynamic array serta open array. Bentuk umum definisi array adalah : = array [Tipe Indeks] of <Tipe Dasar> = array [Tipe Indeks, … ] of <Tipe Dasar> = array of <Tipe Dasar>

Array Dinamik Array dinamik adalah array yang tipe indeksnya integer dan ukurannya dapat berubah selama program berjalan. Batas minimum array dinamik adalah 0. Batas maksimum array dinamik dapat diatur dengan SetLength. Contoh : Type TArrayDinamik = array of integer; Var D1 : TArrayDinamik Begin SetLength(D1, 6); End;

LANGKAH KERJA

String Grid digunakan untuk menampilkan data array satu dimensi atau multi dimensi.

Langkah-langkah : 1. Pilih menu file dan klik new Form 2. Pada form2 tanamkan kontrol GroupBox (2 buah), Label (6 buah) Edit (3 buah), Button (3 buh) dan StringGrid (3 buah) pada jendela tool Additional. 3.

Aturlah properti-properti dari masing-masing kontrol sesuai dengan table sebagai berikut :


18


Komponen Form2

GroupBox1 GroupBox2 StringGrid1

StringGrid2

StringGrid3

Label1 Label2 Label3 Label4 Label5 Label6 Edit1 Edit2 Edit3 Button1 Button2 Button3

Properti Name Caption BorderStyle Name Caption Name Caption Name FixedRow FixedColl Name FixedRow FixedColl Name FixedRow FixedColl Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Name Name Name Caption Name Caption Name Caption

Nilai FrmArray_Matrik Menjumlahkan Matriks bsDialog GroupBox1 Input Jumlah Baris dan Kolom Matriks GroupBox2 Input Elemen Matriks StringGrid1 0 0 StringGrid2 0 0 StringGrid3 0 0 Label1 Jumlah Baris Label2 Jumlah Kolom LblInput Elemen Label4 MATRIK A Label5 MATRIK B Label6 MATRIK C EdBaris EdKolom EdMat BtJumlah OK BTJumlah Matrik A+B BTBtInput OK



19


Gambar 5.1 Desain Form Untuk Program Penjumlahan Matriks 5. Lakukan deklarasi variabel dan array pada Var: i,j,k,l:integer; Status:Boolean;

6. Lakukan kode program untuk event OnCreate pada Form. procedure TFrmArray_Matrik.FormCreate(Sender: TObject); begin GroupBox2.Enabled:=false; end;

7. Lakukan kode program untuk event OnClick pada BTJumlah. procedure TFrmArray_Matrik.BtJumlahClick(Sender: TObject); begin Status:=True; StringGrid1.RowCount:=strtoint(EdBaris.Text); StringGrid1.ColCount:=strtoint(EdKolom.Text); StringGrid2.RowCount:=strtoint(EdBaris.Text); StringGrid2.ColCount:=strtoint(EdKolom.Text); StringGrid3.RowCount:=strtoint(EdBaris.Text); StringGrid3.ColCount:=strtoint(EdKolom.Text); EdBaris.Enabled:=false; EdKolom.Enabled:=false; GroupBox2.Enabled:=true; end;

8. Lakukan kode program untuk event OnChange pada EdMat. procedure TFrmArray_Matrik.EdMatChange(Sender: TObject); Jurursan Teknik Informatika Fak. Teknik 2013

20


begin Lblinput.Caption:='['+''+inttostr(i)+','+Inttostr(j)+']'; end;

9. Lakukan kode program untuk event OnClick pada BTInput. procedure TFrmArray_Matrik.BtInputClick(Sender: TObject); begin if status=True then begin StringGrid1.Cells[i,j]:=EdMat.Text; groupbox2.Caption:='Input Elemen Matriks A' end else if status=false then begin StringGrid2.Cells[i,j]:=EdMat.Text; groupbox2.Caption:='Input Elemen Matriks B'; end; if (i<>strtoint(Edkolom.Text)-1) or (j<>strtoint(Edbaris.Text)-1) then begin if i<strtoint(Edkolom.Text)-1 then i:=i+1 else if j<strtoint(Edbaris.Text)-1 then begin i:=0; j:=j+1; end; end else begin if status=true then ShowMessage('Elemen sudah habis Isi Matrik Brikutnya') else begin ShowMessage('Elemen sudah habis Isi Jumlahkan Matrik A dan B'); GroupBox2.Enabled:=false; end; i:=0; j:=0; Status:=false; end;

10. Lakukan kode program untuk event OnClick pada BTTambah. procedure TFrmArray_Matrik.BtTambahClick(Sender: TObject); var EMaA,EMatB:integer; begin for i:=0 to strtoint(EdBaris.Text)-1 do for j:=0 to StrToInt(EdKolom.Text)-1 do begin EMaA:=StrToInt(StringGrid1.Cells[i,j]); EMatB:=StrToInt(StringGrid2.Cells[i,j]); StringGrid3.Cells[i,j]:=IntToStr(EMaA+EMatB); end; end;


21


TUGAS PRAKTIKUM

1. Buatlah program untuk melakukan perkalian dua buah matrik. 2. Buatlah program untuk mengurutkan N buah bilangan (ascending dan descending)

-

Tombol input digunakan untuk memasukan isi textbox bilangan i ke dalam list box

-

Tombol Urutkan akan mengurutkan angka yang ada di dalam list box sesuai dengan opsi urut yang dipilih.


22


MODUL VI MENU DAN DIALOG STANDAR

TUJUAN : 1. Mahasiswa bisa menggunakan fasilitas menu dan dialog standar pada Delphi dengan baik.

LANDASAN TEORI A. Menu Delphi menyediakan dua buah object untuk membuat menu dengan mudah dan cepat yaitu Object MainMenu (TMainMenu) dan object PopupMenu. MainMenu dipakai untuk membuat menu berbentuk Pull-Down, yaitu menu yang terdiri atas menu utama yang berderet mendatar (horizontal) dan submenu yang berbentuk tegak (vertical). Berikut ini sebuah contoh program dengan menggunakan Object MainMenu. Contoh Program dengan menampilkan beberapa Form

Langkah-langkah : 1. Pilih menu file dan klik new application 2. Pada form1 tanamkan kontrol MainMenu (1 buah). 3. Pilih menu file dan klik new form (tambahkan 3 buah form) 4. Aturlah properti-properti dari masing-masing kontrol sesuai dengan tabel sebagai berikut :

Component Form1 MainMenu1 Form2 Form3

Properti Name Caption Name Name Caption Name Caption


Nilai FrmMenu MENU TAMPILKAN FORM MenuUtama FrmSatu INI ADALAH FORM SATU FrmDua INI ADALAH FORM DUA 23


Form4

Name Caption

FrmTiga INI ADALAH FORM TIGA

5. Klik ganda pada mainmenu tuliskan Pilihan pada properti (caption) lalu tekan Enter. Sehingga mendapatkan nama Pilihan1. Selanjutnya mengisi submenu dengan klik Pilihan pada frmmenu.MenuUtama kemudian tuliskan Form Satu pada Caption dan seterusnya. 6. Aturlah nilai propertis Shortcut mis, dengan nilai “Ctrl+S”. 7. Tambahkan submenu Form Dua dan Tiga dan Menu Keluar dengan submenu Ya dan Tidak seperti ditunjukkan pada Gambar 5.1.

Gambar 5.1 Membuat Menu dengan MainMenu

8. Lakukan kode program untuk event OnClcik pada submenu Form Satu. procedure TFrmMenu.FormSatu1Click(Sender: TObject); begin frmsatu.show; end;

9. Lakukan kode program untuk event OnClcik pada submenu Form Dua. procedure TFrmMenu.FormDua1Click(Sender: TObject); begin Jurursan Teknik Informatika Fak. Teknik 2013

24


frmdua.show; end;

10. Lakukan kode program untuk event OnClcik pada submenu Form Tiga. procedure TFrmMenu.FormTiga1Click(Sender: TObject); begin frmtiga.show; end;

11. Lakukan kode program untuk event OnClcik pada submenu Ya. procedure TFrmMenu.Ya1Click(Sender: TObject); begin application.Terminate; end;

B. Dialog Standar Delphi menyediakan sejumlah dialog standar dalam bentuk komponen untuk berbagai keperluan, mulai dai dialog untuk membuka site sampai dialog untuk pencetakan. Dialog standar pada Delphi dapat dilihat pada Component Pallete Dialogs. 

OpenDialog : method execute dari komponen ini akan menampilkan sebuah dialog yang dapat digunakan untuk memilih file



SaveDialog : komponen ini hampir sama dengan OpenDialog, tetapi bila method execute dipanggil makan akan ditampilkan adalah dialog untuk menyimpan file.



OpenPictureDialog dan SavePictureDialog : komponen ini serupa dengan OpenDialog dan SaveDialog, tetapi pada dialog yang ditampilkan terdapat sebuah panel yang dapat menampilkan gambar yang dipilih dalam ukuran kecil.



FontDialog : komponen ini digunakan untuk menampilkan standar font dialog. Cara menggunakannya mirip dengan dialog lain, yaitu dengan menggunakan method execute.



ColorDialog : komponen ini digunakan untuk menampilkan standar color dialog.


25


Langkah Kerja : 1. Buatlah sebuah file dengan ekstensi .txt, kemudian simpan file tersebut. 2. Pilih menu file dan klik new application 3. Tambahkan 2 buah button, 1 buah RichEdit, OpenDialog dan SaveDialog. 4. Aturlah properti-properti dari masing-masing kontrol sesuai dengan tabel sebagai berikut : Component Form1 Button 1 Button2 RichEdit1 OpenDialog1 SaveDialog1

Properti Name Caption Name Caption Name Caption Name Name Name

Nilai FrmMenu MENU OPEN DAN SAVE BtnOpen OPEN BtnSave SAVE RichEdit1 OpenDialog1 SaveDialog1

5. Lakukan kode program untuk event OnClcik pada submenu Form Tiga. procedure TFrmMenu.BtnOpenClick(Sender: TObject); var F1 : TextFile; Ch : char; begin if BtnOpen.Execute then begin RichEdit1.Text := ‘ ‘; AssignFile(F1, OpenDialog1.FileName); Reset(F1); while not Eof(F1) do begin Read(F1, Ch) RichEdit1.text := RichEdit1.Text + Ch; end; end; CloseFile(F1); end;


26


TUGAS PRAKTIKUM Buatlah sebuah program yang mempunyai tampilan seperti gambar 6.1. Program tersebut dapat melakukan perintah untuk membuka sebuah file *.txt, kemudian menyimpan data yang sudah di ketik pada RichEdit. Program ini juga menyediakan fasilitas untuk menentukan font dan warna pada text.

Gambar 6.1 Form pengolahan kata


27

LAPORAN RENCANA PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN III

Nama NIM Kelas Modul

:…………….. :…………….. :…………….. :…........……..

JURUSAN TEKNIK INFORMATIKA FAKULTAS TEKNIK UNIVERSITAS PALANGKA RAYA 2015

LAPORAN AKHIR PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN III

Nama NIM Kelas Modul

:…………….. :…………….. :…………….. :…......……....

JURUSAN TEKNIK INFORMATIKA FAKULTAS TEKNIK UNIVERSITAS PALANGKA RAYA 2015

MODUL PRAKTIKUM ALGORITMA DAN PEMROGAMAN III. Tim Penyusun: Dosen Teknik Informatika

Recommend Documents