convert VB program in Progress

[angeloata]

Hi

I have this program em VB:

edPorta.Text = 378
edTimeOut.Text = 1000

Declare Function ConfigLpt Lib "WTechLpt.dll" (ByVal Endereco As Integer, ByVal Timeout As Integer) As Boolean

Call ConfigLpt(Val("&H" + edPorta.Text), Val(edTimeOut.Text))


Anywhere, know convert this program in progress language? The problem is convert the port LPT.

Tks

 

[rstanciu]

something like this:
PROCEDURE ConfigLpt EXTERNAL "WTechLpt.dll" :
DEFINE INPUT PARAMETER Endereco AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER ByVal AS INTEGER NO-UNDO.
DEFINE RETURN PARAMETER Lib AS LOGICAL NO-UNDO.
END PROCEDURE.

DEF VAR ll AS LOGICAL NO-UNDO.
RUN ConfigLpt (378,1000, OUTPUT ll).

be careful with the parameters names and types (can be short/long, etc.)

 

[angeloata]

tk´s!!!!!!!!!!!!!!!!!!!!!!