|
|
发表于 2006-5-8 21:12:00
|
显示全部楼层
Re:问个有关句柄的问题
DOS下播放音乐也是要调用BI文件,BI文件是MS发布的标准模块。
' $INCLUDE: 'SBC.BI'
' $INCLUDE: 'SBCSYS.BI'
' $INCLUDE: 'SBCMUSIC.BI'
DECLARE FUNCTION LODCMF% (FILENAME$, SEGMENT%, OFFSET%)
DECLARE SUB PLAYCMF (BUFFER%())
Sub PLAYCMF(BUFFER%())
Dim INSBLK As Integer, MUSICBLK As Integer
Dim TIME0RATE As Integer, FREQ As Long
INSBLK = BUFFER%(4, 1)
MUSICBLK = BUFFER%(5, 1)
Call SMRESET
FREQ = 1193180
FREQ = FREQ / BUFFER%(7, 1)
TIME0RATE = FREQ
Call SMSONSPD(TIME0RATE)
Call SMINST(BUFFER%(Int(INSBLK / 2 + 1), 1), BUFFER%(19, 1))
Call SMPLAY(BUFFER%(Int(MUSICBLK / 2 + 1), 1))
End Sub
仙剑DOS版就是用QB7.1开发的,到了仙剑95换了VB4,只是我那时候工作忙荒废了几年编程。 |
|