¡Cómo agregar un reloj! ¡Lenguaje sencillo! ¿Existe algún tutorial o código fuente similar? Mi correo electrónico: wudi222888@qq.com ¡Gracias por tu ayuda!

.Versión 2

.Subroutine_clock1_cycle event

Cuadro de edición 1. contenido = a texto (tomar la hora actual ())

- ----- -----

El siguiente es el código fuente para el apagado programado:

Versión 2

Admite la biblioteca xplib

.Shell de biblioteca de soporte

.Ventana de ensamblaje ensamblaje 1

.Variable de ensamblaje Tiempo total

.Variable de ensamblaje Tiempo total2

.Tiempo restante de variable de ensamblaje

.Opciones de variable de ensamblaje

.segundos de variable de ensamblaje

.minutos de variable de ensamblaje

.variable de ensamblaje hora

.Tiempo de variable de ensamblaje

.Botón Subrutina_Regulador1_Ajuste presionado

.Valor del botón de parámetro, entero

. Si (Valor del botón = 1)

EditBox2.Content = A texto (A valor (EditBox2.Content) + 1)

. En caso contrario

. OK inicio (al valor(editbox2.content) > 1)

.Si es verdadero (valor del botón=-1)

.Finaliza si es verdadero

EditBox2. contenido = a texto (a valor (EditBox2.content) - 1)

.Default

.Confirmar fin

.Si final

.Subroutine__Startup Window_Created

Estilo XP (#Estilo Azul)

Tiempo = Tomar tiempo de inicio ()

.Subrutina _Regulator2_Adjustment botón presionado

. Valor del botón de parámetro, entero

. if (valor del botón = 1)

determina el valor inicial (a un número entero (editbox3.content) < 12)

editbox3.content = a texto (a un número entero (editbox3.content) ) + 1)

.Predeterminado

. Termina el juicio

. De lo contrario

.Iniciar juicio (a número entero (editbox3.content) > 1)

.Si es verdadero (valor del botón=-1)

.Fin si es verdadero

EditBox3.Content = a texto (a entero (EditBox3.Content) - 1)

.Default

.Confirmar para finalizar

.if end

.Subroutine_Adjustment3_Adjustment botón presionado

.Valor del botón de parámetro, entero

