Mensajes

[J.I. Moratiel]

Hola de nuevo! bueno quisiera aclarar que lo mio es mas la imaginacion, y no la puesta en practica de la misma (tristemente) No creo que de la solucion definitiba para el problema, simplemente porque no soy un programador avanzado pero espero ayudar a acercarte a la solucion. Se me ocurren las siguientes ideas:

1-Podrias implementar un relog en tu aplicacion, para que empezara a contar desde su ejecucion, y con la aportacion de reydelmundo11, se añada al registro. E visto el siguiente codigo que puede valer. Autor:  J.I. Moratiel

Modulo:

Código [Seleccionar] Expandir

Option Explicit
Dim segun As Byte
Dim minu As Byte
Dim hor As Byte
Dim resumen As String
Dim pitido As Variant
Dim Pitido1 As Variant

Form:

Código [Seleccionar] Expandir

Private Sub Reloj_Timer()
    Etiqueta.Caption = Format(Now, "hh:mm:s")
   
   'sonido
    pitido = Minute(Now)
    Pitido1 = Second(Now)
    If pitido = 0 And Pitido1 = 0 Then
        Beep
    End If
   
   
    'Reloj desde arranque
    segun = segun + 1
    If segun = 60 Then
        minu = minu + 1
        segun = 0
    End If
    If minu = 60 Then
        hor = hor + 1
        minu = 0
    End If
    resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
    Etiqueta1.Caption = resumen
End Sub

Pero, eso, enlazarlo con la aplicacion, pues no lo se. La idea del reydelmundo11 me parece genial al respecto

Por otro lado, podrias incrustar una cuenta atras. Despues de 15 dias, para que mostrara un MsgBox, o lo que quieras. El siguiente codigo es un programa que cuenta hacia atras segundo por segundo. Seria cuestion de coger la calculadora  Autor; el mismo de antes J.I. Moratiel
Modulo:

Código [Seleccionar] Expandir

Option Explicit


Form:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Text1.Text = 500
End Sub

Private Sub Timer1_Timer()
    Text1.Text = Text1.Text - 1
End Sub


Bueno, haber si con la ayuda de todos, encuentras la solucion
Un saludo

PD: Da gusto ayudar a alguien tan agradecido

[>]

Hola, si pones esto en programacion VB, es porque lo necesitas en alguna aplicacion VB, asique seria mejor otro codigo, pero para hacerlo desde shell, si lo que quieres es copiar un archivo, añade una ">"

.....1 c:\Archivos de programa\>2.exe por ejemplo... pero sigo pensando que FileCopy seria mejor

saludos

PD:Mejor asi que con tu anterior post

[Eduardo Garcia Valsi - Analista de Sistemas]

Hola, Deep_Purple, quizas no es lo que estes buscando, pero tenia hace tiempo un codigo para proteger una aplicacion de 15 dias, segun un .txt, su autor es Eduardo Garcia Valsi - Analista de Sistemas


Primero, en un modulo, las siguientes declaraciones:

Código [Seleccionar] Expandir

Dim Ban As Integer    'para la bandera
Public valoracion As String    'para el PWD que tu le des al
usuario


y en el form, "KeyPress" el siguiente codigo:

Código [Seleccionar] Expandir

Private Sub laclavetext_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        FechaForm.valoracion = laclavetext.Text
        Unload Me
    End If

No soy un experto del lenguaje basic, pero podrias añadir un form con el codigo que describo, con la propiedad "Visible = False" y tambien podrias añadirle App.Taskvisible = False para ocultarlo un poco del Ctrl+Alt+Supr

Bueno, espero que te sirva o que se te ocurra otra idea

un saludo

PD: se me olvidaba, para regular eso del tiempo, podrias añadir otra miniaplicacion para que desde que se ejecuta, mantenga el tiempo independientemente del tiempo del sistema. Asi, la aplicacion de 15 dias tendria que recurrir a la miniaplicacion y no a la fecha del sistema. haber si encuentro algo y te lo pongo   Para pillar la fecha, propiad Visible = False

Código [Seleccionar] Expandir

Label1.Caption = Date