Halo.

Gue mau bikin thread tempat share tentang pemrograman Free Pascal. Gue belajar pemrograman Free Pascal di Operating System Kubuntu 12.04. Kalau masalah fokusnya, gue fokus ke pemrograman database. Nanti gue mau taruh disini link download source code-source code Free Pascal yang gue pakai untuk belajar.

Disini juga gue share e-book tentang dasar pemrograman Free Pascal. E-book nya bisa di download di sini:

Start Programming Using Object Pascal



ada juga tutorial Free Pascal yang sedang gue kerjakan. nanti juga akan share source code - source code Free Pascal yang sedang gue coba di laptop. Diharapkan teman-teman bisa bersabar sementara gue membangun thread ini. Terimakasih.

Berikut ini daftar file source hasil latihan dari e-book yang gue berikan link nya diatas. Anda bisa mendownloadnya untuk dipelajari:

Latihan 2

Latihan 3

Latihan 4

Latihan 5

Latihan 6

Latihan 7

Latihan 8

Latihan 9

Latihan 10

Latihan 11

Latihan 12

Latihan 13

Latihan 14

Latihan 15

Latihan 16

Latihan 17

Latihan 18

Latihan 19

Latihan 20

Latihan 21

Latihan 22

Latihan 23

Latihan 24

Latihan 25

Latihan 26

Latihan 27

Latihan 28


Berikut ini daftar preview source code untuk file-file latihan diatas:

[URL="http://S E N S O R/5FQXW3uV"]Latihan 2[/URL]

[URL="http://S E N S O R/czNnjiZx"]Latihan 3[/URL]

[URL="http://S E N S O R/fnQPW3tu"]Latihan 4[/URL]

[URL="http://S E N S O R/ss9xyyZy"]Latihan 5[/URL]

[URL="http://S E N S O R/hsrKbRr9"]Latihan 6[/URL]

[URL="http://S E N S O R/8fDcfzMy"]Latihan 7[/URL]

[URL="http://S E N S O R/AzDYZ52e"]Latihan 8[/URL]

[URL="http://S E N S O R/THs9VzKd"]Latihan 9[/URL]

[URL="http://S E N S O R/fARLjH1V"]Latihan 10[/URL]

[URL="http://S E N S O R/PCZ9GLcB"]Latihan 11[/URL]

[URL="http://S E N S O R/guASZfAA"]Latihan 12[/URL]

[URL="http://S E N S O R/1ztDCwFa"]Latihan 13[/URL]

[URL="http://S E N S O R/gWNZcEwi"]Latihan 14[/URL]

[URL="http://S E N S O R/QSv4qZm5"]Latihan 15[/URL]

[URL="http://S E N S O R/ZTvtLjqq"]Latihan 16[/URL]

[URL="http://S E N S O R/5BByCus9"]Latihan 17[/URL]

[URL="http://S E N S O R/Pw3VRKJX"]Latihan 18[/URL]

[URL="http://S E N S O R/taH0v12h"]Latihan 19[/URL]

[URL="http://S E N S O R/fS4YAHEn"]Latihan 20[/URL]

[URL="http://S E N S O R/FMJ9cMBq"]Latihan 21[/URL]

[URL="http://S E N S O R/tEXTMg1v"]Latihan 22[/URL]

[URL="http://S E N S O R/TWtc72hK"]Latihan 23[/URL]

[URL="http://S E N S O R/gDtGaKLa"]Latihan 24[/URL]

[URL="http://S E N S O R/RnMwtQNi"]Latihan 25[/URL]

[URL="http://S E N S O R/HZfmNzFG"]Latihan 26[/URL]

[URL="http://S E N S O R/aYLfn047"]Latihan 27[/URL]

[URL="http://S E N S O R/j3U5jDKV"]Latihan 28[/URL]


Gue menemukan permasalahan saat coding Free Pascal di Lazarus, di bawah ini link ke blog yg gue miliki, yang berisi penjelasan tentang masalah yang ditemui & cara pemecahan masalahnya:

