Belajar Lazarus Free Pascal

Setelah sebelumnya kita mempelajari cara membalik urutan karakter pada string, sekarang kita coba membuat program mengubah huruf pada awal kata menjadi kapital. Pertama mari kita buat fungsi Capword seperti di bawah ini. Dengan fungsi ini anda dapat mengubah karakter pertama dari suatu kata menjadi huruf kapital. Fungsi Capword hanya mempunyai satu parameter, yaitu string yang akan diubah. type   { TForm1 }   TForm1 = class(TForm)     function CapWord(teks:string):string; //tulis disini kodenya private Selanjutnya pada bagian implementation tuliskan kode berikut: //fungsi Capitalize each Word function TForm1.CapWord(teks:string):string; var   i : integer;   s : string; begin   s:=Uppercase(teks[1]);   for i:=2 to length(teks) do     if (teks[i-1] in [' ','?','!',',',':',';','.']) then s:=s+uppercase(teks[i]) else       s:=s+lowercase(teks[i]);   result:=s; end; Selanjutnya ta...

Saat anda membuat aplikasi, seringkali anda harus berhubungan dengan string. Lazarus telah menyediakan banyak sekali prosedur dan fungsi yang berhubungan dengan string. Tapi ada hal-hal tertentu seperti membalik urutan karakter pada string yang tidak disediakan prosedur atau fungsinya. Sekarang mari kita coba Membalikkan urutan karakter pada string dengan Lazarus . Cara membalikkan urutan karakter dengan lazarus Buat aplikasi baru dengan nama reversestring. Selanjutnya mari kita buat fungsi baru untuk membalik urutan karakter dengan nama ReverseString. Kalau masih dalam tampilan visual (tampak Form1) tekan F12 untuk masuk ke source editor, Tulis sesudah type TForm1 = class(TForm) dan sebelum private . type   TForm1 = class(TForm)      function ReverseString(s: string):string; //tulis disini fungsinya   private Kemudian tulis di bagian implementation kode berikut: function TForm1.ReverseString(S: string):string; var    i : integer; ...

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

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

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

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

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

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 ( _ ). Panja...

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

Struktur dasar bahasa pemrograman pascal ada 3 bagian pokok, yaitu JUDUL PROGRAM, BAGIAN DEKLARASI, dan BAGIAN PERNYATAAN. Urutan 3 bagian struktur tersebut tidak boleh terbolak-balik, seperti Judul - Pernyataan - Deklarasi. Jadi harus urut, seperti berikut ini detail dari Struktur dasar bahasa pemrograman pascal: JUDUL PROGRAM BAGIAN DEKLARASI - Deklarasi Unit - Deklarasi Label - Deklarasi Konstanta - Deklarasi Tipe - Deklarasi Variabel - Deklarasi Sub program BAGIAN PERNYATAAN Begin  Pernyataan1;  Pernyataan2;  Pernyataan3;  Dst...; End. JUDUL PROGRAM bersifat optional, dan jika harus ditulis maka menggunakan kata-tercadang (*reserved word) PROGRAM lalu diikuti nama dan tanda titik koma. Contoh: PROGRAM Penjumlahan; Adalah identik dengan: Program Penjumlahan; Penulisan kata-tercadang pada Judul, deklarasi dan Pernyataan tidak pengaruh dengan huruf besar atau kecil serta judul program tidak harus selalu sama dengan nama file program. Penu...

Aku dulu belajar Pascal dahulu sebabnya mengapa? Karena waktu itu baik itu Lazarus maupun Delphi belum ada He3. Kalau di sekolahan tahap awal yang diajarkan adalah dasar pemrogramannya dalam hal ini pascal, baru dilanjutkan ke pemrograman visualnya dalam hal ini Lazarus. Sebab bahasa pascal nanti akan digunakan untuk mengisi event-event dari visual lazarus. Contohnya di sebuah Program Penjumlahan dibawah ini, untuk membuat tampilannya digunakan program Lazarus, nah fungsi dari tombol Jumlah nanti kita tulis dalam bahasa pascal. Kalau tidak kita tuliskan script tentang fungsi dari tombol Jumlah, maka tombol Jumlah nanti hanya berupa pajangan saja. Berikut adalah script yang harus ditulis agar jika tombol jumlah kita klik maka kolom jumlah akan tampil hasilnya. procedure TfPenjumlahan.bJumlahClick(Sender: TObject); begin   eJumlah.Text:=inttostr(strtoint(eAngka1.Text) + strtoint(eAngka2.Text)); end; Masih bingung? Sederhananya Pascal itu otaknya dan Lazarus itu anggota t...

Assalamu'alaikum Wr. Wb. Perkenalkan nama saya Ainul Yakin. Seringkali dalam membuat proyek program aplikasi aku lupa dengan sintax dan fungsi-fungsi pascal dan penggunaan komponen lazarus. Dari buku-buku lama dulu waktu sekolah berupa catatan-catatan kecil dasar-dasar pascal maupun buku pemrograman Delphi yang telah lapuk dan sebagian ada yang dimakan rayap, serta hasil gogling kesana-kemari terkumpullah informasi pembelajaran Lazarus dan Pascal. Setelah beberapa lama informasi tersebut tidak aku gunakan terkadang lupa cara penggunaannya. Oleh karena itulah blog ini aku buat sebagai catatan online dalam aku belajar Lazarus Free Pascal , biar lebih praktis dan ekonomis tidak membuang-buang waktu lagi jika membutuhkan informasi yang sama lagi. Mengapa aku memilih belajar Lazarus Free Pascal? Alasannya tidak lain karena bahasa pemrograman yang aku kuasai baru Pascal dan Delphi, berhubung Delphi harganya sangat mahal maka kemudian aku mulai belajar beralih ke Lazarus yang gratis ...