用VB做一个AI智能对话002

已于 2023-05-02 22:34:29 修改
阅读量253 收藏 1
点赞数 1
分类专栏： AI对话 文章标签： 机器人 编辑器
于 2023-05-02 21:54:56 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/2201_75936381/article/details/130467474
版权
该代码示例展示了如何使用VBScript实现简单的文本输入响应，如回答时间、回应问候和表达感谢。此外，通过创建SAPI对象实现了语音合成，使得程序能读出输入的文字，向着人工智能对话系统迈进一步。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Private Sub Command1_Click()
If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"

If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"

If InStr(LCase(Text1.Text), "谢谢") > 0 Then Text2.Text = "不用谢"
End Sub

这是我们上一次的代码，这次我们可以对其进行再一次的优化

Private Sub Command1_Click()

If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time

If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"

If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"

If InStr(LCase(Text1.Text), "谢谢") > 0 Then Text2.Text = "不用谢"
End Sub

现在就能知道时间了，但想要做出AI倒还不够。

CreateObject("SAPI.SpVoice").Speak Text1.Text

这段代码可以读出声音，于是：

Private Sub Command1_Click()

If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time

If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"

If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"

If InStr(LCase(Text1.Text), "谢谢") > 0 Then Text2.Text = "不用谢"

CreateObject("SAPI.SpVoice").Speak Text1.Text
End Sub

下一章继续谈论AI

