musicandtime.bas

VB代码

Attribute VB_Name = "MusicAndTime"
Option Explicit

 Declare Function GetTickCount Lib "kernel32" () As Long
 Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
 Public Declare Function timeGetTime _
    Lib "winmm.dll" () _
    As Long


'功能介绍：延时函数
'入口参数：基本延时单元的倍数
'出口参数：无
'备注:    Win9X以55mS为基数
'         WinNT以10mS为基数
'         WinME实测以1mS为基数

Sub Delay(lDelayCount As Long)
   Dim lTempTickCount As Single
   ' Dim lNewTickCount As Single
    
    lTempTickCount = timeGetTime()
    lTempTickCount = lTempTickCount + lDelayCount
    
    'lNewTickCount = GetTickCount()
    'Do While (lTempTickCount > lNewTickCount)
    '    lNewTickCount = GetTickCount()
    '    DoEvents
    'Loop
    'Do While (GetTickCount() <= lTempTickCount)
     '   DoEvents
    'Loop
    
    Do While (timeGetTime() <= lTempTickCount)
        DoEvents
    Loop
    
End Sub

'Sub Delay(lDelayCount As Long)
 '   Dim lTempTickCount As Long
  '  Dim lNewTickCount As Long
   '
    'lTempTickCount = GetTickCount()
    
    'Do While (lDelayCount > 0)
     '   lNewTickCount = GetTickCount()
      '  If (lTempTickCount <> lNewTickCount) Then
       '     lDelayCount = lDelayCount - 1
        '    lTempTickCount = lNewTickCount
        'End If

        'DoEvents
    'Loop
    
'End Sub

 'Sub Delay(DT As Long)
 '   Dim TT As Long
  '  TT = GetTickCount
  '  Do
   '     DoEvents
   ' Loop Until GetTickCount - TT >= DT
    
'End Sub




Sub BeepShort()
    Dim lReturnValue As Long

    lReturnValue = Beep(1000, 10)
    
End Sub