Página 1 de 1
Comunicação com conversor toledo serial para rede.
Enviado: 26 Dez 2012 09:47
por roberson.bill
Bom dia a Todos.
Estou tendo uma dificuldade em buscar informações de uma balança 9091 antiga que atualmente esta conectada diretamente em um computador pela porta serial.
porem estou tentando conectar essa balança em um conversor serial para rede atraves do RJ45.
portando a dificuldade é usar o clipper para buscar o peso indicado atraves de um IP que esta senco capturado pelo conversor e enviando na rede.
aguardo alguma dica.
ATT.
Roberson Bill.
Comunicação com conversor toledo serial para rede.
Enviado: 26 Dez 2012 15:25
por sygecom
Migre para xHarbour e uso Socket( INetConnectIP(), INetSend(), INetRecvAll() )
Boa sorte...
Comunicação com conversor toledo serial para rede.
Enviado: 26 Dez 2012 16:18
por rochinha
Amiguinho,
As novas placas mãe podem não ter mais a saida serial DB9, mas podem sobrar no corpo da placa os jumpers de conecção do chicote serial
Tenha certeza que o conversor serial que esta usando é para permitir que voce tenha uma serial e não que tenha rede pela serial.
Com certeza o amigo SygeCOM não quis ser tão drástico quando disse: migre para xHarbour.... Mas sim que te posicionou sobre a possiblidade de usar recursos do xHarbour, talvez até contruindo um aplicativo somente para interagir com a automação e por consequencia com maior possibilidade de resultado.
Comunicação com conversor toledo serial para rede.
Enviado: 02 Jan 2013 11:28
por roberson.bill
Bom dia a Todos.
muito obrigado bela ajuda mas acredito que migrar par Xharbor seria meio impossivel pois usamos clipper 5.3 em base de produção.
e a balnça 9091 é um antigo.
portanto essa balança noa comunica com o sistema win 7 e sim somente 95 por isso que estou tentando fazer essa comunicação com o conversor CSE-111 da Toledo mas irei estudar novas possibilidades e assim que achar uma solução irei postar aqui no forum.
Qualquer ajuda é bem vinda.
roberson_bill@hotmail.com
Comunicação com conversor toledo serial para rede.
Enviado: 03 Jan 2013 03:32
por fladimir
Roberson, tenho um cliente q usa meu sistema em um Note com Windows 7 e um conversor USB para SERIAL RS-232 e funciona normalmente...
Basta o S.O. reconhecer uma COM e as rotinas tem q funcionar... eu usava no Clipper e depois migrei pro xHarbour/Harbour e mudei a lib, mas a lógica é a mesma...
Abaixo segue a rotina q uso em xHarbour, mas eu usava em Clipper tb algo do tipo, com a CT.LIB
Neste tópico fala quais vc tem q usar...
Código: Selecionar todos
*****************************************************************
* Fun‡Æo Ler peso balan‡a....
*****************************************************************
Function LerBalanca(nPeso)
LOCAL cPesoLido := 0
LOCAL cPort, nBaudrate, nDatabits, nParity, nStopbits, nBuffersize
LOCAL cBalPorta, nBalVelocidade, nBalBits, nBalParidade, nBalStopBits
LOCAL nHandle, cBytesToWrite, nCount
LOCAL cBuff, nChar, nLidos
LOCAL mQuant, cod, cIniFile
*-- Colooquei para carregar valores nas variaveis
cBalPorta := "COM1" //cScan_Porta //'COM5 '
nBalVelocidade := 9600 //nScan_Veloc //9600
nBalBits := 8 //nScan_Bists //8
nBalParidade := 0 //nScan_Parid //0
nBalStopBits := 1 //nScan_BStop // 1
*-- Compatibilização dos Campos
cPort := cBalPorta
nBaudrate := nBalVelocidade
nDatabits := nBalBits
nParity := nBalParidade
nStopbits := nBalStopBits
nBuffersize := 1000
//xHarbour / Harbour (com hbcomm.lib)
nHandle:= Init_Port( cPort, nBaudrate, nDatabits, nParity, nStopbits, nBuffersize )
//Harbour - Usar a linha de baixo qdo sem a hbcomm.lib
//nHandle:= Win_Port():Init( cPort, nBaudrate, nParity, nDatabits, nStopbits)
If nHandle <= 0
msgalert("Erro ao iniciar a porta de comunicacao !")
Return 0
Endif
If IsWorking( nHandle )== .F.
Alert("Favor configurar a porta serial !")
Return 0
Endif
OutBufClr( nHandle )
//-- Enviar comando para iniciar a transmissao de dados para balanca MP
cBytesToWrite := Chr(5)
nCount := 1
OutChr( nHandle, cBytesToWrite, nCount )
//-- Aguarda um tempinho
Inkey(0.3)
cBuff := Space(10)
nChar := InBufSize( nHandle )
nLidos:= InChr( nHandle,nChar,@cBuff )
If nLidos > 0
cPesoLido := Substr(cBuff,RAt("+p", cBuff)+3,8) //-- Toledo Cabeça 9091 do corpo 2124
cPesoLido := Val(cPesoLido)/1000
Inkey(0.3)
UnInt_Port( nHandle )
Return cPesoLido
Endif
UnInt_Port( nHandle )
Return .f.
[]´s
Comunicação com conversor toledo serial para rede.
Enviado: 07 Jan 2013 15:12
por roberson.bill
muito obrigado irei verificar se funciona.