关于vb延时的问题

reity

谢谢大兵潜?焱Я耍?灰?芙饩鑫侍猓?++代码一样照吃不误。
虽说不用c++做游戏，不过还是需要看得懂c才行的。

reity

自己写了段代码，好像还是不行，大家看看。
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Type TIMECAPS
  min As Long
  max As Long
End Type

Private Declare Function timeGetDevCaps Lib "winmm" (ByRef ptc As TIMECAPS, ByVal cbtc As Long) As Long
Private Declare Function timeBeginPeriod Lib "winmm" (ByVal uPeriod As Long) As Long
Private Declare Function timeEndPeriod Lib "winmm" (ByVal uPeriod As Long) As Long


Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim a As TIMECAPS
Dim c%, d%, e%
c = timeGetDevCaps(a, 8)
d = timeBeginPeriod(1)
e = timeEndPeriod(1)
Me.Cls
i = GetTickCount
j = timeGetTime
Sleep 1
i = GetTickCount - i
j = timeGetTime - j
Print i
Print j
Print a.max
Print a.min
Print c
Print d
Print e
End Sub

结果：
15
15
1000000
1
0
0
0
搞笑的是，一旦浏览网页，结果变为：
0
2
1000000
1
0
0
0
真是奇妙，会不会是优先级的问题？

reity

特别感谢psic，高手就是高手，建议非常好,非常实用！谢谢！

大兵潜?焱

我是这样：
Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Dim a As TIMECAPS
    Dim c%, d%, e%
    c = timeGetDevCaps(a, 8)
    d = timeBeginPeriod(a.min)
    Me.Cls
    i = GetTickCount
    j = timeGetTime
    Sleep 1
    i = GetTickCount - i
    j = timeGetTime - j
    e = timeEndPeriod(a.min)

    Print i
    Print j
End Sub

结果：
15
1
有时会是：
0
2
0应该是因为GetTickCount精度不高，timeBeginPeriod设置精度影响不了它，但能影响Sleep（貌似有还有一点点误差）

陈?

我的游戏不用延时函数

Do
    OldTickCount = GetTickCount
    处理其它事过程
    Do While GetTickCount - OldTickCount < 毫秒数
        DoEvents
    Loop
Loop

reity

[quote]
[b]陈?: Re:关于vb延时的问题[/b]

我的游戏不用延时函数

Do
    OldTickCount = GetTickCount
    处理其它事过程
    Do While GetTic...
[/quote]
玩一会儿，你就会发现风扇转飞了。

reity

大兵潜?焱? Re:关于vb延时的问题

我是这样：
Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Dim a As TIMECAP...

不行啊，直接复制了也没有效果。
你试试把所有网页关了在运行。
我这里开着网页是0,2，关上网页是16，16。

大兵潜?焱

嗯，我倒是还开着wmp，所以关了wmp以后才有了问题……

不过，我试着将
timeBeginPeriod放入Form_Load，timeEndPeriod放入Form_Unload，在仅开VB的情况下正常通过了，不知在你那里运行如何？

Dim a As TIMECAPS

Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Me.Cls

    i = GetTickCount
    j = timeGetTime
    Sleep 1
    i = GetTickCount - i
    j = timeGetTime - j

    Print i
    Print j
End Sub

Private Sub Form_Load()
    timeGetDevCaps a, 8
    timeBeginPeriod a.min
End Sub

Private Sub Form_Unload(Cancel As Integer)
    timeEndPeriod a.min
End Sub

陈?

reity: Re: Re:关于vb延时的问题


玩一会儿，你就会发现风扇转飞了。

为什么

Canbitwell

CPU 占用率100%，电流太大—〉太热，元件易老化，浪费资源，不符合可持续发展，呵呵……
同样会影响到周边 风扇或者其他的
我这个风扇就是一些游戏害的……