Visual basic 6.0圈圈叉叉的遊戲

鄭鴻輝

1. - -----------------------------------------------
   
2. Const row = 10
   
3. Const col = 10
   
4. Dim state(row, col) As Integer
   
5. Dim xgrid As Integer
   
6. Dim ygrid As Integer
   
7. ' -----------------------------------------------
   
8. Private Sub Form_Activate()
   
9. xgrid = ScaleWidth / col         ' 求小方格寬度
   
10. ygrid = ScaleHeight / row        ' 求小方格高度
    
11. For i = 0 To (row - 1)
    
12.     For j = 0 To (col - 1)
    
13.         X1 = i * xgrid           ' 矩形左上角
    
14.         Y1 = j * ygrid
    
15.         X2 = (i + 1) * xgrid     ' 矩形右下角
    
16.         Y2 = (j + 1) * ygrid
    
17.         Line (X1, Y1)-(X2, Y2), , B   ' 繪方格
    
18.     Next j
    
19. Next i
    
20. End Sub
    
21. ' -----------------------------------------------
    
22. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
23. Dim r As Integer
    
24. r = 140
    
25. X = X \ xgrid                    ' 求欲處理的方格位置
    
26. Y = Y \ ygrid
    
27. cx = (X * xgrid + (X + 1) * xgrid) / 2   ' 中心點
    
28. cy = (Y * ygrid + (Y + 1) * ygrid) / 2
    
29. black = RGB(0, 0, 0)
    
30. white = RGB(255, 255, 255)
    
31. If (Button = 1) Then             ' 按滑鼠左邊鍵
    
32.     If state(X, Y) = 0 Then
    
33.         Circle (cx, cy), r, black        ' 繪圓
    
34.         state(X, Y) = 1
    
35.     ElseIf state(X, Y) = 1 Then
    
36.         Circle (cx, cy), r, white        ' 清除圓
    
37.         state(X, Y) = 0
    
38.     End If
    
39. End If
    
40. If (Button = 2) Then             ' 按滑鼠右邊鍵
    
41.     If state(X, Y) = 0 Then      ' 繪交叉線
    
42.         Line (cx - r, cy - r)-(cx + r, cy + r), black
    
43.         Line (cx - r, cy + r)-(cx + r, cy - r), black
    
44.         state(X, Y) = 2
    
45.     ElseIf state(X, Y) = 2 Then  ' 清除交叉線
    
46.         Line (cx - r, cy - r)-(cx + r, cy + r), white
    
47.         Line (cx - r, cy + r)-(cx + r, cy - r), white
    
48.         state(X, Y) = 0
    
49.     End If
    
50. End If
    
51. End Sub

複製代碼

利用上式程式改寫成圈圈叉叉的遊戲，叉叉或圈圈連續3個
連成一直線，會出現"GAME OVER"字樣。...

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

1. Const row = 10
   
2. Const col = 10
   
3. Dim state(row, col) As Integer
   
4. Dim xgrid As Integer
   
5. Dim ygrid As Integer
   
6. ' -----------------------------------------------
   
7. Private Sub Form_Activate()
   
8. xgrid = ScaleWidth / col         ' 求小方格寬度
   
9. ygrid = ScaleHeight / row        ' 求小方格高度
   
10. For i = 0 To (row - 1)
    
11.     For j = 0 To (col - 1)
    
12.         X1 = i * xgrid           ' 矩形左上角
    
13.         Y1 = j * ygrid
    
14.         X2 = (i + 1) * xgrid     ' 矩形右下角
    
15.         Y2 = (j + 1) * ygrid
    
16.         Line (X1, Y1)-(X2, Y2), , B   ' 繪方格
    
17.     Next j
    
18. Next i
    
19. End Sub
    
20. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
21. Dim r As Integer
    
22. Dim PicState As Integer
    
23. r = 140
    
24. X = X \ xgrid                    ' 求欲處理的方格位置
    
25. Y = Y \ ygrid
    
26. cx = (X * xgrid + (X + 1) * xgrid) / 2   ' 中心點
    
27. cy = (Y * ygrid + (Y + 1) * ygrid) / 2
    
28. black = RGB(0, 0, 0)
    
29. white = RGB(255, 255, 255)
    
30. FormColor = Form1.BackColor            =============>增加此敍述
    
31. If (Button = 1) Then             ' 按滑鼠左邊鍵
    
32.     If state(X, Y) = 0 Then
    
33.         Circle (cx, cy), r, black        ' 繪圓
    
34.         state(X, Y) = 1
    
35.         GameOver = IsGameOver(X, Y, 1)    ========>增加此敍述
    
36.         If GameOver = "Game Over" Then MsgBox "game over" & vbCrLf & vbCrLf & "O 獲勝!!"        ========>增加此敍述
    
37.     ElseIf state(X, Y) = 1 Then
    
38.         Circle (cx, cy), r, FormColor        ' 清除圓
    
39.         state(X, Y) = 0
    
40.     End If
    
41. End If
    
