找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
請尊重及感激所有版主付出和奉獻尊貴會員無限下載附件你準備好成為出色的版主了嗎?
mega 無航海王鬼父旬果中出vrmg
ria kururiakurum劍星魔女は結泡湯蠱惑の幼mantis x

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

[繁]葬送的芙莉蓮25-

[繁]因為不是真正的夥

[繁]月光下的異世界之

[簡]北海道辣妹金古錐

[繁]非自願的不死冒險

[繁]葬送的芙莉蓮28-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 40907|回復: 34

[原創] 用VB6寫的撲克牌小遊戲(4支刀)[複製鏈接]

Rank: 2Rank: 2

帖子
541
積分
212 點
潛水值
13707 米
發表於 2010-5-13 12:05 AM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
本帖最後由 rr09192084 於 2010-6-1 02:43 PM 編輯

用VB6寫的撲克牌小遊戲(4支刀)
  1. Dim colors(8)As Variant, points(8) As Variant
  2. Dim mysum(2)As Variant, gsum(2) As Variant
  3. Dim poker_issame(5) As Boolean
  4. Dim win As Integer
  5. Private Sub Form_Load()
  6.   Dim i As Integer  Command2.Visible = False  For i = 0 To 7    Picture1(i).BorderStyle = 0    Picture1(i).DragMode = 1    Picture1(i).Visible = False  Next i  For i = 0 To 3    Label1(i).Visible = False    Label2(i).Visible = False  Next i  Label5.Visible = FalseEnd Sub

  7. Private Sub Command1_Click()  Dim i As Integer  Label5.Visible = False  For i = 0 To 3    Label1(i).Visible = True    Label2(i).Visible = True  Next i  Command1.Visible = False  Command2.Visible = True  Label2(2).Caption = ""  Label2(3).Caption = ""  Call showPoker  Call calc_poker(0, mysum(), Label2(0), Label2(1))
  8. End Sub
  9. Private Sub Command2_Click()
  10. Command1.Visible = TrueCommand2.Visible = Falsewin = 0Label5.Visible = TrueLabel5.Caption = ""Dim i As IntegerFor i = 8 To 5 Step -1  Picture1(i - 1).Picture = LoadPicture(App.Path & "\Poker\" & colors(i) & "-" & points(i) & ".jpg")  Call wait(0.05)Next iCall calc_poker(4, gsum(), Label2(2), Label2(3))If gsum(0) > gsum(1) Then  Call swap_pic(Picture1(4), Picture1(6))  Call swap_pic(Picture1(5), Picture1(7))  Call calc_poker(4, gsum(), Label2(2), Label2(3))End IfIf mysum(0) > mysum(1) Then  win = -3  Label5.Caption = Label5.Caption & "閒家烏龍,莊家贏!!"Else  For i = 0 To 1    If mysum(i) > gsum(i) Then      win = win + 1     Else      win = win - 1    End If  Next i  If win > 0 Then    Label5.Caption = Label5.Caption & "閒家贏!!"  Else    If win < 0 Then      Label5.Caption = Label5.Caption & "莊家贏!!"    Else      Label5.Caption = Label5.Caption & "平手!!"  End IfEnd If
  11. End Sub
  12. Private Sub wait(Optional ByVal sgnSecondToDelay As Single)   Dim sgnThisTime As Single, sgnCount As Single   If sgnSecondToDelay = 0 Then      Exit Sub   Else      If sgnSecondToDelay < 0.01 Then         sgnSecondToDelay = 0.01      End If   End If   sgnThisTime = Timer   Do While sgnCount < sgnSecondToDelay      sgnCount = Timer - sgnThisTime      DoEvents   LoopEnd Sub
  13. Private Sub showPoker()
  14. Dim i, j, k As Integermycelect = 0
  15. For i = 1 To 8  Picture1(i - 1).AutoSize = True  Picture1(i - 1).Picture = LoadPicture(App.Path & "\poker\6-1.jpg")  Picture1(i - 1).Visible = FalseNext i
  16. For i = 0 To 3    Picture1(i).Visible = True    Call wait(0.2)    Picture1(i + 4).Visible = True    Call wait(0.2)     For j = 0 To 3      Picture1(i).Left = j * 1000      Picture1(i).Top = j * 800 + 4000      Call wait(0.01)    Next j    Picture1(i).Left = i * 2200 + 300    Picture1(i).Top = 8500
  17.     For k = 0 To 3      Picture1(i + 4).Left = j * 1000      Picture1(i + 4).Top = 4000 - j * 600      Call wait(0.03)    Next k    Picture1(i + 4).Left = i * 2200 + 300    Picture1(i + 4).Top = 300    Call wait(0.2)  Next i
  18.   Call getColorPoint(colors, points)
  19.    For i = 1 To 8      Picture1(i - 1).Tag = CStr(colors(i) * 100 + points(i)) ' 將花色乘上100加上點數放入Tag   Next i
  20.     For i = 4 To 1 Step -1       Picture1(i - 1).Picture = LoadPicture(App.Path & "\Poker\" & colors(i) & "-" & points(i) & ".jpg")       Call wait(0.1)    Next i
  21. End Sub
  22. Private Sub getColorPoint(ByRef c() As Variant, ByRef p() As Variant)Dim i As Integer, j As IntegerDim check As BooleanRandomize (Timer)For i = 1 To 8  check = True  While check = True    check = False    c(i) = Int(Rnd() * 4) + 1    p(i) = Int(Rnd() * 13) + 1    For j = 1 To i - 1      If c(j) = c(i) And p(j) = p(i) Then check = True ' 有重複的不算    Next j  WendNext iEnd Sub
  23. Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)    If Index = Source.Index Then Exit Sub           ' 只移動自己不處理    If Source.Index > 3 Or Index > 3 Then Exit Sub  ' 點到對方的牌不處理    Call swap_pic(Source, Picture1(Index))          ' 換牌    Call calc_poker(0, mysum(), Label2(0), Label2(1))End Sub
  24. Private Sub swap_pic(ByRef p1 As PictureBox, ByRef p2 As PictureBox)
  25.     Dim tmpPic As StdPicture    Dim tmpStr As String    Set tmpPic = p1.Picture ' 以下3行是圖形互換    Set p1.Picture = p2.Picture    Set p2.Picture = tmpPic    tmpStr = p1.Tag ' 以下3行是花色點數資料互換    p1.Tag = p2.Tag    p2.Tag = tmpStr    Set tmpPic = Nothing ' 釋放掉定義的物件End Sub
  26. Private Sub calc_poker(ByVal Index As Integer, ByRef sum() As Variant, ByRef lb1 As Label, ByRef lb2 As Label)
  27.     Dim i As Integer    Dim f As Double, g As Double    poker_issame(Index) = True    For i = Index + 1 To Index + 3      poker_issame(Index) = poker_issame(Index) And ((Val(Picture1(i).Tag) \ 100) = (Val(Picture1(i - 1).Tag \ 100)))    Next i    For i = 0 To 1      sum(i) = 0    Next i    If poker_issame(0 + Index) = True Then      lb1.Caption = "同花"      lb2.Caption = "同花"      sum(0) = sum(0) + 1000      sum(1) = sum(1) + 1000      For i = 0 To 1        sum(0) = sum(0) + (Val(Picture1(i + Index).Tag) \ 100) / 100 + (13 - Val(Picture1(i + Index).Tag) Mod 100)        sum(1) = sum(1) + (Val(Picture1(i + Index + 2).Tag) \ 100) / 100 + (13 - Val(Picture1(i + Index + 2).Tag) Mod 100)      Next i      Exit Sub    End If    If Val(Picture1(0 + Index).Tag) Mod 100 = Val(Picture1(1 + Index).Tag) Mod 100 Then      lb1.Caption = CStr(Val(Picture1(0 + Index).Tag) Mod 100) & " 一對"      sum(0) = sum(0) + 100      For i = 0 To 1        sum(0) = sum(0) + (Val(Picture1(i + Index).Tag) \ 100) / 10 + (13 - Val(Picture1(i + Index).Tag) Mod 100)      Next i    Else      f = (2 ^ (13 - Val(Picture1(0 + Index).Tag) Mod 100)) / 10000 + (Val(Picture1(0 + Index).Tag) \ 100) / 100000      g = (2 ^ (13 - Val(Picture1(1 + Index).Tag) Mod 100)) / 10000 + (Val(Picture1(1 + Index).Tag) \ 100) / 100000      sum(0) = sum(0) + (Val(Picture1(0 + Index).Tag) Mod 100 + Val(Picture1(1 + Index).Tag)) Mod 10 + f + g      lb1.Caption = CStr((Val(Picture1(0 + Index).Tag) Mod 100 + Val(Picture1(1 + Index).Tag) Mod 100) Mod 10)    End If    If Val(Picture1(2 + Index).Tag) Mod 100 = Val(Picture1(3 + Index).Tag) Mod 100 Then      lb2.Caption = CStr(Val(Picture1(2 + Index).Tag) Mod 100) & " 一對"      sum(1) = sum(1) + 100      For i = 2 To 3        sum(1) = sum(1) + (Val(Picture1(i + Index).Tag) \ 100) / 10 + (13 - Val(Picture1(i + Index).Tag) Mod 100)      Next i    Else      f = (2 ^ (13 - Val(Picture1(2 + Index).Tag) Mod 100)) / 10000 + (Val(Picture1(2 + Index).Tag) \ 100) / 100000      g = (2 ^ (13 - Val(Picture1(3 + Index).Tag) Mod 100)) / 10000 + (Val(Picture1(3 + Index).Tag) \ 100) / 100000      sum(1) = sum(1) + (Val(Picture1(2 + Index).Tag) Mod 100 + Val(Picture1(3 + Index).Tag)) Mod 10 + f + g      lb2.Caption = CStr((Val(Picture1(2 + Index).Tag) Mod 100 + Val(Picture1(3 + Index).Tag) Mod 100) Mod 10)    End IfEnd Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號?註冊

使用道具檢舉

s25354362 該用戶已被刪除
發表於 2010-6-6 05:27 PM|顯示全部樓層
感謝大大無私分享!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

帖子
0
積分
-1 點
潛水值
-170 米
發表於 2010-7-4 06:30 PM|顯示全部樓層
感恩                     謝大大無私分享
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

ii9ii9ii9ii9 該用戶已被刪除
發表於 2010-7-8 11:40 AM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

Rank: 3Rank: 3Rank: 3

帖子
100
積分
1010 點
潛水值
1667 米
發表於 2010-7-24 06:53 PM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
感謝大大您的分享啦 收下來做參考囉 感恩




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

使用道具檢舉

26732364 該用戶已被刪除
發表於 2010-7-25 06:58 PM|顯示全部樓層

使用道具檢舉

帖子
341
積分
96 點
潛水值
1854 米
發表於 2010-8-23 07:35 PM|顯示全部樓層

使用道具檢舉

h81630 該用戶已被刪除
發表於 2010-11-8 11:11 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

ajeams 該用戶已被刪除
發表於 2010-11-22 10:22 AM|顯示全部樓層
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

ere3212 該用戶已被刪除
發表於 2011-1-2 12:59 AM|顯示全部樓層
感謝大大分享
我也來試試看




使用道具檢舉

deer7878978 該用戶已被刪除
發表於 2011-2-1 05:09 PM|顯示全部樓層

使用道具檢舉

a0956681855g 該用戶已被刪除
發表於 2011-2-5 12:49 AM|顯示全部樓層

使用道具檢舉

頭像被屏蔽

  小學生(200/1000)

Rank: 2Rank: 2

帖子
143
積分
354 點
潛水值
12048 米
發表於 2011-3-20 04:20 PM|顯示全部樓層
提示: 該帖被管理員或版主屏蔽
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

帖子
84
積分
0 點
潛水值
6697 米
發表於 2011-4-2 06:09 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
回復
下載: 訪客無法瀏覽下載點,請先 註冊登入會員
rr09192084


謝謝大大的分享

使用道具檢舉

a7982658 該用戶已被刪除
發表於 2011-4-19 01:25 PM|顯示全部樓層
若有安裝色情守門員,可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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