Kendali Pararel Port pada Win XP / NT

file ini “copy-of-inpout32-dll.doc” didownload trs direname menjadi “inpout32.dll” soalnya dari wordpress ga boleh upload file .dll so aku rename dulu, demikianjuga kalau sudah download dikembalikan lagi.
sory buru2 besok dilanjut
Copy of inpout32.dll

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)

Private Sub Command1_Click()
Text2.Text = Str(Inp(Val(“&H” + Text1.Text)))
End Sub

Private Sub Command2_Click()
Out Val(“&H” + Text1.Text), Val(Text2.Text)
End Sub