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

中國(guó)石油大學(xué)（北京）實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)課程： 人工智能導(dǎo)論 實(shí)驗(yàn)名稱： 小型專家系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 班級(jí)： 自動(dòng)化09-1 學(xué)號(hào)： 姓名： 實(shí)驗(yàn)臺(tái)號(hào)： 成績(jī)： 實(shí)驗(yàn)日期： 2012年 01月 03 日 一、 實(shí)驗(yàn)?zāi)康?、掌握專家系統(tǒng)的基本構(gòu)成 ；2、掌握用人工智能程序設(shè)計(jì)語(yǔ)言編制智能程序的方法 。二、 實(shí)驗(yàn)內(nèi)容建造一個(gè)完整的專家系統(tǒng)。本次設(shè)計(jì)需完成的內(nèi)容：1、用戶界面：可采用菜單方式或問(wèn)答方式。2、知識(shí)庫(kù)（規(guī)則庫(kù)）：存放產(chǎn)生式規(guī)則，庫(kù)中的規(guī)則可以增刪。3、數(shù)據(jù)庫(kù)：用來(lái)存放用戶回答的問(wèn)題、已知事實(shí)、推理得到的中間事實(shí)。4、推理機(jī)：如何運(yùn)用知識(shí)庫(kù)中的規(guī)則進(jìn)行問(wèn)題的推理控制，建議用正向推理。5、知識(shí)庫(kù)中的規(guī)則可以隨意增減。三、實(shí)驗(yàn)結(jié)果起始運(yùn)行界面：查詢：1.知道種類，點(diǎn)選鳥(niǎo)類或哺乳類，再點(diǎn)擊查詢鳥(niǎo)類界面：哺乳類界面：2.不知道種類：點(diǎn)選“不知道”，進(jìn)入種類識(shí)別界面點(diǎn)擊查詢后進(jìn)入該動(dòng)物相應(yīng)的種類的查詢界面3.查詢結(jié)果：若沒(méi)有符合條件的內(nèi)容，則詢問(wèn)是否添加新信息添加：選擇種類點(diǎn)擊添加進(jìn)入添加界面鳥(niǎo)類添加界面：哺乳類添加界面：添加的動(dòng)物可以查詢刪除：?jiǎn)螕魟h除按鈕，進(jìn)入刪除界面，輸入需要?jiǎng)h除的動(dòng)物名稱，點(diǎn)擊確定，右側(cè)的表中顯示出需要?jiǎng)h除的動(dòng)物，選中它，再點(diǎn)擊刪除則刪除完成，已經(jīng)刪除的內(nèi)容不可再查詢到。退出：點(diǎn)擊主界面的退出按鈕即可四、程序主界面：Private Sub Command1_Click()If Option1.Value = True Then 選擇鳥(niǎo)類，出現(xiàn)鳥(niǎo)類查詢界面Form1.Show動(dòng)物庫(kù).HideEnd IfIf Option2.Value = True Then 選擇哺乳類，出現(xiàn)哺乳類查詢界面Form2.Show動(dòng)物庫(kù).HideEnd IfIf Option3.Value = True Then 選擇不知道，出現(xiàn)種類識(shí)別界面Form3.Show動(dòng)物庫(kù).HideEnd IfIf Option1.Value = Option2.Value = Option3.Value = False Then 若沒(méi)有選擇，出現(xiàn)提示框intmsgin = MsgBox(請(qǐng)至少選擇一項(xiàng)！, vbOKOnly, 提示)End IfEnd SubPrivate Sub Command2_Click() 退出程序EndEnd SubPrivate Sub Command3_Click()If Option1.Value = True Then 選擇添加鳥(niǎo)類，進(jìn)入鳥(niǎo)類添加界面Form5.Show動(dòng)物庫(kù).HideEnd IfIf Option2.Value = True Then 選擇添加哺乳類，進(jìn)入哺乳類添加界面 Form6.Show 動(dòng)物庫(kù).HideEnd IfIf Option3.Value = True Then 選擇不知道，出現(xiàn)提示框intmsgin = MsgBox(請(qǐng)選擇確切種類！, vbOKOnly, 提示)End IfIf Option1.Value = Option2.Value = Option3.Value = False Then 沒(méi)有選擇，出現(xiàn)提示框intmsgin = MsgBox(請(qǐng)至少選擇一項(xiàng)！, vbOKOnly, 提示)End IfEnd SubPrivate Sub Command4_Click() 選擇刪除，進(jìn)入刪除界面動(dòng)物庫(kù).HideForm7.ShowEnd Sub鳥(niǎo)類識(shí)別界面：（哺乳類識(shí)別的程序與此相似）Private Sub Command1_Click()Dim str As StringAdodc1.RecordSource = select 動(dòng)物名稱 from 動(dòng)物種類庫(kù) where 顏色 like & Combo1.Text & and 飛行能力 like & Combo2.Text & and 其他特征 like & Text1.Text & 查詢符合輸入內(nèi)容的項(xiàng)Adodc1.CommandType = adCmdTextAdodc1.RefreshDataGrid1.RefreshIf Adodc1.Recordset.EOF Then 若沒(méi)有符合條件的，顯示添加信息詢問(wèn)框 Form4.Show Unload MeElsestr = Adodc1.Recordset.Fields(動(dòng)物名稱) 顯示符合條件的結(jié)果intmsgin = MsgBox(str, vbOKOnly, 查詢結(jié)果)End IfEnd SubPrivate Sub Command2_Click() 返回主界面動(dòng)物庫(kù).ShowUnload MeEnd Sub種類識(shí)別：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鳥(niǎo)類添加：（哺乳類添加程序與此相似）Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(動(dòng)物名稱) = Trim(Text1.Text)Adodc1.Recordset.Fields(動(dòng)物種類) = 鳥(niǎo)類Adodc1.Recordset.Fields(顏色) = Trim(Text2.Text)Adodc1.Recordset.Fields(飛行能力) = Trim(Text3.Text)Adodc1.Recordset.Fields(其他特征) = Trim(Text4.Text)Adodc1.Recordset.UpdateAdodc1.RefreshUnload Me動(dòng)物庫(kù).ShowMsgBox 添加成功, 0