Hola, vi la captura de pantalla del reloj VB que hiciste en Baidu Zhizhi. ¿Puedes enviarme el código fuente 854206025@qq.

Private Sub Timer1_Timer()

Me.Caption = Hora 'La barra de título muestra la hora actual

' Segundero 'Dibuja el segundero

' Para calcular el ángulo del segundero, cada segundo son 360 grados divididos por 60 segundos = 6 grados, así que multiplica por 6

sdeg = Segundo(Tiempo) * 6

'vb se calcula en radianes, por lo que el ángulo convertido a radianes es 3. 14/180, el segundero recorre N grados, así que multiplica por N

srad = (3,14 / 180) * sdeg

'900 es la longitud del segundero, que se calcula en el centro del círculo (x1, y1 de la línea 2). y2 se encuentra en este arco

'Line2.Y2 = Line2.Y1 + (900 * Sin(sdeg)

'900 es la longitud del segundero, con el centro de el círculo (x1 de la línea 2, y1) como referencia, calcula la posición de la línea recta 2.Y2 en este arco. Minutero 'Dibuja el minutero

'Calcula el ángulo del minutero. cada minuto son 360 grados divididos por 60 minutos = 6 grados, así que multiplica por 6. Cuando el segundero se mueve, el minutero también se mueve, así que suma el movimiento del segundero al movimiento del minutero.

'El segundero se mueve 360 ​​grados y el minutero avanza 1 minuto = 6 grados, por lo que la relación es 6. /360 es igual a 1/60

Mdeg = Minuto(Tiempo) * 6 + (sdeg * 1 / 60)

'vb se calcula en radianes, así que convertirlo a un ángulo en radianes es 3. 14/180, el minutero recorre N grados por N

mrad = (3.14 / 180) * Mdeg 'vb se calcula en radianes, por lo que el ángulo convertido a radianes es 3.14/180, el minutero Cuando corre N grados, multiplica por N

'750 es la longitud del minutero. El método de cálculo consiste en calcular la posición de la línea 1 en este radianes utilizando el centro del círculo (x1, y1 de la línea 1) como centro del círculo. La longitud del minutero es la longitud del centro del círculo (x1, y1 de la línea recta 1), calcula la posición de la línea recta 1.x2 en este arco

'La longitud del minutero es la longitud del centro del círculo (línea recta 1) La longitud de x1, y1 - (750 * Cos(mrad))

'Manecilla de hora' dibuja la manecilla de hora

'Calcule el ángulo de la manecilla de las horas, que corre 30 grados por hora. Cuando se mueve el minutero, la manecilla de las horas también se moverá, por lo que es necesario agregar el movimiento de la manecilla de las horas causado por el movimiento de la manecilla de los minutos.

'Cuando la manecilla de los minutos gira 360 grados, la manecilla de las horas avanzará 1 tic = 30 grados, por lo que la proporción de 30/360 es igual a 1/12

'vb se calcula en radianes, por lo que el ángulo convertido a radianes es 3,14/180. La manecilla de hora se mueve N grados .Y2. = Línea3.Y1 - (500 * Cos(hrad))

Fin Sub