Wellington Vieira Posted October 4, 2022 Report Share Posted October 4, 2022 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 4, 2022 Report Share Posted October 4, 2022 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. Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted October 4, 2022 Author Report Share Posted October 4, 2022 Obrigado Kapiaba. Vou testar, e retorno com o resultado. Abraço Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.