Poner un vencimiento o modo d prueba a mi aplicación
Publicado por Gabriel (10 intervenciones) el 28/12/2016 00:55:54
Hola de nuevo...siguiendo con el programa que habia consultado antes, que por cierto ya lo termine. Ahora se me presenta otro inconveniente y es que debo poner una limitacion de 15 dias a mi aplicacion (desde que se instala), la cuestion es que he creado el codigo y lo probe con una duracion de 10 segundos y funciono perfecto; pero nose por que motivo ahora no funciona, y es mas, ahora me toma la fecha actual del sistema pero en el calculo de dias me da el dia anterior:
les dejo mi codigo y si pueden ayudarme u orientarme:
Desde ya muchas gracias por sus aportes.
"Cometer errores es de lo más habitual y normal, todos los cometemos, pero dependiendo cómo actuemos ante ese error, creceremos y aprenderemos o nos quedaremos estancados."
les dejo mi codigo y si pueden ayudarme u orientarme:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Menu1_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.producto_registrado = False Then
If My.Settings.primerregistro = True Then
Timer1.Start()
My.Settings.diasdeprueba = DateTime.Now.AddDays(15)
My.Settings.primerregistro = False
My.Settings.Save()
Else
Timer1.Start()
End If
End If
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & My.Settings.diasdeprueba & "."
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If Date.Now > My.Settings.diasdeprueba Then
Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
Label4.Text = "Fin uso del Software: " & My.Settings.diasdeprueba & "."
Me.Hide()
Registrar_producto.Show()
Timer1.Stop()
End If
End Sub
Desde ya muchas gracias por sus aportes.
"Cometer errores es de lo más habitual y normal, todos los cometemos, pero dependiendo cómo actuemos ante ese error, creceremos y aprenderemos o nos quedaremos estancados."
Valora esta pregunta
0
