Interface Delphi Menggunakan Port DB25 (LPT)
Postingan kali ini saya akan berbagi sedikit materi pada
praktikum di kampus, materi kali ini mengenai port paralel. Udah pada tau kan
apa itu port paralel / LPT / DB25? Yak betul, port paraler merupakan sebuah
jenis port yang biasanya dugunakan untuk komunikasi dari komputer ke device /
periferal lain, biasanya port ini digunakan pada printer atupun devais – devais
lain. Sebelum memulai pemrograman paralel menggunakan delphi kita terlebih dahulu
harus memiliki file Inpout32.dll. dapat di download disini. Kemudian copy file
tersebut ke folder dimana project dibuat.
Untuk dapat melakukan pemrograman sistem pengendali
menggunakan delphi kita perlu menambahkan syntax berikut pada Code Editor.
Uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls,
ComCtrls;
function out32(wAddr:word;bOut:byte):byte; stdcall; external
‘inpout32.dll’;
Dan untuk menambahkan fungsi delay maka kita juga perlu
menambahkan baris program berikut :
Procedure Delay (mSec: Integer);
Var StartCount : longint;
Begin
StartCount := GetTickCount;
Repeat
Application.ProcessMessages;
Until (GetTIckCount – StartCount) >= mSec;
End;
Komentar
Posting Komentar