Foros Club Delphi - Control Timer

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)

JoseFco

12-07-2008 16:37:41

Control Timer

"Tolomeo se mudo al Polo Norte"

Delphius

12-07-2008 17:00:45

Hola JoseFco,
Yo diría que se sobra un Timer. Tranquilamente se puede hacer con uno sólo.

La idea es cambiar el color a cada cierto tiempo, no necesariamente iguales ¿no?
Lo que yo haría es que en el evento OnTimer se disponga de una sentencia condicional y en base a ello se tome tanto el tiempo y se cambie el color.
El truco está en tener una variable bandera que nos determine si hacer una y otra cosa:

Código Delphi [-]if EsRojo
   then begin
          shape.Brush.Color := clRed
          // tomamos el tiempo para el del otro color
          Timer1.interval := ...
          end
   else begin
         shape.Brush.Color := ...
         // tomamemos el tiempo para el color rojo
        Timer1.interval := ....
        end;

// cambiamos la condición:
EsRojo := NOT EsRojo;

¿Se entiende la idea?

Saludos,

JoseFco

12-07-2008 17:14:59

"Tolomeo se mudo al Polo Norte"

coso	12-07-2008 17:15:26

o bien...

Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if Shape1.Brush.Color = clRed then 
        Shape1.Brush.Color := clGreen else
        Shape1.Brush.Color := clRed;
end;

JoseFco

12-07-2008 17:38:28

"Tolomeo se mudo al Polo Norte"

coso	12-07-2008 17:40:31

personalmente, uso .ini's para grabar este tipo de datos... lo correcto y lo que se aconseja, por eso, es el registro. Saludos.

JoseFco

12-07-2008 17:52:21

"Tolomeo se mudo al Polo Norte"

coso	12-07-2008 17:53:53

no hay ningun problema, ten en cuenta que tansolo es un archivo de texto

JoseFco

13-07-2008 00:44:16

"Tolomeo se mudo al Polo Norte"

JoseFco

13-07-2008 00:52:06

"Tolomeo se mudo al Polo Norte"

JoseFco

13-07-2008 02:20:22

"Tolomeo se mudo al Polo Norte"

enecumene

13-07-2008 02:33:43

Cita:

Empezado por JoseFco (Mensaje 299893)

Aqui esta la foto del hardware:

Le faltan algunos componentes.;)

Un Saludo

¡que bien le queda esas placas amigo!, Yo que sueño un día poder armar un placa bien hecha. :(

Saludos.

JoseFco

13-07-2008 02:42:21

"Tolomeo se mudo al Polo Norte"

enecumene

13-07-2008 02:47:39

Cita:

Empezado por JoseFco (Mensaje 299928)

Eso no esta muy lejos amigo, con un buen programa para el diseño y luego un buen lugar donde mandar a hacer el pcb.La gente que me hace los pcb ellos te dan el programa gratis y no es dificil de usar.Solo tener en cuenta las medidas de los componentes y un buen electronic digital caliper.Cuando quieras te paso la url para que te bajes el programita y practiques.

Un Saludo.

Vale, yo usaba unos programas llamados EaglePCB, FreePCB, Orcad y Protel, esos dos últimos demasiado avanzados para mí, el problema de esos programas es que no siempre están todos los componentes y debo crearlos, una vez hice una placa con acido ferrico, me quedó chulo pero nunca me llegó a funcionar, pero que se le puede hacer. :D

Saludos.

JoseFco

13-07-2008 02:57:38

"Tolomeo se mudo al Polo Norte"

coso	13-07-2008 12:07:30

Que chula la form :cool: tengo q cambiar un poco el estilo de mis programas...:) No, no hace falta crear otro, tansolo cambia las claves (por ejemplo, ini.writeinteger('vrnum','vrnum1',vrnum1);

PD: desactivar en inglés es disable, no desable

JoseFco

13-07-2008 14:46:16

"Tolomeo se mudo al Polo Norte"

JoseFco

13-07-2008 17:14:50

"Tolomeo se mudo al Polo Norte"

coso	13-07-2008 17:16:31

falta un 'begin' no?

JoseFco

13-07-2008 17:22:42

"Tolomeo se mudo al Polo Norte"

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 18:21:52.