Akses port paralel pada VB

1. Ketik pada modul
‘Buat module dengan nama mdlPortIO

‘ — Begin —
Option Explicit

Public Declare Function Inp Lib “inpout32.dll” _
Alias “Inp32″ (ByVal PortAddress As Integer) As Integer

Public Declare Sub Out Lib “inpout32.dll” _
Alias “Out32″ (ByVal PortAddress As Integer, ByVal Value As Integer)

‘ — end of module —

2. Ketik pada code form

‘misal kita ingin mengakses pin 1 pada port paralel (DB25)
private sub commandPin1_click()

out 888, 1 ’888 adalah port address & 1 adalah pin
end sub

‘Nilai port
pin 1 = 1
pin 2 = 2
pin 3 = 4
pin 4 = 8
pin 5 = 16
pin 6 = 32
pin 7 = 64
pin 8 = 128

jika ingin menggabungkan antara port, gunakan perintah sbb:
out 888, 1 + 8

artinya kita akan menjalankan port 1 & 4 secara bersamaan

NOTE:
Fungsi IO_port membutuhkan inpOut32.dll (download dari internet ADA)
letakkan file tersebut pada folder tempat dari program