Control Timer

[[coso]]

Código Delphi [-]
 
procedure TForm1.ComPortRxChar(sender : TObject; count : integer);
var 
     str : string;
begin
        ComPort.ReadStr(Str, count);
        if (Str = #1) and CheckBox1.Checked then
        begin // << este begin
              Timer1.Interval := (VRNum.Value * 1000);
              Timer1.Enabled := true;
        end  // << no ;
        else
        if (str = #1) and not CheckBox1.Checked then
             Shape2.Brush.Color := clLime;
end;

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[coso]]

pues podrias poner al principio antes del comport.read

Código Delphi [-]
 if not Checkbox1.Checked then exit;

asi te ahorras la lectura si no esta el checkbox activo.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[coso]]

..... animo

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[donald shimoda]

Empezado por JoseFco

Esta funcionando a la perfecion, pero lo pongo aqui para que los maestros me den su critica, de ellas aprendo.

Viendo tu código hay un error grave. No debes abrir el puerto serie cada vez que vas a enviar, o si lo haces debes cerrarlo cada vez que lo abras, dado que de otro modo la próxima llamada lo encontrará abierto y dará una excepción.

Entonces, o bien lo abres al iniciar rel programa y al cerrar el programa o bien cada vez que lo abres para enviar in dato lo cierras (aunque esto ultimo evitara que recibas los datos esperados, de haberlos).

Saludos.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[donald shimoda]

Empezado por JoseFco

Oigame compadre usted no entiende español? olvidece de que EXISTO.

De nada por la ayuda...