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 MultiSelect: True Button1 Name: BPilih Caption: Pilih Button2 Name

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: Hasi

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.Checked then harga:= 50

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 maka Keterangan Nilai Huruf pada caption