Ir al contenido


Foto

Reloj Analogo


  • Por favor identifícate para responder
53 respuestas en este tema

#1 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 enero 2009 - 11:09

Hola
Estaba viendo este ejemplo de como hacer un reloj.
Salen la manecillas pero no los números, no se como ponérselos.
Me dais una mano.
Saludos


[archivo adjunto borrado por el administrador]
  • 0

#2 cHackAll

cHackAll

    Advanced Member

  • Administrador
  • 599 mensajes

Escrito 06 enero 2009 - 01:43

Hola
Estaba viendo este ejemplo de como hacer un reloj.
Salen la manecillas pero no los números, no se como ponérselos.
Me dais una mano.
Saludos


No quiero molestarte, pero no seria mejor que utilices los componentes JEDI que son mas faciles de configurar y usar?
  • 0

#3 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 enero 2009 - 01:47

Hola
No los conozco amigo, pero la idea con este es mas que nada el tratar de hacerlo por codigo.
Saludos
  • 0

#4 seoane

seoane

    Advanced Member

  • Administrador
  • 1.259 mensajes
  • LocationEspaña

Escrito 06 enero 2009 - 01:56

Lo siento, pero me sale el corrector que llevo dento  :p ... es analógico y no análogo  :D
  • 0

#5 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 enero 2009 - 01:59

Hola
A mi edad ya ni Ana ni Anita. :D :D
Vamos metanle mano a ver si aprendo.
Saludos
  • 0

#6 seoane

seoane

    Advanced Member

  • Administrador
  • 1.259 mensajes
  • LocationEspaña

Escrito 06 enero 2009 - 02:35

Vamos metanle mano a ver si aprendo.


Que prisas  :D

Vamos a ver si esto te sirve:


delphi
  1. procedure TForm1.FormPaint(Sender: TObject);
  2. var
  3.   buffer: tbitmap;
  4.   h, m, s, ms: word;
  5.   ox, oy, lx, ly: Integer;
  6.   i: integer;
  7.   Str: String;
  8. begin
  9. decodetime(now,h,m,s,ms);
  10. buffer:=tbitmap.create;
  11. with buffer do
  12.   begin
  13.   Width:=250;
  14.   Height:=250;
  15.   ox:= 125;
  16.   oy:= 125;
  17.   lx:= 100;
  18.   ly:= 100;
  19.   Canvas.Pen.Color:= Color;
  20.   canvas.Brush.Color:= Color;
  21.   canvas.Rectangle(0,0,width,height);
  22.   Canvas.Pen.Width:= 1;
  23.   Canvas.Pen.Color:= cllime;
  24.   canvas.Brush.Color:= rgb(150,200,255);
  25.   Canvas.Ellipse(25,25,225,225);
  26.   Canvas.Pen.Width:=1;
  27.   Canvas.Pen.Color:=clred;
  28.   Canvas.MoveTo(ox+Trunc( sin((s*pi)/30)*lx),oy+Trunc(-cos((s*pi)/30)*ly));
  29.   Canvas.LineTo(ox,oy);
  30.   Canvas.Pen.Width:=2;
  31.   Canvas.Pen.Color:=0;
  32.   Canvas.MoveTo(ox+Trunc( sin((m*pi)/30)*lx),oy+Trunc(-cos((m*pi)/30)*ly));
  33.   Canvas.LineTo(ox,oy);
  34.   Canvas.Pen.Width:=3;
  35.   Canvas.Pen.Color:=0;
  36.   Canvas.MoveTo(ox+Trunc( sin((h*pi)/6)*(lx div 2)),oy+Trunc(-cos((h*pi)/6)*(ly div 2)));
  37.   Canvas.LineTo(ox,oy);
  38.   // Si queremos separar los numeros de la agujas
  39.   //lx:= lx + 10;
  40.   //ly:= lx + 10;
  41.   Canvas.Font.Size:= 16;
  42.   Canvas.Brush.Style:= bsClear;
  43.   for i:= 1 to 12 do
  44.   begin
  45.     Str:= IntToStr(i);
  46.     Canvas.TextOut(ox+Trunc(sin((i*pi)/6)*lx)-(Canvas.TextWidth(Str) div 2),oy+Trunc(-cos((i*pi)/6)*ly)-(Canvas.TextHeight(Str) div 2),Str);
  47.   end;
  48.   end;
  49. canvas.Draw(0,0,buffer);
  50. buffer.Free;
  51. caption:=timetostr(now);
  52. end;
  53. procedure TForm1.Timer1Timer(Sender: TObject);
  54. begin
  55.   Paint;
  56. end;


  • 0

