廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 4324 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
s3748679
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x11 鮮花 x6
分享: 轉寄此文章 Facebook Plurk Twitter 版主評分版主評分 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x4
[Basic][範例] 遊戲版-八后棋(不能參賽,只有分享的份^^")
前言:
直到最近我才看到有這活動...,看大家那麼熱烈參予我也不好意思混下去..,雖然沒得參賽但我還是分享一下。
名稱:八后棋
編寫語言:Visual Basic
操作:
使用滑鼠分為左鍵右鍵
左鍵:下棋及輔助性錯誤判斷
右鍵:取消這一顆棋
編寫流程:做好外觀~>想好相關所需資訊~>使用類別編寫相關欄位~>想好相關方法~>添增程序、函數及類別~>測試~>Debug~>測試..
程式說明:(為了那正八邊形,把筆一直轉呀轉呀轉..)
關於這程式我製作了3個類別(c1主物件、c2棋、C關聯List)以方便作存取
c1主物件...(其實前面的c1是在選單的時候會比較快...)
這個類別製作出來的物件會是存取相關座標方法函數的管道。
其方法有Set_Star、Item(預設)、 CleanValue、Check、AllReShow、Win、(其餘皆是Private級),其中Set_Star是為了初始化而設立的,Item則是存取資訊的管道,CleanValue則是清除各個棋資訊Value值,AllReShow是將全部的位置換至回原本應有的圖片,Win是用來判斷是某達成目標。此類別相關內容大致上就這些了。
P.S.你會發現有個Change事件,那個你可以當作沒看到..
Option Explicit
Dim mInformation() As c2棋 '(7,7)
Event Change(M As c2棋)
Public Sub Set_Star(N() As Image)
ReDim mInformation(7, 7)
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
Set mInformation(i, j) = New c2棋
mInformation(i, j).Set_Star Me, N(i, j), i, j
Next
Next
For i = 0 To 7
For j = 0 To 7
mInformation(i, j).Set_Star2 GetList(i, j)
Next
Next
End Sub
Private Function GetList(X As Integer, Y As Integer) As C關聯List
Dim i As Integer, j As Integer
Dim k As New C關聯List
For i = 0 To 7
If i <> Y Then
'行
k.Add Me(X, i)
End If
If i <> X Then
'列
k.Add Me(i, Y)
End If
If i <> X Then
If Checkk(i, Y - X + i) = True Then
'(1,1)
k.Add Me(i, Y - X + i)
End If
If Checkk(i, X + Y - i) = True Then
'(1,-1)
k.Add Me(i, X + Y - i)
End If
End If
Next
Set GetList = k
End Function
Private Function Checkk(X As Integer, Y As Integer) As Boolean
If X < 0 Or Y < 0 Or X > 7 Or Y > 7 Then
Else
Checkk = True
End If
End Function
Function Item(IndexX As Integer, IndexY As Integer) As c2棋
On Error GoTo DoErr:
Set Item = mInformation(IndexX, IndexY)
Exit Function
DoErr:
Err.Raise 0, , "參數錯誤"
End Function

Private Sub Class_Initialize()
ReDim mInformation(7, 7)
ReDim mShapek(6, 6)
End Sub

Private Sub Class_Terminate()
Debug.Print "C1End"
End Sub

Public Sub CleanValue()
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
mInformation(i, j).Value = False
Next
Next
End Sub

Public Sub C2_Change(M As c2棋)
RaiseEvent Change(M)
End Sub

Public Function Check(X As Integer, Y As Integer) As Boolean
Dim k As c2棋
Set k = Me(X, Y)
Dim i As Integer
If k = True Then Exit Function
Check = True
For i = 0 To k.List.Count - 1
If k.List(i).Value = True Then
Check = False
Exit For
End If
Next
End Function

Public Sub AllReShow()
Dim i As Integer, j As Integer
For i = 0 To 7
For j = 0 To 7
Me(i, j).ReShow
Next
Next
End Sub

Public Function Win() As Boolean
Dim i As Integer, j As Integer
Dim sum As Integer
For i = 0 To 7
For j = 0 To 7
If Me(i, j).Value = True Then
sum = sum + 1
End If
Next ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容


此文章被評分,最近評分記錄
財富:100 (by 三仙) | 理由: 依據程式作品範例分享規則與獎勵標準;財富100!! ^^ 因為您的參與,讓程式設計更容易!!
財富:200 (by andyz) | 理由: 下次記得要參賽喔~



簽名.簽名..簽名..(某人:恩~不錯,很有簽名的感覺..)
獻花 x2 回到頂端 [樓 主] From:臺灣 | Posted:2008-12-03 20:28 |
三仙 會員卡
個人頭像
個人文章 個人相簿 個人日記 個人地圖
頭銜:以馬內利 以馬內利
版主
級別: 版主 該用戶目前不上站
版區: 程式設計
推文 x17 鮮花 x370
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

樓主晚了一步
不過下次仍有活動
請屆時撥冗參加 表情


挖出答案的難度,取決提問的深度!
獻花 x0 回到頂端 [1 樓] From:臺灣臺北市亞太線上公司 | Posted:2008-12-03 20:55 |
s3748679
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x11 鮮花 x6
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

下面是引用三仙於2008-12-03 20:55(1樓)發表的 :
樓主晚了一步
不過下次仍有活動
請屆時撥冗參加 表情
好滴..假如有空的話我會的^^


簽名.簽名..簽名..(某人:恩~不錯,很有簽名的感覺..)
獻花 x0 回到頂端 [2 樓] From:臺灣 | Posted:2008-12-03 21:13 |
leacks 手機
個人文章 個人相簿 個人日記 個人地圖
小有名氣
級別: 小有名氣 該用戶目前不上站
推文 x8 鮮花 x324
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

好像只能自己下?
沒有autorun


獻花 x0 回到頂端 [3 樓] From:臺灣基礎科技網絡 | Posted:2008-12-04 13:13 |
s3748679
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x11 鮮花 x6
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

下面是引用leacks於2008-12-04 13:13(3樓)發表的 :
好像只能自己下?
沒有autorun

不好意思..(某某人偷懶不想做=               =..)
(看看我有沒有時間在弄了..)


簽名.簽名..簽名..(某人:恩~不錯,很有簽名的感覺..)
獻花 x0 回到頂端 [4 樓] From:臺灣 | Posted:2008-12-04 13:20 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.130534 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言