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”.
The pin arrangement for the LPT connector DB25 is as follows:
| Pin No. | Function | Direction | Description |
|---|---|---|---|
| 1 | Control bit 0 (strobe) | Out | Reversed |
| 2-9 | Data (bit 0 to bit 7) | In/out | |
| 10 | Status bit 6 (acknowledge) | In | |
| 11 | 7 bit Status (busy) | In | Reversed |
| 12 | Status bit 5 (paper end) | In | |
| 13 | Status bit 4 (select) | In | |
| 14 | Control bit 1 (auto feed) | Out | Reversed |
| 15 | Status bit 3 (error) | In | |
| 16 | Control bit 2 (init) | Out | |
| 17 | Control bit 3 (select in) | Out | Reversed |
| 18-25 | Ground |
We can use 8 bit data port to control a range of equipment. For example to control LEDS, relays, SCR, etc.
For ease of programming, I created a component that can be installed on Delphi (LPTXP.dpk) or Lazarus (LPTXP.lpk). This component uses the hwinterface.sys.
After you install the component, you can try the demo program (LPTTest.dpr). With this demo program, you can set the output of the data port by giving check on the CheckBox. If the CheckBox is checked, then the output of the data port will be H. whereas if the check mark is removed, then the output port data will be L.
For ease in viewing the State of data port, you can connect the data port to the LEDS as shown below:
By creating a LED circuit as shown above, you can try to control the LED light using the Checkboxes on the LPTTest program. And you will get a very interesting LED Runnung if you click on the Run button. LED lighting patterns using binary files compiled using the pattern as in “CHAPTER, Running LED 5” on the books “Easy and Fun Learning Learning Microcontroller”.
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)