Belajar Lazarus Free Pascal

Seri Belajar Lazarus yang ke-11 kali ini akan membahas Penggunaan komponen ListBox pada Lazarus Free Pascal . Komponen ListBox menampilkan sekumpulan pilihan dalam daftar yang dapat menggulung. Item-item dalam ListBox dapat dipilih, ditambah dan dihapus. Pada tutorial kali ini kita akan mempraktekkan penggunaan MessageDlg dan modal resultnya , serta penggunaan perulangan For. Silahkan dipelajari dulu jika belum memahaminya.Untuk praktek silahkan buat aplikasi baru dan beri nama listbox.lpi LANGKAH DESAIN VISUAL Form1 Name: FListbox Caption: Depot Enak Sekali Label1 Caption: Daftar Menu Label2 Caption: Menu yang dipilih ListBox1 Name: LBDaftarmenu MultiSelect: True Items:   Nasi Putih   Nasi Rawon   Nasi Soto   Tempe Goreng   Ikan Goreng   Ikan Pepes   Sate   Ayam Goreng   Ayam Panggang   Es Jeruk   Es Teh   Es Degan   Teh Hangat   Susu Soda ListBox2 Name: LBMenupilih Multi...

Perulangan Repeat ... Until dan While ... Do pada Lazarus Free Pascal mempunyai fungsi yang sama dengan perulangan For yaitu mengulang perintah yang diberikan dengan syarat tertentu. Perbedaan yang utama Perulangan Repeat-Until While-Do dengan perulangan For adalah tidak ada penambahan / pengurangan nilai secara otomatis seperti pada perulangan For, untuk itu perlu menggunakan prosedur INC dan DEC: Prosedur INC Prosedur INC berfungsi untuk menambah nilai variabel Syntax: INC(variabel) //menambah nilai kelipatan 1. atau INC(variabel,kelipatan_n) //menambah nilai kelipatan n Contoh: inc(i); //akan menambah nilai variabel i dengan kelipatan 1 inc(i,4); //akan menambah nilai variabel i dengan kelipatan 4 Prosedur DEC Prosedur DEC berfungsi untuk mengurangi nilai variabel Syntax: DEC(variabel) //mengurangi nilai kelipatan 1 atau DEC(variabel,kelipatan_n) //mengurangi nilai kelipatan n Contoh: dec(i); //akan mengurangi nilai variabel i dengan kelipatan 1 dec(i,5); /...

Penggunaan Perulangan For pada Lazarus Free Pascal ada dua jenis, yaitu perulangan dari kecil ke besar dan dari besar ke kecil. Tutorial kali ini merupakan kelanjutan dari tutorial Jenis Perulangan Lazarus Free Pascal kali ini akan dijelaskan lebih mendetail tentang penggunaan perulangan for. Pada perulangan for nilai awal dan nilai akhir ditentukan dengan menggunakan suatu variabel kontrol yang nilainya dibatasi dalam suatu range tertentu. 1. FOR ... TO ... DO Perulangan for to do adalah perulangan dari nilai kecil ke besar. Syntax: FOR (variabel_kontrol) := (nilai_awal) TO (nilai_akhir) DO Begin ...(isi_perulangan); End; 2. FOR ... DOWNTO ... DO Perulangan for downto do adalah perulangan dari nilai besar ke kecil. Syntax: FOR (variabel_kontrol) := (nilai_awal) DOWNTO (nilai_akhir) DO Begin ...(isi_perulangan); End; CONTOH PENGGUNAAN Buatlah proyek aplikasi baru dan dalam Form tambahkan komponen edit dan button sehingga nanti akan terdapat 1 form dengan nama Form...

Mari kita bahas tentang Jenis Modal Result Button Lazarus Free Pascal , button / tombol yang mempunyai modal result pada Lazarus Free Pascal adalah komponen TButton, TBitBtn, sedangkan TSpeedButton tidak mempunyai modal result. Apakah Modal Result? Modal result adalah nilai kembalian dari suatu event / aksi yang kita lakukan. Contohnya jika kita menekan tombol yang mempunyai modal result mrYes, maka dia akan menghasilkan modal result mrYes jika ditekan. Seperti telah aku jelaskan di artikel sebelumnya tentang penggunaan fungsi MessageDlg , disitu dijelaskan jenis-jenis dari tombol yang akan menghasilkan modal result tertentu juga. Berikut daftar jenis tombol dan jenis modal resultnya: mbNone modal resultnya adalah mrNone yang bernilai konstanta integer 0 ; mbOk = mrOk = 1; mbCancel = mrCancel = 2; mbAbort = mrAbort = 3; mbRetry = mrRetry = 4; mbIgnore = mrIgnore = 5; mbYes = mrYes = 6; mbNo = mrNo = 7; mbAll = mrAll = 8; mbNoToAll = mrNoToAll = 9; mbYesToAll = mrYesT...

