# 请问如何保持同步? (内详)

Posted by 小贤 on February 13, 1999 at 01:02:08:

我最近在写一个绘图程式 , 须要不停地画圆 , (就是画都卜勒效应)
程式Code如下
Private Sub Waves(x ,y)
Do
Autoredraw = false
R=R+1
cls
circle (x,y) ,R
Pset (x,y)
Autoredraw = true
Loop Until R=300
End Sub
然后,我设计一个Timer 使这个Timer 每 1 秒 就将 (x,y) 往右移相对 (10,0) ,并执行 Waves
但我发现一点,执行 Do .... Loop 时VB都不会理Timer , 非要等 Do .... Loop 回圈完了才会
执行,这是为何?能不能同步呢?

Follow Ups:

- Re: 请问如何保持同步? (内详) BILL 04:44:08 2/13/99 (0)