b4a在代码中插入计时器

Question

我是法国人，对不起我的英语，我尽力了.

我试着给一个叫timer1_tick的潜艇打电话，我希望它能阻止我的潜艇"b_reponse1_click“。问题是我的潜艇不能等到计时器结束.

代码：

Sub Process_Globals
  Dim Timer1 As Timer
  ....
  End Sub

Sub Activity_Create(FirstTime As Boolean)
 Timer1.Initialize("Timer1", 1000) ' 1000 = 1 second
 Timer1.Enabled = True
 ...
 End Sub

Sub b_reponse1_Click
p= p + 1
If b_reponse1.Text = r5 Then
    score = score + 1
    b_reponse1.Color=Colors.Green
    CallSub("",timer1_tick)      ' Here i call sub timer1_tick 
    b_reponse1.Color=Colors.Gray
    Else
    b_reponse1.Color=Colors.Red
    b_reponse1.Color=Colors.Gray
End If

If nbqpassee = 10 Then
    Activity.RemoveAllViews
    Activity.LoadLayout("lay_main")
    Else
        CallSub("",loadq)
End If
End Sub

Timer1倒计时，但我的子b_reponse1_Click继续执行，而不等待计时器的结束

定时器：

代码：

Sub timer1_tick
 t = t + 1
 Log(t)
End Sub

我试过了，但没能解决问题：

代码：

 Sub timer1_tick
 t = t + 1
 Log(t)
 timer1.Enabled = False
 End Sub

你知道我该怎么做才能阻止我的子b_reponse1_click快到1秒吗？

预先感谢您的回答！

Answer 1

timer1_tick和任何其他的潜艇一样，是一个普通的潜艇。它不会导致代码执行等待。

在论坛上搜索CallSubPlus。您可以将当前的子子分解为两个子子，然后用CallSubPlus调用第二个子子，它将在指定的时间后运行。