Balança Toledo

[Wellington Vieira]

Bom dia,

Alguns dos amigos do fórum tem uma amostra (TRECHO DO PRG) de como fazer a interação com a "BALANCA PARA CAIXA 8217 TOLEDO 30 KG" ? Seria aquelas balanças que ficam nos "Caixas" de supermercado para peso. ( pegar o peso registrado na balança pelo sistema).

Desde já agradeço.

[kapiaba]

Veja se ajuda:

//-> Abertura da DLL da BALANCA PESADORA TOLEDO
STATIC XDLLB
	FUNCTION MAIN()
	    //-> Entrada
    XDLLB := LOADLIBRARY( "P05.DLL" )
	    DEFINE DIALOG...
    //
    //
    ACTIVAVATE DIALOG...
	    //-> Saida
    FREELIBRARY( XDLLB )
    XDLLB:=NIL
	RETURN NIL
	FUNCTION PEGA_PESO_TOLEDO()
	    LOCAL RETORNO, PESO := SPACE(05)
	    RETORNO := ABREPORTA( 1, 0, 0, 2 )
	    IF RETORNO # 1
	        MsgInfo( OemtoAnsi( "Erro na Abertura da Porta COM da Balan‡a!" ),    ;
                 OemtoAnsi( "Erro na Porta da Balan‡a Pesadora" ) )
	    ENDIF
	    RETORNO := PEGAPESO( 0, @PESO, "C:\" )
	    NQTDE   := VAL(PESO)
	    IF NQTDE<=0
	       MsgInfo( OemtoAnsi( "Erro na Leitura do peso da Balan‡a!" ),           ;
                OemtoAnsi( "BalcÆo - Erro na Leitura do Peso na Balan‡a" ) )
	    ENDIF
	    RETORNO := FECHAPORTA()
	RETURN( NQTDE )
	//---------------------------------------------------------------------------//
	//-> DECLARACAO DA DLL BALANCA PESADORA TOLEDO -> By Rossine.
	DLL32 Function AbrePorta( Porta AS LONG, BaudRate AS LONG, DataBits AS LONG, Paridade AS LONG ) AS LONG PASCAL lib xDllb
	DLL32 Function PegaPeso( OpcaoEscrita AS LONG, Peso AS STRING, Diretorio AS STRING ) AS LONG PASCAL lib xDllb
	DLL32 Function FechaPorta() AS LONG PASCAL lib xDllb
	//---------------------------------------------------------------------------//

Reagrds, saludos.

[Wellington Vieira]

Obrigado Kapiaba.

Vou testar, e retorno com o resultado.

Abraço