codigo de un reloj analogico en v.b??

[cesitar1702]

hola; me podrian pasar el codigo de un reloj analogico hecho en vb; necesito ese codigo...graci as....cesitar

[zXxOsirisxXz]

Reloj analogico, osea, el relojito con to y dibujito.. o solo la hora tipo 1~24..

Si es 1~24, seria tan solo poniendo un Label.

label1.caption = format(now,"hh:mm:ss")

O de la forma "normal"

label1.caption = now

Salu2

[Dj_Dexter]

Eso es digital los numeros nop,  mejor hagan esop, este se parece al que tienen colgado en su pieza
1- abran vb
2- eligir Form normal
3- Colocar un control Shape redondo, y 3 controles Line llamado Horas, Minutos y Segundos También colocar un control timer llamado Timer1 con el Interval en 1000
4- escribir este code

Código:

Private Sub Timer1_Timer()
 Const Radianes = 3.1415927 / 180

Horas.X2 = 2500 + Sin(Hour(Now) * 30 * Radianes) * 1000
Horas.Y2 = 2500 - Cos(Hour(Now) * 30 * Radianes) * 1000

Minutos.X2 = 2500 + Sin(Minute(Now) * 6 * Radianes) * 1500
Minutos.Y2 = 2500 - Cos(Minute(Now) * 6 * Radianes) * 1500

Segundos.X2 = 2500 + Sin(Second(Now) * 6 * 3.1415927 / 180) * 2000
Segundos.Y2 = 2500 - Cos(Second(Now) * 6 * 3.1415927 / 180) * 2000
end sub

Código:

con este code, se parecera este reloj en vb a los analogicos