用VB做一个AI智能对话003
2201_75936381的博客
05-02 278
Private Sub Command1_Click()If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & timeIf InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"If InStr(LCase(Text1.Text), "谢谢")
用VB做一个AI智能对话008
2201_75936381的博客
05-27 549
answer(2) = "我无法生成复杂的作文，但我可以写一篇简短的作文：站在户外，轻轻的嘘一口气，一团白雾裹着一份温暖袅袅升空，在半空中伸展，氤氲，半晌又汇入了干冷的空气。answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。草是嫩绿色的，树是新绿色的。
AI人工智能 Python实现人机对话
09-21
主要为大家详细介绍了AI人工智能应用，本文拟使用Python开发语言实现类似于WIndows平台的“小娜”，，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
你可以帮我做一个AI对话程序吗 1用python 2能深度学习 可以给一个示例代码吗？...
weixin_35756130的博客
12-23 512
是的，我可以帮助您做一个 AI 对话程序。我们可以使用 Python 来实现这个程序，也可以使用深度学习技术来提高它的性能。 下面是一个简单的 AI 对话程序的示例代码： def chatbot(): print("你好，我是一个 AI 聊天机器人。请问你有什么问题吗？") while True: user_input = input("你：") if user_inp...
聊天 AI 软件的简单实现
Z_Flank的博客
05-28 1363
联调AI团建的简单实现
用VB做一个人工智能补丁代码2.0
2201_75936381的博客
05-06 139
IF Instr(lcase(Text1.Text),"版本")>0 then Text2.Text = "AI补丁版本2.0"If InStr(1, Text1, "食物") 0 Then。If InStr(1, Text1, "嘿") 0 Then。answer(5) = "有事吗"answer(4) = "怎么了"answer(1) = "挺好的"answer(1) = "干嘛"answer(3) = "额"answer(3) = "额"answer(4) = "嗯"
简单的人工智能对话
weixin_30416497的博客
03-26 812
下面是一个简单的人工智能对话的程序,做起来很简单基于俩个工具就可以完成了. 百度AI开放平台: ai.baidu.com 里面有很多实现人工智能的模型可以免费使用 图灵机器人:www.turingapi.com 定制一个属于自己的专属智能机器人 在进行语音识别的时候,要求传入音频的格式是pcm,我们电脑的录音机的格式不是人家要求的需要对格式进行转码,在这之前需要下载安装插件...
用VB做了一个AI对话控件
05-13
标题中的“用VB做了一个AI对话控件”指的是使用Visual Basic（VB）编程语言开发的一个人工智能交互组件。VB是微软公司推出的一种面向对象的可视化编程工具，它以其易学易用的特点深受程序员喜爱。在这个项目中，...
用VB做一个AI智能对话006
2201_75936381的博客
05-07 240
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"岁")>0 then Text2.Text =Text1.Text & "我有零岁。IF Instr(lcase(Text1.Text),"软件")>0 then Text2.Text =Text1.Text & "你也是。小树长成大树，到了冬天便成了。
用VB做一个AI智能对话005
2201_75936381的博客
05-02 213
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"你好")>0 then Text2.Text =Text1.Text & "你好！IF Instr(lcase(Text1.Text),"你")>0 then Text2.Text =Text1.Text & "是的。
用VB制作一个AI聊天机器人（001）
2201_75936381的博客
05-02 570
从现在开始，我们要用VB做一款聊天机器人材料：VB6.0准备：拉出2个text控件，一个command控件代码可以这样写：（仅供参考）Private Sub Command1_Click() If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好" End Sub毕竟还是太枯燥了，我们可以增加一些内容，那么这串代码就变成了这样：Private Sub Command1_Click() If InStr(LCase(Text1.Text), "
动手做个 AI 机器人，帮我回消息
努力做最接地气的编程干货分享，感谢关注
12-20 3万+
大家好，我是鱼皮，自从做了知识分享，我的微信就没消停过，平均每天会收到几百个消息，大部分都是学编程的朋友向我咨询编程问题。 但毕竟我只有一个人，没法所有消息都一个个回复，所以也是很愧疚和无力吧；另外我发现，大家的很多问题是重复的，而且大多数我都专门写文章来回答过。 所以，我决定自制一个 AI 问答机器人，帮我自动回复大家的常见问题，减少重复工作。 结果没想到，制作过程中被 Bug 坑惨了，闹了不少笑话，感兴趣的朋友可以看看视频哈哈： 地址：https://www.bilibili.com/video/BV
简易AI聊天机器人
小哥的博客
05-21 8913
最近我自己搞了个简单的聊天机器人（类似淘宝机器客服一般的），他可以帮你查询疫情的最新消息、汇报天气情况、给你讲笑话、陪你聊天等一些基本的功能。下面就来介绍一下它。
AI人工智能-Python实现人机对话
weixin_30699463的博客
07-27 3846
【前言】 　　AI 　　在人工智能进展的如火如荼的今天，我们如果不尝试去接触新鲜事物，马上就要被世界淘汰啦~ 　　本文拟使用Python开发语言实现类似于WIndows平台的“小娜”，或者是IOS下的“Siri”。最终达到人机对话的效果。 【实现功能】 　　这篇文章将要介绍的主要内容如下： 　　1、搭建人工智能--人机对话服务端平台 　　2、实现调用服务端平台进行人机对话交...
最适合人工智能开发的5种编程语言
热门推荐
Elvis技术小屋
08-26 9万+
自从去年，AlphaGo打遍天下棋手无对手，人工智能的风头就一直无人能及。在刚刚过去的IT领袖峰会上，BAT三位大佬都看好人工智能的未来发展。今年年初，百度就做了一个大动作，在医疗方面押宝人工智能，所以在这次峰会上李彦宏也发声称互联网是道开胃菜，人工智能才是主菜。 人工智能是一个很广阔的领域，很多编程语言都可以用于人工智能开发，所以很难说人工智能必须用哪一种语言来开发。选择多也意味着会有优劣
智能清洁机器人中的实时操作系统应用研究
望获实时Linux系统
04-24 999
综上所述，实时操作系统在智能清洁机器人中发挥着至关重要的作用，通过高效的传感器融合和路径规划算法，提升了机器人的导航和工作效率。例如，通过将激光雷达的测距数据与3D视觉传感器的图像数据相结合，机器人可以更准确地识别障碍物的位置和形状，从而提高导航的精度。石头扫地机器人G30 Space探索版搭载先进的实时操作系统，其RRMind GPT作为智慧大脑，除了具备深度思考、即问即答、产品保障等功能，还能与用户随意互动，让用户与机器人的交互更加自然。未来，智能清洁机器人将更加注重环保和节能。
关于调度策略的系统性解析与物流机器人应用实践
最新发布
m0_60674045的博客
04-26 570
调度策略是用于在复杂环境中协调资源分配、任务排序及路径规划的决策框架，旨在通过优化资源利用率和任务执行效率，实现系统整体性能的最优解。动态适应性：应对实时变化（如订单插入、设备故障、交通拥堵）。多目标优化：平衡时间、成本、能耗等多维度指标。冲突消解：避免资源竞争（如机器人路径冲突、设备占用冲突）。可扩展性：支持大规模集群调度与异构设备协同。调度策略是物流机器人系统的“神经中枢”，其演进从静态规则向动态智能决策发展，未来将更注重多技术融合（5G+边缘计算+AI）与生态协同（跨区域、多业态）。
技术视界 | 从自然中获取智慧： 仿生机器人如何学会“像动物一样思考和行动”
OpenLoong_的博客
04-25 686
在过去，我们提到机器人，脑海里常常浮现的是冰冷、机械的手臂，或者在工厂里重复作业的设备。而现在，机器人正变得越来越像“活物”——它们能跳跃、奔跑、甚至自己学习、适应环境。 特别是足式机器人（比如“机器狗”、“仿生猎豹”）的兴起，不仅让我们重新审视了“机器人”这个词的定义，也引发了一个重要问题： 机器人如何像动物一样，灵活、聪明地应对复杂世界？ 答案藏在两个关键词里：仿生启发 和 强化学习。
机器人新革命：Pi 0.5如何让智能走进千家万户
wuhanwhite的博客
04-24 1056
在科技飞速发展的今天，机器人技术正在以一种令人惊喜的方式贴近我们的生活。最近，Physical Intelligence 公司推出了 Pi 0.5 版本，这一创新设计不仅颠覆了传统机器人的运作模式，更让我们看到了未来智能设备融入日常生活的无限可能。Pi 0.5 的核心理念很简单却极具革命性：将机器人的“大脑”分散到身体的每一个角落，而不是集中在一个中央处理器上。想象一下，每个手指、每个关节、甚至一块柔软的硅胶皮肤都拥有自己的微型神经网络，能够即时感知、决策和调整。
帮我用VB6.0做一个AI智能对话，包含人们50条可能说的话代码，要必须可以运行，用VB6.0正确的语法
05-28
好的，下面是一个简单的VB6.0代码示例，实现了一个AI智能对话，包含了50条可能说的话： ``` Private Sub Form_Load() Text1.Text = "你好！" End Sub Private Sub Command1_Click() Dim questions(49) As String questions(0) = "最近怎么样？" questions(1) = "你在干什么？" questions(2) = "你的工作是什么？" questions(3) = "你喜欢什么样的音乐？" questions(4) = "你喜欢看什么类型的电影？" questions(5) = "你的爱好是什么？" questions(6) = "你觉得人生的意义是什么？" questions(7) = "你最喜欢的食物是什么？" questions(8) = "你最喜欢的运动是什么？" questions(9) = "你喜欢旅行吗？" questions(10) = "你去过哪些地方？" questions(11) = "你喜欢哪个城市？" questions(12) = "你的生日是什么时候？" questions(13) = "你正在做什么？" questions(14) = "你有什么计划？" questions(15) = "你想学习什么技能？" questions(16) = "你喜欢阅读什么类型的书籍？" questions(17) = "你有兴趣参加哪些活动？" questions(18) = "你喜欢什么样的朋友？" questions(19) = "你认为什么是真正的幸福？" questions(20) = "你最近看过什么好书吗？" questions(21) = "你觉得自己有什么优点？" questions(22) = "你觉得自己有什么缺点？" questions(23) = "你喜欢和朋友一起做什么？" questions(24) = "你的家庭怎么样？" questions(25) = "你最喜欢的季节是什么？" questions(26) = "你喜欢什么样的天气？" questions(27) = "你喜欢喝什么饮料？" questions(28) = "你喜欢和别人分享吗？" questions(29) = "你最喜欢的颜色是什么？" questions(30) = "你觉得自己是一个幸运的人吗？" questions(31) = "你喜欢什么样的动物？" questions(32) = "你喜欢什么样的花？" questions(33) = "你喜欢什么样的节日？" questions(34) = "你最喜欢的电视节目是什么？" questions(35) = "你觉得什么样的音乐最能打动人心？" questions(36) = "你曾经做过哪些有趣的事情？" questions(37) = "你最喜欢的运动员是谁？" questions(38) = "你最喜欢的歌手是谁？" questions(39) = "你最喜欢的演员是谁？" questions(40) = "你最喜欢的电影是什么？" questions(41) = "你最喜欢的电视剧是什么？" questions(42) = "你最喜欢的书籍是什么？" questions(43) = "你喜欢什么样的游戏？" questions(44) = "你觉得什么样的人最有魅力？" questions(45) = "你喜欢哪个国家的文化？" questions(46) = "你喜欢哪个城市的文化？" questions(47) = "你觉得自己是一个乐观的人吗？" questions(48) = "你喜欢什么样的服装？" questions(49) = "你认为什么是成功的关键？" Dim index As Integer index = Int(Rnd() * 50) Text1.Text = questions(index) End Sub Private Sub Command2_Click() Dim answer As String answer = Text2.Text If answer = "你好！" Then Text1.Text = "你好！" ElseIf answer = "最近怎么样？" Then Text1.Text = "还不错，谢谢关心！" ElseIf answer = "你在干什么？" Then Text1.Text = "我在和你聊天呀！" ElseIf answer = "你的工作是什么？" Then Text1.Text = "我是一名AI智能对话程序！" ElseIf answer = "你喜欢什么样的音乐？" Then Text1.Text = "我喜欢听古典音乐。" ElseIf answer = "你喜欢看什么类型的电影？" Then Text1.Text = "我喜欢看科幻电影。" ElseIf answer = "你的爱好是什么？" Then Text1.Text = "我喜欢学习新知识。" ElseIf answer = "你觉得人生的意义是什么？" Then Text1.Text = "人生的意义在于追求自己的梦想。" ElseIf answer = "你最喜欢的食物是什么？" Then Text1.Text = "我最喜欢吃巧克力。" ElseIf answer = "你最喜欢的运动是什么？" Then Text1.Text = "我最喜欢打乒乓球。" ElseIf answer = "你喜欢旅行吗？" Then Text1.Text = "我很喜欢旅行。" ElseIf answer = "你去过哪些地方？" Then Text1.Text = "我去过巴黎、伦敦和纽约等地。" ElseIf answer = "你喜欢哪个城市？" Then Text1.Text = "我最喜欢的城市是巴黎。" ElseIf answer = "你的生日是什么时候？" Then Text1.Text = "我的生日是1月1日。" ElseIf answer = "你正在做什么？" Then Text1.Text = "我正在和你聊天。" ElseIf answer = "你有什么计划？" Then Text1.Text = "我打算去旅行。" ElseIf answer = "你想学习什么技能？" Then Text1.Text = "我想学习编程技能。" ElseIf answer = "你喜欢阅读什么类型的书籍？" Then Text1.Text = "我喜欢读科幻小说。" ElseIf answer = "你有兴趣参加哪些活动？" Then Text1.Text = "我喜欢参加户外运动。" ElseIf answer = "你喜欢什么样的朋友？" Then Text1.Text = "我喜欢有趣、聪明的朋友。" Else Text1.Text = "我不明白你在说什么。" End If End Sub ``` 这个程序有一个文本框、两个按钮和一个文本框控件，一个按钮用于随机选择一个问题，另一个按钮用于回答当前问题。程序会根据用户输入的问题，查找对应的回答并显示在文本框中。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值