|
50楼#
发布于：2005-06-17 00:09
<P>版主，还要麻烦你一下，请问，怎样实现程序里的时间和电脑的时钟同步呢？</P>
<P>回放的速度太快了。。。还没看清除就结束了。。。</P> <P>请问应该在哪加一个时间控制语句？可不可以根据数据里的时间同步显示呢？</P> |
|
|
51楼#
发布于：2005-06-17 00:10
<P>版主，还要麻烦你一下，请问，怎样实现程序里的时间和电脑的时钟同步呢？</P>
<P>回放的速度太快了。。。还没看清除就结束了。。。</P> <P>请问应该在哪加一个时间控制语句？可不可以根据数据里的时间同步显示呢？</P> |
|
|
52楼#
发布于：2005-06-17 00:34
upup
[此贴子已经被作者于2005-6-17 0:37:08编辑过]
|
|
|
53楼#
发布于：2005-06-18 13:03
<P>如果是数据库记录GPS数据，显示速度容易控制。</P>
<P>但我给的方法中用的是文本文件，所以不能直接从读数据的角度控制回放速度；但可以从另一个角度－－显示数据 控制回放速度，例如增加一个延时模块（或循环），在回放一个数据后，调用一次延时模块，从而达到控制回放速度。</P> <P>Public Sub Delay(s As Double)<br> Dim StartTimer As Variant<br> Dim OldTimer As Variant<br> Dim DelayYear As Long, DelayDay As Integer<br> StartTimer = Timer<br> Do<br> DoEvents<br> If Timer < OldTimer Then<br> If DelayDay > 365 Then<br> DelayYear = DelayYear + 1<br> DelayDay = 0<br> Else<br> DelayDay = DelayDay + 1<br> End If<br> End If<br> OldTimer = Timer<br> Loop Until (DelayYear * 365 + DelayDay) * 86400 + Timer - StartTimer > s<br>End Sub<br></P> [此贴子已经被作者于2005-7-22 20:37:08编辑过]
|
|
|
|
54楼#
发布于：2005-06-18 21:25
明白了！谢谢版主，谢谢！！
|
|
|
55楼#
发布于：2005-06-24 10:54
好东西呀,谢谢拉
|
|
|
56楼#
发布于：2005-06-25 20:10
good
|
|
|
57楼#
发布于：2005-07-04 09:47
ok
o<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /> |
|
|
58楼#
发布于：2005-07-15 12:37
<img src="images/post/smile/dvbbs/em04.gif" />
|
|
|
59楼#
发布于：2005-07-22 11:49
<img src="images/post/smile/dvbbs/em07.gif" />
|
|
