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

Posted by BILL on February 13, 1999 at 04:44:08:

In Reply to: 请问如何保持同步? (内详) 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 回圈完了才会
: 执行,这是为何?能不能同步呢?

Do .... Loop 回圈内加 Doevent

Follow Ups: