Olá a todos
Sou Português, sou novo neste forum, já programo há alguns anos com Windev e raramente coloco perguntas nos foruns.
Agora a minha dúvida:
Eu já liguei meu software com uma balança, ou báscula industrial, mas para poder ler o conteúdo, eu necessito de enviar o código XD
Agora tenho um outro tipo de balança que não necessita que lhe envie código, pois está sempre em comunicação.
Alguém me pode ajudar?
Obrigado
//Código usado anteriormente
BalPorta is int=1
BalTransferRate is int=9600
BalParidade is int=0
BalDataBits is int=8
BalStopBit is int=1
BalCaracter is a string= "XB"
nXxtemp is int=0
sMsg is a string
LineCom1 is boolean = sOpen(Val(gsBalPorta), 2000, 2000)
IF LineCom1 = True THEN
sParameter(BalPorta, BalTransferRate,BalParidade,BalDataBits,BalStopBit)
WTEXTO is a string= NoSpace(BalCaracter)+Charact(13)+Charact(10)
Multitask(50)
sWrite(BalPorta, WTEXTO)
Multitask(50)
sMsg = sRead(BalPorta, 100)
sClose(gsBalPorta)
ELSE
Error("Erro ao estabelecer comunicação com a Balança - Verifique o que se passa")
END
nspeso is real=Val(Left(sMsg,9))
--
João Ferreira
Elotic, Lda |