VB un pequeño programa

Opción explícita

Const pi = 3.14159

Len_S privado como único, len_M como único, len_H como único

Sub Form_Load privado ( )

'Obtiene primero la longitud de cada puntero

len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ​​​​^ 2) ' Longitud del segundero

len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) 'Longitud del minuto

len_H = Sqr ((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) 'Longitud de la manecilla de hora

Llamar a timer1_timer

End Sub

Private Sub timer1_timer() 'Proceso de evento de temporización del temporizador

Dim s As Single, m As Single, h As Single

Form1.Caption = Hora

s = Segundo(Tiempo)

m = Minuto(Tiempo)

h = Hora(Tiempo) + m / 60

'Dibujar el segundero

LíneaS.X2 = LíneaS.X1 + len_S * Sin(pi * s / 30)

LíneaS.Y2 = LíneaS.Y1 - len_S * Cos (pi * s / 30)

'Dibujar minutero

LineM.X2 = LineM.X1 + len_M * Sin(pi * m / 30)

LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / 30)

'Dibujar manecilla de hora

Si h >= 12 Entonces h = h - 12

LíneaH.X2 = LíneaH X1 + len_H * Sin(pi * h / 6)

LíneaH.Y2 = LíneaH.Y1 - len_H * Cos(pi * h / 6)

Fin del subtítulo