Dalam Lazarus Free Pascal terdapat tiga jenis perulangan , yaitu perulangan FOR, perulangan WHILE dan perulangan REPEAT. Perulangan ini berguna jika kita ingin menjalankan suatu pernyataan secara berulangkali berdasarkan kriteria batas yang telah ditentukan. Yang perlu diperhatikan dalam penggunaan fungsi perulangan adalah: Tipe data dari variabel adalah Integer. Kita harus memberikan nilai awal dari variabel. Kita harus menentukan syarat perulangan. Perbedaan perulangan FOR, WHILE dan REPEAT 1. PERULANGAN FOR Syntax: FOR (variabel_kontrol) := (nilai_awal) TO (nilai_akhir) DO Begin ...(isi_perulangan); End; Perbedaan dengan perulangan yang lain: Mempunyai jumlah batas perulangan yang jelas. Syarat perulangan dicek didepan. Minimal dijalankan 1 kali. 2. PERULANGAN WHILE Syntax: WHILE (syarat_perulangan) DO Begin ...(isi_perulangan); End; Perbedaan dengan perulangan yang lain: Mempunyai jumlah perulangan tidak jelas. Syarat perulangan dicek didepan. Min...

Mari belajar Penggunaan MessageDlg pada Lazarus Free Pascal . MessageDlg berfungsi menampilkan pesan di tengah layar, kelebihan funsi MessageDlg dibandingkan dengan ShowMessage yang telah kita pelajari sebelumnya adalah kita bisa menentukan sendiri Caption dari kotak pesan, menentukan tipe gambar dan tipe tombol yang digunakan. Syntax Penggunaan MessageDlg Lazarus Free Pascal: MessageDlg('Isi Caption','Isi Pesan',Tipe Gambar,Tipe Tombol,0) Contoh: MessageDlg('Peringatan','Isikan banyak barang!',mtWarning,[mbOk],0) Maka tampilannya akan seperti gambar di bawah ini: Jenis-jenis Tipe Gambar: mtWarning : Tanda seru berwarna kuning. mtError : Tanda silang warna merah. mtInformation : Huruf i warna biru. mtConfirmation :  Tanda tanya warna biru. mtCustom : Tidak ada gambar. Jenis-jenis Tipe Tombol: mbYes : Tombol dengan tulisan 'Yes'. mbNo : Tombol dengan tulisan 'No'. mbOK : Tombol dengan tulisan 'OK'. mbCan...

Untuk operasi matematika dua bilangan / angka digunakan Binary Operator (operasi tanda biner) yang meliputi: +, -, *, /, DIV, MOD. Disebut dengan binary operator (tanda operasi biner) karena operator ini digunakan untuk mengoperasikan dua buah operand. Operand dapat berbentuk konstanta ataupun variabel. Operator adalah simbol atau kata yang digunakan dalam program untuk melakukan operasi, seperti penjumlahan, perkalian, membandingkan kesamaan dua buah operand dan lain-lain. Operand adalah sebuah nilai yang akan dikerjakan oleh operator. Contoh: 1 + 2 Angka 1 dan 2 adalah operand, sedangkan + adalah operator. Seperti telah dijelaskan Jenis Data Standard Lazarus Free Pascal sebelumnya sekarang akan kita bahas lebih mendalam lagi tentang Operasi Matematika pada Integer dan Real. Integer dan Real adalah sama-sama tipe data berjenis angka / bilangan, perbedaannya utamanya terletak pada kemampuan menampung angka pecahan. Integer hanya bisa menampung bilangan bulat sedangkan R...

Berdasarkan letak penempatan deklarasi variabel pada Lazarus Free Pascal, variabel dibedakan menjadi 3, yaitu variabel lokal, variabel global privat dan variabel global public. 1. Variabel Lokal Variabel lokal adalah variabel yang dibuat di dalam potongan program (procedure atau function) sehingga hanya procedure / function itu saja yang dapat menggunakannya. Contoh penempatan Variabel Lokal: 2. Variabel Global Privat Variabel Global Privat, Global artinya variabel dapat diakses oleh seluruh procedure / function di dalam unit tersebut, sedangkan Privat artinya variabel tersebut tidak dapat digunakan / diakses oleh unit lain. Contoh penempatan Variabel Global Privat: 3. Variabel Global Publik Variabel Global Privat, Global artinya variabel dapat diakses oleh seluruh procedure / function di dalam unit tersebut, sedangkan Publik artinya variabel tersebut dapat digunakan / diakses oleh unit lain. Contoh penempatan Variabel Global Publik: Kelebihan dan Kekurangan Varia...

Pada Tutorial Penggunaan Komponen RadioGroup Lazarus Free Pascal kali ini bertujuan untuk memahami cara penggunaan RadioGroup serta penerapan pernyataan / statement CASE. Untuk itu maka silahkan buka kembali proyek aplikasi kasiratk yang telah anda buat sebelumnya. Untuk mengingat kembali jika lupa silahkan buka kembali tutorial RadioGroup dan Validasi Data . KOMPONEN RADIOGROUP RadioGroup adalah gabungan dari komponen RadioButton dan komponen GroupBox, fungsinya sama dengan komponen RadioButton. Setelah program aplikasi kasiratk terbuka, ikuti langkah-langkah di bawah ini: LANGKAH-LANGKAH PENAMBAHAN KOMPONEN & PROPERTIES : Ubah aplikasi yang memakai RadioButton dengan RadioGroup, caranya dengan klik GroupBox, lalu tekan tombol Delete, maka ketiga komponen RadioButton didalamnya akan ikut terhapus. Tempatkan komponen RadioGroup di tempat GroupBox. Ubah Name menjadi RGBarang dan Caption-nya menjadi Nama Barang. Klik tombol [,,,] pada Properties Items milik komponen RGBar...

Pengecekan Validasi (Keabsahan) Data dengan Penanganan Kesalahan pada Lazarus Free Pascal wajib dilakukan oleh programmer, Sebagai programmer kita menginginkan agar pemakai program buatan kita dijalankan dengan benar, misal disuruh input angka maka yang diinputkan juga angka, inputan tanggal diisi tanggal. Ada kalanya apa yang kita inginkan sebagai programmer tidak dilakukan oleh pemakai program kita, baik itu karena unsur sengaja maupun tidak sengaja. Bisa juga kesalahan data itu dari hasil program kita sendiri. Sebagai bahan praktek validasi data kali ini silahkan buka kembali postingan aku sebelumnya di Memilih Data dengan RadioButton Lazarus (Belajar Lazarus #7) buka proyek aplikasi kasiratk.lpi Silahkan compile (tekan F9) lalu coba masukkan pada kotak EBanyak barang dengan angka pecahan misalnya 5.5 , terus tekan tombol hitung. Perhatikan apa yang terjadi! Akan muncul pesan error. Gambar error pertama di bawah ini adalah pesan error yang dihasilkan oleh IDE Lazarus Fre...

Untuk membuat program kode ascii dari tombol keyboard yang kita tekan, kita perlu memahami even OnKeyDown dan OnKeyPress. Kedua event ini memang sama-sama dikirim saat tombol keyboard ditekan. Yang membedakan keduanya adalah jenis tombol yang ditekan. Event OnKeyDown dikirim saat sembarang tombol keyboard ditekan. Event OnKeyPress dikirim saat tombol keyboard yang mempunyai tampilan di layar (karakter ASCII) dikirim. Sebagai contoh, bila anda menekan tombol ( F1 ), Sistem operasi (Windows, Linux, dsb) hanya akan mengirim event OnKeyDown. Namun bila anda menekan tombol ( A ), Sistem operasi  akan mengirim evemt OnKeyDown dan juga OnKeyPress. Untuk lebih jelasnya mari kita buat program Kode Ascii Keyboard Lazarus Free Pascal. Dengan program ini anda bisa mencoba-coba tombol mana yang akan menghasilkan event OnKeyPress dan tombol mana yang menghasilkan kedua event tersebut. Langkah-langkah komponen: Buat 7 buah label pada form. Langkah-langkah properties: Label1: Caption: ...

ShowMessage merupakan procedure yang telah didefinisikan oleh lazarus untuk menampilkan pesan. Ciri-cirinya dia akan menggunakan nama aplikasi sebagai Captionnya kotak pesannya dengan tombol OK. Silahkan ikuti Panduan Penggunaan ShowMessage pada Lazarus Free Pascal ini dengan cermat! Syntax: ShowMessage('Isi Pesan'); Contoh: ShowMessage('Isikan Banyak Barang'); Untuk prakteknya silahkan buka kembali program KasirATK pada panduan sebelumnya di http://belajarlazarus.blogspot.com/2014/11/memilih-data-dengan-radiobutton-lazarus.html Kemudian edit source editor ukasiratk pada bagian procedure TFKasirATK.BHitungClick sehingga menjadi seperti di bawah ini: procedure TFKasirATK.BHitungClick(Sender: TObject); var   harga, banyak, bayar: integer; begin   if (EBanyak.Text='') or (EBanyak.Text='0') then     ShowMessage('Isikan banyak barang!')   else   begin     banyak:= strtoint(EBanyak.Text);     if RBSpidol...

Pernyataan Case ... Of fungsinya sama dengan Nested If, Case ... Of mempunyai kelebihan format penulisannya lebih ringkas sehingga mempermudah programmer. Perbedaan yaang lain Case ... Of dengan Statement / Pernyataan If adalah dalam hal tipe data yang digunakan. Case ... Of menggunakan tipe data bukan Real dalam Syarat percabangan dan hanya boleh satu saja. Sementara Statement If boleh menggunakan tipe data real dan syarat percabangan boleh lebih dari satu. Pemeriksaan Syarat pada pernyataan Case ... Of lebih tepat disebutkan dalam hubungan relasi samadengan ( = ). Dengan demikian bila Syarat bernilai tertentu maka akan dilakukan perintah terkait, bila bernilai lain maka dilakukan perintah yang lain juga, demikian seterusnya. Syntax 1: case (syarat) of   (nilai_1): (perintah_1);   (nilai_2): (perintah_2);   ...   (nilai_n): (perintah_n);   else     (perintah_x); end; Contoh kasus 1: Jika nilai siswa kurang dari atau sama dengan 50 m...

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 ... Synta...

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 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  ...

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...

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 sepe...

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 ...

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...