42. If (Button = 2) Then             ' 按滑鼠右邊鍵
    
43.     If state(X, Y) = 0 Then      ' 繪交叉線
    
44.         Line (cx - r, cy - r)-(cx + r, cy + r), black
    
45.         Line (cx - r, cy + r)-(cx + r, cy - r), black
    
46.         state(X, Y) = 2
    
47.         GameOver = IsGameOver(X, Y, 2)  ========>增加此敍述
    
48.         If GameOver = "Game Over" Then MsgBox "game over" & vbCrLf & vbCrLf & "X 獲勝!!"     ========>增加此敍述
    
49.     ElseIf state(X, Y) = 2 Then  ' 清除交叉線
    
50.         Line (cx - r, cy - r)-(cx + r, cy + r), FormColor   '這裡建議改成表單的背景顏色
    
51.         Line (cx - r, cy + r)-(cx + r, cy - r), FormColor
    
52.         state(X, Y) = 0
    
53.     End If
    
54. End If
    
55. End Sub
    
56. 
    
57. 
    
58. Function IsGameOver(X_val As Single, Y_val As Single, status As Integer) As String
    
59. Dim num1, num2, num3, num4 As Integer
    
60. Dim X1, X2, Y1, Y2 As Single
    
61. Dim i, j, k, L, m, n, p, q As Integer
    
62. num1 = 1
    
63. num2 = 1
    
64. num3 = 1
    
65. num4 = 1
    
66. X2 = X_val
    
67. Y2 = Y_val
    
68. 
    
69. '------判斷橫的-------------------------------
    
70. X1 = X2: Y1 = Y2
    
71. For i = X1 - 1 To 0 Step -1
    
72.   If state(i, Y1) = status Then
    
73.      num1 = num1 + 1
    
74.   Else
    
75.      Exit For
    
76.   End If
    
77. Next
    
78. X1 = X2
    
79. For j = X1 + 1 To 9
    
80.   If state(j, Y1) = status Then
    
81.      num1 = num1 + 1
    
82.   Else
    
83.      Exit For
    
84.   End If
    
85. Next
    
86. '||||||判斷直的||||||||||||||||||||||||||||||||||||
    
87. X1 = X2: Y1 = Y2
    
88. For k = Y1 - 1 To 0 Step -1
    
89.   If state(X1, k) = status Then
    
90.      num2 = num2 + 1
    
91.   Else
    
92.      Exit For
    
93.   End If
    
94. Next
    
95. Y1 = Y2
    
96. For L = Y1 + 1 To 9
    
97.   If state(X1, L) = status Then
    
98.      num2 = num2 + 1
    
99.   Else
    
100.      Exit For
     
101.   End If
     
102. Next
     
103. '///////判斷右上~左下////////////////////////////////////
     
104. X1 = X2: Y1 = Y2
     
105. For m = X1 - 1 To 0 Step -1
     
106.   Y1 = Y1 + 1
     
107.   If Y1 <= 9 Then
     
108.     If state(m, Y1) = status Then
     
109.        num3 = num3 + 1
     
110.     Else
     
111.        Exit For
     
112.     End If
     
113.   End If
     
114. Next
     
115. X1 = X2: Y1 = Y2
     
116. For n = X1 + 1 To 9
     
117.   Y1 = Y1 - 1
     
118.   If Y1 >= 0 Then
     
119.     If state(n, Y1) = status Then
     
120.        num3 = num3 + 1
     
121.     Else
     
122.        Exit For
     
123.     End If
     
124.   End If
     
125. Next
     
126. '\\\\\\\判斷左上~右下\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
     
127. X1 = X2: Y1 = Y2
     
128. For p = X1 - 1 To 0 Step -1
     
129.   Y1 = Y1 - 1
     
130.   If Y1 >= 0 Then
     
131.     If state(p, Y1) = status Then
     
132.        num4 = num4 + 1
     
133.     Else
     
134.        Exit For
     
135.     End If
     
136.   End If
     
137. Next
     
138. X1 = X2: Y1 = Y2
     
139. For q = X1 + 1 To 9
     
140.   Y1 = Y1 + 1
     
141.   If Y1 <= 9 Then
     
142.     If state(q, Y1) = status Then
     
143.        num4 = num4 + 1
     
144.     Else
     
145.        Exit For
     
146.     End If
     
147.   End If
     
148. Next
     
149. 
     
150. If num1 >= 3 Or num2 >= 3 Or num3 >= 3 Or num4 >= 3 Then
     
151. IsGameOver = "Game Over"
     
152. Else
     
153. IsGameOver = ""
     
154. End If
     
155. End Function

複製代碼

...

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

對初學者來說,這真是給了我很大的幫助呢!!
謝謝以上兩位前輩的分享!!

圈圈叉叉!!
我想做連線的圈圈叉叉!
希望大大可以多給伊些意見

linmaggie

It's so great sample of Visual Basic,受益良多啊~~~

niceday1008

正在學習vb中，沒基礎真的有點難度。
謝謝大大分享~