Mensajes

Muchas gracias a los dos pero aun no encuentro lo que busco... necesito que me suspenda la maquina para cuando se reanude me pida clave de usuario y no me cierre ningun programa que se estaba ejecutando 

Alguien sabe por que no me funciona ? eso ando viendo desde ayer pero... no pasa nada eh checado poner el codigo correctamente y si esta todo bien pro no me reinicia nada esto funciona con windows XP ?

Hola, necesito la Api con la funcion de Cambiar Usuario en lugar de Reiniciar o Apagar el sistema solo ncesito Cambiar el usuario alguien podria darmela ?

Ya le intente con el Val() pero ahora me va incrementando los ceros jajaja 

Bueno como ya puse en el post anterior..... ando haciendo un programa para llevar el control de un ciber... necesito un favor alguien podria decirme como le tendria que hacer para que cuando cambie la hora y vaya incrementado minuto por minuto suba el precio? por ejemplo:

Un chico Renta una maquina en el ciber cafe y en el programa muestra el precio acomulado por cada minuto que pase si son las 7:00 en punto y el chavo la renta y esta navegando y dan las 7:01 necesito que mi label precio incremente por ejemplo de $ 00.00 a $ 00.50, espero que si me entiendan por que es algo enredado esto 

asi tengo por ahora el codigo:

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
Hora.Caption = Time$
If (Final.Text < Time$) And (ArchivoActivarSi = True) Then
Precio.Caption = Precio.Caption + ("0.5")
Beep: Beep:
End If
Hora.Caption = Time$
End Sub

El problema es que en vez de cambiar el precio de $00.00 a $00.05 lo cambia de $00.00 a $ 00.00.05 y asi susecibamente hasta que el caption de la label se sale de control jajaja 

Hola a todos, me surgio otra gran duda, resulta que ando haciendo un programa para llevar el control de un cyber cafe, el programa hace lo siguiente:

textbox1: Pide el nombre del usuario que ocupara la maquina.
textbox2: Pide la hora de inicio para llevar un registro del dia.
textbox3: Pide la hora en la cual se reiniciara el equipo.

Mi duda es... como le hago para que se me reinicie la PC cuando la hora actual coinsida con la hora que se configuro para reiniciar?

Espero que me ayuden 

ohhh gracias ya vi cual era el problema..... al declarar la variable control la puse abajo del private sub... muchas gracias ya me funciona!!! 

Si tienes razon Rex mi maestra siempre me regaña por no acomodar el codigo jajajaja gracias por la ayuda... necro una pregunta me podrias explicar en codigo masomenos como pondrias eso de la clave con el for para masomenos razonarlo ? muchas gracias a los dos 

bueno acabo de modificar el post no me funciono REX checando el codigo ya le habia intentado asi y no funciona aun ando checando eso....

Hola de nuevo... realmente me la vivire aqui!!! ya me gusto el foro jeje 

Bueno ya termine el problema del post anterior pero despues de la calma surge otro gran problema... tengo otro programa que es un reloj despertador donde puedes agregar diferencias horarias de otros paises pero... me an pedido que le ponga password con oportunidad de dar la clave erronea 3 veces.. una vez fallando las 3 veces debe cerrarse el programa... este es el codigo que le puse al formulario clave y aun no se como darle la funcion de fallar 3 veces... necesido de su enseñanza... jeje 

ya le intente de varias formas y aun no puedo:

Código [Seleccionar] Expandir

Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
  Unload Me
  FrmReloj.Show
Else
  MsgBox "Clave Incorrecta...", 16, "Error"
End
End If
End If
End Sub

Ese es el codigo y de verdad gracias  con ustedes aprendo mas que es lo que me hace falta... 

SOLUCION:
Gracias a todos por su aporte:

Código [Seleccionar] Expandir

dim control as Integer

Private Sub Clave_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
         If Clave.Text = "RMR" Then
             Unload Me
             FrmReloj.Show
         Else
            MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
           control=control+1
              if control=3 then
                 End
              end if
        End If
  End If
End Sub

Nooo ya me di cuenta ya pudee probe como string.. y tampoco se podia lo tube que declarar en globales como Variant xDDD Muchas gracias a todos son lo mejor!!!