Flip Flop usando Timers

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Caral]]

Hola
Ya se, siempre metiéndome en camisa de once varas.
Pero no es asi?.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled :=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PLed.Active := True;
Timer2.Enabled := True;
Timer1.Enabled := False;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
PLed.Active := False;
Timer1.Enabled := True;
Timer2.Enabled := False;
end;

Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Caral]]

Hola
Que dificil amigo.
No es mi campo, para variar, pero para mi que necesitas 3 timers, piensalo un poco veras que es la solucion.
1 marca el inicio y fin, los otros hacen el balance.
Pienso yo.
Saludos

[[egostar]]

Empezado por Caral

Hola
Que dificil amigo.
No es mi campo, para variar, pero para mi que necesitas 3 timers, piensalo un poco veras que es la solucion.
1 marca el inicio y fin, los otros hacen el balance.
Pienso yo.
Saludos

Nada amigo, lo que pasa es que quiere enseñarle al Jose que usted es muy metódico

Salud OS

[[FGarcia]]

No esta probado epro y asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with timer1 do
  begin
    Interval := 500;
    Enabled :=True;
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not PLed.Active then
  begin
    PLed.Active := True;
    with timer1 do
      begin
        Interval := 259;
        Enabled := True;
      end;
  end
else
  begin
    PLed.Active := false;
    with timer1 do
      begin
        Interval := 500;
        Enabled := True;
      end;
  end;  
end;

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[FGarcia]]

Ayer andaba apurado por lo que no comente esto del timer, la razon de apagarlo al entrar a ciclo es que para intervalos muy cortos, el evento OnTimer se puede volver a disparar lo cual ocasionaria que el procedimiento que se ejecuta se realize incompleto. Esta tambien es la razon por la que se espera que los procedimientos que se ejecuten en este evento sean cortos y rapidos.

Añadiendo que eso de intervalos cortos se refiere a milisegundos (0.001 S); si consideramos los tiempos de ejecucion del procesador que es de microsegundos (0.000001 S) tal vez no sea notable pero.........

[JoseFco]

"Tolomeo se mudo al Polo Norte"