Eprime 倒计时代码

倒计时设置为60s

第一步：添加slide部件 命名为”Stimulus1“

第二步： 添加显示倒计时的Text 命名为Text2

第三步：添加指向Stimulus1的代码Inline3 倒计时设计为60s

代码如下：

Dim t As Integer
Dim t0 As Integer
Dim time1 As Integer
Dim TextBlock As slidetext
Set TextBlock=CslideText(Stimulus1.States.Item("default"). Objects("Text2"))
t=0
t0=0
time1=time
Do While CInt(t)<60
    t=second(time-time1)
    If t>t0 Then
        TextBlock.Text=CStr(60-t)
        Stimulus1.Draw
        t0=t
    End If
Loop
Set TextBlock=Nothing