Feeds:
Pos
Komentar

Archive for the ‘Delphi’ Category

Mencari titik potong dua buah garis yang diketahui titik koordinatnya saja. Sebagai contoh diketaui garis persamaan 1 dimulai dengan titik (13,57) menuju ke titik ( 285,172).  Sedangkan garis persamaan 2 dimulai titik (248,33) dan (60,186) maka titik potong koordinat x dan y akan langsung diketahui.

Rumus persamaan Saya ambil dari : http://id.answers.yahoo.com/question/index?qid=20081029011231AAONoVA

Titik Potong

Demo + Source Code (218.KB) semoga membantu.

Read Full Post »

GPX adalah GPS eXchange Format yang digunakan untuk menyimpan hasil tracking atau waypoint dari alat gps. Teknik untuk membaca file ini tidak terlalu rumit karena menggunakan format XML. Komponen yang digunakan untuk membaca adalah IXMLDocument dan IXMLNodeList sedangkan nama unitnya adalah XMLIntf.

lihat source code.

Read Full Post »

Biasanya kebanyakan programmer akan kesulitan dalam penggunaan metode Linkedlist, memang begitu kenyataannya dan kebanyakan hanya tau teorinya saja atau bisa menggunakan tetapi hanya mode kecil saja digunakan.

Saat ini saya akan menggunakan Class TStringList untuk menggantikan metode Linkedlist pada aplikasi yang saya buat. Data yang saya gunakan adalah dalam bentuk kapasitas BESAR.

Berikut ini adalah beberapa kesimpulan yang saya dapatkan;

LINKEDLIST

Keunggulan :

– Strukturnya sederhana dan mudah dimengerti

– Tipe data dapat berbentuk apa saja (string, char, gambar, class, integer, binner file, dll…)

– Mudah direlasikan antar struktur

Kekurangan :

– Kinerja lambat, karna membutuhkan banyak memori

– Banyak menggunakan proses LOOPING

– Rumit dalam pengkodean proses PUSH dan POP

TSTRINGLIST

Keunggulan:

– Data mudah baca

– Proses lebih ringan

– Gampang dalam pengkodean, dijamin Garbage di memori lebih sedikit

Kelemahan:

– Harus mahir dalam pengkodean String, karena akan bermain-main dengan mode Hyper Text

– Membutuhkan variabel tambahan yaitu tipe data berbentuk ARRAY

Read Full Post »

linked list

download (202 KB)

Read Full Post »

Delphi Tutorials

Ingin belajar Linked List atau Senarai Berantai, cek disini :

Learning to program in Delphi
Pascal Tutorial and source code

Read Full Post »

Setelah aku googling kemana2 mencari bagaimana cara menampilkan Dialog Editor pada komponen TChart dan TDBChart, ahirnya aku temukan beberapa link.

Dua link yang sangat membantu adalah :

  1. Cara menggunakan sintaknya disini
  2. Baca tutorialnya disini

Read Full Post »

Untuk mengubah bilangan Desimal menjadi bilangan Hexa memang sangat mudah karena sudah ada fungsinya yaitu dengan menggunakan fungsi “IntToHex” tetapi bagaimana jika sebaliknya.

Apakah harus membuat fungsi sendiri dengan sesuai dengan Algoritma operasi bilangan Hexa ke Desimal???? hahaha kelaaamaannn…
pakai fungsi ini, lupakan proses looping:

function HexToByte(hex:string):byte;
var
E: byte;
Buf: array[0..2] of Char;
s:string;
begin
s:=LowerCase(hex);
Buf[0]:=s[1];
Buf[1]:=s[2];
HexToBin(Buf, @E, 1);//ini mesinnya
result:=e;
end;

fungsi ini adalah saya fokuskan untuk dua digit Hexa saja. Silakan untuk dikembangkan karena “HexToBin” mampu membuat bilangan Hexa banyak digit dan untuk negasi juga bisa.

Read Full Post »

Older Posts »