STRUKTUR PROGRAM DELPHI

1. STRUKTUR PROGRAM DELPHI

2. Komentar Komentar digunakan untuk memberikan penjelasan atau keterangan didalam baris program. Teks yang ditulis sebagai komentar tidak akan dikompilasi oleh compiler pada saat program aplikasi dijalankan. Untuk menulis sebuah komentar dapat menggunakan : • Kurung Kurawal → { Komentar program} • Kurung Bintang → (*Komentar program*) • Slash ganda → // Komentar program

3. KONSTANTA dan VARIABEL • KonstantadanVariabelmempunyainama, yang • biasadisebut identifier. Ketentuan Identifier : • panjang identifier bolehberapasaja, tetapihanya 63 karakterpertama yang dikenal. • Karakterpertamadari identifier harussebuahhurufataugarisbawahdankarakter-karakterberikutnyabolehhuruf, angkaataugarisbawah. • PenulisanNama variable tidakbolehdiawaliangka

4. IDENTIFIER Aturan-aturanpenamaan identifier : • Semua identifier diawalidengansebuahkarakterataugarisbawah (a..z, A..Z atau _). Karakter-karaktersetelahnyadapatberupahuruf, garisbawahatauangka (0..9). • Identifier bersifatCase-insensitive (tidakmembedakanhurufkecildanhurufbesar.

5. Mendeklarasikan Variabel • Variabel perlu dideklarasikan sebelum digunakan. Sintax untuk mendeklarasikan variable adalah : • Var nama_identifier : tipe_data; • Contoh : • Var • Panjang, lebar : interger; • Luas : single • Sudahbetul : boolean

6. Operator • Dalam melaksanakan proses pengolahan data, Delphi menyediakan berbagai operator, yaitu : • Operator assignment ( :=) berfungsi untuk memasukkan suatu nilai data ke dalam sebuah variabel, dengan bentuk penulisan: Nama variabel := ekspresi; Contoh : Harga := 500; Jumlah:=20; Total:= harga * jumlah;

7. operator Aritmatika, terdiri dari :

8. operator relasi, berfungsi untuk membandingkan suatu nilai (ekspresi) dengan nilai (ekspresi) lain yang akan menghasilkan suatu nilai logika (boolean) yaitu true dan false. Kedua data yang dibandingkan harus memiliki tipe data yang sama. Contoh : =, >,<,>=,<=,<> (tidak sama dengan).

9. Operator logika • Operator Logikadibagidua : • a. Operator bit

10.  Operator boolean Operator boolean selalu memberikan hasil true atau false, sedangkan operator bit berhubungan dengan pergeseran atau pembandingan pada level bit (pada nilai integer).

11. Operator Relasional Dipakaiuntukmembandingkandua variable, samasepertimatematika.

12. Contoh : X := 21 + 9 > 20; {menghasilkan True} X := 21 - 9 > 20; {menghasilkan False} • Urutan Operator

13. KONVERSI TYPE DATA • Dalampengolahan data biasanya k itamemerlukansuatukonversi type data, banyaksekalikonversi data yang bisadilakukanpada Delphi. Contohkonversi type data: • Strtoint  • Mengubah type data string ke integer. • Inttostr  • Mengubah type data integer ke string. • Timetostr  • Mengubah type data time kedalambentuk string. • Strtofloat  • Mengubah type data string kedalambentuk real. • Floattostr • Mengubah type data real kedalambentuk string.

14. TyPE DATA • Type Integer Type data integer dipakaiuntukmenyatakan n\bilangan yang tidakmempunyai decimal. Tabelberikutmemberikantipe-tipebilangan integer besertajangkauandanmemori yang diperlukan. Type Integer Merupakanbilanganasli ( 1, 2, 3, 4, ...). • Tipe real Tipe data real dipakaiuntukmenyimpanbilangan yang mempunyai decimal Type Real adalahBilanganbulat (berupapecahandan integer).

15. Type Currency Type Currency adalah type yang barudikembangkan. Adakeuntungan type Currency: • Type Currency mempunyaiketelitian yang lebihtinggidalammenanganibilangan yang besar. • Type Currency dipakaipadaCurrencyFielddankomponen-komponen lain dankompatibeldengantipe-tipe database yang menyatakanuang.

16. Tipe Boolean Tipe Boolean dipakaiuntukmenyatakannilai logic. Variabeltipeinihanyadapatberisi True atauFalse.

17. Tipe Character • Type character dipakai untuk meyimpan satu huruf. Sebuah karakter berukuran satu byte. Jika menhghitung 2 8 hasilnya adalah 256 berarti ada 256 karakter yang dapat mengisi sebuah variable tipe karakter. • Dalam Delphi, tipe Char (dalam Turbo Pascal) sama dengan tipe ANSIChar (karakter Ansi 8 Bit). Tipe WideChar adalah tipe karakter dengn 16 bit. Tipe Char dignatikan dengan tipe ANSIChar karena tipe Char sama dengan tipe WideChar

18. Tipe String String adalah sederetan karakter yang membentuk kesatuan. String dapat dipakai untuk menyimpan data Nama, Alamat, Kota dalan lain-lain. Tipe String Biasa digunakan untuk masukan data string ( String merupakan gabungan beberapa character ).

19. Tipe Array Array adalahsebuah variable tunggal yang dipakaiuntuksekumpulan data. Dapatmemanipulasi, meng-copy array hanyadengansebuahnama. Tipe data array menggunkannomorelemendisebelahkanannama array

20. Contoh : Var Hari : array [1..7] of string; Begin Hari[1] := ‘Senin’; ……………. ……………. Hari[7] := ‘Minggu’;

21. Type Record Record dipakaiuntukmenyimpansekumpulan data yang salingberhubungan. Elemen-elemen record dapatmempunyaitipe yang samaatautipe yang berbeda.

22. Contoh : Type Rbarang = record Kode : String [4]; Nama : String[20]; Harga : Integer; End; Var Barang : Rbarang; Begin Barang.Kode := ’TV01’; Barang.Nama := ‘Televisi 20’; Barang.harga := ‘1400000’;

23. Type Subrange Tipesubrangedigunakanuntukmenyatakan data berurutan yang bertipesama. Tipe subrangeadalah range dari nilai-nilaidengantertentu. Subrangeharusmempunyainilaiterkecil dan nilaiterbesar.

24. Contoh : Type Hari = (Senin,Selasa,Rabu,Kamis,Jum’at,Sabtu,Minggu); Var Namahari :Hari; Contoh penggunanaan tipe data subrange Type Hari1=’Selasa’ .. ‘Jum’at’; Huruf = ‘A’.. ‘E’; Var Nil_Hari1 : Hari1; Nil_huruf : Huruf; Tipe Hari1 dideklarasikan sebagai subrange nama Hari antara ‘Selasa’ sampai ‘Jum’at’, tipe huruf dideklarasikan sebagai subrange antara huruf ‘A’ sampai ‘E’

25. Tipe Set Set dapatmendefinisikanelemen-elemennya. Misalnya set yang berisikarakter-karakter yang menyatakanYaatauTidak, akandidefinisikan set yang berisiempatkarakteryaitu [‘Y’, ‘y’, ‘T’, ‘t’].

27. Procedure TForm1.Button1Click(Sender: TObject); Var n1,n2,na : currency;  begin //menampung nilai ke variabel n1:=strtoint(edit1.text); n2:=strtoint(edit2.text);  //Melakukan Proses na:= (n1+n2)/2;  //Menampilkan Hasil Edit3.Text := floattostr(na);  end; end.

28. Procedure TForm1.Button2Click(Sender: TObject); Begin edit1.text=‘ ‘; edit2.text=‘ ‘; edit3.text=‘ ‘; End. Procedure TForm1.Button3Click(Sender: TObject); Begin Close; End.

32. Program Tambah ProcedureTForm2.BtambahClick(Sender:Object); var nil1, nil2 : real; tambah: real; begin nil1 := strtofloat(edit1.text); nil2 := strtofloat(edit2.text); tambah := nil1 + nil2; edit3.text := floattostr(tambah); end;

33. Prog ram untuk kali procedure TForm2.BkaliClick(Sender: TObject); var bil1,bil2:real; kali : real; begin bil1 := strtofloat(edit1.text); bil2 := strtofloat(edit2.text); kali := bil1*bil2; edit4.text := floattostr(kali); {edit4.text := inttostr(strtoint(edit1.text)strtoint(edit2.text));} end

34. Prog ram untukbagi procedure TForm2.BbagiClick(Sender: TObject); var bil1,bil2 : real; bagi : real; begin bil1 := strtofloat(edit1.Text); bil2 := strtofloat(edit2.Text); bagi := bil1/bil2; edit5.Text := floattostr(bagi); end;

35. Prog ram untukkurang procedure TForm2.BkurangClick(Sender: TObject); var bil1,bil2,kurang : real; begin bil1 := strtofloat(edit1.Text); bil2 := strtofloat(edit2.Text); kurang := bil1 - bil2; edit6.Text := floattostr(kurang); end;

36. Prog ram untukkeluar procedure TForm2.bcloseClick(Sender: TObject); begin messageDlg('InginMenutupform',mterror, [mbok],0); close; end;