VB中如何实现人机语音聊天
答案:2 悬赏:20 手机版
解决时间 2021-01-29 13:03
- 提问者网友：孤山下
- 2021-01-28 12:41
希望有详细的方法步骤或者实例
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-01-28 14:04
首先你需要写大概1000000000000000000个If语句，只要if语句覆盖了所有人可能说出来的话就可以了，比如:
If text1.text = "现在多少点了" then
label1.caption="现在是北京时间：" & time
else
if text1.text="现在几点了"then
label1.caption="现在是：" & time
else
......
end if
end if
当然，这个方法是不可行的。
想做一和电脑聊天的软件当然可能，但是想让电脑自己组织语言，这100%不可能（至少对编程来说，因为现在还没有研制出人工智能）。所有软件或游戏含有与电脑沟通的语句其实都是最初安排进去的，都是设定好的，不同的只是别人不是像这样打1000000000000个IF语句，而是有点技术含量（一般都是联网查询这句话的意思，至于联网的服务器…完全就是if数据库了，真的全if，就像上面一样），然后在本地批对相应的回答……做与电脑聊天的软件……不大可能。
还有一点，若想让电脑说出来，也就是你说的重点：语音聊天，让电脑说出文本简单很多，只需要下面的代码：
示例代码（窗体中有一个text文本框和一个按钮，单机按钮后说出文本框内容）
Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak Text1.Text
End Sub还有，至于输出语言，XP好像只能输入英文和中文。不能英文和中文同时输入，win7设置一下好像可以。（详见控制面板→语音）
If text1.text = "现在多少点了" then
label1.caption="现在是北京时间：" & time
else
if text1.text="现在几点了"then
label1.caption="现在是：" & time
else
......
end if
end if
当然，这个方法是不可行的。
想做一和电脑聊天的软件当然可能，但是想让电脑自己组织语言，这100%不可能（至少对编程来说，因为现在还没有研制出人工智能）。所有软件或游戏含有与电脑沟通的语句其实都是最初安排进去的，都是设定好的，不同的只是别人不是像这样打1000000000000个IF语句，而是有点技术含量（一般都是联网查询这句话的意思，至于联网的服务器…完全就是if数据库了，真的全if，就像上面一样），然后在本地批对相应的回答……做与电脑聊天的软件……不大可能。
还有一点，若想让电脑说出来，也就是你说的重点：语音聊天，让电脑说出文本简单很多，只需要下面的代码：
示例代码（窗体中有一个text文本框和一个按钮，单机按钮后说出文本框内容）
Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak Text1.Text
End Sub还有，至于输出语言，XP好像只能输入英文和中文。不能英文和中文同时输入，win7设置一下好像可以。（详见控制面板→语音）
全部回答
- 1楼网友：西岸风
- 2021-01-28 15:24
任务占坑
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