Masalah Free Pascal Gagal Menemukan Folder


Share dari teman-teman lainnya di Thread ini:

1. Contoh Variable Integer

2. Contoh Variable Integer dengan dua Variable (x dan y)

3. Contoh Variable Character

4. Contoh Variable Single


Sumber halaman website lainnya yang bisa membantu kita mempelajari pemrograman Free Pascal:

http://lazplanet.blogspot.com/p/faq.html


Dibawah ini saya share beberapa bahasan tentang percobaan meracik source code Free Pascal, saya berbagi berbagai fenomena yang muncul. Semoga tulisan ini bisa membantu kita lebih memahami tentang bahasa pemrograman Free Pascal.



DateToStr: Format Pada Source Code DateToStr

Berikut ini source codenya:

{$mode objfpc}{$H+}



uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, sysutils

{ you can add units after this };



// Mencoba mengubah & menampilkan format Tanggal



begin



// writeln(Format(‘Tanggal Saat Ini : %s’, [LongDateFormat]));



writeln(Format(‘Tanggal Saat Ini : %s’, [DateToStr(Date)]));



writeln(‘Tekan tombol ENTER untuk menutup’);



readln;



end.

Kita menggunakan DateToStr dalam source code ini untuk menampilkan tanggal, yang perlu diperhatikan juga tulisan Date pada:

DateToStr(Date)

ini akhirnya menghasilkan konsole menampilkan tanggal hari ini, yaitu:

2-2-14

Yang tanggal sebenarnya adalah 2 Februari 2014. Mungkin 2-2-14 ini adalah kode dasar untuk penanggalan di Free Pascal. Sehingga untuk pemformatan selanjutnya kita akan berpatokan inputannya pada format ini


Source code ini di Pastebin:

[URL="http://S E N S O R/KD7Gvc43"]http://S E N S O R/KD7Gvc43[/URL]

Download File Source

Screen Shoot ketika dijalankan:





LongDateFormat: Experimen Kode Untuk Memformat Tanggal

Dibawah ini kode hasil experimen tentang pemformatan tanggal. Referensi yang digunakan berasal dari situs ini:

[url]http://www.freepascal.org/docs-html/rtl/sysutils/datetostr.html[/URL]

http://www.freepascal.org/docs-html/...tdatetime.html

http://www.freepascal.org/docs-html/...tsettings.html

[url]http://lazarus-ccr.sourceforge.net/docs/rtl/sysutils/formatdatetime.html[/URL]

Source code pertama:

program Latihan87;

 

 {$mode objfpc}{$H+}

 

 uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils

 { you can add units after this };

 

 // Mencoba mengubah & menampilkan format Tanggal

 

 begin

 

 

 

 writeln(Format('Tanggal Saat Ini : %s', [LongDateFormat]));

 

 // writeln(Format('Tanggal Saat Ini : %s', [DateToStr(Date)]));

 

 writeln('Tekan tombol ENTER untuk menutup');

 

 readln;

 

 

 end.

Jadi di source code pertama ini kita menggunakan LongDateFormat, yang ternyata setelah source codenya dijalankan maka akan memprint di terminal:

dd” “mmmm” “yyyy

Ini sepertinya adalah format penanggalan yang akan dipakai apabila kita menggunakan LongDateFormat. Dan sepertinya ini membuka peluang untuk kita menggunakan variabel. sehingga kita tulis saja tanggal yg mau di konversikan ke format: dd” “mmmm” “yyyy . nanti dengan LongDateFormat akan diubah formatnya.

Sementara %s sepertinya akan memprint nilai dasar apa saja yg terkandung dalam LongDateFormat. %s ini bisa untuk bahan percobaan memprint nilai dasar yg terkandung dalam format-format lainnya.

Source Codenya di Pastebin:
[URL="http://S E N S O R/wCDeKpzd"]
[url]http://S E N S O R/wCDeKpzd[/url][/URL]

Screen shoot ketika source code dijalankan:




Menampilkan Tanggal Saat Ini

Di bawah ini source code untuk menampilkan tanggal saat ini di console:

program Latihan86;

 

 {$mode objfpc}{$H+}

 

 uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils

 { you can add units after this };

 

 begin

 

 writeln('Tanggal Sekarang: ',DateToStr(Now));

 

 writeln('Tekan tombol ENTER untuk menutup');

 

 readln;

 

 

 end.

Kode diatas ketika dijalankan di laptop saya masih menampilkan format tanggal yg short, selanjutnya akan saya coba utak atik format tanggalnya. Mau coba buat format tanggal yang long.

Source Codenya di Pastebin:

[URL="http://S E N S O R/4yLrcsRJ"]http://S E N S O R/4yLrcsRJ[/URL]

Download File Source

Screen Shoot program ketika dijalankan:




Menampilkan Tanggal di Konsole

Dalam source code ini saya menampilkan tanggal di Terminal atau console. Dalam mengoprek tentang jam & tanggal, kita jangan lupa menambahkan: sysutils seperti contoh di bawah ini:

program Latihan85;

 

 {$mode objfpc}{$H+}

 

 uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils

 { you can add units after this };

 

 var

 

 Tanggal: TDateTime;

 

 begin

 

 // Mencetak Tanggal di Konsole

 

 writeln('Tanggal Sekarang : ', DateToStr(Tanggal));

 

 writeln('Tekan tombol ENTER untuk menutup');

 

 readln;

 

 

 end.

Source codenya di Pastebin:

[URL="http://S E N S O R/x9y8gT49"]http://S E N S O R/x9y8gT49[/URL]

Download File Source


Tampilan di Terminal ketika program di jalankan:




Menampilkan Jam Saat Ini

Kode dibawah ini untuk menampilkan jam saat ini:

program Latihan84;

 

 {$mode objfpc}{$H+}

 

 uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils

 { you can add units after this };

 

 var

 

 Time : TDateTime;

 

 begin

 

 // Mencetak Format Waktu di Konsol

 // writeln('Current time : ', TimeToStr(Time));

 

 // Di bawah ini kodenya diganti Time menjadi Now untuk menampilkan

 // waktu saat ini

 writeln('Current time: ', TimeToStr(Now));

 

 writeln('Tekan tombol ENTER untuk menutup');

 readln;

 

 

 end.

Link Source Codenya di Pastebin:

[URL="http://S E N S O R/VaTEQ1SQ"]http://S E N S O R/VaTEQ1SQ[/URL]

Download File Source

Screen Shoot ketika program dijalankan:





Percobaan Untuk Jam di Konsole

Sedang mencoba input & output jam di konsole. Ada pencerahan, dengan menggunakan kode dibawah ini, kita bisa menampilkan format jam:

program Latihan84;

 

 {$mode objfpc}{$H+}

 

 uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils

 { you can add units after this };

 

 var

 

 Time : TDateTime;

 

 begin

 

 writeln('Current time : ', TimeToStr(Time));

 writeln('Tekan tombol ENTER untuk menutup');

 readln;

 

 

 end.

Source codenya dalam format yg rapi di Pastebin:

[URL="http://S E N S O R/ZpJ2mfvM"]http://S E N S O R/ZpJ2mfvM[/URL]

Screen Shoot ketika kode diatas dijalankan:




Kode Untuk Mengedit Date Separator di Free Pascal

unit Latihan3unit1;

 

 {$mode objfpc}{$H+}

 

 interface

 

 uses

 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,

 DbCtrls, StdCtrls;

 

 type

 

 { TForm1 }

 

 TForm1 = class(TForm)

 Button1: TButton;

 Button2: TButton;

 DateEdit1: TDateEdit;

 Edit1: TEdit;

 Label1: TLabel;

 procedure Button1Click(Sender: TObject);

 procedure Button2Click(Sender: TObject);

 procedure FormCreate(Sender: TObject);

 private

 { private declarations }

 public

 { public declarations }

 end;

 

 var

 Form1: TForm1;

 

 implementation

 

 {$R *.lfm}

 

 { TForm1 }

 

 procedure TForm1.FormCreate(Sender: TObject);

 begin

 

 // Mensetting date separator pada saat runtime

 DateSeparator:='/';

 

 // Menampilkan tanggal sekarang pada saat runtime

 DateEdit1.Date:=Now;

 

 // sumber info: http://forum.lazarus.freepascal.org/index.php?topic=19563.0

 

 end;

 

 procedure TForm1.Button1Click(Sender: TObject);

 

 // mengirimkan text di kotak Edit ke Label dengan mengklik tombol

 

 // sumber : http://forum.lazarus.freepascal.org/index.php?topic=13871.0

 var

 

 StringVar: string;

 begin

 

 StringVar:=Edit1.Text;

 Label1.Caption:=StringVar;

 

 end;

 

 procedure TForm1.Button2Click(Sender: TObject);

 

 begin

 

 end;

 

 end.

Source codenya di Pastebin:

[URL="http://S E N S O R/Zy1PGhwR"]http://S E N S O R/Zy1PGhwR[/URL]

Download File Source

Screen shoot ketika program dijalankan:




Penggunaan Berulang Nilai Sebuah Variabel Bagian 2

Melanjutkan source code sebelumnya, dalam source code dibawah ini, dicoba untuk menjalankan multiple input:

program Latihan96;



{$mode objfpc}{$H+}



uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils, dateutils

 { you can add units after this };



// Membuat inputan tanggal

 var



 Tanggal : TDateTime;



 Tahun : Word; // Untuk kode tahun



 Bulan : Word; // Untuk kode bulan



 Hari : Word; // Untuk kode hari



begin



 write('Masukan Kode Tahun: ');



 readln(Tahun);



 writeln('Tahun yang dimasukan: ',Tahun);



 // Ini bukti kalau variabel, 1x didefinisikan, maka valuenya bisa dipakai diseluruh

 // source code secara berulang-ulang.



 writeln('Tahun depan: ',Tahun);





 // Sekarang percobaan yang sama untuk kode bulan

 write('Masukan Kode Bulan: ');



 readln(Bulan);



 writeln('Bulan yang dimasukan: ',Bulan);



 writeln('Bulan depan: ',Bulan);





 // Sekarang percobaan yang sama untuk kode hari



 write('Masukan Kode Hari: ');



 readln(Hari);



 writeln('Hari yang dimasukan: ',Hari);



 writeln('Hari besok: ',Hari);





 readln; // Supaya layar console tidak langsung menutup



end.

Source Codenya di Pastebin:

[URL="http://S E N S O R/bSVdbb0D"]http://S E N S O R/bSVdbb0D[/URL]

Download file source disini





EncodeDate : Kode yang Berhasil Untuk Tanggal dengan Variabel

Berikut ini kode yang berhasil untuk dijalankan. Kode ini melibatkan FormatDateTime, Variabel, EncodeDate.

program Latihan98;



{$mode objfpc}{$H+}



uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Classes, sysutils, dateutils

 { you can add units after this };



var



Tanggal : Tdatetime;



Tahun : word;



Bulan : word;



Hari : word;





begin



 write('Masukan kode tahun : ');



 readln(Tahun);



 write('Masukan kode bulan : ');



 readln(Bulan);



 write('Masukan kode tanggal: ');



 readln(Hari);





 // Sekarang memasukan variabel diatas ke dalam kode tanggal



 Tanggal := EncodeDate(Tahun, Bulan, Hari);



 writeln ('Tanggal : ' + FormatDateTime('dd/mm/yyyy',Tanggal));



 readln;







end.

Teman-teman juga bisa share pengetahuan tentang pemrograman Free Pascal di thread ini.