Visual Basic - Problema VB 6

Life is soft - evento anual de software empresarial
   
Vista:

Problema VB 6

Publicado por Samuel (2 intervenciones) el 25/12/2010 18:08:44
Hola, estaba haciendo una aplicación la cual me permitiese regular el apagado de mi pc pero tengo un leve problema, les explico; tengo este código de programación:

Private Sub Form_Load()
Dim horas As Integer
Dim horasmult As String
Dim minutos As Integer
Dim minutosmult As Integer
Dim segundos As Integer
Dim segundosmult As Integer
Dim resultado As Integer
End Sub

Private Sub Command1_Click()
Shell "shutdown -s -t 10"
End Sub

Private Sub Command2_Click()
Shell "shutdown -r -t 10"
End Sub

Private Sub Command3_Click()
Shell "shutdown -a"
End Sub

Private Sub Command4_Click()
horasmult = 3600
minutosmult = 60
segundosmult = 1
horas = Val(Text1) * horasmult
minutos = Val(Text2) * minutosmult
segundos = Val(Text3) * segundosmult
resultado = horas + minutos + segundos
If resultado = 1 Then
Shell "shutdown -s -t 1"
If resultado = 2 Then
Shell "shutdown -s -t 2"
End Sub

El problema viene al programar la hora de apagado de la consola, ya que en visual basic solo puedo mandarle un texto tal cual y no puedo incluir variables en el texto a escribir en la consola, pensé en hacer un IF pero sería infinito.
Si me podéis ayudar, es que no tengo mucho experiencia en esto. Un saludo
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

RE:Problema VB 6

Publicado por XHkrElite (518 intervenciones) el 29/12/2010 05:23:31
modifique y agregue algunas partes a tu codigo
intentale asi Samuel

notas:
la "cmd /c" permite ejecutar un comando de msdos en visual basic o mejor dicho windows

Private Sub Command1_Click()
dim re as integer
re = Shell ("cmd /c shutdown -s -t 10")
End Sub

Private Sub Command2_Click()
dim re as integer
re = Shell( " cmd /c shutdown -r -t 10")
End Sub

Private Sub Command3_Click()
dim re as integer
re = Shell (" cmd /c shutdown -a")
End Sub

Private Sub Command4_Click()
rem declarar las variables locales
Dim horas As Integer
Dim horasmult As integer
Dim minutos As Integer
Dim minutosmult As Integer
Dim segundos As Integer
Dim segundosmult As Integer
Dim resultado As Integer

horasmult = 3600
minutosmult = 60
segundosmult = 1
horas = Val(Text1) * horasmult
minutos = Val(Text2) * minutosmult
segundos = Val(Text3) * segundosmult
resultado = horas + minutos + segundos

If resultado = 1 Then
dim re as integer
re = Shell( " cmd /c shutdown -s -t 1")
elseIf resultado = 2 Then
re = Shell( " cmd /c shutdown -s -t 2")
end if
End Sub
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

RE:Problema VB 6

Publicado por Samuel (2 intervenciones) el 29/12/2010 14:09:11
Gracias por tu colaboracion, por lo que se ve en el foro no hay mucha actividad, creo que no me has entendido bien lo que quiero hacer en el ultimo, porque tengo 3 textbox y es para programar las horas minutos y segundos que quedan para el apgado. Gracias por las modificaciones, acabo de empezar con esto de programacion y aun ando un poco perdido, un saludo! Gracias
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