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 |