#7 FGarcia

FGarcia

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 687 mensajes
  • LocationMéxico

Escrito 06 enero 2009 - 03:15

¡¡¡Que bonito!!!

¡¡¡¡Cuando crezca quiero ser asi de sabio, inteligente y guapo!!!!
  • 0

#8 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 enero 2009 - 03:24

Hola
Muy bonito, gracias Seoane, si se pudo. (y) (y)
Saludos
  • 0

#9 poliburro

poliburro

    Advanced Member

  • Administrador
  • 4.945 mensajes
  • LocationMéxico

Escrito 06 enero 2009 - 03:24

¡¡¡Que bonito!!!

¡¡¡¡Cuando crezca quiero ser asi de sabio, inteligente y guapo!!!!


^o|  ^o| y no se te antoja darle un beso?, jajajajajaj que pasó mi compa las joteadas comienzan al pardear la tarde. jajajajjaja
  • 0

#10 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 03:30

Hola amigos, hace como un mes cuando estaba con lo de las cambas y haciendo mi bandera.Encontre este programita y pues me gusto.Ahora que toman este tema lo comparto por aca.

Un Saludo.

Archivos adjuntos

  • Archivo adjunto  199_.zip   7,74KB   15 descargas


#11 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 03:32


¡¡¡Que bonito!!!

¡¡¡¡Cuando crezca quiero ser asi de sabio, inteligente y guapo!!!!


^o|  ^o| y no se te antoja darle un beso?, jajajajajaj que pasó mi compa las joteadas comienzan al pardear la tarde. jajajajjaja


jajajajajajaja hablo la voz de la experiencia. :D :D :D

Un Saludo.

#12 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 06 enero 2009 - 03:34

Vaya amigo seoane, usted y cHackAll siempre con un As en la manga :D :p

Salud OS

PD, que conste que no es joteria, no vaya a ser :D :D :D
  • 0

#13 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 06 enero 2009 - 03:35

Hola

Hola amigos, hace como un mes cuando estaba con lo de las cambas y haciendo mi bandera.Encontre este programita y pues me gusto.Ahora que toman este tema lo comparto por aca.

Un Saludo.

Jose, ese es muy similar al que tenia, revisa el de Seoane, el si sabe. (y)
Saludos
  • 0

#14 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 03:38

Hola


Hola amigos, hace como un mes cuando estaba con lo de las cambas y haciendo mi bandera.Encontre este programita y pues me gusto.Ahora que toman este tema lo comparto por aca.

Un Saludo.

Jose, ese es muy similar al que tenia, revisa el de Seoane, el si sabe. (y)
Saludos


Ok Copilando a ver eso.

Un Saludo.

#15 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 03:55

Algun dia aprendere lo suficiente para poder entender y que me trabajen los programas de los maestros. :

Un Saludo.

#16 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 06 enero 2009 - 03:56

No te compilo amigo?

Salud OS
  • 0

#17 seoane

seoane

    Advanced Member

  • Administrador
  • 1.259 mensajes
  • LocationEspaña

Escrito 06 enero 2009 - 03:57

Pues me vais a tener que explicar que es una "joteria" o "joteada"  :^)

En cuanto a lo del beso  ... :s
  • 0

#18 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.446 mensajes
  • LocationMéxico

Escrito 06 enero 2009 - 03:59

Pues me vais a tener que explicar que es una "joteria" o "joteada"  :^)

En cuanto a lo del beso  ... :s


Amigo, la joteria no es mas que FGarcia te quiera dar un beso :s

Salud OS
  • 0

#19 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 04:01

Pues me vais a tener que explicar que es una "joteria" o "joteada"  :^)

En cuanto a lo del beso  ... :s

Digamos que es algo asi como eso que sucedio que se les perdieran los corchetes a ti, a Caral y a EgoStar. :D :D :D

No se si quedo claro.

Un Saludo.

#20 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 06 enero 2009 - 04:02

No te compilo amigo?

Salud OS


Si copilo pero no hace nada, se queda en blanco. : : :

Un Saludo.




IP.Board spam blocked by CleanTalk.