Visual Basic.NET - Poner un vencimiento o modo d prueba a mi aplicación

 
Vista:
Imágen de perfil de Gabriel
Val: 20
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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:

Captura

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Gabriel
Val: 20
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Poner un vencimiento o modo d prueba a mi aplicación

Publicado por Gabriel (10 intervenciones) el 28/12/2016 01:57:39
comparto por si alguno llega a tener el mismo inconveniente, solucione el problema que tenia colocando una variable al comienzo del form y reemplace "My.Setting.diasdeprueba" por la variable "diasdeprueba".

Al comienzo del form:


1
2
Public Class Menu1
Dim diasdeprueba = DateTime.Now.AddDays(15)


remplazode "My.Setting.diasdepruueba" por la variable "diasdeprueba":


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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()
            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: " & diasdeprueba & "."
End Sub
 
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If Date.Now > diasdeprueba Then
        Label3.Text = "Inicio uso del Software: " & DateTime.Now & "."
        Label4.Text = "Fin uso del Software: " & diasdeprueba & "."
        Me.Hide()
        Registrar_producto.Show()
        Timer1.Stop()
    End If


Captura2



Espero sirva de ayuda..


"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 respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 992
Plata
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Poner un vencimiento o modo d prueba a mi aplicación

Publicado por Miguel (476 intervenciones) el 28/12/2016 03:31:08
La parte "Date.Now > diasdeprueba" siempre te va a devolver False porque al inicio estás asignándole el día actual más 15 días; es decir, nunca acabará el período de prueba (al menos que se mantenga iniciada la aplicación por todos esos días; algo poco posible)...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Javier
Val: 201
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Poner un vencimiento o modo d prueba a mi aplicación

Publicado por Javier (67 intervenciones) el 29/12/2016 01:15:25
Compañero una duda, que pasa si antes de instalar tu software se le cambia la fecha a la maquina, por decir, al 30 de diciembre del 2030?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 2
Ha disminuido su posición en 71 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Poner un vencimiento o modo d prueba a mi aplicación

Publicado por Eloy (1 intervención) el 16/01/2017 04:30:49
Obviamente el script está tomando la fecha actual y le suma 15 días para su caducación
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Javier
Val: 201
Ha aumentado su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Poner un vencimiento o modo d prueba a mi aplicación

Publicado por Javier (67 intervenciones) el 17/01/2017 16:24:55
En efecto, pero si te fijas en su script guarda la fecha final para revisar si la fecha del día es mayor y así obligar a registrar el producto, pero si le cambias la fecha al equipo a un año, antes de instalarlo, por ejemplo 17/01/2018, no tendrá 15 días, tendrá 380 ya que su fecha final quedaría 01/02/2018.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar