hola hace tiempo con ayuda de algun compañero cree un programa que aceleraba el reloj del sistema para conseguir que el tiempo fuera mas rapido en un juego de simulacion de pesca, el codigo es este:
Option Explicit
Private Sub Cambiar_Time(cadena As String)
On Error GoTo nError
Time = Format(cadena, "hh:mm:ss AmPm")
Exit Sub
nError:
MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
Err = 0
End Sub
Private Sub cambiar_hora(cadena As String)
On Error GoTo nError
Time = TimeSerial(cadena, Minute(Time), Second(Time))
Exit Sub
nError:
MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
Err = 0
End Sub
Private Sub cambiar_minutos(cadena As String)
On Error GoTo nError
Time = TimeSerial(Hour(Time), cadena, Second(Time))
Exit Sub
nError:
MsgBox "Los minutos introducidos no son validos!!", vbCritical, "Error al actualizar la hora"
Err = 0
End Sub
Private Sub CmdCambiarHora_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
CmdCambiarHora.Caption = "ON"
Else
Timer1.Enabled = True
CmdCambiarHora.Caption = "OFF"
End If
End Sub
Private Sub Form_Load()
Text1.Text = Hour(Time) 'cambia la hora entera del sistema
Text2.Text = Minute(Time) + 1 'cambia la hora
Text3.Text = Second(Time) 'cambia los minutos
End Sub
Private Sub Timer1_Timer()
Text2.Text = Minute(Time) + 1
'Cambiar_Time (Text3.Text)
cambiar_hora (Text1.Text)
cambiar_minutos (Text2.Text)
Text3.Text = Second(Time)
End Sub
[/code=vb]
ahora me gustaria que el programa haga todo lo contrario, pues el juego cada vez da menos tiempo para completar el nivel
que modificacion deberia de hacerle al programa
gracias amigos
¿que te parece a vos que tendrias que cambiar en el codigo? si uno suma y queres restar :P
Cita de: seba123neo en 30 Julio 2008, 22:39 PM
¿que te parece a vos que tendrias que cambiar en el codigo? si uno suma y queres restar :P
xD materia de 7 o 8º año la operacion contraria a la suma es la resta.
.
Pues no me habia expresado correctamente , perdonadme
me refiero a que en lugar de que corra mas deprisa, queiro que me vaya mas despacito el reloj
perdon mi torpesa
supongo que lo primero es cambiar el interval del timer pero no me funciona , es como si me fallara algo mas
.
lo he probado y no funciona, yo solo deseo que el reloj del sistema vaya mas despacio y estoy seguro de que en ese codigo se puede corregir una o dos lineas para lograrlo solo que no se como ni cuales
se que con el interval se hace que tarde mas o menos pero me avanza en minutos y nesesito que los segundos pasen mas despacio
gracias