PESO - Balança Toledo 9094-I

[FARLEY RIBEIRO]

Pessoal,

Segui o exemplo postado em dicas mas não obtive sucesso na busca do peso na balança Toledo9094-I

http://www.fivewin.com.br/exibedicas.asp?id=679

Estou utilizando a dll acima. Apresenta a mensagem abaixo:

"Esse aplicativo não pode ser iniciado porque não foi encontrado borlndmm.dll. A reinstalação do aplicativo pode corrigir o problema."

Alguma solução? O que pode ser? Como conseguir buscar o peso do produto na balança? Alguém tem alguma rotina que realmente funcione?

Farley


Atenciosamente

Farley

static xDllB

#include "fivewin.ch"

function MAIN

local Peso := space(7)

xDllB := LoadLibrary( "P05.DLL" )

msgstop( AbrePorta( 4, 0, 0, 2 ), "Abre Porta" )

msgstop( PegaPeso( 0, @Peso, "" ) )

msgstop( "Peso retornado: " + cvaltochar( val(transform( peso, "@R 999.999" )) ) )

msgstop( FechaPorta(), "Fecha Porta" )

FreeLibrary( xDllB )

return NIL

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

fw2.6/xhb09950/Pelles/MyMake/Med
mateuspatrick@bol.com.br

[sygecom]

Já consegiui a DLL ?

[FARLEY RIBEIRO]

já consegui ...
só não consegui pegar o peso...

grato

FARLEY

[sygecom]

Tentou com a hbcomm.lib que te mandei ?

[FARLEY RIBEIRO]

Tentei mas não consegui ainda...
Não sei pq..

Será que é a configuração..

CONFIGURAÇÃO:
Porta.....................: 1
Velocidade.............: 4800
Bits de Dados.........: 8
Paridade................: N
Bits de Parada........: 2

[FARLEY RIBEIRO]

Olá pessoal...

Agora retornei novamente ao problema acima... e mais uma vez sem sucesso.
Utilizei os fontes da hbcomm para compilar e não obtive sucesso.
Utilizei os fontes que vem com a lib P05.dll faz a comunicação mas não pega o peso.
Utilizei a hbcomm.lib(xhb9950) e não obtive sucesso..

Seguimos as orientações abaixo..

2.1.1 Formato dos Dados

A balança aguarda uma solicitação do dispositivo externo para a transmissão do peso.

- Velocidade : 2400 bauds ( poderá ser configurada também em 1200, 4800 ou 9600 bps )
- Paridade : nenhuma
- Código : ASCII
- Stop bit : 1
- Bits de Dados : 8 ( LSD primeiro )
2.1.2 CONFIGURAÇÃO DA BALANÇA PARA ESTE PROTOCOLO

Balanças Prix III ou 9094 antigas (com display azul) devem estar configuradas conforme mostrado abaixo:

- Parâmetro C14 deve estar selecionado para P05.
- Parâmetro C15 deve estar selecionado para 2400 ( ou outra velocidade conforme desejado ).
- Os jumpers W1 e W2, da PCI RS-232C da balança, deverão estar curto-circuitados entre os pinos 2 e 3.

Será que existe alguma luz no fim do túnel?

Grato

Farley

fw2.6/xhb09950/Pelles/MyMake/Med
farleyribeiro@bol.com.br

[sygecom]

Buenas...

Será que existe alguma luz no fim do túnel?

Sim

Parâmetro C15 deve estar selecionado para 2400 ( ou outra velocidade conforme desejado ).

vc já sabe como esta balança esta configurada ? alias vc tem acesso direto
a balança para poder realizar os testes ?

Código : ASCII

Qual codigo deve ser enviado e como a balança responde, veja isso com os tecnicos das Balanças Toledo.

Abaixo um exemplo de uso:

Código: Selecionar todos

Function ler_Peso() 
LOCAL cIn_Msg,nFim,cPESO:="",cCarac,x,cVar,NSIZE
comok:= INIT_PORT( "COM1",2400,8, 0, 2,1000)
If !Empty(COMOK)
   Set Cursor On
   OutBufClr(comok) // Limpa o Buffer de Saida
   cIn_msg:=space(6)
   cPESO := ""
   NSIZE := ""

   Millisec(1000)  // aguarda 1 segundo
  
   NSIZE:=INBUFSIZE( comok )    // Obter a contagem dos bytes Aguardando no buffer de entrada
   if nsize > 0
      inchr(comok,nsize,@cIn_msg)
      cPESO   := cIn_Msg
   else
      cpeso:="0"
   endif
ELSE
   UNINT_PORT( comok )
   alert("Problemas na Inicialização da Porta Serial")
EndIf
IF len(cPeso)=24 .OR. len(cPeso)=26
    nPeso := VAL(Substr(cPESO,5,7))  // nesse caso aqui estou lipando o que não presta para esse modelo
else
    nPeso=0
endif
cpeso :=""
UNINT_PORT( comok )
@ 10,10 say nPeso
Return

Abraços
Leonardo Machado