网上那个 sleep() 和 idle() 都不行的
------解决方案--------------------
增加一个死循环。
time t1
t1 = now()
st_1.text = string(t1)
CHOOSE CASE t1
case time("23:59:59")
do while(now() > time("00:00:05"))
st_2.text = string(now())
loop
case time("23:59:58")
do while(now() > time("00:00:04"))
st_2.text = string(now())
loop
case time("23:59:57")
do while(now() > time("00:00:03"))
st_2.text = string(now())
loop
case time("23:59:56")
do while(now() > time("00:00:02"))
st_2.text = string(now())
loop
case time("23:59:55")
do while(now() > time("00:00:01"))
st_2.text = string(now())
loop
case else
do while(SecondsAfter(t1,now()) < 5)
st_2.text = string(now())
loop
END CHOOSE
------解决方案--------------------
Function long Sleep(Long ms)library "kernel32 "
sleep(5000)
或则自己写个sleep函数
sleep(long al_sec)
long ll_cpu
ll_cpu = cpu()
al_sec *= 1000
do while ((cpu() - ll_cpu) < al_sec)
loop