Pregunta algo newvi xD

[Cheatmaster]

Buenas miren si en un textbox pongo por ejemplo  2:00

Como ago para q cuando le de al boton alas 2 se apagara ( por la hora del pc )
O
si pongo por ejemplo 2 <.. q sean 2 minutos para que se apagara

para llamar a un comando CMD desde vb es asin no ?

Código:

Private Sub Command1_Click()
Shell "system32\shutdown.exe -a"
End Sub

Eso seria parar el apagado no ?
Como ago para q se apague cuando yo ponga en el textbox un tiempo
= que lo izo un miembro de aki para un moderador

[ToR0]

Buenas miren si en un textbox pongo por ejemplo  2:00

Como ago para q cuando le de al boton alas 2 se apagara ( por la hora del pc )
O
si pongo por ejemplo 2 <.. q sean 2 minutos para que se apagara

para llamar a un comando CMD desde vb es asin no ?

Código:

Private Sub Command1_Click()
Shell "system32\shutdown.exe -a"
End Sub

Eso seria parar el apagado no ?
Como ago para q se apague cuando yo ponga en el textbox un tiempo
= que lo izo un miembro de aki para un moderador

Código:

Private Sub Command1_Click()
Shell "shutdown -s -t20 -c "hola"
End Sub

[Cheatmaster]

yo me refiero a esto



Como al poner en el textbox el tiempo o numero hace q se apague ?

[Guan]

Con el code qe te a pasado josesito090, cuando pulsas el boton, ves comprobando la hora cada minuto, y cuando coincida con la de la variable qe hayas pasado previamente del textbox, lo apagas.

Saludos

[Korpex]

Hay 200 formas de hacerlo..xDDD  con un timer de intervalo 1 segundo(p.e)  que al decirle tu los segundos calcule cuántas veces va a pasar por el timer1_time, con un contador que valla mirandolo y al final if contador = 90 '(por ejemplo) then shell "shutdown.exe -s -t 00" etc...
Ejemplo:

Código:

dim contador as string
dim tiempoparaapagar as string

Sub form_load()
    contador = 0
    tiempoparaapagar = 90  'segundos, puedes sustituir 90 por text1.text
    timer1.interval = 1000
end sub

Sub timer1_time()
       contador = contador + 1
       if contador => tiempoparaapagar then
             shell "shutdown.exe -s -t 00", vbHide
       end if
 end sub

[Cheatmaster]

Hay 200 formas de hacerlo..xDDD  con un timer de intervalo 1 segundo(p.e)  que al decirle tu los segundos calcule cuántas veces va a pasar por el timer1_time, con un contador que valla mirandolo y al final if contador = 90 '(por ejemplo) then shell "shutdown.exe -s -t 00" etc...
Ejemplo:

Código:

dim contador as string
dim tiempoparaapagar as string

Sub form_load()
    contador = 0
    tiempoparaapagar = 90  'segundos, puedes sustituir 90 por text1.text
    timer1.interval = 1000
end sub

Sub timer1_time()
       contador = contador + 1
       if contador => tiempoparaapagar then
             shell "shutdown.exe -s -t 00", vbHide
       end if
 end sub

Si pongo :

dim contador as string
dim tiempoparaapag ar as string

Sub form_load()
    contador = 0
    tiempoparaapag ar = text1.text  'segundos, puedes sustituir 90 por text1.text
    timer1.interva l = 1000
end sub

Sub timer1_time()
       contador = contador + 1
       if contador => tiempoparaapag ar then
             shell "shutdown.exe -s -t 00", vbHide
       end if
 end sub

si en el texto pongo M.. 18:00

q se apaga alas 6 ? o tengo 6 min O q xD

[Korpex]

Si pones eso te va a pegar un petardazo xDDDD. Ahí tienes que poner el tiempo en segundos... si quieres hacerte una funcion que pase del formato 00:00:00 a nosecuantos segundos, hazlo. Sería multiplicar y sumar, fácil.


SAludos, suerte.