Titik Potong Dua Garis

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

Demo + Source Code (218.KB) [...]

Untuk mentranslate bahasa

Membaca File *.GPX dengan DELPHI

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.

Untuk mentranslate bahasa

Linkedlist Vs TStringList mode Advance

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

Untuk mentranslate bahasa

Linked List / Senarai Berantai (insert sort, pop, destroy)

download (202 KB)

Untuk mentranslate bahasa

Delphi Tutorials

Ingin belajar Linked List atau Senarai Berantai, cek disini :

Learning to program in Delphi
Pascal Tutorial and source code

Untuk mentranslate bahasa

Menampilkan Dialog TChart/TDBChart saat Runtime

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 :

Cara menggunakan sintaknya disini
Baca tutorialnya disini

Untuk mentranslate bahasa

HexToByte (mengubah bilangan Hexa 2 digit menjadi Desimal)

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 mentranslate bahasa

BUG Komponen TQuery di Delphi 7

Database :
MySQL 5
Event :
Mengambil data dengan perintah “SELECT”, kapasitas data yang akan di load lebih dari 10Kb. Data yang saya simpan adalah berupa data teks.
Bug :
Data yang ter-ambil hanya sebesar 10Kb walaupun itu kapasitasnya yang tersimpan pada server sebesar lebih dari 10Kb.

Untuk mentranslate bahasa

How control excel from delphi

http://www.delphi3000.com/articles/article_479.asp?SK=

Untuk mentranslate bahasa

Bubble Map

Penamaan ini dikatakan Bubble Map karna hasilnya adalah berbentuk gelembung-gelembung. Persamaan yang saya gunakan adalah sangat sederhana yaitu dengan persamaan sigma. Data awal sampai akhir di akumulasikan sehingga menghasilkan nilai rata-rata.
Menggambar gelembung juga menggunakan rata-rata dari prosentase pada jari-jari sebuah lingkaran. Gunanya adalah untuk membatasi penggambaran lingkaran yang melampaui batas. Untuk lebih jelasnya lihat gambar [...]

Untuk mentranslate bahasa