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

中国石油大学（北京）实验报告实验课程： 人工智能导论 实验名称： 小型专家系统的设计与实现 班级： 自动化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动物库.HideEnd IfIf Option2.Value = True Then 选择哺乳类，出现哺乳类查询界面Form2.Show动物库.HideEnd IfIf Option3.Value = True Then 选择不知道，出现种类识别界面Form3.Show动物库.HideEnd IfIf Option1.Value = Option2.Value = Option3.Value = False Then 若没有选择，出现提示框intmsgin = MsgBox(请至少选择一项！, vbOKOnly, 提示)End IfEnd SubPrivate Sub Command2_Click() 退出程序EndEnd SubPrivate Sub Command3_Click()If Option1.Value = True Then 选择添加鸟类，进入鸟类添加界面Form5.Show动物库.HideEnd IfIf Option2.Value = True Then 选择添加哺乳类，进入哺乳类添加界面 Form6.Show 动物库.HideEnd IfIf Option3.Value = True Then 选择不知道，出现提示框intmsgin = MsgBox(请选择确切种类！, vbOKOnly, 提示)End IfIf Option1.Value = Option2.Value = Option3.Value = False Then 没有选择，出现提示框intmsgin = MsgBox(请至少选择一项！, vbOKOnly, 提示)End IfEnd SubPrivate Sub Command4_Click() 选择删除，进入删除界面动物库.HideForm7.ShowEnd Sub鸟类识别界面：（哺乳类识别的程序与此相似）Private Sub Command1_Click()Dim str As StringAdodc1.RecordSource = select 动物名称 from 动物种类库 where 颜色 like & Combo1.Text & and 飞行能力 like & Combo2.Text & and 其他特征 like & Text1.Text & 查询符合输入内容的项Adodc1.CommandType = adCmdTextAdodc1.RefreshDataGrid1.RefreshIf Adodc1.Recordset.EOF Then 若没有符合条件的，显示添加信息询问框 Form4.Show Unload MeElsestr = Adodc1.Recordset.Fields(动物名称) 显示符合条件的结果intmsgin = MsgBox(str, vbOKOnly, 查询结果)End IfEnd SubPrivate Sub Command2_Click() 返回主界面动物库.ShowUnload MeEnd Sub种类识别：Private Sub Command1_Click()If Option1.Value = True ThenForm2.ShowForm3.HideEnd IfIf Option2.Value = True ThenForm2.ShowForm3.HideEnd IfIf Option3.Value = True ThenForm1.ShowForm3.HideEnd IfIf Option4.Value = True ThenForm1.ShowForm3.HideEnd IfEnd Sub鸟类添加：（哺乳类添加程序与此相似）Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(动物名称) = Trim(Text1.Text)Adodc1.Recordset.Fields(动物种类) = 鸟类Adodc1.Recordset.Fields(颜色) = Trim(Text2.Text)Adodc1.Recordset.Fields(飞行能力) = Trim(Text3.Text)Adodc1.Recordset.Fields(其他特征) = Trim(Text4.Text)Adodc1.Recordset.UpdateAdodc1.RefreshUnload Me动物库.ShowMsgBox 添加成功, 0