Skip to main content

Posts

Showing posts from November, 2014

Penggunaan Statement IF Lazarus Free Pascal

Statemen / pernyataan IF adalah suatu pernyataan bersyarat yang berfungsi untuk mengambil keputusan dari beberapa kondisi. Pernyataan bersyarat IF biasanya digunakan untuk syarat / kondisi yang jumlahnya tidak terlalu banyak. Marilah sekarang kita pelajari bersama cara penggunaan statement IF pada Lazarus Free Pascal. 1. IF ... THEN ... Syntax: if (syarat) then (perintah); atau if (syarat) then begin   (perintahke-1);   (perintahke-2);   (perintahke-n); end; Contoh kasus: Jika nilai siswa kurang dari atau sama dengan 50 maka tulisan komponen label1 menjadi TIDAK LULUS. Maka pernyataannya menjadi: if nilai <= 50 then label1.Caption:='TIDAK LULUS'; Contoh kasus: Jika nilai siswa kurang dari atau sama dengan 50 maka tulisan komponen label1 menjadi TIDAK LULUS dan berwarna merah. Maka pernyataannya menjadi: if nilai <= 50 then begin   label1.Caption:='TIDAK LULUS';   label1.Font.Color:=clRed; end; 2. IF ... THEN ... ELSE ... Syntax: if (

Memilih Data dengan RadioButton Lazarus (Belajar Lazarus #7)

Tujuan mempelajari cara Memilih Data dengan RadioButton pada Lazarus Free Pascal adalah anda diharapkan memahami tentang penggunaan komponen RadioButton dan GroupBox. Dalam edisi belajar bersama kali ini juga akan membahas tentang Conditional Statements IF atau Pernyataan Terkondisi IF. KOMPONEN RADIOBUTTON Komponen RadioButton terletak di palet Standard, RadioButton akan memberikan pilihan yang bersifat mutually exclusive, artinya hanya sebuah RadioButton yang dapat dipilih pada satu saat. Jika anda memilih sebuah RadioButton, maka RadioButton yang telah dipilih sebelumnya menjadi tidak dipilih. RadioButton dapat dikelompokkan dengan menggunakan GorupBox. KOMPONEN GROUPBOX Komponen GroupBox berlaku sebagai container, sehingga jika anda memindahkan GroupBox, otomatis semua komponen yang berada didalam GroupBox juga ikut berpindah. CONDITIONAL STATEMENT IF IF adalah sebuah perintah untuk menyatakan sebuah kondisi. Perintah ini akan menghasilkan nilai TRUE bila konfisi yang d

Jenis Data Standard Lazarus Free Pascal

Jenis data tidak dapat dipisahkan dari variabel karena jenis datalah yang akan menentukan data apa yang akan ditampung oleh sebuah variabel, jenis-jenis data standar yang dikenal Lazarus Free Pascal meliputi: Integer Real Karakter Boolean 1. INTEGER Integer adalah bilangan bulat, yang terdiri dari bilangan bulat negatif, nol dan bilangan bulat positif. Integer sendiri ada beberapa jenis antara lain: ==========+=============================+===========    Jenis  |          Jangkauan          | Uk. Memory    Data   |                             | (dlm byte) ==========+=============================+=========== Byte      | 0 .. 255                    |     1 Word      | 0 .. 65535                  |     2 ShortInt  | -128 .. 127                 |     1 SmallInt  | -32768 .. 32767             |     2 Integer   | -2147483648 .. 2147483647   |     4 Cardinal  | 0 .. 4294967295             |     4 LongInt   | -2147483648 .. 2147483647   |     4 ==========+=============

Jenis Variabel Lazarus Free Pascal

Variabel berfungsi untuk menampung data dari user ataupun dari program itu sendiri. Agar dapat digunakan, maka variabel harus mempunyai nama. Ada beberapa aturan penamaan variabel, silahkan baca di artikel sebelumnya mengenai cara penulisan bahasa pascal untuk memahaminya. Variabel dibedakan menjadi 2, yaitu variabel global dan variabel lokal. Variabel Global Adalah variabel yang dideklarasikan pada bagian public / private. Variabel global dapat digunakan oleh seluruh procedure / function yang ada di dalam unit tersebut. Variabel global dibedakan menjadi 2, yaitu variabel global private dan variabel global public . variabel global private Jika variabel dituliskan pada bagian private, maka variabel tersebut tidak dapat digunakan / diakses oleh unit lain. variabel global public Jika variabel dituliskan pada bagian public, maka variabel tersebut dapat digunakan / diakses dari unit lain. Variabel Lokal Adalah variabel yang dideklarasikan di dalam sebuah procedure / f

Tips Penamaan dan Penulisan Kode Program Lazarus Free Pascal (Belajar Lazarus #6)

Beberapa tips dalam hal penamaan file dan komponen serta tata cara penulisan kode program pada Lazarus Free Pascal yang bisa membantu anda dalam mengingat kembali maksud kode-kode program yang telah anda tulis serta dapat menghindari terjadinya masalah pada waktu kompilasi. Tata Cara Penamaan Gunakan 1 atau beberapa karakter awal dari tipe file atau komponen lalu diikuti fungsi dari file / komponen tersebut secara singkat tapi jelas. Contoh: Untuk menyimpan unit program kalkulator   maka nama filenya simpan dengan ukalkulator.pas Untuk Form program kalkulator berikan nama FKalkulator. Misal dalam form FKalkulator itu ada komponen Button yang berfungsi untuk menjumlah , maka berikan nama BJumlah. Misalkan juga ada komponen LabeledEdit yang berfungsi menampilkan hasilnya , maka berikan nama LEHasil . Hal-Hal Yang Harus Dihindari Waktu Penulisan Kode Hindari mengubah baris antara deklarasi kelas form (TForm1 = class(TForm)) sampai dengan klausa private , karena seperti

Struktur Project dan Unit Lazarus

Di dalam membuat proyek aplikasi Lazarus terdapat 2 pasang file utama penyusunnya, yaitu file lazarus project information (extension .lpi) dengan pasangannya lazarus project main source (extension .lpr) dan lazarus form (extension .lfm) dengan lazarus unit source (extension .pas). Jika mau membuka sebuah proyek aplikasi lazarus, maka yang harus dibuka adalah lazarus project information (extension .lpi). Setelah terbuka maka yang akan tampil adalah lazarus form ( .lfm ) dan lazarus unit source ( .pas ). Secara default lazarus project main source ( .lpr ) tidak ditampilkan karena memang pada kondisi umum file ini tidak kita edit melainkan akan dibuatkan secara otomatis oleh lazarus, kecuali kita ingin merubahnya secara khusus. Untuk membuka lazarus project main source ( .lpr ) caranya tekan tombok lazarus project main source ( .lpr ) Ctrl+F2 dan pilih yang berextensi .lpr, maka akan terbuka jendela source editor seperti gambar di bawah ini: Seperti aku sebutkan di atas, bahwa file

Mengubah Urutan Fokus Komponen Lazarus (Belajar Lazarus #6)

Properti TabStop dan TabOrder pada komponen dipakai untuk menentukan urutan komponen yang akan menerima fokus jika user menekan tombol Tab . Properti TabStop bertipe boolean yang menyatakan apakah user dapat berpindah ke sebuah kontrol dengan menekan tombol Tab. Jika bernilai True maka komponen tersebut ada dalam urutan tab dan user dapat berpindah / fokus ke komponen tersebut dengan menekan tombol Tab sekali atau beberapa kali bergantung pada urutannya. Properti TabOrder untuk menentukan urutan fokus komponen. Jika sebuah TabOrder dari sebuah komponen bernilai 0, maka komponen tersebut akan mendapat fokus saat pertama kali form ditampilkan. Defaultnya, nilai TabOrder sesuai dengan urutan penambahan komponen pada form. Komponen yang ditambahkan pertama akan mempunyai nilai TabOrder 0, komponen berikutnya mempunyai nilai 1 dan seterusnya. TabOrder hanya akan berfungsi jika TabStop bernilai True. Selain dengan kedua properti tersebut di atas, kita dapat mengubah urutan fokus kompo

Memahami Karakter EditMask pada Komponen MaskEdit (Belajar Lazarus #5)

Kali ini aku akan membahas tentang Karakter EditMask pada Komponen MaskEdit . Karakter-karakter yang dapat dipakai pada field mask dapat anda baca pada tabel berikut ini, karakter-karakter lain (tidak ada pada tabel di bawah) dianggap sebagai karakter literal. Karakter literal ditambahkan secara secara otomatis dan kursor akan melewatinya pada saat pengisian data. Untuk lebih jelas penggunaannya bisa anda baca di artikel Penggunaan EditMask karakter angka dan literal (Belajar Lazarus #4) . Literal khusus juga akan muncul jika didahului dengan karakter backslash (\). Karakter Artinya ! Jika karakter ! ada pada mask, karakter-karakter optional pada kotak edit dinyatakan sebagai leading blank. Jika tidak ada !, dinyatakan sebagai trailing blank. > Karakter > menyatakan semua karakter yang mengikutinya adalah huruf besar sampai akhir mask atau sampai ditemukan karakter < < Karakter < menyatakan semua karakter yang mengikutinya adalah huruf kecil sampai ak

Penggunaan EditMask karakter angka dan literal (Belajar Lazarus #4)

Setelah sebelumnya kita belajar komponen Edit dan LabeledEdit kini saat belajar komponen MaskEdit yang terdapat dalam tab palette Additional , komponen MaskEdit dipakai untuk memformat data masukan, maskedit dapat mengontrol validasi data yang dimasukkan user. Jika kita mengklik tombol [...] pada properti EditMask dari komponen MaskEdit maka akan tampil Input Mask Editor seperti gambar di bawah ini: Input Mask terdiri dari tiga bagian yang dipisahkan oleh karakter titik koma. Ketiga field tersebut adalah: Field pertama adalah Mask , disinilah akan kita atur format data masukan. Filed kedua Save Literal Characters adalah karakter yang menyatakan apakah karakter literal pada mask akan disimpan dalam data, tinggal check Save Literal Character, atau dengan mengetikkan langsung dalam editmask jika 1 artinya disimpan dan 0 artinya tidak cara merubahnya. Field ketiga Character for Blanks , adalah karakter untuk menyatakan spasi dalam mask. Mari kita buat aplikasi baru denga

Penggunaan Edit dan LabeledEdit Lazarus Free Delphi (Belajar Lazarus #3)

Setelah sebelumnya kita belajar tentang komponen label dan button sekarang yang akan kita bahas penggunaan komponen Edit dan LabeledEdit Lazarus Free Delphi (Free Delphi maksudnya Lazarus adalah program pembuat aplikasi mirip Delphi yang Gratis). Silahkan buka kembali project pselamat dengan klik menu Project > Open Project. Jika tidak muncul jendela form atau source editor, klik menu Project > Form atau Shift+F12 lalu pilih formnya. Di from FSelamat tambahkan lagi 1 komponen label dan 1 komponen edit yang terletak di komponen palette Standard, 1 komponen labelededit yang terletak di palette Additional. Isi properti komponen: Label1 Caption: Ganti caption LSelamat: Edit1 Text:           {isi text dihapus} Name: Egantilabel LabeledEdit1 Caption: Ganti caption FSelamat: Text:           {isi text dihapus} Name: LEgantiform Buat desain formnya seperti gambar di bawah ini: Komponen LabeledEdit merupakan gabungan dari komponen Label dan Edit, antara komponen E

Belajar Memakai Mengubah Tampilan dan Perilaku Komponen (Belajar Lazarus #2)

Setelah sebelumnya kita belajar tentang lingkungan pemrograman Lazarus Free Pascal di http://belajarlazarus.blogspot.com/2014/11/mengenal-pemrograman-visual-lazarus.html sekarang kita lanjutkan Belajar Memakai Mengubah Tampilan dan Perilaku Komponen . Inti dari setiap aplikasi di Lazarus adalah Form, dimana di dalam form ini dapat kita letakkan komponen-komponen yang kita butuhkan untuk membuat proyek aplikasi. Untuk itu mari kita coba dengan membuat sebuah proyek aplikasi Perkenalan Lazarus. Pertama-tama klik Project > New Project, kemudian akan tampil jendela Create New Project seperti gambar di bawah ini: Pilih Application dan klik tombol OK. Setelah itu akan muncul sebuah Form dan Source Editor baru. Sekarang simpan dengan menekan tombol Save all (atau klik menu File > Save all), kemudian akan tampil kotak dialog Save project, pilih tempat penyimpanan di lokasi yang anda inginkan atau buat folder baru dalam hal ini kita buat folder perkenalan , beri nama proyek dengan

Mengenal Pemrograman Visual Lazarus Free Pascal (Belajar Lazarus #1)

Untuk mempelajari Pemrograman Visual Lazarus Free Pascal , kita perlu mengenal lingkungan pemrograman ( Integrated Development Environtmen/IDE) dari Lazarus. Setelah anda sukses menginstalnya silahkan jalankan program Lazarus, maka akan tampil IDE dari Lazarus seperti di bawah ini. Mulai saat ini dan seterusnya, pembelajaran Lazarus yang berurutan akan aku beri tambahan judul (Belajar Lazarus #nomor), kalau tidak ada berarti itu tutorial lepas bukan berseri. IDE adalah sebuah lingkungan yang berisi tool-tool yang diperlukan untuk desain, menjalankan dan mengetes sebuah aplikasi, yang disajikan dengan baik untuk mempermudah pengembangan aplikasi/program. Seperti gambar di atas IDE Lazarus terdiri atas Menubar, Toolbar, Component Palette, Object Inspector, Source Editor, Form Designer dan Compiler Messages. MENUBAR Menubar berisi perintah-perintah yang digunakan untuk membuka, menyimpan, mengubah option, dan lain-lain. Sebagian dari fungsi menubar juga dapat dipanggil dengan

Cara Penulisan Bahasa Pascal Yang Benar

Sebagai patokan kita dalam belajar menulis program dengan Bahasa Free Pascal perlu kita pelajari Cara Penulisan di Pascal yang benar agar program kita dapat berjalan dan tidak error. Kita ambil contoh program berikut ini yang telah kita bahas sebelumnya di http://belajarlazarus.blogspot.com/2014/11/struk-dasar-bahasa-pemrograman-pascal.html : Pada contoh di atas menggunakan aturan-aturan penulisan bahasa pascal sebagai berikut: Kata-tercadang Free Pascal (*reserved word) tidak boleh digunakan untuk label, konstanta, tipe, variabel maupun prosedur atau fungsi. Contoh: Label merupakan kata-tercadang, jadi Label tidak dapat digunakan untuk keperluan lain, misalnya untuk variabel. Var  Label : Char; {Penulisan yang salah karena menggunakan pengenal Label} Var  Lbl : Char; {Penulisan yang benar karena Lbl bukan kata-tercadang) Aturan penamaan pengenal (*identifier): karakter pertama harus berupa huruf, karakter berikutnya boleh huruf, angka, garis bawah ( _ ). Panjang pengen

Unit CRT Pada Aplikasi Dos atau Console

Kali ini kita akan belajar tentang penggunaan unit CRT pada aplikasi dos atau console. Pada artikel sebelumnya di http://belajarlazarus.blogspot.com/2014/11/struk-dasar-bahasa-pemrograman-pascal.html diberikan contoh program yang menggunakan unit crt, dimana kita bisa tahu unit itu diletakkan setelah kata-tercadang USES. Untuk mengingatnya berikut contoh programnya: Program Deklarasi; {Judul Program} {Bagian  Deklarasi} Uses   Crt;                 {Deklarasi Unit} Label  Loncat;              {Deklarasi Label) Const  Phi = 3.14;          {Deklarasi Konstanta} Type   Bilnyata = Real;     {Deklarasi Tipe} Var    JariJari : Bilnyata; {Deklarasi Variabel} {Deklarasi Potongan Program} Procedure Luaslingkaran(Radius: Bilnyata); Begin   Clrscr;   Writeln('Luas lingkaran = ', 0.5 * phi * Radius * Radius); End; {Bagian Pernyataan / Program Utama} Begin  Jarijari:= 7.25;  Luaslingkaran(jarijari);  Goto loncat;  Writeln('Ini bagian yang diloncati');  Loncat