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

中国石油大学（北京） 实 验 报 告 实验课程： 　人工智能导论 实验名称： 　小型专家系统的设计与实现　 班级： 自动化09-1 学号： 姓名： 实验台号： 成绩： 实验日期： 2012年 01月 03 日 实验目的 1、掌握专家系统的基本构成 ； 2、掌握用人工智能程序设计语言编制智能程序的方法 。 实验内容 建造一个完整的专家系统。 本次设计需完成的内容： 1、用户界面：可采用菜单方式或问答方式。 2、知识库（规则库）：存放产生式规则，库中的规则可以增删。 3、数据库：用来存放用户回答的问题、已知事实、推理得到的中间事实。 4、推理机：如何运用知识库中的规则进行问题的推理控制，建议用正向推理。 5、知识库中的规则可以随意增减。 三、实验结果 起始运行界面： 查询： 1.知道种类，点选鸟类或哺乳类，再点击查询 鸟类界面： 哺乳类界面： 2.不知道种类：点选“不知道”，进入种类识别界面 点击查询后进入该动物相应的种类的查询界面 3.查询结果： 若没有符合条件的内容，则询问是否添加新信息 添加： 选择种类点击添加进入添加界面 鸟类添加界面： 哺乳类添加界面： 添加的动物可以查询 删除： 单击删除按钮，进入删除界面，输入需要删除的动物名称，点击确定，右侧的表中显示出需要删除的动物，选中它，再点击删除则删除完成，已经删除的内容不可再查询到。 退出：点击主界面的退出按钮即可 四、程序 主界面： Private Sub Command1_Click() If Option1.Value = True Then ’选择鸟类，出现鸟类查询界面 Form1.Show 动物库.Hide End If If Option2.Value = True Then ’选择哺乳类，出现哺乳类查询界面 Form2.Show 动物库.Hide End If If Option3.Value = True Then ’选择不知道，出现种类识别界面 Form3.Show 动物库.Hide End If If Option1.Value = Option2.Value = Option3.Value = False Then ’若没有选择，出现提示框 intmsgin = MsgBox(请至少选择一项！, vbOKOnly, 提示) End If End Sub Private Sub Command2_Click() ’退出程序 End End Sub Private Sub Command3_Click() If Option1.Value = True Then ’选择添加鸟类，进入鸟类添加界面 Form5.Show 动物库.Hide End If If Option2.Value = True Then ’选择添加哺乳类，进入哺乳类添加界面 Form6.Show 动物库.Hide End If If Option3.Value = True Then ’选择不知道，出现提示框 intmsgin = MsgBox(请选择确切种类！, vbOKOnly, 提示) End If If Option1.Value = Option2.Value = Option3.Value = False Then ’没有选择，出现提示框 intmsgin = MsgBox(请至少选择一项！, vbOKOnly, 提示) End If End Sub Private Sub Command4_Click() ’选择删除，进入删除界面 动物库.Hide Form7.Show End Sub 鸟类识别界面：（哺乳类识别的程序与此相似） Private Sub Command1_Click() Dim str As String Adodc1.RecordSource = select 动物名称 from 动物种类库 where 颜色 like Combo1.Text and 飞行能力 like Combo2.Text and 其他特征 like Text1.Text ’查询符合输入内容的项 Adodc1.CommandType = adCmdText Adodc1.Refresh DataGrid1.Refresh If Adodc1.Recordset.EOF Then ’若没有符合条件的，显示