Gambas/时间

使用 Time 属性

Time 返回当前时间。示例

你需要一个按钮

Private Sub Button1_click()
   message(time)
end

它会给你这样的结果：22:13:00.998（在 Ubuntu 上它会显示为这样：P）

例如，如果我们想在某个特定时间提醒我们，它应该是这样的

你需要 2 个文本框、1 个按钮、1 个计时器和一个模块。

在文本框 1 中，我们输入要提醒我们的小时。在文本框 2 中，我们输入要提醒我们的分钟。

在模块中写入

PUBLIC Hora as string[]
PUBLIC Final as string[]

在窗体 Fmain 中，按钮 1 写入

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 命令

语法是

WAIT [ Delay ]

此命令调用事件循环。如果指定了 Delay，它将不会返回，直到 Delay 秒过去。Delay 是一个浮点数。因此，如果您想等待 100 毫秒，只需执行

 WAIT 0.1

在等待期间，不会处理键盘或鼠标事件。只有绘制、计时器和文件描述符事件，如 Process_Write 仍在运行。

示例

你需要一个命令按钮和一个文本框来启动它。

PUBLIC SUB Button1_Click()
 WAIT 10
 'waits 10 seconds 
 WAIT 0.1 
 'waits 100 milliseconds 
 textbox1.Text = ""
END