Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Control Timer (https://www.clubdelphi.com/foros/showthread.php?t=58217)

coso 13-07-2008 17:36:15

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 13-07-2008 17:51:56

"Tolomeo se mudo al Polo Norte"

JoseFco 13-07-2008 18:20:04

"Tolomeo se mudo al Polo Norte"

coso 13-07-2008 18:22:10

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 13-07-2008 18:26:58

"Tolomeo se mudo al Polo Norte"

JoseFco 13-07-2008 18:48:55

"Tolomeo se mudo al Polo Norte"

JoseFco 13-07-2008 21:03:49

"Tolomeo se mudo al Polo Norte"

coso 13-07-2008 22:11:42

.....;) animo

JoseFco 13-07-2008 23:27:23

"Tolomeo se mudo al Polo Norte"

JoseFco 15-07-2008 00:19:43

"Tolomeo se mudo al Polo Norte"

JoseFco 17-07-2008 00:33:48

"Tolomeo se mudo al Polo Norte"

donald shimoda 17-07-2008 00:46:44

Cita:

Empezado por JoseFco (Mensaje 300500)
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 17-07-2008 01:42:58

"Tolomeo se mudo al Polo Norte"

donald shimoda 17-07-2008 01:44:12

Cita:

Empezado por JoseFco (Mensaje 300956)
Oigame compadre usted no entiende español? olvidece de que EXISTO.

De nada por la ayuda...


La franja horaria es GMT +2. Ahora son las 06:18:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi