Conversión de código fuente móvil

Jaja, este es un código de reloj escrito por el propietario de VB CBM666... ​​​​Agregue LÍNEA 1 LÍNEA 2 LÍNEA 3 temporizador 1 dim xx1, YY 1 'para declarar la variable xx1, YY 1 es un número entero (para el centro del círculo ) subformulario privado _ load() me. Autoredraw = true 'Redibujar es verdadero' El formulario está centrado. Mover (screen.width-i.width)\2, (screen.height-meiheight)\2 'Calcular el centro del círculo Eje X xx1 xx1 = Me. Ancho\ 2 'Calcular eje Y Yy1yy 1 =(me . altura-405)\ 2 'Establezca el punto inicial x1 de los siguientes tres puntos, Y 1 está completamente posicionado en el centro del círculo. Fila 1. X1: Fila 1. Y1 = AA1LINE2. X1 = XX 1: LÍNEA2. 0 = XX 1: Línea 3. Y1 = YY 1 'Dibuja el exterior del reloj, haciendo las líneas más gruesas. I. Dibuja un círculo. I. Círculo (xx1, yy1), 950 línea 2. BorderWidth = 1 'El grosor de la línea 2 de segunda mano. Bordercolor = QBColor (12) El color de la línea 1 del segundero. BorderWidth = 2 'El grosor de la línea diminuta de la aguja 1. color del borde = color QB (14). Color del hilo de la aguja diminuta 3. BorderWidth = 3 'El grosor de la línea 3 de la aguja. Color del borde = QBColor (10)'Color 1 del cronómetro de la manecilla de las horas. intervalo = 500 fin del subtemporizador privado 1 _ temporizador(). I. ' Título = Hora 'La barra de título muestra la hora actual 'Segunda manecilla' Calcule el ángulo de la manecilla de segundos, cada segundo es 360 grados dividido por 60 segundos = 6 grados, así que multiplíquelo por 6 sdeg = segundos (tiempo) * 6 ' vb se calcula en radianes. Por lo tanto, la conversión del ángulo en radianes es 3,14/180. Cuando el segundero se mueve n grados, multiplica ns rad = (3,14/180)* sdeg ' 900 es la longitud del segundero y el centro del círculo (X1, línea 2 Y65438). Calcula la posición de la línea 2.x2 en este radianes. LÍNEA 2 . x2 = LÍNEA 2 . Calcula la posición de la línea2.y2 en este radianes. LINE 2 . y2 = LINE 2 y 1-(900 * COS(SRAD)) 'Minuto' calcula el ángulo del minutero. Un minuto son 360 grados divididos por 60 minutos = 6 grados, por lo que si se multiplica por 6, el segundero se moverá. Por lo tanto, se debe sumar el movimiento del minutero provocado por el movimiento del segundero. Cuando el segundero gira 1 minuto y 360 grados, el minutero avanzará 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/. Por lo tanto, el radian de conversión del ángulo es 3,14/180. Cuando el minutero se mueve n grados, multiplique nmrad = (3,14/180)* mdeg ' VB se calcula en radianes, por lo que los radianes convertidos del ángulo son 3,14/65438 según el centro del círculo (x1, y1 de la línea1), donde se calcula LINE 1. Cuando la manecilla de la hora se mueve 30 grados por hora, la manecilla de los minutos también se moverá, por lo que tenemos que sumar el movimiento de la manecilla de la hora causado por el movimiento. del minutero 'Cuando el minutero gira 1 = 360 grados, el horario avanzará 1 =30 grados.

Entonces, la proporción de 30/360 es igual a 1/12 hdeg = hora(tiempo)* 30 (mdeg/12)'. VB se calcula en radianes, por lo que la conversión del ángulo a radianes es 3,14/180. Cuando la manecilla de la hora se mueve n grados, multiplique nhrad = (3,14/180)* hdeg ' 500 para obtener la longitud de la manecilla de la hora, según el centro del círculo (línea 3 X1, Y1). Calcula la posición de la línea 3.x2 en este radianes. Línea 3. X2 =(500 * SIN(HRAD)) Línea 3. X1' 500 es la longitud de la manecilla de las horas. Calcule la línea 3.y2 en este arco basándose en el centro del círculo (X1, y1 de la línea 3).

/CBM 666/blog/item/5729 f 736 f 7d 902300 a55a 991 .