VB 语音读文章方法【荐】.docVIP

Attribute VB_Name = DealWav Dim WAVBuffer() As Byte Dim DataLenOut As Long Dim Datapos1 As Long Dim Datapos2 As Long Dim ChunkLen As Long Dim factpos As Long Type PCMWAVEFORMAT 标准 PCM 格式定义 wFormatTag As Integer 格式标志，区分不同的格式，PCM 为 1 nChannels As Integer 音频通道数，单声道为 1 ，立体声为 2 nSamplesPerSec As Long 每秒的采样数，即采样率。 标准的采样率有8.000 kHz 、11.025 kHz 、 22.050 kHz 、44.100 kHz 等。 nAvgBytesPerSec As Long 每秒的字节数，即数据率。 数据率 = 通道数×采样率×采样大小 / 8 nBlockAlign As Integer 块对齐，即波形数据的最小单位。 块对齐 = 通道数×采样大小 / 8 wBitsPerSample As Integer 每个采样所占的位数，即采样大小。 采样大小有 8 位和 16 位两种。 End Type Private Type WaveHead strRiff As String * 4 00H 4 char RIFF标志 lngFileLen As Long 04H 4 long int 文件长度 strWave As String * 4 08H 4 char WAVE标志 strFmt As String * 4 0CH 4 char fmt标志 lngTmp As Long 10H 4 　 过渡字节（不定） intFormat As Integer 14H 2 int 格式类别（10H为PCM形式的声音数据) intChan As Integer 16H 2 int 通道数，单声道为1，双声道为2 intFreq As Long 18H 2 int 采样率（每秒样本数），表示每个通道的播放速度， lngSendSpeed As Long 1CH 4 long