用VB实现的小型动物识别专家系统

《用VB实现的小型动物识别专家系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、tOUR,CHINAUNIVERSITYPETROLEUM,BEIJING屮国石油丈曇(ilt)卖掖告实验课程：人工智能导论实验名称：小型专家系统的设计与实现班级：自动化09-1学号:姓名：实验台号：成绩：实验日期：2012年01月03日、实验目的1、掌握专家系统的基本构成；2、掌握用人工智能程序设计语言编制智能程序的方法。二、实验内容建造一个完整的专家系统。本次设计需完成的内容：1、用户界面：可釆用菜单方式或问答方式。2、知识库（规则库）：存放产生式规则，库中的规则可以增删。3、数据库：用来存放用户回

2、答的问题、己知事实、推理得到的中间事实。4、推理机：如何运用知识库中的规则进行问题的推理控制，建议用正向推理。5、知识库中的规则可以随意增减。三、实验结果起始运行界面:诸选1欢迎使用鸟类动物哺乳类识别退出・动物库r不知道查询查询:1.知道种类,鸟类界面：点选鸟类或哺乳类，再点击查询気鸟类识别该动物是鸟类谙选择飞行能力只他特征（若没有谙埴写无查询返回Jnl哺乳类界面:2•不知道种类：点选“不知道S进入种类识别界面点击查询后进入该动物相应的种类的查询界面3.查询结果：若没有符合条件的内容，则询问是否添加新信

3、息氧未找到-Jnlxi没有找到相关信息，添加新信息?添加:选择种类点击添加进入添加界血鸟类添加界面：哺乳类添加界血:添加的动物可以查询删除:单击删除按钮，进入删除界面，输入需要删除的动物名称，点击确定，右侧的表中显示出需要删除的动物，选中它，再点击删除则删除完成，己经删除的内容不可再查询到。谙输入需要删除的动物名称-Inix

4、选定表中需要删除的一行确认删除返回退岀：点击主界而的退出按钮即可四、程序主界面:PrivateSubCommand1_Click()IfOptionl.Value=TrueThen

5、Form1.Show动物库.HideEndIfIfOption2.Value=TrueThenForm2.Show动物库.HideEndIfIfOption3.Value=TrueThenForm3.Show动物库.Hide选择鸟类，出现鸟类查询界血选择哺乳类，出现哺乳类查询界面选择不知道，出现种类识别界面EndIfIfOptionl.Value=Option2.Value=Option3.Value=FalseThen'若没有选择，出现提示框intmsgin=MsgBox("请至少选择一项!",vbO

6、KOnly,”提示“)EndIfEndSubPrivateSubCommand2_Click()'退出程序EndEndSubPrivateSubCommand3_Click()IfOptionl.Value=TrueThenForm5.Show动物库.HideEndIfIfOption2.Value=TrueThenForm6.Show动物库.HideEndIfIfOption3.Value=TrueThenintmsgin=EndIf选择添加鸟类，进入鸟类添加界面选择添加哺乳类，进入哺乳类添加界面选择

7、不知道，出现提示框MsgBox(”请选择确切种类!-vbOKOnly,”提示JIfOptionl.Value=Option?.Value=Option3.Value=FalseThen'没有选择，出现提示框intmsgin=MsgBox("请至少选择一项!",vbOKOnly,"提示”)EndIfEndSubPrivateSubCommand4_Click()'选择删除，进入删除界面动物库.HideForm7.ShowEndSub鸟类识别界面：(哺乳类识别的程序与此相似)PrivateSubComma

8、ndl_Click()DimstrAsStringAdodc1.RecordSource="select动物名称from动物种类库where颜色like"'&Combo1.Text&”'andE行能力like,u&Combo2.Text&and其他特征like,H&Text1.Text&'查询符合输入内容的项Adodc1.CommandType=adCmdTextAdodc1.RefreshDataGridl.RefreshIfAdodc1.Recordset.EOFThen'若没有符合条件的，显示添加

9、信息询问框Form4.ShowUnloadMeElsestr=Adodc1.Recordset.Fields(M动物名称")'显示符合条件的结果intmsgin=MsgBox(str,vbOKOnly,”查询结果“)EndIfEndSubPrivateSubCommand2_Click()'返冋主界面动物库.ShowUnloadMeEndSub种类识别：PrivateSubCommandl_Click()IfOption1.Value=Tr