ActiveDelphi

[clovismagoga]

Vlleuuu raffmatos, porem ja tentei isso tambem, e o mais proximo que consegui do que queria foi o exemplo enviado anteriormente. Com a linha ELSE a rotina do bot"ao ficou assim :

procedure TForm1.VrAniButton8Click(Sender: TObject);

begin

if label17.caption = 'OFF' then label17.caption := 'ON';
begin
comport1.WriteStr('*A71'+#13); // ativa bit 8 da interface
end;
Else
if label17.caption = 'ON' then label17.caption := 'OFF';
begin
comport1.WriteStr('*A70'+#13); // desativa bit 8 da interface
end;
end;

Porem ao ser executado da um erro mostrado logo abaixo !

[Error] main.pas(512): ';' not allowed before 'ELSE'
[Fatal Error] Datalog_temperatura.dpr(5): Could not compile used unit 'main.pas'

Eu estou me complicando na logica de uso do IF...else...begin... ; ( etc ) !

Mas sou grato pela tentiva de ajuda !

Clovis Magoga

[rafmattos]

é q tinha um ponto e virgula ali, ve assim


if label17.caption = 'OFF' then label17.caption := 'ON';
begin
comport1.WriteStr('*A71'+#13); // ativa bit 8 da interface
end
Else
if label17.caption = 'ON' then label17.caption := 'OFF';
begin
comport1.WriteStr('*A70'+#13); // desativa bit 8 da interface
end;

[rafmattos]

responde no mesmo topico fica mais facil

[clovismagoga]

Olá rafmattos ! Mil (1000) desculpas pela postagem errada ! Agradeço sua atenção e paciencia. Porem o erro agora mudou da uma olhada !

[Error] main.pas(536): 'END' expected but 'ELSE' found
[Error] main.pas(537): ';' expected but 'IF' found
[Error] main.pas(539): Undeclared identifier: 'comport1'
[Error] main.pas(540): '.' expected but ';' found
[Fatal Error] _Datalog_temperatura.dpr(5): Could not compile used unit 'main.pas'


O interessante é que isso ocorre ao ascrecentar a linha de comando da TCOMPORT !
Agora eu não sei se é erro de logica, ou se estou tratando o comando TCOMPORT de forma errada, porem em uma caixa BOX ele funciona assim:

begin
if (out8.Checked) then
Comport1.WriteStr('*A71'+#13)
else
Comport1.WriteStr('*A70'+#13);
end;

Porem ao colocar ele em um botão e tentar fazer o mesmo botão ligar e desligar os erros aparece !

Obrigado !

[rafmattos]

vc ta com o componente TcomPort instalado?

[clovismagoga]

Olá !!! Grato por sua ajuda ! Com relação ao componente TCOMPORT ele esta instaldo e funcionando perfeitamente. O projeto e prototipo esta funcionando muito bem ! È como falei anteriormente.

Usando a COMBOX funciona perfeitamente bem, o que indica que o componente TCOMPORT esta funcionando. O problema ocorre quando tento enviar o comando pelo botão com as caracteristicas que informei ! Ou seja APERTA liga,,,,aperta o mesmo botão DESLIGA e assim por diante !

A rotina inicial que muda de 0 para 100 funciona perfeitamente bem ! A rotina que coloca o comando TCOMPORT da os erros relatados ou liga e desliga rapidamente, não fica ligado ao primeiro CLICK e nem desliga ao segundo click !

Com certeza eu estou cometendo um erro de logica enorme !

Continuo tentando e agradeço a voce !

Abraços

Clovis Magoga

[rafmattos]

vc colocou assim

[clovismagoga]

Grato pela ajuda !

Vou mostrar a voce como funciona na CHECKBOX

[rafmattos]

desse jeito aqui ta errado


procedure TForm1.VrAniButton8Click(Sender: TObject);

begin

if label17.caption = 'OFF' then label17.caption := 'ON';
begin
comport1.WriteStr('*A71'+#13);
end;

if label17.caption = 'ON' then label17.caption := 'OFF';
begin
comport1.WriteStr('*A70'+#13);
end;
end;


ele vai ativar e desativar mesmo




esse jeito é o certo com o Else

[clovismagoga]

PERFEITO ! Funcionou perfeitamente !!! Com a sua ajuda eu percebi a grande "KAKINHA" que estava fazendo. No final do main.pas tinha um END. o qual não tinha ficando atento a grande besteira de iniciante !
Estou querendo postar a imagem para ter uma ideia do que estou fazendo, utilizando um microcontrolador da MICROCHIP, no caso é um medidor de temperatura com 8 canais diferentes. Onde pode-se monitorar a temperatura de residencias ou ambiente industrial ! E acionar dispositivos de controle de processos ! Vou incrementar com a possibilidade de enviar os dados a uma planilha do EXELL e mais algumas caracteristicas interessante !
Valeu mesmo pera AJUDA ! Como falei estou devendo UMA para voce !

[rafmattos]

qualquer coisa estamos ai...