用VB做一个AI智能对话004

已于 2023-05-02 22:33:51 修改
阅读量127 收藏
点赞数 1
分类专栏： AI对话 文章标签： 机器人 编辑器
于 2023-05-02 22:29:38 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/2201_75936381/article/details/130467693
版权
代码示例展示了如何使用VBScript进行文本处理，通过条件判断对用户输入的“你好”、“再见”等词进行不同回答，并利用SAPI.SpVoice对象进行语音反馈。此外，还包含了对时间查询和赞扬的回答处理。
摘要由CSDN通过智能技术生成

Dim answer(5) As String'这段代码属于通用区域
Private Sub Command1_Click()
answer(5) = "有事吗"
answer(1) = "你好"
answer(2) = "谢谢"
answer(3) = "怎么了"
answer(4) = "你也好啊"
If InStr(1, Text1, "你好") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If

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 = "不用谢"

CreateObject("SAPI.SpVoice").Speak Text2.Text
End Sub
上一次的代码出了些小问题，上面代码已更改

这一次我们继续优化

Dim answer(5) As String'这段代码属于通用区域
Private Sub Command1_Click()
answer(5) = "有事吗"
answer(1) = "你好"
answer(2) = "谢谢"
answer(3) = "怎么了"
answer(4) = "你也好啊"
If InStr(1, Text1, "你好") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If

answer(5) = "哭哭"
answer(1) = "为什么啊"
answer(2) = "好吧"
answer(3) = "怎么了"
answer(4) = "你也再见"
If InStr(1, Text1, "再见") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If

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 = "不用谢"

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

喜欢用VB而已
关注
专栏目录
LabVIEW视觉开发必备软件VAS、VDM、VBAI以及基于VDM的圆形
li_little7的博客
11-19 2万+
1.关于labview视觉开发必备软件 VAS——vision acquisition software（视觉获取软件）用于捕获图像的一系列驱动程序。如果你使用的是大恒的工业相机，调用的是DLL，不需要使用IMAQdx、IMAQ等驱动，这个不安装也可以。如果使用如AVT等工业相机，则这个需要安装。安装后，在VBAI、VDM中的视觉助手（Vision Assistant)、MAX中都是可以直接从相机...
用VB做一个AI智能对话003
2201_75936381的博客
05-02 228
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), "谢谢")
NI机器视觉VBAI教程
06-17
NI Vision Builder for Automated Inspection (NI Vision Builder for AI)2011年8月最新释放的软件系统。National Instruments视觉软件产品具有机器视觉应用的众多优势。若您的机器视觉应用需要强大的程序库，视觉开发模块可为您缩短的开发周期，节省您的时间和金钱。 IEEE 1394接口的NI-IMAQ是一个驱动软件，可用于从火线(Firewire)接口相机采集图像并将其应用到LabVIEW、LabWindows/CVI或Measurement Studio程序中。 现在，有了National Instruments (简称NI) 公司的Vision Builder for Automated Inspection软件，生产测试工程师们只需一个独立的软件方案就能够建立完整的机器视觉应用系统，并拥有一个能将图像采集、机器视觉检测、决策判断及I/O控制同时集成到生产测试应用系统中的开发环境。 　　"NI Vision Builder for Automated Inspection软件使机器视觉系统的开发变得前所未有的简单，"National Instruments 的视觉与测量平台部门经理John Hanks说，"现在，工程们可以互动地创建机器视觉系统，并且轻松地用内置数字I/O和串口功能控制各种不同的自动化设备。" 　　有了这个简单易用的软件，从未有过编程经验的工程师们也可以使用直观的检测工具创建机器视觉应用程序，与图像进行直接的交流。现在，工程师们能够轻松、快捷地建立生产线上的应用方案了，例如生产线上的部品检测和质量监控等。NI Vision Builder for Automated Inspection还是一个交互式的图像处理和分析环境，带有高级决策判断功能、支持输入/输出。内置的I/O功能让用户能够轻易地控制串口线和静态数字I/O模块，或与诸如阀门、摄像头与PLC等一系列外部设备连接。这一新软件还具有高级的决策判断和数据记录功能，使得工程师们可以指定存储符合预置条件的图像和检测数据。 　　此外，LabVIEW代码生成功能给工程师们提供了编程的灵活性与自主性。尽管NI Vision Builder For Automated Inspection运行不需要额外的软件，但是如果将其代码生成功能与LabVIEW结合使用，工程师们将越加能够充分利用虚拟仪器平台的强大功能。当开发视觉应用系统时，工程师们可以用LabVIEW设计用户界面，并将机器视觉系统与运动控制和数据采集（DAQ）集成使用。为了满足那些需要使用光学字符识别（OCR）功能的工程师的要求，NI Vision Builder for Automated Inspection提供一个有学习能力的高速OCR引擎，藉此用户可以"教会"他们的程序读取标在胶片、玻璃和电子元件或医疗设备上的序列号或识别码。
Vision Builder 说明书.zip_NI视觉_ni vbai说明书_vision builder_vision lab
07-15
本手册包含使用NI Vision Builder进行自动化检查的许多技术。 （VisualBuilder AI）解决视觉检查任务，包括检查，测量，零件存在， 指导和计数。
labview 2015 视觉开发包VDM+VBAI+VAS
05-07
百度云盘下载 labview 2015 视觉开发包VDM+VBAI+VAS
VBAI视觉助手第三章
11-18
很多时候，我们采集到的图像并不理想，含有许多噪声、非目标区域、杂点、未完整等等，面对这种情况，进行图像处理时，如果不对原始图像进行增强处理，那么对测量结果会的精度会产生一些影响，例如寻找边缘，如果需要拟合成线的点很离散，那么，拟合出来的线很可能会“漂”的很厉害。
用VB做一个AI智能对话002
2201_75936381的博客
05-02 216
If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time。If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time。
用VB做一个AI智能对话008
2201_75936381的博客
05-27 485
answer(2) = "我无法生成复杂的作文，但我可以写一篇简短的作文：站在户外，轻轻的嘘一口气，一团白雾裹着一份温暖袅袅升空，在半空中伸展，氤氲，半晌又汇入了干冷的空气。answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。草是嫩绿色的，树是新绿色的。
用VB做一个AI智能对话007
2201_75936381的博客
05-10 158
answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。If InStr(LCase(Text1.Text), "中国的四大名著") > 0 Then Text2.Text = Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"
用VB做一个AI智能对话006
2201_75936381的博客
05-07 202
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 & "你也是。小树长成大树，到了冬天便成了。
VBAI视觉助手
11-18
NI的软件，许多的工具包（如DAQ、运动、视觉等）都有相应的助手，以方便用户使用。因为使用这些软件的人并不一定是这个领域的专业人士，因此NI针对不同的工具包，特意设计了相应的助手，用于快速学习、演示、设计测试测量功能。视觉中也有相应的视觉助手，VDM中有视觉助手，VBAI中亦有视觉助手，二者功能上大体相同，略有差别(VDM中的视觉助手功能要强大一点)。本章将为大家解说VBAI中的视觉助手。
用VB做了一个AI对话控件
05-13
标题中的“用VB做了一个AI对话控件”指的是使用Visual Basic（VB）编程语言开发的一个人工智能交互组件。VB是微软公司推出的一种面向对象的可视化编程工具，它以其易学易用的特点深受程序员喜爱。在这个项目中，...
用VB做一个AI智能对话005
2201_75936381的博客
05-02 155
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智能对话补丁代码
2201_75936381的博客
05-02 155
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 & "是的。添加在command1的代码中。
LabVIEW 2013SP1视觉开发必备软件LV、VDM、VBAI、VAS
Ramble Over The Cloud~
11-20 8624
NI LabVIEW 2013SP1视觉开发必备软件LV、VDM、VBAI、VAS 首先当然是需要开发平台了LabVIEW2013SP1版，下载：3 z: p5 j/ x: k- U1 n# t( U LabVIEW 2013 SP1 (32-bit) Chinese_软件|驱动|下载_机器视觉教程|下载|科技_机器视觉论坛_石鑫华视觉网_商城_方案_系统_光源_控制器_工业相机_镜头
机器人大功率主轴SycoTec 4060 ER-S汽车电机机芯焊缝铣削打磨加工
10-14 300
汽车电机机芯焊缝加工引入德国进口电主轴SycoTec4060ER-S，转速高、功率强、扭矩大、精度高，能在恶劣环境下稳定工作，实现自动化与高精度加工，提升生产效率和质量。
【ShuQiHere】 AI与自我意识：能否创造真正的自觉机器人？
最新发布
ShuQIHere的博客
10-17 726
经过几十年的探索，人工智能已经在机器学习、自然语言处理等领域取得了显著的进展。尽管机器能够模拟许多复杂的认知任务，但它们距离实现真正的自我意识仍有很长的路要走。随着技术的进步，AI可能在未来实现某种形式的自我意识。如果机器具备了自我意识，我们该如何对待它们？它们是否应享有权利？🤔最后的思考：如果我们能够创造出具有自我意识的机器人，那么我们是否也可能是由某种更高智慧所创造的“自觉机器”呢？
帮我用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...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值