Problema del protector de pantalla del reloj VB

Dim xx1%, yy1% 'Declara las variables xx1, yy1 como números enteros (para el centro del círculo)

Private Sub Form_Resize()

Yo. Cls

p>

Me.AutoRedraw = True 'Redibujar es True' para centrar el formulario

'Me.Move (Screen.Width - Me.Width\2, ( Screen.Height - Me.Width )AutoRedraw = True 'Redibujar es verdadero 'Centrar el formulario

'Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - meiheight) \ 2 'Calcular el eje x del centro del círculo xx1

xx1 = Me.width\ 2 'Calcular el eje y del centro del círculo yy1

xx1 = Me.del círculo yy1

yy1 = (Me.Height - 405) \ 2 'Ubique los puntos iniciales x1 e y1 de las siguientes tres agujas en el centro del círculo

Línea1.x1 = xx1: Línea1.y1 = yy1

Línea2.x1 = xx1：Línea2.y1 = yy1

Línea3.x1 = xx1：Línea3.y1 = yy1 'Dibuja el fuera del reloj para hacer la línea más gruesa

Me.DrawWidth = 5 'Dibuja un círculo

Me.Circle (xx1, yy1), 950

Línea2 .BorderWidth = 3 'El grosor de la manecilla de la hora

Line3.BorderColor = QBColor(10) 'El color de la manecilla de la hora

Timer1.Interval = 500

End Sub

Private Sub Timer1_Timer( )

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

Segunda mano 'Dibuja el segundo hand

'Calcule el ángulo del segundero, es decir, 360 grados divididos por 60 segundos = 6 grados por segundo, así que multiplique Tome 6

sdeg = Segundo(Tiempo) * 6 'vb en radianes. Para calcular, la conversión del ángulo en radianes es 3,14/180, el segundero recorre N grados, multiplicado por N

srad = (3,14/180) * sdeg '900 es la longitud del segundero, según al centro del círculo (x1 de la Línea2, y1), calcula la posición de la Línea2.x2 en este radian

Línea2.x1+(900)*sdeg'. Línea2.x1 + (900 * Sin(srad)) '900 es la longitud del segundero Según el centro del círculo (x1, y1 de la línea 2), calcula la posición de la línea 2.y2 en este radianes. /p>

Línea2. Y2 = Línea2.y1-(900*Cos(srad))'

Minuto'Dibujar el minutero

'Calcular el ángulo del manecilla de minutos, cada minuto es 360 grados dividido por 60 minutos = 6 grados, así que multiplíquelo por 6. A medida que se mueve el segundero, el minutero también se mueve, por lo que el movimiento del segundero debe sumarse al movimiento del minutero.

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

Mdeg = Minuto( Tiempo) * 6 + (sdeg * 1 / 60) 'vb se calcula en radianes, por lo que el ángulo convertido a radianes es 3. 14/180, el minutero recorre N grados, multiplica por N

mrad = Minuto(Tiempo) * 6 + ( sdeg * 1 / 60) 'vb se calcula en radianes, por lo que el ángulo convertido a radianes es 3,14/180. El minutero recorre N grados, multiplicado 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 recorre N grados, multiplicado por N

'750 es la longitud de. el minutero, basado en el centro del círculo (x1, y1 de la línea 1) Como base, calcula la posición de la línea recta 1.x2 en este radian

Línea1.X2 = (750 * Sin (mrad)) + Línea1.x1 x1, y1) como base, calcula la posición de la línea recta 1.x2 en este radian

Línea1.X2 = (750 * Sin(mrad)) + Línea1. x1 '750 es la longitud del minutero, basado en el centro del círculo (x1, y1 de la recta 1) se utiliza como base para calcular la posición de la recta 1.x2 en este radian