DLL Call inpout32.dll

[Samuelhug]

Im trying to make a program to Read/Write data to and from the parallel port with DllCall inpout32.dll.This is the code in VB 2005 if someone could convert it for me that would be great.

inpout32.dll Link includes examples for VB, VC, and C++

CODE

Option Strict Off

Option Explicit On

Imports System.Text

Imports System.Threading

Module InpOut32_Declarations

'Inp and Out declarations ofr port I/O using inpout32.dll

Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short

Public Declare Function Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAdress As Short, ByVal Value As Short) As Short

End Module

Public Class Form1

Private Sub CWBut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CWBut.Click

Out(&H378S, &H1S)

Thread.Sleep("100")

Out(&H378S, &H0S)

End Sub

End Class

This is the code from my attempt to convert it.

CODE

ConsoleWrite( _Out( "&H378S", "H1S") & @CR)

Sleep( 100 )

ConsoleWrite( _Out( "&H378S", "H0S") & @CR)

Func _Out( $PortAddress, $Value)

$Retur = DllCall( "inpout32.dll", "Short", "Out32", "str", $PortAddress, "str", $Value )

ConsoleWrite( "Error# " & @error & @CR)

Return $Retur[0]

EndFunc

Func _Inp( $PortAddress)

$Value = DllCall( "inpout32.dll", "Short", "Inp32", "Short", $PortAddress)

;ConsoleWrite( "Error# " & @error & @CR)

Return $Value[0]

EndFunc

[PaulIA]

The problem that I see in your code is:

ConsoleWrite( _Out( "&H378S", "H1S") & @CR)
Sleep( 100 )
ConsoleWrite( _Out( "&H378S", "H0S") & @CR)oÝ÷ Ù(hºW[zÊ&zØb   b殶­sd6öç6öÆUw&FRô÷WB3sÂfײ5"¥6ÆVW¤6öç6öÆUw&FRô÷WB3sÂfײ5"oÝ÷ Ù8Z¶+"*.ßÚÞ¶¼¢h¸­y­ZÛazv´¶h®Ý1ß¿z··öȬ­#
èµëajÛzk-£
+«­¢+Ù
½¹Í½±]ɥѡ}=ÕÐÌÈ ÁàÌÜà°Ä¤µÀì
H¤)
½¹Í½±]ɥѡ}=ÕÐÌÈ ÁàÌÜà°À¤µÀì
H¤()Õ¹}%¹ÀÌÈ ÀÌØí¥ÉÍ̤(1½°ÀÌØíIÍÕ±Ð((ÀÌØíIÍÕ±Ðô±±
±° ÅÕ½Ðí%¹Á=ÕÐÌȹ±°ÅÕ½Ðì°ÅÕ½ÐíÍ¡½ÉÐÅÕ½Ðì°ÅÕ½Ðí%¹ÀÌÈÅÕ½Ðì°ÅÕ½ÐíÍ¡½ÉÐÅÕ½Ðì°ÀÌØí¥ÉÍ̤(IÑÕɸÀÌØíIÍÕ±ÑlÁt)¹Õ¹()Õ¹}=ÕÐÌÈ ÀÌØí¥ÉÍÌ°ÀÌØí¥Ñ¤(1½°ÀÌØíIÍÕ±Ð((ÀÌØíIÍÕ±Ðô±±
±° ÅÕ½Ðí%¹Á=ÕÐÌȹ±°ÅÕ½Ðì°ÅÕ½ÐíÍ¡½ÉÐÅÕ½Ðì°ÅÕ½Ðí=ÕÐÌÈÅÕ½Ðì°ÅÕ½ÐíÍ¡½ÉÐÅÕ½Ðì°ÀÌØí¥ÉÍÌ°ÅÕ½ÐíÍ¡½ÉÐÅÕ½Ðì°ÀÌØí¥Ñ¤(IÑÕɸÀÌØíIÍÕ±ÑlÁt)¹Õ¹

[Samuelhug]

Thanks it works great.