Cómo agregar tiempo de uso en el software en un lenguaje sencillo

Le daré el código fuente, simplemente agregue un reloj en la ventana. Cópielo completamente en el ensamblaje a continuación. Se otorgarán puntos si es útil.

. Versión 2

.Especificación de biblioteca de soporte

.Ensamblaje de ventana de ensamblaje 1

.Subroutine__Start_Window_Create_Complete

Reloj 1. Ciclo de reloj = 1000

Juicio de tiempo () 'Se utiliza para el juicio basado en el tiempo

Juicio de tiempo de subrutina

Tiempo de software variable local, entero

p>

. .Hora actual variable local, número entero

.Revisión de mes variable local, tipo de texto

.Revisión de fecha variable local, tipo de texto

Variable local hora, texto. tipo

Variable local minuto, tipo de texto

Hora del software = 201011041838 ' Fecha de vencimiento del uso del software

Si (tomar mes (Obtener la hora actual ()). ) < 10)

Disposición del mes = "0" al texto (obtener el mes (obtener la hora actual ()))

De lo contrario

Cotejo del mes. = enviar mensaje de texto (tomar mes (tomar hora actual ()))

.Si final

.Si (tomar día (tomar hora actual ())) < 10)

Cotejo de fecha = "0" para texto (obtener día (obtener hora actual ()))

De lo contrario

Cotejo de fecha = para texto (obtener día (obtener hora actual). ()))

.If end

.If (obtener hora (obtener hora actual ()) < 10)

hora = "0" al texto (tomar hora (tomar hora actual ()))

De lo contrario

hora = enviar un mensaje de texto (tomar hora (tomar hora actual ()))

. if end

if (obtener la cantidad de minutos (obtener la hora actual ()) < 10)

minutos = "0" para enviar un mensaje de texto (obtener la cantidad de minutos (obtener). la hora actual ()) ))

De lo contrario

minutos = para enviar un mensaje de texto (tomar minutos (tomar la hora actual ())

.Si finaliza

Hora actual = valor (a texto (tomar año (tomar hora actual ())) mes fecha de prueba hora de prueba minutos)

Salida de depuración (hora actual)

.if (hora actual

_Ventana de inicio. Título = "El software está en uso normal"

. De lo contrario

Cuadro de mensaje ("El software ha caducado", 0, "Preguntar") ' _Launch window.Title = "El software ha caducado"

Destruir()

. si final

. Subrutina evento _clock1_cycle

Etiqueta 1.título = enviar texto (obtener hora actual ())

.