Deklarasi Port Paralel Pada VB 6.0

Ada beberapa cara untuk dapat mengakses port paralel pada vb, salah satu nya kita bisa gunakan library io.dll, Caranya sangat mudah, yaitu dengan mendeklarasikan fungsi sebagai berikut :

Public Declare Sub PortOut Lib "io.dll" _

(ByVal Port As Integer, ByVal Data As Byte)

Public Declare Sub PortWordOut Lib "io.dll" _

(ByVal Port As Integer, ByVal Data As Integer)

Public Declare Sub PortDWordOut Lib "io.dll" _

(ByVal Port As Integer, ByVal Data As Long)

Public Declare Function PortIn Lib "io.dll" _

(ByVal Port As Integer) As Byte

Public Declare Function PortWordIn Lib "io.dll" _

(ByVal Port As Integer) As Integer

Public Declare Function PortDWordIn Lib "io.dll" _

(ByVal Port As Integer) As Long

Public Declare Sub SetPortBit Lib "io.dll" _

(ByVal Port As Integer, ByVal Bit As Byte)

Public Declare Sub ClrPortBit Lib "io.dll" _

(ByVal Port As Integer, ByVal Bit As Byte)

Public Declare Sub NotPortBit Lib "io.dll" _

(ByVal Port As Integer, ByVal Bit As Byte)

Public Declare Function GetPortBit Lib "io.dll" _

(ByVal Port As Integer, ByVal Bit As Byte) As Boolean

Public Declare Function RightPortShift Lib "io.dll" _

(ByVal Port As Integer, ByVal Val As Boolean) As Boolean

Public Declare Function LeftPortShift Lib "io.dll" _

(ByVal Port As Integer, ByVal Val As Boolean) As Boolean

Public Declare Function IsDriverInstalled Lib "io.dll" () As Boolean

Setelah mendeklarasikan fungsi diatas, ada beberapa fungsi yang dapat kita gunakan untuk mengakses dan mengirim nilai pada port paralel, diantaranya :

• PortOut : Mengirim data dalam format byte (8-bit) ke port tertentu.
• PortWordOut : Mengirim data dalam format word (16-bit) ke port tertentu.
• PortDWordOut : Mengirim data dalam format double word (32-bit) ke port tertentu.
• PortIn : Membaca data falam format byte (8-bit) dari port tertentu.
• PortWordIn : Membaca data falam format word (16-bit) dari port tertentu.
• PortDWordIn : Membaca data falam format double word (32-bit) dari port tertentu.
• GetPortBit : Membaca status dari bit tertentu.
• SetPortBit : Set bit (=1) pada port tertentu.
• ClrPortBit : Reset bit (=0) pada port tertentu.
• NotPortBit : Lakukan inversi (NOT) bit pada port tertentu
• RightPortShift : Geser bit dari port tertentu ke kanan, LSB -> MSB.
• LeftPortShift : Geser bit dari port tertentu ke kiri, MSB -> LSB. 
• IsDriverInstalled : Akan memberikan nilai bukan-NOL jika io.dll sudah terinstal dan berfungsi. Tujuan utama dari fungsi ini adalah untuk memastikan bahwa penggerak mode kernel pada NT/2000/XP telah diinstal dan dapat diakses.

Contoh pemanggilan port :
==> PortOut [alamat],[nilai]  seperti : PortOut &H378, &HFF