Eu usei o cport-3.0.zip e deu certo.
Qq coite te mando.
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
-------o0Oo-(_)-oO0o-------
Precisando de dicas?
www.deephi.hpg.com.br
---------------------------
Mais de 30000 downloads
---------ooO---Ooo---------
----- Original Message -----
From: "Malomar Alex Seminotti" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, September 24, 2004 6:28 PM
Subject: Re: [delphi-br] Balanças Toledo
> Walter,
>
> Obrigado pela ajuda. Eu tenho um componente para ler porta serial.
> Estou usando o programa TTY, que é um exemplo que vem junto com o
> componente ComDrv32.
> Esta balança é usada para caminhões e foram feitos testes com alguns
> pesos sobre ela. Este retorno foi obtido com 9600 bauds e é o que mais
> se aproxima do valor correto. Dá uma olhada no resultado:
>
> 920 kg = , 9²0ëç ?‚ 9²0ëç ?‚ 9²0ëç ?
> 2280 kg = , ²²¸0ëç ?‚ ²²¸0ëç ?‚ ²²¸0ëç ?
> 1360 kg = , ±360ëç ?‚ ±360ëç ?‚ ±360ëç ?
> 10200 kg = ‚ ±0²00ëç ?‚ ±0²00ëç ?‚ ±0²00ëç ?
> 6140 kg = ‚ 6±´0ëç ?‚ 6±´0ëç ?‚ 6±´0ëç ?
> 5150 kg = ‚ 5±50ëç ?‚ 5±50ëç ?‚ 5±50ëç ?
> 5170 kg = ‚ 5±·0ëç ?‚ 5±·0ëç ?‚ 5±·0ëç ?
>
> Eu não sei se a configuração da porta serial é que está errada ou se ele
> me retorna apenas isso mesmo.
> Vou baixar o Async32 e fazer alguns testes com ele também.
>
> --
>
> []'s
> Malomar Alex Seminotti
> Erechim - RS
>
>
>
> Walter Chagas (Desenvolvimento) escreveu:
>
> >Eu já.
> >
> >Voce terá que colocar um componente de porta serial no seu programa que
> >deverá ficar ativo esperando a chegada de dados da porta. quando a
balança
> >fizer a leitura, ela envia estes dados para a porta e eles devem chegar
na
> >seguinte forma:
> >
> >#2'4p(001530000000'#$D'\'
> >
> >Ai você terá que separar o lixo do valor exato que vem sem caracteres de
> >formatação. Esta string acima corresponde ao valor 15,30 em uma balança
de
> >100K
> >
> >Em uma balança de 20K ela viria desta forma:
> >
> >#2'5ph001100000000'#$D'"' = 01,100
> >#2'5ph000250000000'#$D#$1D = 00,250
> >#2'5ph015292000000'#$D#$11 = 15,292
> >#2'5ph000052000000'#$D#$1D = 00,052
> >#2'5ph000002000000'#$D'"' = 00,002
> >
> >Bom, no componente, você irá usar o evento de leitura da porta serial. Eu
> >usei o Async32 da TMS Software, ele tem o evento onRxChar, que é o evendo
> >que ler caracteres vindos da porta.
> >
> >A leitura é feita char por char, neste caso eu usei uma variável que leu
> >todos os caracteres vindos da porta:
> >
> >VStream := VStream + VaComm1.ReadText;
> >
> >Em seguida, fiz uma função que remove o lixo dos valores numéricos da
> >string:
> >
> >VStream1 := RetornaNumero(VStream1); // So ficam os numeros
> >
> >#2'5ph001100000000'#$D'"' = 25001100000000
> >
> >Feito isto basta pegar a parte da string que te interessa:
> >
> >VAuxStream1 := copy(VStream1,4,6);
> >
> >Finalmente voce faz uma função para colocar a virgula no lugar certo e o
> >valor ficaria assim:
> >
> >01,100 lidos em uma balança de 20K
> >
> >
> >
> >[]s
> >
> >
> >Walter Alves Chagas Junior
> >Projeto e desenvolvimento de sistemas
> >CABTEC - Soluções em Código de Barras
> >Belo Horizonte - MG
> >Fone: (31) 2125-9019 - Fax: (31) 2125-9030
> >http://www.cabtec.com.br
> >[EMAIL PROTECTED]
> >
> >
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