.if (valor del botón = 1 ;

.

Valor predeterminado

editbox4.content = "59"

.Fin del juicio

.De lo contrario

.Inicio del juicio (a número entero (editbox4 .content) > 0)

.Si es verdadero (valor del botón = -1)

.Finalizar si es verdadero

EditBox4.Content = a texto ( a entero (EditBox4.Content) - 1)

Predeterminado

Aceptar para finalizar

. si final

.Subroutine_Adjustment4_Adjustment botón presionado

.Valor del botón de parámetro, entero

.if (valor del botón = 1)

Determinar. el valor inicial (a entero (editbox5.content) < 999)

editbox5.content = a texto (a entero (editbox5.content) + 1)

.Default

. Termina el juicio

. De lo contrario

El juicio comienza (a un número entero (cuadro de edición 5. contenido) > 1)

Si es verdadero (valor del botón =-1)

. . Fin si es verdadero

EditBox5.Content = a texto (a entero (EditBox5.Content) - 1)

.Default

Editbox5.Content = "1 "

.Confirmar para finalizar

.Si para finalizar

.Subroutine_edit box 2_El contenido ha cambiado

.Juzgar inicio (a entero (editbox2.content) < 1)

editbox2.content = "1"

.Predeterminado

. Se acabó el juicio

. Subroutine_editbox3_content cambiado

. El juicio comienza (a un número entero (editbox3.content) <1)

editbox3.content = "1"

. El juicio comienza (a un número entero (editbox3.content) > 12)

editbox3.content = "12"

. Predeterminado

. Se acabó el juicio

. El contenido de la subrutina _editbox4_ ha cambiado

El juicio comienza (a entero (editbox4.content) < 0)

editbox4.content = "0"

. El juicio comienza (a un número entero (editbox4.content) > 59)

editbox4.content = "59"

. Predeterminado

. Se acabó el juicio

. Subrutina _clock1_cycle event

Cuadro de edición 6.content = a texto (obtener hora actual ())

.Subrutina _Button 2_Clicked

Cerrar sistema(1, verdadero)

Se hace clic en la subrutina _Botón 3_

Cerrar el sistema(2, verdadero)

. Haga clic en la subrutina _Botón 4_

Cerrar el sistema (4, verdadero)

. Seleccione la subrutina _Salir__

Destruir ()

.

Subroutine_About_Selected

Cuadro de mensaje ("Escrito por: Cat Sings the Blues (heimu)" + # Salto de línea + "QQ:26568708", # Perilla de confirmación + # Ícono de mensaje, "Acerca del agente de apagado" + # Mensaje icono, "Acerca del agente de apagado" + # icono de mensaje, "Acerca del agente de apagado" + # icono de mensaje, "Acerca del agente de apagado")

Subrutina __Start_Window_Tray_Event

.Tipo de operación de parámetro, entero

.Juzgar inicio (tipo de operación = 2)

_Launch Window.Visual = true

.Visual = true

. Sentencia (tipo de operación = 3)

_Ventana de inicio. Abra el menú de la bandeja (menú de la bandeja)

Predeterminado

. El juicio finaliza

. Subrutina __Startup_Window_Can_Be_Closed, Logical

MessageBox ("El programa se reducirá a la bandeja" + #saltos de línea + "Para salir, haga clic derecho en el icono de la bandeja", #perilla de confirmación + ícono de #mensaje, )

_Ventana de inicio. Colocar icono de bandeja (#trayicon, "Cerrar proxy")

_Ventana de inicio. Visible = Falso

Devolver (Falso)

Se hizo clic en la subrutina _Seleccionar cuadro 2_

. Si (Seleccionar cuadro 2.marcado = verdadero)

Cuadro de mensaje ("Esta función aún no está completa", #icono de advertencia, "advertencia")

Cuadro de edición 5.prohibido = falso

Ajustador 4.p >. De lo contrario

Caja de edición 5. Desactivar = Verdadero

Ajustador 4. Si termina

.

Se hace clic en la subrutina _Casilla de verificación 2_

. Si es verdadero (botón de opción 2.marcado = verdadero)

Cuadro de edición 2.prohibido = verdadero

Ajustador 1.prohibido = verdadero

Cuadro combinado 2.prohibido = verdadero

Cuadro de edición 3.prohibido = falso

Ajustador 2.prohibido = falso

Editar cuadro 4.

Cuadro combinado 3. deshabilitar = falso

.End if true

.Subroutine_MenuBox1_Clicked

.Si es verdadero (cuadro de radio 1.marcado = verdadero)

Cuadro de edición 2.prohibido = falso

Ajustador 1.prohibido = falso

Cuadro combinado 2.prohibido = falso

Cuadro de edición 3.

Cuadro combinado 3.disable = true

.Finalizar si es verdadero

.Subrutina _clock2_cycle event

.Variables locales segundos1, , estático

.Si (seg1 ≤ tiempo total)

Tiempo restante = Tiempo total - seg1 ' ¿El tiempo total menos el tiempo transcurrido es igual al tiempo restante? Oh, conocimiento de primer grado

Horas = Ronda (tiempo restante ÷ 60 ÷ 60) ' Redondea al número entero más cercano y suma el resto a los minutos

Minutos = Ronda ( (tiempo % restante 3600) ÷ 60) ' Suma minutos al resto de la hora, redondea al entero más cercano y continúa calculando el resto al segundo más cercano

Segundos = tiempo restante % 60 ' Segundos más el resto minutos anteriores al segundo más cercano

Segundos 1 = Tiempo total - Segundos 1 ' ¿El tiempo total menos el tiempo transcurrido no es igual al tiempo restante? p>

Segundos1 = segundos1 + 1 ' Siempre que el tiempo de ejecución actual no exceda el tiempo total, continúa corriendo segundo a segundo

Cuadro de edición 1. "Minutos" + a texto (segundos) + "segundos"

De lo contrario

Apague el sistema (ComboBox1.tomar valor del elemento (ComboBox1.selección actual), verdadero)

Reloj2.período de reloj = 0

.Si final

.

Subrutina _Botón1_Clicked

.Variable local intervalo, entero

.Variable local año

.Variable local mes

.Variable local Día

Ruptura de variable local

Año = Obtener el año (obtener la hora actual ())

Mes = Obtener el mes (obtener la hora actual ())<. / p>

Día = Obtener el día (obtener la hora actual ())

Pausa = Ir al valor (cuadro de edición 3. contenido)

.Si es verdadero ( ComboBox 3. obtener valor del artículo (ComboBox 3. Selección actual) = 24)

Pausa = Pausa + 12

. Si es verdadero, final

Intervalo = Intervalo de recuperación (Especifique tiempo (año, mes, día, valor (interrupción), valor (cuadro de edición 4. contenido), 0), obtenga la hora actual (), # segundos)

Tiempo total 2 = Intervalo

.Si (caja de radio 1. seleccionada)

.Si (Reloj 2.Período de reloj = 0)

Reloj 2.Periodo de reloj = 1000

Botón 1.Título = "Detener temporizador (&D)"

De lo contrario

Reloj 2.Período de reloj = 0

Botón 1. Título = "Iniciar temporizador (&E)"

Cuadro de edición 1.Contenido = "Temporizador detenido"

.Si finalizó

.If (ComboBox2.TakeItemValue ( ComboBox2.CurrentSelectedItem ) = 3600)

TotalTime = ToValue (EditBox2.Content) × 3600

De lo contrario

.If (ComboBox2.TakeItemValue (ComboBox2.CurrentSelectedItem). ) = 60 )

Tiempo total = ToValue (EditBox2.Content) × 60

De lo contrario

Tiempo total = ToValue (EditBox2.content)

.if end

.if end

.else

.if true (el cuadro de radio 2. está seleccionado)

Si (Reloj 3.Período de reloj = 0)

Reloj 3.Periodo de reloj = 1000

Botón 1.Título = "Detener temporizador (&D)"

.De lo contrario

Reloj 3.Período de reloj = 0

Botón 1.Título = "Iniciar temporizador (&E)"

Cuadro de edición 1.Contenido = " El temporizador se detuvo"

.si finalizó

.

Si es verdadero final

.Si final

.Subrutina _clock3_cycle event

.Variable local segundos2, , estática

.Si (segundos2 ≤ tiempo total 2)

Tiempo restante = tiempo total 2 - segundos2

Horas = redondeado (tiempo restante ÷ 60 ÷ 60)

Minutos = redondeado ((Tiempo restante ÷ 60 ÷ 60)

Minutos = redondeado ((Tiempo restante ÷ 60 ÷ 60) tiempo % 3600) ÷ 60)

Segundos = Tiempo restante % 60

Segundos2 = segundos2 + 1

Cuadro de edición 1.content = "Tiempo restante " + enviar texto (hora) + "hora" + enviar texto (minuto) + "minuto" + enviar texto (segundo) + "segundos"

De lo contrario

Apague el sistema (. ComboBox1.Tomar valor del elemento (ComboBox1.Selección actual), verdadero)

Reloj 3.Período de reloj = 0

.Si finaliza

.