elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problemas con apagado		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problemas con apagado  (Leído 1,096 veces)
Zeroql


Desconectado Desconectado

Mensajes: 957


Todo lo k sucede sucede por una razon


Ver Perfil WWW
Problemas con apagado
« en: 25 Agosto 2006, 02:10 am »
hola a todos
Bueno tengo este codigo
Código:
if Cstr(time)=>"23:00:00" and Cstr(time)<="8:00:00" then
  shell ("ShutDown -s")
end if
bueno esto lo que hace es apagar el pc en sierta hora hasta las 8 am. (funeciona en hora del pc en formato militar). pero desde hace 2 dias que esta vaina no me funciona, a veces apaga el sistema a caulquier hora, o a veces no hace nada. si alguien sabe la causa por fa aganmelo saber.
En línea
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#
wuepe

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Problemas con apagado
« Respuesta #1 en: 25 Agosto 2006, 15:37 pm »
El problema esta por que pasa de las 12 de la noche.

Entonces, la comparacion no la hace bien, tendrias que hacerlo comparando como si fueran dos dias, uno de 23 hasta las 12 de la noxe y otro desde las doce de la noche asta las 8 de la mañana

Otra cosa, es que conviertes a String, y comparas cadenas, eso tp lo hace bien, por que tienes que comparar tiempo y no cadena.

Para indicar poner en visual hora y dia se pone con # y compara directamente. Este codigo me ha funcionado.

  If (Time >= #11:00:00 PM# And Time <= #11:59:59 PM#) _
    Or (Time >= #12:00:00 AM# And Time <= #8:00:00 AM#) Then
    shell ("ShutDown -s")
  End If

Yo que tu pondria un mensaje para no proba apagando el pc.

y cuando veas que funcion ya pones el shell.

  If (Time >= #11:00:00 PM# And Time <= #11:59:59 PM#) _
    Or (Time >= #12:00:00 AM# And Time <= #8:00:00 AM#) Then
   MsgBox('Apagar')
   ' shell ("ShutDown -s")
  End If

Saludos
En línea
Ironhorse

Desconectado Desconectado

Mensajes: 150



Ver Perfil
Re: Problemas con apagado
« Respuesta #2 en: 26 Agosto 2006, 00:11 am »
No uses strings, usa variables datetime y si lo que queres preguntar es el intervalo entre las 23 y las 8, es OR en lugar de AND:

Código:
if time>=timevalue("23:00") OR time<=timevalue("8:00") then
  shell ("ShutDown -s")
end if
En línea
Pégense una vuelta por Cracton :)
Zeroql


Desconectado Desconectado

Mensajes: 957


Todo lo k sucede sucede por una razon


Ver Perfil WWW
Re: Problemas con apagado
« Respuesta #3 en: 26 Agosto 2006, 00:31 am »
Cita de: Ironhorse en 26 Agosto 2006, 00:11 am
No uses strings, usa variables datetime y si lo que queres preguntar es el intervalo entre las 23 y las 8, es OR en lugar de AND:

Código:
if time>=timevalue("23:00") OR time<=timevalue("8:00") then
  shell ("ShutDown -s")
end if
si lo coloco como OR me genera un apagado desde las ocho de la noche o a las 11
Hey WUepe gracias
En línea
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo.
/.-ZEROQL.-\   -----  #937675#
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines