Heres a Clean VB.Net code declaring the interface easily readable.
'dll interface or connection
Public Declare Sub Out64 Lib "inpoutx64.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
Public Declare Function Inp64 Lib "inpoutx64.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
___________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Out64(888, 1)
End Sub
___________________________________________
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Out64(888, 0) 'clear all
End Sub
ENJOY!
0 Comments:
Post a Comment