用VB實現(xiàn)的小型動物識別專家系統(tǒng).doc

中國石油大學（北京）實驗報告實驗課程： 人工智能導論 實驗名稱： 小型專家系統(tǒng)的設計與實現(xiàn) 班級： 自動化09-1 學號： 姓名： 實驗臺號： 成績： 實驗日期： 2012年 01月 03 日 一、 實驗目的1、掌握專家系統(tǒng)的基本構成 ；2、掌握用人工智能程序設計語言編制智能程序的方法 。二、 實驗內(nèi)容建造一個完整的專家系統(tǒng)。本次設計需完成的內(nèi)容：1、用戶界面：可采用菜單方式或問答方式。2、知識庫（規(guī)則庫）：存放產(chǎn)生式規(guī)則，庫中的規(guī)則可以增刪。3、數(shù)據(jù)庫：用來存放用戶回答的問題、已知事實、推理得到的中間事實。4、推理機：如何運用知識庫中的規(guī)則進行問題的推理控制，建議用正向推理。5、知識庫中的規(guī)則可以隨意增減。三、實驗結果起始運行界面：查詢：1.知道種類，點選鳥類或哺乳類，再點擊查詢鳥類界面：哺乳類界面：2.不知道種類：點選“不知道”，進入種類識別界面點擊查詢后進入該動物相應的種類的查詢界面3.查詢結果：若沒有符合條件的內(nèi)容，則詢問是否添加新信息添加：選擇種類點擊添加進入添加界面鳥類添加界面：哺乳類添加界面：添加的動物可以查詢刪除：單擊刪除按鈕，進入刪除界面，輸入需要刪除的動物名稱，點擊確定，右側的表中顯示出需要刪除的動物，選中它，再點擊刪除則刪除完成，已經(jīng)刪除的內(nèi)容不可再查詢到。退出：點擊主界面的退出按鈕即可四、程序主界面：Private Sub Command1_Click()If Option1.Value = True Then 選擇鳥類，出現(xiàn)鳥類查詢界面Form1.Show動物庫.HideEnd IfIf Option2.Value = True Then 選擇哺乳類，出現(xiàn)哺乳類查詢界面Form2.Show動物庫.HideEnd IfIf Option3.Value = True Then 選擇不知道，出現(xiàn)種類識別界面Form3.Show動物庫.HideEnd IfIf Option1.Value = Option2.Value = Option3.Value = False Then 若沒有選擇，出現(xiàn)提示框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 選擇不知道，出現(xiàn)提示框intmsgin = MsgBox(請選擇確切種類！, vbOKOnly, 提示)End IfIf Option1.Value = Option2.Value = Option3.Value = False Then 沒有選擇，出現(xiàn)提示框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 & 查詢符合輸入內(nèi)容的項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