ASM51

Pessoal, tô com uma bronquinha, que ainda não consegui resolver.

Mando um comando pro celular (at+cbc ou outro qualquer) e ele me retorna alguns valores, só que em várias linhas.

TX

Código: Selecionar todos

AT+CBC


RX

Código: Selecionar todos

AT+CBC

+CBC: 0,13

OK


+CBC: (comando)
0 (Bateria em uso)
13 (carga restante da bateria em %)

Como faço para ler cada linha individualmente?
Estou usando o componente CPort com o Delphi 7

minha rotina de recepção é essa:

Código: Selecionar todos

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
str: string;
begin
comport1.ReadStr(str,count);
memo1.Text:=memo1.Text+str;
end;


Resolvi da seguinte forma:

Juntei caracter por caracter...
ou seja:

dado:= str[n]+str[n+1]+...

Se alguem tiver outra ideia, estou ouvindo.

ernande_filho escreveu:Resolvi da seguinte forma:

Juntei caracter por caracter...
ou seja:

dado:= str[n]+str[n+1]+...

Se alguem tiver outra ideia, estou ouvindo.

Ernande,

Tenho que desenvolver um software em Delphi, mas Delphi não é mto minha praia, daí o bixo vai pegar, pois tenho que coletar dados da porta serial e não sei como exatamente.
Vc teria algum material ou exemplo sobre isso para me passar?
Ficaria mto grato se vc pudesse me ajudar.

Até +...
Paulo D.

Paulo, o material que eu tenho é minha cabeça e a famosa "bíblia do delphi" de Marco Cantu

Não sei nem pra onde vai direito o delphi, mas o trivial eu to desenrolando graças a necessidade.

Explica melhor o que vc precisa, que eu te ajudo.

como as vezes me perguntam o que eu to usando, falo logo: Delphi 7 com o CPort

Como ja foi dito: para trabalhar com o valor recebido, estou convertendo ele numa string, só que tô pegando caracter por caracter. Como não são muitos caracteres, (no max 5) eu os pego, transformo numa string (tiro os comandos CR, LF, ...) e uso da maneira que eu quero. Converto em inteiro, aplico o valor numa barra, ETC.

Eu posso lhe passar o codigo fonte dos meus testes. Só está um pouco bagunçado, mas dá pra entender numa boa. Dá pra ver a recepção do sinal serial, transmissão, filtragem e conversão dos dados recebidos e aplicação em componentes do Delphi.

Não sei se fui muito claro nas explicações, mas é que eu sou ruim mesmo pra ensinar. Nunca consegui bancar um professor...

Depois manda um email p mim em pvt.

Boa Sorte e Tamos por aqui.

Eu não entendi sua dúvida. Vc está recebendo caracter por caracter e não string por string? É isso? Explica mais um pouquinho.
Abraços,
Maia

Maia, valeu pela ajuda, mas já resolvi.

Eu recebo a string (com CR e LF), mas como queria separar alguns caracteres (valores) de uma vez só, nao conseguia, então crei uma string nova. Nela ponho só os caracteres que me interessam da string que recebi pela serial. Depois, transformo num int e aplico numa barra que mostra a porcentagem (gauge ou ProgressBar)

Neste caso vc pode usar o string2 := copy(string, pos inicial, num caracteres). Dá uma olhada no help do Delphi que ele explica melhor.
Abraços,
Maia

Valeu Maia!

Era justamente isso que tava procurando.

Vou testar e depois coloco o resultado.

Pessoal, o código que criei para aprender a trabalhar com a porta Serial está aí.

Me pediram que enviasse em pvt, mas prefiro enviar só uma vez e compartilhar com quem está interessado.

http://rapidshare.com/files/22875276/Co ... l.rar.html

Boa programação.

Ops!

Esqueci da senha...

Senha: asm51