Output of the LPT port using VB

See more:

VB

Windows

Win7

DLL

Hi,

I am following the procedure of the controlling the Parallel port using this article "Reading from Parallel Port using Inpout32.dll". And this is the code,

Option Strict Off
Option Explicit On
Module InpOut32_Declarations

    'Inp and Out declarations for port I/O using inpout32.dll.
    Public Declare Function Inp Lib "inpoutx64.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
    Public Declare Sub Out Lib "inpoutx64.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)

End Module


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Out(&H378S, &HFFS)      'Print '1' to D7-D0 or 255 in Decimal
        Dim Value1 As String    'String named Value1
        Value1 = Inp(&H378S)    'Now Value1 has the values in 'data port'
        MessageBox.Show(Value1) 'A popup will indicate the current value written

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim Value2 As String    'String named Value2
        Value2 = Inp(&H379S)    'Now Value2 has the values in 'signal port'
        MessageBox.Show(Value2) 'A popup will indicate the current value written

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

The operating system is Windows 7 64bit and I used Inpoutx64.dll. The code works fine in one pc but it doesn't work on another pc which is the same operating system. When I click Button one "which is the out put for the Data Bus" the results always 120, whatever the value that I give for the Data bus!

Any suggestion how to solve this problem? Plz.


Regards