人工智能課程設(shè)計(jì)---五子棋(編輯修改稿)
2025-06-12 19:22 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 的忍受時(shí)間的需要。不得不 減小深度， 所以 絕大部分都采用 深度為 2 的檢索 ，很明顯深度越低 系統(tǒng)的智力也相對(duì)的降低，需要代價(jià)的。 本程序的一個(gè)主要特點(diǎn)是 ，采用了高效的優(yōu)化方法，使得 在相同的搜索規(guī)模中所花費(fèi)的計(jì)算時(shí)間大幅度的減小。 響應(yīng)時(shí)間明顯得到 提高。 即使 搜索深度達(dá)到4 的時(shí)候，其響應(yīng)時(shí)間在絕大部分的情況下還是可以接受的。 結(jié)構(gòu)設(shè) 計(jì)的一條基本原理就是程序應(yīng)該模塊化，也就是一個(gè)大程序應(yīng)該由許多規(guī)模適中的模塊按合理的層次結(jié)構(gòu)組織而成?？傮w設(shè)計(jì)階段的第二項(xiàng)主要任務(wù)就是設(shè)計(jì)軟件的結(jié)構(gòu)，也就是確定程序由哪些模塊組成以及模塊間的關(guān)系。通常用層次圖或結(jié)構(gòu)圖描繪軟件的結(jié)構(gòu)。 系統(tǒng)模型 選擇操作 調(diào)用 單 機(jī)模式 系統(tǒng)功能 用戶 主界面 The genral stf(1mpoyidvc,uh)0jb。5wT8 結(jié)構(gòu)圖 五．代碼分析 這個(gè)階段的任務(wù)還不是編寫程序，而是設(shè)計(jì)出程序的詳細(xì)規(guī)格說明。這 種規(guī)格說明的作用很類似于其他工程領(lǐng)域中工程師經(jīng)常使用的工程藍(lán)圖，它們應(yīng)該包含必要的細(xì)節(jié)，程序員可以根據(jù)它們寫出實(shí)際的程序代碼。 下面對(duì)該次設(shè)計(jì)中的主要代碼進(jìn)行做個(gè)分析： 初始化賦值系統(tǒng) Sub initplayenvironment() = .\music\ () theplayflag = True //游戲有效 = False //游戲狀態(tài)標(biāo)簽不顯示 () //清空 picturebox1 的內(nèi)容 yuandian(130, 130) //調(diào)用繪圖函數(shù)繪制當(dāng)前電腦先走的位置 Dim i, j, m, n As Integer For i = 0 To 9 For j = 0 To 9 table(i, j) = 0 Next Next //桌面初始化 For i = 0 To 191 pflag(i) = True cflag(i) = True 界面模塊 用戶 人機(jī)模塊 初級(jí)模塊 中級(jí)模塊 高級(jí)模塊 The genral stf(1mpoyidvc,uh)0jb。5wT9 Next //獲勝標(biāo)志初始化 table(4, 4) = 1 //由于我們?cè)O(shè)定電腦先手，并下了 4，4 位所以將其值設(shè)為 1 初始化獲勝組合 n = 0 For i = 0 To 9 For j = 0 To 5 For m = 0 To 4 pwin(j + m, i, n) = True cwin(j + m, i, n) = True Next n = n + 1 Next Next For i = 0 To 9 For j = 0 To 5 For m = 0 To 4 pwin(i, j + m, n) = True cwin(i, j + m, n) = True Next n = n + 1 Next Next For i = 0 To 5 For j = 0 To 5 For m = 0 To 4 pwin(j + m, i + m, n) = True cwin(j + m, i + m, n) = True Next n = n + 1 Next Next 重新設(shè)定玩家的獲勝標(biāo)志 由于電腦 已下了 4， 4 位所以我們需要重新設(shè)定玩家的獲勝標(biāo)志 For i = 0 To 5 The genral stf(1mpoyidvc,uh)0jb。5wT10 For j = 9 To 4 Step 1 For m = 0 To 4 pwin(j m, i + m, n) = True cwin(j m, i + m, n) = True Next n = n + 1 Next Next For i = 0 To 191 If pwin(4, 4, i) = True Then pflag(i) = False End If Next End Sub 處理鼠標(biāo)事件 模塊名稱 : themousedown 描述 :此函數(shù)主要實(shí)行以下功能： （ 1） 判定當(dāng)前游戲標(biāo)志是否有效。 （ 2） 將實(shí)際坐標(biāo)轉(zhuǎn)化成虛擬坐標(biāo)。 （ 3） 繪制玩家的棋子。 （ 4） 執(zhí)行檢查獲勝函數(shù)。 （ 5） 執(zhí)行電腦算法函數(shù)。 Sub themousedown(ByVal x As Integer, ByVal y As Integer) If theplayflag = False Then Exit Sub End If //檢查游戲狀態(tài)是否有效 Dim i, j As Integer The genral stf(1mpoyidvc,uh)0jb。5wT11 Dim zhx, zhy As Integer zhx = Int((x 10) / 30) zhy = Int((y 10) / 30) For i = 0 To 9 For j = 0 To 9 If table(zhx, zhy) 。 0 Then Exit Sub End If Next Next //檢查當(dāng)前鼠標(biāo)點(diǎn)擊的格子是否有效 Dim mycolor As Color Dim g As g = mycolor = Dim brush1 As = New SolidBrush(mycolor) (brush
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1