Gambas/Time

Back to Gambas Usar la Propiedad Time Time returns the current time. Example: You need 1 button: Private Sub Button1_click() message(time) end Te daria algo asi: 22:13:00.998 (En ubuntu me da asi :P) Por ejemplo si queremos hacer que a determinada hora nos avise, seria algo asi: Necesitas 2 Textbox, 1 Boton, 1 Timer y un modulo.. En textbox1 escribimos la Hora que queremos que nos avise. En textbox2 escribimos el minuto que queremos que nos avise. Within the module write: PUBLIC Hora as string[] PUBLIC Final as string[] Within form Fmain, Button1 write: Private Sub Button1_click() dim tiempo as String tiempo=Time Module1.Hora=Split(tiempo,":") Timer1.enabled = true end Private Sub Timer1_() dim tiempo as string Timer1.delay = 500 tiempo=Time Module1.Final=split(tiempo,":") if Module1.hora[0] = Module1.Final[0] and Module1.hora[1] = Module1.Final[1] then message.info("Ya es la hora que ingresaste antes") Timer1.enabled = false end if end Wait Command The Syntax is WAIT [ Delay ] This command calls the event loop. If Delay is specified, it does not return until Delay seconds elapse. Delay is a floating point number. So, if you want to wait 100 ms, just do: WAIT 0.1 During the wait, no keyboard or mouse events are processed. Only drawing, timer and file descriptors events, like Process_Write are still running. Example You need a commandbutton and a textbox to get it going. PUBLIC SUB Button1_Click() WAIT 10 'waits 10 seconds WAIT 0.1 'waits 100 milliseconds textbox1.Text = "" END