module.bas

来自「这是一个语音播放程序,对于编程人员很有帮助,使用vb开发的」· BAS 代码 · 共 21 行

Attribute VB_Name = "Module1"
Public current_Dsb As Byte

 Public Const Buf_Size = 15000
Public ds As DirectSound
 Public dsb As DirectSoundBuffer
 Public dsd As DSBUFFERDESC
 Public dsc As DirectSoundCapture
 Public dscb As DirectSoundCaptureBuffer

 Public dscd As DSCBUFFERDESC
 Public CaptureWave As WAVEFORMATEX
 Public capCURS As DSCURSORS
 Public ByteBuffer() As Byte

 Public buffer1(Buf_Size) As Byte
 
 Public cCaps As DSCCAPS
 Public gfPlay As Boolean
Public dsb_Ready As Boolean