Paralel port atau sering disebut LPT memiliki tiga port, yaitu port data, port control, dan port status. Port-port ini memiliki alamat yang berurutan dengan alamat untuk port data sebagai alamat dasar. Alamat yang biasa digunakan untuk LPT adalah $378, $278 dan $38B. Dan alamat $378 merupakan alamat yang paling lumrah digunakan untuk LPT jika hanya ada sebuah port LPT yang terinstal. Dengan alamat dasar $378, maka ini berarti bahwa port data beralamat $378, port status pada $379 dan port control pada $37A.
Susunan pin untuk LPT pada konektor DB25 adalah sebagai berikut:
| No.Pin | Fungsi | Arah | Keterangan |
|---|---|---|---|
| 1 | Control bit 0 (strobe) | Keluar | Dibalik |
| 2-9 | Data (bit 0-bit 7) | Masuk/keluar | |
| 10 | Status bit 6 (acknowledge) | Masuk | |
| 11 | Status bit 7 (busy) | Masuk | Dibalik |
| 12 | Status bit 5 (paper end) | Masuk | |
| 13 | Status bit 4 (select) | Masuk | |
| 14 | Control bit 1 (auto feed) | Keluar | Dibalik |
| 15 | Status bit 3 (error) | Masuk | |
| 16 | Control bit 2 (init) | Keluar | |
| 17 | Control bit 3 (select in) | Keluar | Dibalik |
| 18-25 | Ground |
Kita bisa menggunakan 8 bit port data untuk mengendalikan berbagai peralatan. Misalnya untuk mengendalikan LED, relay, SCR, dan lain sebagainya.
Untuk kemudahan dalam pemrogramannya, saya membuat sebuah komponen yang bisa diinstal pada Delphi (LPTXP.dpk) ataupun Lazarus (LPTXP.lpk). Komponen ini menggunakan hwinterface.sys.
Setelah Anda menginstal komponen tersebut, Anda bisa mencoba program demo (LPTTest.dpr). Dengan program demo ini, Anda bisa mengatur keluaran dari port data dengan memberi centang pada CheckBox. Jika CheckBox dicentang, maka keluaran dari port data akan bernilai H. Sedangkan jika centangnya dibuang, maka keluaran port data akan bernilai L.
Untuk mempermudah dalam melihat keadaan port data, Anda bisa menyambungkan port data ke LED seperti gambar berikut:
Dengan membuat rangkaian LED seperti gambar di atas, Anda bisa mencoba mengendalikan nyala LED menggunakan CheckBox pada program LPTTest. Dan Anda akan mendapatkan Runnung LED yang sangat menarik jika Anda klik pada tombol Run. Pola penyalaan LED menggunakan file biner yang disusun menggunakan pola seperti pada BAB “LED berjalan 5” pada buku “Mudah dan Menyenangkan Belajar Mikrokontroler”.
Mantab, ada komponen Lazarusnya.
Btw, aku sudah download dan coba install package di Lazarus 0.9.30.2 / FPC 2.4.4, tapi gagal karena file LPT.pas tidak ditemukan. Mohon bantuannya. Terima kasih.
mungkin bisa diatasi dengan menambahkan -Fu dengan path dari LPT.pas
Baik, komponen sudah bisa diinstal di Lazarus. Hanya saja sepertinya file form pada project lazarusnya tidak disertakan, sehingga project demo tidak bisa dijalankan. Thanks.
Oia, ada yg tertinggal. thanks infonya đ
Eh, tapi tidak kok, itu menggunakan file form yang sama dengan Delphi, jadi menggunakan dfm, bukan lfm. Coba lakukan konversi Delphi unit to Lazarus unit untuk unit UnitTest.pas.
Sip, project bisa dicompile sampai jadi .exe, tapi form tetap tidak muncul.
Mas bs minta program LPTTest nya mas? makasih
Download saja LPTXP.7z yang di bawah, di dalamnya ada demo yang berisi LPTTest.exe maupun source code-nya
Mas Sulhan,
Saya coba install componentnya di lazarus 1.6 windows7 32bit, nggak bisa ya mas, apa memang tidak didesain utk windows7 ?, ada 3 error saat diinstall….
Pertama, parport_rut_noDll.pas(77,7)Error: Can’t determine which overloaded function to call (di scrip menunjuk -> AssignFile(fb,path);)
Kedua, parport_rut_noDll.pas(129,36)Error: Incompatible type for arg. 3: Got “PChar”, expected “LPPCSTR”
Ketiga, parport_rut_noDll.pas(142,30)Error: Incompatible type for arg. 3: Got “PChar”, expected “LPPCSTR”
Sedangkan LPTTest.exe bisa dijalankan dengan sempurna….
Thanks sebelumnya
Memang Lazarus ini kadang agak sulit karena dari versi ke versi kadang tidak kompatibel. Dicoba pada versi X berhasil, setelah sampai versi Y ternyata error. Saya barusan mencoba compile pada lazarus 1.6.2 dan penyelesaiannya:
1) Untuk kesalahan pertama cukup dengan mengganti menjadi AssignFile(fb,pchar(path));
2) Untuk error Got âPCharâ, expected âLPPCSTRâ, itu adalah ketidak cocokan tipe data untuk X. Jadi tinggal disesuaikan saja tipe X menjadi X:LPPCSTR; (pada baris 117)