C++ Builder XE 用sndPlaySound写的简单的语音播报算法
admin
2024-02-03 19:13:25

void __fastcall TForm2::N6Click(TObject *Sender)
{
//语音报时
// char   *wav_handle   ;
//HRSRC  h =FindResource(HInstance, "Resource_1", "RCData");
//HGLOBAL  h1=LoadResource(HInstance,h);
//wav_handle = (char   *)LockResource(h1);
//sndPlaySound(wav_handle,   SND_MEMORY   |   SND_SYNC);
AnsiString SoftStr= ExtractFilePath(Application->ExeName);
AnsiString Wstr=SoftStr +"res\\VoiceTime\\TIMENOW.wav";
//sndPlaySound(wav_handle,   SND_MEMORY   |   SND_SYNC);
sndPlaySound(Wstr.c_str() ,SND_ASYNC);
Sleep(2000);   //延时1秒
//
TDateTime dt = Now();
unsigned short hour,min, sec, msec;
//dt.DecodeTime(

dt.DecodeTime(&hour, &min,&sec,&msec);
if(hour>=0 && hour <=5)
{ //凌晨
 Wstr= SoftStr +"res\\VoiceTime\\AM0.wav";
 sndPlaySound(Wstr.c_str() ,SND_ASYNC);
 Sleep(800);   //延时1秒
 //点
 Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",hour) +".wav";
 sndPlaySound(Wstr.c_str() ,SND_ASYNC);
 Sleep(800);   //延时1秒
}
else if(hour >5 && hour<=12)
{ //上午
 Wstr= SoftStr +"res\\VoiceTime\\AM1.wav";
 sndPlaySound(Wstr.c_str() ,SND_ASYNC);
 Sleep(800);   //延时1秒
 //点
 Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",hour) +".wav";
 sndPlaySound(Wstr.c_str() ,SND_ASYNC);
 Sleep(800);   //延时1秒
}
else if(hour>12)
{   //下午
    Wstr= SoftStr +"res\\VoiceTime\\PM.wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
    //点
    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",hour-12) +".wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
}
else
{ //晚上
    Wstr= SoftStr +"res\\VoiceTime\\EM.wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
   //点
    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",hour-12) +".wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
}
//点
    Wstr= SoftStr +"res\\VoiceTime\\POINT.wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
   //分
   if(min/10>0)
   {
    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",min/10*10) +".wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",min%10) +".wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
   }
   else
   {
    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",min) +".wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
   }
    Wstr= SoftStr +"res\\VoiceTime\\Min.wav";
    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
    Sleep(800);   //延时1秒
   //秒
//    Wstr= SoftStr +"res\\VoiceTime\\T"+AnsiString().sprintf("%02d",sec) +".wav";
//    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
//    Sleep(1000);   //延时1秒
//    Wstr= SoftStr +"res\\VoiceTime\\Min.wav";
//    sndPlaySound(Wstr.c_str() ,SND_ASYNC);
//    Sleep(1000);   //延时1秒
}

相关内容

热门资讯

山水皆有情!丽江两山一江的千年... 去过丽江、走过虎跳峡的人,大概率都听过哈巴雪山和金沙江的传说。很多人站在峡谷之下,望着奔腾不息的金沙...
活力中国调研行丨“殷”你而来 ... 9月12日,游客在殷墟博物馆“甲骨文展厅”内参观。位于河南省安阳市的殷墟博物馆新馆是首个全景式展现商...
浦江之夜赴美好相逢,第37届上... 9月12日晚,黄浦江畔灯火璀璨,第37届上海旅游节大巡游在外滩中山东一路上演。不少观众早早便来到外滩...
美丽中国丨秋韵紫鹊界 梯田入画... 这是9月11日拍摄的紫鹊界梯田(无人机照片)。 金秋九月,湖南省娄底市新化县紫鹊界梯田稻谷渐次成熟。...
中国之巅奏响《共同的节日》,千... 千吨阻尼器,“迎世赛、游上海旅游节”。9月13日,由上海市文化和旅游局指导推出上海旅游·会客│巅峰之...