您所在位置：主题：*在QBasic中使用声卡*
我白芦花
[专家分：190] 发布于 2006-12-14 13:44:00
'在QBasic中使用声卡 文中的中文字需换成英文字
初次化声音 '打开声卡
播放wav 你的WAV音乐文件
SUB 初次化声音()
InitMixer8bit
InitConvert2FAST
baseport% = &H220: irq% = 5: dma% = 1: 'default
GetBLASTER ' Parses BLASTER environment
SpeakerState 1
MasterVolume 12, 12, 0
VocVolume 12, 12, 0
END SUB
SUB 播放wav (音乐文件 AS STRING)
DMAPlay 音乐文件
END SUB
'我的QQ 38336779
'hrcgw@hotmail.com
'或到http://www.hrcgw.com/bbs留言
初次化声音 '打开声卡
播放wav 你的WAV音乐文件
SUB 初次化声音()
InitMixer8bit
InitConvert2FAST
baseport% = &H220: irq% = 5: dma% = 1: 'default
GetBLASTER ' Parses BLASTER environment
SpeakerState 1
MasterVolume 12, 12, 0
VocVolume 12, 12, 0
END SUB
SUB 播放wav (音乐文件 AS STRING)
DMAPlay 音乐文件
END SUB
'我的QQ 38336779
'hrcgw@hotmail.com
'或到http://www.hrcgw.com/bbs留言
