hola ese es un problema facil de resolver.
debes agregar a tu formulario(donde se desarrola el juego) un TIMER colocarle un numero conocido de segundos EJ:2000 (esto es 2seg ) declarar en el procedimiento una funcion de cuenta como esta:
Private Sub Timer1_Timer()
'defino una variable privada(el valor permanece entre llamadas.
Private Contar As Integer
'sumo el contador
Contar = Contar + 1
'si el contador llego al tiempo pre definido entonces hago lo que quiero (es la parte donde colocarias el salto incondicional)
If Contar = Total Then
'salto incondicional
'el timer llego a al tiempo de terminar.
'caso contrario continuamos...
endif
End Sub
|
