https://foro.gambas-es.org/viewtopic.php?f=1&t=3966&p=22424#p22424
-----------------------------------
jsbsan
Miercoles, 09 Julio 2014, 22:47

Re: Ejemplo Con Función Time
-----------------------------------
Shell:

[quote]Para efecto curioso, eliminar las lineas que contiene Inc Applicaton.Busy y Dec Application.Busy[/quote]
Muy curioso, si las elimino, el label no se actualiza y no sale... y los dejo como lo tienes se ve claramente como  se van "refrescando" los valores del label... muy interesante...

Otra cosa interesante... con tu código, la "carga" del cpu aumenta exesivamente (en mi ordenador), pero si metes un wait, esa carga no aumenta, y sigue funcionando el programa bien:
[code linenumbers=false syntax=gambas]Do While Time < CDate(Inicio + TiempoPausa) 
      'No existe DoEvents
      Inc Application.Busy  
      LCDLabel1.Text = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)
      Dec Application.Busy
      
     Wait 0.1 'añado que espere un momento
    Loop  [/code]

Saludos


