[繁]轉生貴族憑鑑定技	[簡]莫名成為邪龍的五	[繁]海賊王魚人島篇
[繁]被逐出隊伍的治癒	[繁]青春之箱06-	[繁]戰國妖狐27-

查看: 11678|回復: 11

[原創]井字遊戲AI[複製鏈接]

zxc693491

高級幼兒生(30/200)

神人

Rank: 1

帖子: 1700
積分: 174 點
潛水值: 46090 米

電梯直達

樓主

發表於 2016-12-1 03:11 PM|只看該作者|正序瀏覽

若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。

本帖最後由 zxc693491 於 2016-12-1 03:42 PM 編輯

自己做的井字遊戲AI 請大家幫我測試看看，希望能找到錯誤，原則上不可能贏他就是了。
另外這是雙人版(做得很難看消磨時間用:
以下提供參考，我用按鈕物件寫的"VB2010"

[/backcolor]Public Class 井字遊戲
Dim time As Integer
Dim att As Integer '狀況標記
Dim cheak As Boolean = False '是否已判斷勝負
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("歡迎遊玩井字遊戲，退出請按鍵盤Alt+F4鍵", vbOKOnly, "")
N()
S()
Me.Focus()
FormBorderStyle = Windows.Forms.FormBorderStyle.None
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Text = "○"
Button1.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Text = "○"
Button2.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Text = "○"
Button3.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.Text = "○"
Button4.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Button5.Text = "○"
Button5.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button6.Text = "○"
Button6.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Button7.Text = "○"
Button7.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Button8.Text = "○"
Button8.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Button9.Text = "○"
Button9.Enabled = False
time = time + 1
If att = 22 Then
time = 3
End If
AI()
End Sub '按鈕群
'======================================================================================================================
Sub S()
If MsgBox("是否先下?", MsgBoxStyle.YesNo, "順序") = MsgBoxResult.No Then
AIstep1()
Else
N()
End If
cheak = False
End Sub '開始
Sub N() '復原
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = True
Button9.Enabled = True
Button1.Text = ""
Button2.Text = ""
Button3.Text = ""
Button4.Text = ""
Button5.Text = ""
Button6.Text = ""
Button7.Text = ""
Button8.Text = ""
Button9.Text = ""
att = 1
time = 1
End Sub '初始化
Sub AI()
WinCheak()
If cheak = True Then
cheak = False
Exit Sub
End If
If time = 2 Then
AIstep2()
Exit Sub
End If
If time = 3 Then
AIstep3()
Exit Sub
End If
If time = 4 Then
AIstep4()
Exit Sub
End If
If time = 5 Then
AIstep5()
Exit Sub
End If
If time = 6 Then
AIstep6()
Exit Sub
End If
If time = 7 Then
AIstep7()
Exit Sub
End If
If time = 8 Then
AIstep8()
Exit Sub
End If
If time = 9 Then
AIstep9()
Exit Sub
End If
End Sub '步數判斷
Sub AIstep1() '先攻搶角
Button3.Text = "X"
Button3.Enabled = False
time = 2
att = 22
End Sub
Sub AIstep2()
If Button1.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 1
ElseIf Button2.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 0
ElseIf Button3.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 1
ElseIf Button4.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 0
ElseIf Button5.Text = "○" Then
Button3.Text = "X"
Button3.Enabled = False
att = 0
ElseIf Button6.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 43
ElseIf Button7.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 1
ElseIf Button8.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 43
ElseIf Button9.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 1
End If
time = 3
End Sub
Sub AIstep3() '開二路
If Button1.Text = "○" Then
Button9.Text = "X"
Button9.Enabled = False
att = 1
End If
If Button2.Text = "○" Then
Button9.Text = "X"
Button9.Enabled = False
att = 2
End If
If Button4.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 4
End If
If Button5.Text = "○" Then
Button7.Text = "X"
Button7.Enabled = False
att = 5
End If
If Button6.Text = "○" Then
Button1.Text = "X"
Button1.Enabled = False
att = 6
End If
If Button7.Text = "○" Then
Button9.Text = "X"
Button9.Enabled = False
att = 7
End If
If Button8.Text = "○" Then
Button5.Text = "X"
Button5.Enabled = False
att = 8
End If
If Button9.Text = "○" Then
Button1.Text = "X"
Button1.Enabled = False
att = 9
End If
time = 4
End Sub
Sub AIstep4()
If att = 0 Then
If (Button2.Enabled = False And Button8.Enabled = False) Or (Button4.Enabled = False And Button6.Enabled = False) Then
Button1.Text = "X"
Button1.Enabled = False
time = 5
Exit Sub
End If
AI2()
ElseIf att = 1 Then
If (Button1.Enabled = False And Button9.Enabled = False) Or (Button3.Enabled = False And Button7.Enabled = False) Then
Button2.Text = "X"
Button2.Enabled = False
time = 5
Exit Sub
Else
AI2()
End If
ElseIf att = 43 Then
If Button4.Text = "○" And Button8.Text = "○" Then
Button7.Text = "X"
Button7.Enabled = False
Else
Button3.Text = "X"
Button3.Enabled = False
End If
End If
time = 5
End Sub
Sub AIstep5()
If att = 1 Then
If Button6.Text = "○" Then
Button7.Text = "X"
Button7.Enabled = False
Else
Button6.Text = "X"
Button6.Enabled = False
End If
ElseIf att = 2 Then
If Button6.Text = "○" Then
Button7.Text = "X"
Button7.Enabled = False
Else
Button6.Text = "X"
Button6.Enabled = False
End If
ElseIf att = 4 Then
If Button7.Text = "○" Then
Button1.Text = "X"
Button1.Enabled = False
Else
Button7.Text = "X"
Button7.Enabled = False
End If
ElseIf att = 5 Then
If Button1.Text = "○" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button9.Text = "○" Then
Button1.Text = "X"
Button1.Enabled = False
Else
If Button2.Text = "○" Then
Button8.Text = "X"
Button8.Enabled = False
att = 9
ElseIf Button4.Text = "○" Then
Button6.Text = "X"
Button6.Enabled = False
att = 9
ElseIf Button6.Text = "○" Then
Button4.Text = "X"
Button4.Enabled = False
att = 1
ElseIf Button8.Text = "○" Then
Button2.Text = "X"
Button2.Enabled = False
att = 1
End If
End If
ElseIf att = 6 Then
If Button2.Enabled = False Then
Button7.Text = "X"
Button7.Enabled = False
Else
Button2.Text = "X"
Button2.Enabled = False
End If
ElseIf att = 7 Then
If Button6.Enabled = False Then
Button1.Text = "X"
Button1.Enabled = False
Else
Button6.Text = "X"
Button6.Enabled = False
End If
ElseIf att = 8 Then
If Button7.Enabled = False Then
Button9.Text = "X"
Button9.Enabled = False
Else
Button7.Text = "X"
Button7.Enabled = False
End If
ElseIf att = 9 Then
If Button2.Enabled = False Then
Button7.Text = "X"
Button7.Enabled = False
Else
Button2.Text = "X"
Button2.Enabled = False
End If
End If
time = 6
WinCheak()
If cheak = True Then
N()
S()
End If
End Sub
Sub AIstep6()
AI3()
If cheak = True Then
N()
S()
Exit Sub
End If
AI5()
time = 7
If att = 99 Then
Exit Sub
End If
AI2()
End Sub
Sub AIstep7()
AI3()
If cheak = True Then
N()
S()
Exit Sub
End If
AI2()
time = 8
WinCheak()
If cheak = True Then
N()
S()
End If
End Sub
Sub AIstep8()
att = 1
AI3()
If cheak = True Then
N()
S()
Exit Sub
End If
AI2()
If att = 96 Then
time = 9
WinCheak()
If cheak = True Then
N()
S()
End If
Exit Sub
End If
If Button2.Enabled = True Then
Button2.Text = "X"
Button2.Enabled = False
att = 97
ElseIf Button4.Enabled = True Then
Button4.Text = "X"
Button4.Enabled = False
att = 97
ElseIf Button6.Enabled = True Then
Button6.Text = "X"
Button6.Enabled = False
att = 97
ElseIf Button8.Enabled = True Then
Button8.Text = "X"
Button8.Enabled = False
att = 97
End If
If att = 97 Then
time = 9
WinCheak()
If cheak = True Then
N()
S()
End If
Exit Sub
End If
WinCheak()
If cheak = True Then
N()
S()
Else
time = 9
End If
End Sub
Sub AIstep9()
AI3()
If cheak = True Then
N()
S()
Exit Sub
End If
AI2()
If att = 96 Then
time = 10
WinCheak()
If cheak = True Then
N()
S()
End If
Exit Sub
End If
If (Button2.Text = "X" Or Button4.Text = "X") And Button1.Enabled = True Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf (Button2.Text = "X" Or Button4.Text = "X") And Button9.Enabled = True Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button1.Enabled = False And Button9.Enabled = False Then
If Button2.Enabled = True Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button4.Enabled = True Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button6.Enabled = True Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button8.Enabled = True Then
Button8.Text = "X"
Button8.Enabled = False
ElseIf Button7.Enabled = True Then
Button7.Text = "X"
Button7.Enabled = False
End If
Else
If Button1.Enabled = True Then
Button1.Text = "X"
Button1.Enabled = False
Else
Button9.Text = "X"
Button9.Enabled = True
End If
End If
WinCheak()
If cheak = True Then
N()
S()
Else
MsgBox("平手囉", MsgBoxStyle.OkOnly, "勝負判斷")
N()
S()
End If
End Sub
Sub WinCheak()
If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button1.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button4.Text = Button5.Text And Button4.Text = Button6.Text And Button4.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button7.Text = Button8.Text And Button7.Text = Button9.Text And Button7.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button1.Text = Button4.Text And Button1.Text = Button7.Text And Button1.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button2.Text = Button5.Text And Button2.Text = Button8.Text And Button2.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button3.Text = Button6.Text And Button3.Text = Button9.Text And Button3.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button1.Text = Button5.Text And Button1.Text = Button9.Text And Button1.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf Button3.Text = Button5.Text And Button3.Text = Button7.Text And Button3.Text <> "" Then
MsgBox("你輸了", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
ElseIf time = 10 Then
MsgBox("平手囉", MsgBoxStyle.OkOnly, "勝負判斷")
cheak = True
N()
S()
End If
End Sub '勝負判斷
'準則:能贏先下，其次阻止連線，以上沒有問題時尋找最有利位置下。
Sub AI2()
If Button1.Text = "○" And Button2.Text = "○" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
ElseIf Button1.Text = "○" And Button3.Text = "○" And Button2.Text = "" Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button2.Text = "○" And Button3.Text = "○" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button4.Text = "○" And Button5.Text = "○" And Button6.Text = "" Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button4.Text = "○" And Button6.Text = "○" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "○" And Button6.Text = "○" And Button4.Text = "" Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button7.Text = "○" And Button8.Text = "○" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button7.Text = "○" And Button9.Text = "○" And Button8.Text = "" Then
Button8.Text = "X"
Button8.Enabled = False
ElseIf Button8.Text = "○" And Button9.Text = "○" And Button7.Text = "" Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button1.Text = "○" And Button4.Text = "○" And Button7.Text = "" Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button1.Text = "○" And Button7.Text = "○" And Button4.Text = "" Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button4.Text = "○" And Button7.Text = "○" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button2.Text = "○" And Button5.Text = "○" And Button8.Text = "" Then
Button8.Text = "X"
Button8.Enabled = False
ElseIf Button2.Text = "○" And Button8.Text = "○" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "○" And Button8.Text = "○" And Button2.Text = "" Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button3.Text = "○" And Button6.Text = "○" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button3.Text = "○" And Button9.Text = "○" And Button6.Text = "" Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button6.Text = "○" And Button9.Text = "○" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
ElseIf Button1.Text = "○" And Button5.Text = "○" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button1.Text = "○" And Button9.Text = "○" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "○" And Button9.Text = "○" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button3.Text = "○" And Button5.Text = "○" And Button7.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button3.Text = "○" And Button7.Text = "○" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "○" And Button7.Text = "○" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
Else
AI4() '找不到防禦目標
End If
att = 96 'step8.9特殊狀況
End Sub '防禦
Sub AI3()
If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
ElseIf Button1.Text = "X" And Button3.Text = "X" And Button2.Text = "" Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button2.Text = "X" And Button3.Text = "X" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "" Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button4.Text = "X" And Button6.Text = "X" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "X" And Button6.Text = "X" And Button4.Text = "" Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button7.Text = "X" And Button9.Text = "X" And Button8.Text = "" Then
Button8.Text = "X"
Button8.Enabled = False
ElseIf Button8.Text = "X" And Button9.Text = "X" And Button7.Text = "" Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "" Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button1.Text = "X" And Button7.Text = "X" And Button4.Text = "" Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button4.Text = "X" And Button7.Text = "X" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "" Then
Button8.Text = "X"
Button8.Enabled = False
ElseIf Button2.Text = "X" And Button8.Text = "X" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "X" And Button8.Text = "X" And Button2.Text = "" Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button3.Text = "X" And Button9.Text = "X" And Button6.Text = "" Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button6.Text = "X" And Button9.Text = "X" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
ElseIf Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "" Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button1.Text = "X" And Button9.Text = "X" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "X" And Button9.Text = "X" And Button1.Text = "" Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "" Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button3.Text = "X" And Button7.Text = "X" And Button5.Text = "" Then
Button5.Text = "X"
Button5.Enabled = False
ElseIf Button5.Text = "X" And Button7.Text = "X" And Button3.Text = "" Then
Button3.Text = "X"
Button3.Enabled = False
End If
WinCheak()
End Sub '勝利
Sub AI4()
If Button1.Enabled = True Then
Button1.Text = "X"
Button1.Enabled = False
ElseIf Button7.Enabled = True Then
Button7.Text = "X"
Button7.Enabled = False
ElseIf Button9.Enabled = True Then
Button9.Text = "X"
Button9.Enabled = False
ElseIf Button2.Enabled = True Then
Button2.Text = "X"
Button2.Enabled = False
ElseIf Button4.Enabled = True Then
Button4.Text = "X"
Button4.Enabled = False
ElseIf Button6.Enabled = True Then
Button6.Text = "X"
Button6.Enabled = False
ElseIf Button8.Enabled = True Then
Button8.Text = "X"
Button8.Enabled = False
End If
End Sub '攻擊
Sub AI5()
If Button1.Text = "○" And Button3.Text = "○" And Button2.Text = "X" And Button5.Text = "X" Then
Button4.Text = "X"
Button4.Enabled = False
att = 99
ElseIf Button3.Text = "○" And Button9.Text = "○" And Button5.Text = "X" And Button6.Text = "X" Then
Button2.Text = "X"
Button2.Enabled = False
att = 99
ElseIf Button7.Text = "○" And Button9.Text = "○" And Button5.Text = "X" And Button8.Text = "X" Then
Button6.Text = "X"
Button6.Enabled = False
att = 99
ElseIf Button1.Text = "○" And Button7.Text = "○" And Button4.Text = "X" And Button5.Text = "X" Then
Button8.Text = "X"
Button8.Enabled = False
att = 99
End If
End Sub 'Setp6特殊狀況標記att=99[backcolor=rgb(253, 253, 253)]

複製代碼

...

瀏覽完整內容，請先註冊或登入會員

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

帖子: 46
積分: 28 點
潛水值: 15047 米

12樓

發表於 2020-4-5 11:42 PM|只看該作者

如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。

謝謝大大的分享..大大辛苦了

若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

使用道具檢舉

star231

高級幼兒生(30/200)

Rank: 1

帖子: 280
積分: 109 點
潛水值: 5630 米

11樓

發表於 2020-3-11 08:31 AM|只看該作者

如果發覺自己無法使用一些功能或出現問題，請按重新整理一次，並待所有網頁內容完全載入後5秒才進行操作。

網路有很多類似的遊戲程式!去看看寫法!

上傳頭像立即獲得 1 點積分。

使用道具檢舉

star231

高級幼兒生(30/200)

Rank: 1

帖子: 280
積分: 109 點
潛水值: 5630 米

10樓

發表於 2020-3-4 01:30 PM|只看該作者

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

這是你學校的作業吧!!

點評

zxc693491 這我高一的時候自學生出來的東西…過了五年多了吧現在重寫一次這程式不用5分鐘￣﹃￣發表於 2020-3-8 07:28 AM

如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

jerick

小學生(200/1000)

Rank: 2 Rank: 2

帖子: 1334
積分: 991 點
潛水值: 30737 米

9樓

發表於 2020-1-8 08:30 PM|只看該作者

分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

其實位置陣列是比較簡單的，難的是電腦端的智力。
踩地雷倒還好，就用亂數產生地雷就好，
而五子棋，你就要讓電腦端能有"推算"的能力，推算自己與玩家後幾步的走法。

大石秀一郎

Rank: 1

帖子: 65
積分: 84 點
潛水值: 8399 米

8樓

發表於 2019-11-27 09:25 AM|只看該作者

如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

zxc693491 發表於 2019-11-25 02:30 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

真的好久了…
井字完，要不要嘗試五子，踩地雷

小弟目前對五子棋跟踩地雷的概念還是停留在會玩的階段,完全想不到如何轉換成程式...

瀏覽完整內容，請先註冊或登入會員

點評

zxc693491 因為版面大不能用絕對位置判斷，要用相對位置，可以嘗試看別人的作品，大多會有一個陣列包著八個方向的座標發表於 2019-11-28 11:53 AM

若對尊貴或贊助會員有任何疑問，歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

zxc693491

高級幼兒生(30/200)

神人

Rank: 1

帖子: 1700
積分: 174 點
潛水值: 46090 米

7樓

發表於 2019-11-25 02:30 PM|只看該作者

若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

sango99001 發表於 2019-11-23 11:48 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

井字遊戲(含AI及雙人版)

雖然這己經是很久的舊文章,小弟試玩樓主的版本後,就想把小弟去年年底自己寫出的井 ...

...

瀏覽完整內容，請先註冊或登入會員

如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

sango99001

高級幼兒生(30/200)

大石秀一郎

Rank: 1

帖子: 65
積分: 84 點
潛水值: 8399 米

6樓

發表於 2019-11-23 11:48 PM|只看該作者

升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

下載: 訪客無法瀏覽下載點，請先註冊或登入會員

雖然這己經是很久的舊文章,小弟試玩樓主的版本後,就想把小弟去年年底自己寫出的井字遊戲分享出來給大家,請不要嫌棄哦,謝謝

若新密碼無法使用，可能是數據未更新。請使用舊密碼看看。

使用道具檢舉

e9906923

初級幼兒生(0/30)

帖子: 10
積分: 1 點
潛水值: 4660 米

5樓

發表於 2016-12-21 08:16 PM|只看該作者

若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。

還在學習中...
謝謝大大分享資訊

點評

zxc693491 不要為了賺積分忘記版規…你的留言偏向無意義發表於 2016-12-22 12:59 AM

分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

darkjack

專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5 Rank: 5 Rank: 5 Rank: 5 Rank: 5

帖子: 1412
積分: 17880 點
潛水值: 39757 米

4樓

發表於 2016-12-8 12:13 AM|只看該作者

如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

哈哈...井字遊戲人來玩都只是一個不注意就被贏過去了....

升級為尊貴會員或贊助會員，讓你擁有自由、暢通無阻、應有盡有及所有資源任你使用的無窮快感。

使用道具檢舉

zxc693491

高級幼兒生(30/200)

神人

Rank: 1

帖子: 1700
積分: 174 點
潛水值: 46090 米

3樓

發表於 2016-12-5 01:00 AM|只看該作者

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

darkjack 發表於 2016-12-3 11:35 PM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

玩了一下先手跟後手差別
先手基本上絕對平手

原則上是為了簡單化中間下法，因為我已經定義好先手固定走法
...

瀏覽完整內容，請先註冊或登入會員

分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

darkjack

專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5 Rank: 5 Rank: 5 Rank: 5 Rank: 5

帖子: 1412
積分: 17880 點
潛水值: 39757 米

頭香

發表於 2016-12-3 11:35 PM|只看該作者

伊莉影片

玩了一下先手跟後手差別
先手基本上絕對平手

後手都右上角先跑
這個點可以改成隨機，因為只要擺中間就可以平手機率很大

本人都是寫 vb.net 如果看到本人的原創請自備 .Net FrameWork 3.5

如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2024-11-16 10:34 PM

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。