【语音播报】基于matlab语音播报【含Matlab源码 507期】

原创

佛怒火莲 2022-04-08 11:17:15 博主文章分类：matlab完整代码 ©著作权

文章标签 matlab 语音识别 microsoft 字符串参考文献 文章分类 代码人生

©著作权归作者所有：来自51CTO博客作者佛怒火莲的原创作品，请联系作者获取转载授权，否则将追究法律责任

一、获取代码方式

二、部分源代码

function  txt2speech(txt,voice,pace,fs)
if ~ispc, error('要求使用Microsoft Win32 SAPI .');
end
if ~ischar(txt), error('第一个参数是字符串.');
end
SV = actxserver('SAPI.SpVoice');
TK = invoke(SV,'GetVoices');
if nargin > 1
    for k = 0:TK.Count-1
        if strcmpi(voice,TK.Item(k).GetDescription)
            SV.Voice = TK.Item(k);
            break;
        elseif strcmpi(voice,'list')
            disp(TK.Item(k).GetDescription);
        end
    end
end
if nargin > 2
    if isempty(pace), pace = 0;
    end
    if abs(pace) > 10, pace = sign(pace)*10;
    end
    SV.Rate = pace;
end
if nargin < 4 || ~ismember(fs,[8000,11025,12000,...
        16000,22050,24000,32000,44100,48000]), fs = 16000;
end
function  txt2speech(txt,voice,pace,fs)
if ~ispc, error('要求使用Microsoft Win32 SAPI .');
end
if ~ischar(txt), error('第一个参数是字符串.');
end
SV = actxserver('SAPI.SpVoice');
TK = invoke(SV,'GetVoices');
if nargin > 1
    for k = 0:TK.Count-1
        if strcmpi(voice,TK.Item(k).GetDescription)
            SV.Voice = TK.Item(k);
            break;
        elseif strcmpi(voice,'list')
            disp(TK.Item(k).GetDescription);
        end
    end
end
if nargin > 2
    if isempty(pace), pace = 0;
    end
    if abs(pace) > 10, pace = sign(pace)*10;
    end
    SV.Rate = pace;
end
if nargin < 4 || ~ismember(fs,[8000,11025,12000,...
        16000,22050,24000,32000,44100,48000]), fs = 16000;
end
function  txt2speech(txt,voice,pace,fs)
if ~ispc, error('要求使用Microsoft Win32 SAPI .');
end
if ~ischar(txt), error('第一个参数是字符串.');
end
SV = actxserver('SAPI.SpVoice');
TK = invoke(SV,'GetVoices');
if nargin > 1
    for k = 0:TK.Count-1
        if strcmpi(voice,TK.Item(k).GetDescription)
            SV.Voice = TK.Item(k);
            break;
        elseif strcmpi(voice,'list')
            disp(TK.Item(k).GetDescription);
        end
    end
end
if nargin > 2
    if isempty(pace), pace = 0;
    end
    if abs(pace) > 10, pace = sign(pace)*10;
    end
    SV.Rate = pace;
end
if nargin < 4 || ~ismember(fs,[8000,11025,12000,...
        16000,22050,24000,32000,44100,48000]), fs = 16000;
end