La Gallinita tira huevos.
#61 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 10:17
Un Saludo.
#62
Escrito 13 diciembre 2008 - 10:23
#63
Escrito 13 diciembre 2008 - 10:25
Creo que te le adelantastes a cHackAll, justo me acaba de decir que iba a hacer lo del parpadeo
, pues perdón, al menos no puede decir que no he aprendido nada de él , de nuevo gracias Chackall.
Saludos.
#64
Escrito 13 diciembre 2008 - 10:30
Pero siempre puede ponerle algo mas al programita, la puerta esta abierta amigo.
Saludos
#65 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 10:34
Hola
Pero siempre puede ponerle algo mas al programita, la puerta esta abierta amigo.
Saludos
Eso Eso, como diria el Chapulin Colorado.La puerta esta abierta.
Un Saludo.
#66 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 04:12
Creo que te le adelantastes a cHackAll, justo me acaba de decir que iba a hacer lo del parpadeo
¿Bueno y que paso con lo del sarten?
Un Saludo.
#67
Escrito 13 diciembre 2008 - 05:29
He estado intentando, pero no me da.
Puse una imagen adicional del tamaño del sarten para poder ver sus coordenadas, pero no va.
Necesitamos a un, Como dice Eliseo, Maistro
Saludos
#68 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 06:04
Hola
He estado intentando, pero no me da.
Puse una imagen adicional del tamaño del sarten para poder ver sus coordenadas, pero no va.
Necesitamos a un, Como dice Eliseo, Maistro
Saludos
Existe otra forma de poder verlas.No lo he intentado, pero creo que si ponemos como tu dices una imagen al lado, ella nos daria las cordenadas exactas del sarten.
Esta dificil el asunto, pero pues esperaremos un Maistro.
Un Saludo.
#69
Escrito 13 diciembre 2008 - 06:07
Aqui esta la ultima version, tiene una imagen en la sarten.
Faltaria indicar que desaparezca el huevo cuando lo atrape, esa es la parte dificil.
saludos
[archivo adjunto borrado por el administrador]
#70 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 06:16
if (Huevo.Top + 40) = (frGallina.Height - Huevo.Height) then begin Huevo.Brush.Color := clRed; Seguir := False; Cuenta:= Cuenta + 1; If Cuenta = 2 Then
Se debe hacer una comparacion cuando el huevo este a la altura del sarten y si cuando su altura este a la altura del sarten, esta tambien dentro del rango del Left del sarten (Then)
Creo que debe ser algo asi.
Un Saludo.
#71
Escrito 13 diciembre 2008 - 06:19
Si amigo, me da la impresion de que es por ahi, el asunto es como hacerlo.
Para mi esta lejos, tal vez con una gran guia pueda.
Saludos
#72 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 06:42
Dejame ver algo.
Un Saludo.
#73 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 07:09
Procedure TThreadHuevo.Caer; begin w:= frGallina.Sarten.left; x:= frGallina.Sarten.left + 55; y:= frGallina.Sarten.top; z:= frGallina.Sarten.top + 40; If Cuenta = 2 then cuenta:= 0; Huevo.Top := Huevo.Top + 1; if frGallina.Horizontal.Checked then begin //Realiza el movimiento Vertical if Huevo.Dir = 'DER' then Huevo.Left := Huevo.Left + 2 else Huevo.Left := Huevo.Left - 2; //Si llego al extremo derecho cambia la direccion if (Huevo.Left + Huevo.Width + 10) >= frGallina.Width then Huevo.Dir := 'IZQ'; //Si llego al extremo izquierdo cambia la direccion if (Huevo.Left + Huevo.Width + 10) <= 20 then Huevo.Dir := 'DER'; end; //Si llega al final de la pantalla le cambia el color y la variable para no seguir moviendolo. if (Huevo.Top + 40) = (frGallina.Height - Huevo.Height) then begin Huevo.Brush.Color := clRed; Seguir := False; Cuenta:= Cuenta + 1; If Cuenta = 2 Then begin // Showmessage('Se te Cayeron Los Huevos'); end; if (Huevo.top>=y) and (Huevo.top<=z) then if (Huevo.left>=w) and (Huevo.left<=x) then begin Huevo.Brush.Color := clyellow; Seguir := False; Showmessage('Se te Cayeron Los Huevos'); end; end; end;
Ya logro tener el huevo en la cordenada del sarten(left) solo falta la altura y que el huevo se destruya.
Un Saludo.
#74 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 07:16
// Showmessage('Se te Cayeron Los Huevos'); end; if (Huevo.top>=y) and (Huevo.top<=z) then if (Huevo.left>=w) and (Huevo.left<=x) then begin Huevo.Visible :=False; Seguir := False; Showmessage('Uno Huevo al Sarten '); end; end;
Solo hace falta que el huevo no caiga tan abajo.
Ya casi lo tenemos.
Un Saludo.
#75
Escrito 13 diciembre 2008 - 07:27
Se ve bien.
Solo falta subirle el top al huevo. (que raro suena ).
Saludos
#76
Escrito 13 diciembre 2008 - 07:37
Muy bueno Jose, ya logre que se meta en la sarten y que desaparezca.
Estoy tratando de darle mas velocidad, esta muy lento, le quite el delay y va mejor, pero lo quiero mas rapido.
Saludos
#77 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 07:43
Hola
Se ve bien.
Solo falta subirle el top al huevo. (que raro suena ).
Saludos
jajajajajaja si pues. En eso estoy, por el momento le agrande el sarten, le di mas profundidar ya parece cubo no sarten.
Un Saludo.
#78
Escrito 13 diciembre 2008 - 07:47
El huevo ya esta en la sarten, nos falta darle mas velocidad y un conteo de los huevos en la sarten.
ve la diferencia con lo tuyo, es muy sutil:
Procedure TThreadHuevo.Caer; var x,w,y,z:integer; begin w:= frGallina.Sarten.left; x:= frGallina.Sarten.left + 55; y:= frGallina.Sarten.top; z:= frGallina.Sarten.top + 40; If Cuenta = 2 then cuenta:= 0; Huevo.Top := Huevo.Top + 1; if frGallina.Horizontal.Checked then begin //Realiza el movimiento Vertical if Huevo.Dir = 'DER' then Huevo.Left := Huevo.Left + 2 else Huevo.Left := Huevo.Left - 2; //Si llego al extremo derecho cambia la direccion if (Huevo.Left + Huevo.Width + 10) >= frGallina.Width then Huevo.Dir := 'IZQ'; //Si llego al extremo izquierdo cambia la direccion if (Huevo.Left + Huevo.Width + 10) <= 20 then Huevo.Dir := 'DER'; end; // aqui desaparece el huevo si entra en la sarten if (Huevo.top + 18 >=y) and (Huevo.top<=z) then if (Huevo.left>=w) and (Huevo.left<=x) then begin Huevo.Visible :=False; Seguir := False; end; //Si llega al final de la pantalla le cambia el color y la variable para no seguir moviendolo. if (Huevo.Top + 40) = (frGallina.Height - Huevo.Height) then begin Huevo.Brush.Color := clRed; Seguir := False; Cuenta:= Cuenta + 1; //aqui se cumple la cuota de huevos rojos. If Cuenta = 2 Then begin // Showmessage('Se te Cayeron Los Huevos'); end; end; end;
Saludos
#79
Escrito 13 diciembre 2008 - 07:52
El problema de la velocidad es que no sale otro huevo hasta que el se atrape o caiga el que salio.
Hay que hacer que salgan los huevos mas seguidos.
Saludos
#80 Guest_Jose Fco_*
Escrito 13 diciembre 2008 - 08:00
Eso deberia estar en un timer separado.¿El huevo se esta desapareciendo muy arriva del sarten? ¿Solo me pasa a mi?Hola
El problema de la velocidad es que no sale otro huevo hasta que el se atrape o caiga el que salio.
Hay que hacer que salgan los huevos mas seguidos.
Saludos
Un Saludo.