Pasar codigo VB a FW

[Vladimir Zorrilla]

Amigos tengo el siguiente codigo en Visual Basic

Como lo paso a FW
[img]serviaduana.netai.net/img.jpg[/img]

Gracias por la Ayuda

[Vladimir Zorrilla]

Perdon
NO se poner imagenes en el foro

Aqui esta el codigo que necesito migrar
Gracias

http://serviaduana.netai.net/img.html

[cmsoft]

Hola Vladimir, no si si la respuesta llega tarde. Si tu intencion es enviar datos a un puerto COM puedes usar tranquilamente las funciones de manejo del COM de FIVEWIN.

Code: Select all

FUNCTION abrirport(n)
LOCAL IdPort,cDcb,nError
IdPort := OpenComm("COM"+STR(n,1),1024,256)
IF IdPort <= 0
   nError = GetCommError( IdPort)
   MsgInfo( "Error al abrir: " + Str( nError ) )
   Retun 0
ENDIF
IF ! BuildCommDcb("COM"+STR(n,1)+":9600,n,8,1" , @cDcb)
   nError = GetCommError( IdPort)
   MsgInfo( "Error al Configurar: " + Str( nError ) )
   RETURN 0
ENDIF
IF ! SetCommState( IdPort, cDcb )
   nError = GetCommError( IdPort)
   MsgInfo( "Error al setear: " + Str( nError ) )
   RETURN 0
ENDIF
IF (nBytes := WriteComm( port,string) ) < 0
   MsgAlert("Mando mal string")
ENDIF
nBytes := ReadComm( port,@string)
IF nBytes < n
    MsgInfo("Leyo menos bytes")
    RETURN .f.
ENDIF
RETURN .t.

 

Espero te sirva