当前位置：清风网络学院 → 程序开发 → VB → VB中使用DirectX库的简明教程


	精品推荐


特别推荐

·用diskid.dll和disk32.dll获得硬盘序列号

·VB6中使用Winsock穿越各种代理的实现

·在VFP、VB应用程序中激活鼠标功能


热点TOP10

VB中使用DirectX库的简明教程

日期：2008年3月20日作者：查看:[大字体中字体小字体]

Dim lTempo, GetStartTime, Offset As Long
Dim ElapsedTime2 As Long
Dim ElapsedTime, sAllTime As String
Dim fIsPaused As Boolean
Sub GetTimePassed()
Dim min As Integer
Dim a As Single

'首先确定objDMSegSt以及objDMPerf是否有效
If objDMSegSt Is Nothing Or objDMPerf Is Nothing Then
Exit Sub
End If

'处于播放状态
If objDMPerf.IsPlaying(Nothing, objDMSegSt) = True Then
'获得以秒计算的播放时间
ElapsedTime2 = ((((objDMPerf.GetMusicTime() - (objDMSegSt.GetStartTime() _
- Offset)) / 768) * 60) / lTempo)

'获得分钟
min = 0
a = ElapsedTime2 - 60
Do While a >= 0
min = min + 1
a = a - 60
Loop
ElapsedTime = Format(min, "00") & ":" & Format(Abs((ElapsedTime2 - (min * 60))), "00.0")
Else
If fIsPaused Then
Else
ElapsedTime = "00:00.0"
End If
End If
End Sub
Private Sub Command1_Click()
Set objDMLoader = Nothing
Set objDMLoader = objDX.DirectMusicLoaderCreate

CommonDialog1.Filter = "MIDI Files (*.mid)*.mid" ' Set filters
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen

If Dir$(CommonDialog1.FileName) <> "" Then
Me.Caption = CommonDialog1.FileName
'读入MIDI文件
Set objDMSeg = objDMLoader.LoadSegment(CommonDialog1.FileName)

'获得MIDI文件的播放时间
lMTime = objDMPerf.GetMusicTime()
'播放一定程度的MIDI文件以获取文件信息
Call objDMPerf.PlaySegment(objDMSeg, 0, lMTime + 2000)

'获取MIDI播放速度
lTempo = objDMPerf.GetTempo(lMTime + 2000, 0)
Label2.Caption = "MIDI速度" + Format(lTempo, "00.00")

'获得MIDI节拍信息
Call objDMPerf.GetTimeSig(lMTime + 2000, 0, DTimesig)
Label3.Caption = "MIDI节拍" & DTimesig.beatsPerMeasure & "/" & DTimesig.beat

Dim a, Minutes, mtlength As Long
'获得MIDI播放长度
mtlength = (((objDMSeg.GetLength() / 768) * 60) / lTempo)

Minutes = 0
a = mtlength - 60
Do While a > 0
Minutes = Minutes + 1
a = a - 60
Loop
Label1.Caption = "MIDI播放时间" + Format(Minutes, "00") & ":" & _
Format((mtlength - (Minutes * 60)), "00.0")
sAllTime = Format(Minutes, "00") & ":" & Format((mtlength - (Minutes * 60)), "00.0")
'已经获得足够长度的MIDI文件信息，停止播放
Call objDMPerf.Stop(objDMSeg, Nothing, 0, 0)
objDMSeg.SetStandardMidiFile

Command2.Enabled = True
Else
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True

If objDMSeg Is Nothing Then
MsgBox ("没有可以播放的MIDI文件，请先打开一个MIDI文件")

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页

上一篇:用VB6.0设计一个打字练习软件

下一篇:VB+VC混合编程疑难问题解

·全方位性爱教程大全

·photoshop修改照片成为美女教程

·为什么iexplore.exe在打开网页时CPU使用会100%？

·注册表应用100例—注册表使用全攻略之十一

·Vista系统使用技巧总结

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot