繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
發表文章前請先閱讀相關版規尊貴會員無限觀看附件圖片認識好友、聊天，分享生活趣事
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › VB2008如何判斷座標有東西(五子棋)
火影忍者母vr中文3d肛adobe
神級送葬女配新娘 sm花野kuri kurlust調教
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[超清繁中]霹靂英雄戰
(4月新番)[繁]為美好
(4月新番)[簡]怪異與

[超清繁中]霹靂英雄戰
(4月新番)[繁]狼與辛
[繁]怪異與少女與神隱
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 4592|回復: 5
打印上一主題下一主題

[求助]VB2008如何判斷座標有東西(五子棋)[複製鏈接]

199973

  尊貴會員

豪豪笑

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
386
積分
1292 點
潛水值
52863 米
跳轉到指定樓層
樓主
發表於 2010-6-14 05:54 PM|只看該作者|倒序瀏覽
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。
我在做五子棋
但現在卡再判斷勝負(也就是活三、五科旗獲勝...)
如何判斷座標上有棋子?(棋子是用畫的)
還有如何判斷勝負?
分享分享0收藏收藏0支持支持0
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

使用道具檢舉

flylikeann9

Rank: 2Rank: 2

帖子
533
積分
200 點
潛水值
19810 米
頭香
發表於 2010-6-20 11:14 PM|只看該作者
如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。
本帖最後由 flylikeann9 於 2010-6-20 11:32 PM 編輯

我不知道有甚麼方法會比較好
所以只是提出了我的想法
我覺得這是個很麻煩的方法
所以麻煩有大大提供更好的方式

建立陣列如何看棋盤有多大17*17、19*19、15*15
就做一個多大的陣列來儲存

  2. '這是15*15二維陣列
  3.     Dim ar(,) As Integer = {{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  4.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  5.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  6.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  7.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  8.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  9.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  10.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  11.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  12.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  13.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  14.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  15.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  16.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, _
  17.                             {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}
複製代碼
用0代表沒有棋子，1代表黑子，2代表白子

勝負判斷似乎不太好做，想瞞久的
只有想到用FOR迴圈一個一個跑
不過只想到五顆的怎麼判斷
不知道程式連起來會怎樣...
瀏覽完整內容，請先 註冊 或 登入會員
回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

byukuo

帖子
85
積分
12 點
潛水值
3836 米
3樓
發表於 2010-7-27 11:35 AM|只看該作者
成為伊莉的版主，你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛，那種滿足感等著你來嚐嚐喔。
只要在下最後一子的時候~
判斷那一子的左右.上下.右上左下.左上右下有沒有連線五顆即可~
用迴圈一個個跑會死人ㄅ@@
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

buddha0718

Rank: 2Rank: 2

帖子
966
積分
948 點
潛水值
19669 米
4樓
發表於 2010-8-12 07:43 PM|只看該作者
如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。
本帖最後由 arthurliuliu 於 2010-8-12 08:46 PM 編輯
  1. Const row = 10
  2. Const col = 10
  3. Dim state(row, col) As Integer
  4. Dim a, b, k, k1, k2 As Integer
  5. Dim c, d, e, f As Single
  6. Dim xy(10, 10) As Integer
  7. Dim xgrid As Integer
  8. Dim ygrid As Integer

  10. ' -----------------------------------------------
  11. '   物件名稱：Form        事件名稱：Activate    -
  12. ' 程式執行時將產生此事件，此事件可繪製10*10方   -
  13. ' 格                                            -
  14. ' -----------------------------------------------
  15. Private Sub Form_Activate()
  16. xgrid = ScaleWidth / col         ' 求小方格寬度
  17. ygrid = ScaleHeight / row        ' 求小方格高度
  18. For i = 0 To 10
  19.     Line (ScaleWidth / 10 * i, 0)-(ScaleWidth / 10 * i, ScaleHeight)
  20.     Line (0, ScaleHeight / 10 * i)-(ScaleWidth, ScaleHeight / 10 * i) ' 繪方格
  21. Next i
  22. End Sub

  24. ' -----------------------------------------------
  25. '   物件名稱：Form        事件名稱：MouseDown   -
  26. ' 按滑鼠左邊鍵可繪或清除圓，按滑鼠右邊鍵可繪或  -
  27. ' 清除交叉線                                    -
  28. ' -----------------------------------------------
  29. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  30. Dim r As Integer
  31. FillStyle = 0
  32. r = 200
  33. a = (X \ xgrid) ' 求欲處理的方格位置
  34. b = (Y \ ygrid)
  35. c = (X / xgrid) ' 求欲處理的方格位置
  36. d = (Y / ygrid)
  37. e = 0
  38. f = 0
  39. If c < 0.5 Or d < 0.5 Or c > 9.5 Or d > 9.5 Then
  40.    a = a + 1
  41. ElseIf X / xgrid - a < 0.5 And Y / ygrid - b < 0.5 Then
  42. X = (X \ xgrid) - 1 ' 求欲處理的方格位置
  43. Y = (Y \ ygrid) - 1
  44. cx = (X * xgrid + (X + 2) * xgrid) / 2   ' 中心點
  45. cy = (Y * ygrid + (Y + 2) * ygrid) / 2
  46. black = RGB(0, 0, 0)
  47. white = RGB(255, 255, 255)
  48. If (Button = 1) Then             ' 按滑鼠左邊鍵
  49.     If state(X, Y) = 0 Then
  50.         FillColor = white
  51.         Circle (cx, cy), r    ' 繪圓
  52.         state(X, Y) = 1
  53.         xy(X, Y) = 1
  54.       ElseIf state(X, Y) = 1 Or 2 Then
  55.           MsgBox "起手無回大丈夫", 0, "確定"  ' 清除圓
  56.       End If
  57.   End If
  58.   If (Button = 2) Then             ' 按滑鼠右邊鍵
  59.     If state(X, Y) = 0 Then      ' 繪交叉線
  60.           FillColor = black
  61.           Circle (cx, cy), r
  62.           state(X, Y) = 2
  63.         xy(X, Y) = 2
  64.     ElseIf state(X, Y) = 1 Or 2 Then  ' 清除交叉線
  65.         MsgBox "起手無回大丈夫", 0, "確定"
  66.     End If
  67.   End If
  68. ElseIf X / xgrid - a > 0.5 And Y / ygrid - b > 0.5 Then
  69.   X = (X \ xgrid)  ' 求欲處理的方格位置
  70.   Y = (Y \ ygrid)
  71.   cx = (X * xgrid + (X + 2) * xgrid) / 2   ' 中心點
  72.   cy = (Y * ygrid + (Y + 2) * ygrid) / 2
  73.   black = RGB(0, 0, 0)
  74.   white = RGB(255, 255, 255)
  75.   If (Button = 1) Then             ' 按滑鼠左邊鍵
  76.       If state(X, Y) = 0 Then
  77.           FillColor = white
  78.         Circle (cx, cy), r    ' 繪圓
  79.           state(X, Y) = 1
  80.         xy(X, Y) = 1
  81.       ElseIf state(X, Y) = 1 Or 2 Then
  82.           MsgBox "起手無回大丈夫", 0, "確定" ' 清除圓
  83.       End If
  84.   End If
  85.   If (Button = 2) Then             ' 按滑鼠右邊鍵
  86.       If state(X, Y) = 0 Then      ' 繪交叉線
  87.           FillColor = black
  88.           Circle (cx, cy), r
  89.           state(X, Y) = 2
  90.         xy(X, Y) = 2
  91.       ElseIf state(X, Y) = 1 Or 2 Then  ' 清除交叉線
  92.           MsgBox "起手無回大丈夫", 0, "確定"
  93.       End If
  94.   End If
  95. ElseIf X / xgrid - a < 0.5 And Y / ygrid - b > 0.5 Then
  96.   X = (X \ xgrid) - 1 ' 求欲處理的方格位置
  97.   Y = (Y \ ygrid)
  98.   cx = (X * xgrid + (X + 2) * xgrid) / 2   ' 中心點
  99.   cy = (Y * ygrid + (Y + 2) * ygrid) / 2
  100.   black = RGB(0, 0, 0)
  101.   white = RGB(255, 255, 255)
  102.   If (Button = 1) Then             ' 按滑鼠左邊鍵
  103.       If state(X, Y) = 0 Then
  104.        FillColor = white
  105.         Circle (cx, cy), r    ' 繪圓
  106.           state(X, Y) = 1
  107.         xy(X, Y) = 1
  108.       ElseIf state(X, Y) = 1 Or 2 Then
  109.           MsgBox "起手無回大丈夫", 0, "確定"   ' 清除圓
  110.       End If
  111.   End If
  112.   If (Button = 2) Then             ' 按滑鼠右邊鍵
  113.       If state(X, Y) = 0 Then      ' 繪交叉線
  114.           FillColor = black
  115.           Circle (cx, cy), r
  116.           state(X, Y) = 2
  117.         xy(X, Y) = 2
  118.       ElseIf state(X, Y) = 1 Or 2 Then  ' 清除交叉線
  119.           MsgBox "起手無回大丈夫", 0, "確定"
  120.       End If
  121.   End If
  122. ElseIf X / xgrid - a > 0.5 And Y / ygrid - b < 0.5 Then
  123.   X = (X \ xgrid)  ' 求欲處理的方格位置
  124.   Y = (Y \ ygrid) - 1
  125.   cx = (X * xgrid + (X + 2) * xgrid) / 2   ' 中心點
  126.   cy = (Y * ygrid + (Y + 2) * ygrid) / 2
  127.   black = RGB(0, 0, 0)
  128.   white = RGB(255, 255, 255)
  129.   If (Button = 1) Then             ' 按滑鼠左邊鍵
  130.       If state(X, Y) = 0 Then
  131.        FillColor = white
  132.          Circle (cx, cy), r    ' 繪圓
  133.           state(X, Y) = 1
  134.         xy(X, Y) = 1
  135.       ElseIf state(X, Y) = 1 Or 2 Then
  136.           MsgBox "起手無回大丈夫", 0, "確定" ' 清除圓
  137.       End If
  138.   End If
  139.   If (Button = 2) Then             ' 按滑鼠右邊鍵
  140.       If state(X, Y) = 0 Then      ' 繪交叉線
  141.           FillColor = black
  142.           Circle (cx, cy), r    ' 繪圓
  143.           state(X, Y) = 2
  144.         xy(X, Y) = 2
  145.       ElseIf state(X, Y) = 1 Or 2 Then  ' 清除交叉線
  146.           MsgBox "起手無回大丈夫", 0, "確定"
  147.       End If
  148.   End If
  149. End If
  150. 'If (xy(0, 0) = 1 And xy(0, 1) = 1 And xy(0, 2) = 1 And xy(0, 3) = 1 And xy(0, 4) = 1) Then
  151. '   MsgBox "白子勝", 0, "確定"
  152. 'End If
  153. For i = 0 To 4
  154.    e = 0
  155.    k1 = i
  156.    k2 = k1 + 4
  157.    For j = k1 To k2
  158.      If (xy(i, j) = 1) Then
  159.        e = e + 1
  160.      End If
  161.      If (xy(i, j) = 2) Then
  162.        e = e - 1
  163.      Else
  164.        e = e + 0
  165.      End If
  166.    Next j
  167. If e = 5 Then
  168.     MsgBox "白子勝", 0, "確定"
  169. ElseIf e = -5 Then
  170.     MsgBox "黑子勝", 0, "確定"
  171. End If
  172. Next i
  173. End Sub
複製代碼


我以前的作業有做過的五子棋~
是用座標繪圖功能的方式來寫的~
應該很容易看懂吧!
先用繪圖功能畫出棋盤!~然後設好棋子的大小~
按滑鼠左鍵下白子~右鍵下黑子!~
設個變數判斷棋盤位置是沒有下子或黑白子!
每下子前會判斷棋盤要下的位置有沒有下過棋子!
下子後會判斷上下左右斜線有沒有五連線了!五子連線就贏了.....
我這個不是完整版的!~斜線直線五子連線的判斷還有問題!

未包code, 連續兩篇回文, 代為編輯. by arthurliuliu
...
瀏覽完整內容，請先 註冊 或 登入會員
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

pianistfly

帖子
166
積分
0 點
潛水值
21168 米
5樓
發表於 2010-9-17 06:57 PM|只看該作者
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
如果單純是五子棋的程式，我會建議就像前面flylikeann9的想法，先宣告一個二維陣列。
這樣的狀況是最直觀、單純的，
一來解決判斷座標上有沒有棋子的問題，二來用在判斷有沒有五子連在一起也很方便。
如果你採用全盤偵測方式，即使用for迴圈去判斷各座標的上下左右，其實也只有作19x19次迴圈而已，而且如果有設定一些條件，有些for迴圈就能省下來不用跑，對電腦只有一剎那的時間而已。
...
瀏覽完整內容，請先 註冊 或 登入會員





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

使用道具檢舉

s6969445

帖子
5
積分
28 點
潛水值
2140 米
受到警告6樓
發表於 2011-12-29 08:40 PM|只看該作者
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php
[b]回復 [url=http://www05.eyny.com/redirect.php?goto=findpost&pid=131424846&ptid=4938490]6#[/url] [i]pianistfly[/i] [/b]


    感謝大大的解說 讓我受益良多
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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