timer + variable

[Chefito]

C@ss¡@n¡, tu colaboración siempre es buena ....y la de cualquiera claro. No se, yo lo realizé así porque pensé que quería que se ejecutase las aplicaciones, una cada 4 minutos justos, otra cada 5 y otra cada 7...practicamente independientes del tiempo una de otra. De mi forma se ejecutan así. De tu forma se ejecutan así la primera vez, pero la segunda vez ya sería meterle 3 minutos más a la primera y 2 minutos más a la segunda, y así sucesivamente, porque tu pones el contador a 0 cuando ha llegado a los 7 minutos, en cambio yo utilizo 3 contadores distintos para mantener los tiempos iguales de la carga de aplicaciones. En definitiva, dos puntos de vista distintos . Supongo que así tendrá donde elegir.
Por cierto krackwar, no te preocupes, fallos peores he tenido yo . Además, tienes escusa......la falta de sueño es muy mala  .
Y mojolloyo20, cuando hago hace daño a la vista es que, en este caso, es un fallo garrafal y no puedes ni verlo de lo mal que está  . Pero esa expresión y otras, no te las tomes a mal, van con mucha ironia  .
Saludos.

[krackwar]

Disculpen mi intromisión pero llamo mi atención...

En su primer post mojolloyo20 usa tres timer para ejecutar tres aplicaciones en los minutos 4, 5 y 7 por separado, eso me da a entender que quiere ejecutarlos por grupo de 3 minutos de diferencia y por aplicación, por dos minutos, en ese sentido, este seria la manera mas simplificada de hacerlo:

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Minuto As Integer

Private Sub Form_Load()
    Timer1.Interval = 60000
    Minuto = 0
End Sub

Private Sub Timer1_Timer()
    Select Case Minuto
        Case 4: Shell ("explorer.exe")
        Case 5: Shell ("notepad.exe")
        Case 7: Shell ("regedit.exe"): Minuto = 0   
    End Select
    Minuto = Minuto + 1
End Sub

Cabe acotar que errores como estos solo confunden mas al principiante:

Private Sub Form_Load()
dim bloqueo1 --> dentro del sub?
dim bloqueo2 --> ||

if minuto = 5 then and bloqueo2 = "no" then 

Hay que asegurarse de lo que se esta postiando... por lo demás todo esta bien...

¡S4lu2!

disculpen por los errores pero como explique no veia nada ni me acordaba de nada

[mojolloyo20]

hola amigos,perdon el retrasillo,vi los codigos he estado estudiandolo un poco.

si era como deciais en total a de tardar unos 16 minutos en hacaerlo todo.

krackwar,no te preocupes amigo, que el que tiene voca se equivoca.

ademas los errores se pueden corregir y lo que importa es que me aveis ayudado.

C@ss¡@n¡: a lo 1º no entendi lo de por grupo de 3 minutos ,supongo que te referias que de 4 a 5 ban 1 y de 5 a 7 2 y sumamos el 1 y el 2 y obtenemos los 3 minutos.

estuve buscando info sobre el case,aun que no pude mirarlo muy detayadamente

mas o menos es como un sustitutivo del if pero en moderno.

bueno lo que no entiendo del codigo, es la parte en la que ejecutamos los programas explorer.exe ect ect sin ponerle el app.Path bamos la direcion en si c:\ ect ect.

bueno vere por hoy aver que puedo hacer un salu2 amigos

[Chefito]

Pues el select case de moderno tiene poco  . Su funcionamiento es: realiza varias comparaciones por cada case, sobre el contenido de una variable (Select Case variable). Y lo de porque no ponemos los caminos a los archivos, es porque el sistema operativa ya los tiene establecidos, ya que siempre que se quiere ejecutar un programa desde cualquier lugar, primero mira si el programa está en ese lugar y luego revisa estos caminos (path) por si se encuentra allí, y los path donde están estos 3 programas los tiene establecidos el sistema. Para ver los path pon una consola y escribe path y te saldrán los que tenga establecidos el sistema.
Saludos.

[mojolloyo20]

gracias por la info chefito
un salu2