全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3009
推到 Plurk!
推到 Facebook!

TCARD(撲克牌圖形元件)..實做21點(BLACK JACK) 涵AI

 
geniustom
版主


發表:100
回覆:303
積分:260
註冊:2003-01-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-01 16:20:26 IP:219.68.xxx.xxx 未訂閱
有一位網友..提出這樣的問題.. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=58856    於是我幫她找了資料..發現一個元件TCARD(撲克牌圖形元件).. 還蠻有趣的..就想說玩一玩..順便練習寫AI 程式一開始先做一些使用者介面的初始化..開始發牌時..使用花式洗牌法將牌 錯開..然後取前22張牌..當作發牌的依據..奇數發給玩家..偶數發給AI.. AI會根據目前已經發的牌來加總平均..算出未來的牌的平均值..決定是否跟牌 另外.他也會判斷是否您已經快贏了(20或21).. 然後放手一搏繼續跟牌(反正都要輸了..拼一下也許會平手).. 花一個多小時完成..介面還挺美觀..程式也寫的很簡潔.. 自己試著玩..竟然每次都輸給我寫的 >_< (錢都輸光光) 大家可以試玩看看..看能不能贏喔 ^ >> ------------------------------------------ 說明..解壓縮
附加檔案:58903_BLACK_JACK.rar
0917624993
一般會員


發表:1
回覆:1
積分:0
註冊:2004-11-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-02 18:26:29 IP:140.131.xxx.xxx 未訂閱
這個太難了...可以幫我找一個簡單點的嗎 只要有發牌 累積點數 暴了會顯示 重新開始 離開 老實說是作業 實在做不出來....麻煩了 謝謝
geniustom
版主


發表:100
回覆:303
積分:260
註冊:2003-01-03

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-02 18:46:24 IP:219.68.xxx.xxx 未訂閱
引言: 這個太難了...可以幫我找一個簡單點的嗎 只要有發牌 累積點數 暴了會顯示 重新開始 離開 老實說是作業 實在做不出來....麻煩了 謝謝
這會難嗎..真正自己寫的程式部分還不超過100行呢.. 您說的這些功能..想要更短..我想也短不了多少吧.. 這已經比我 >(我都有上註解喔) 原理我上面有說了..您如果真的有心要學好 > 會發表這篇文章..是因為我沒做過..想說做看看..分享給需要做類似功能的人 參考用..希望 >
brange
一般會員


發表:6
回覆:9
積分:3
註冊:2007-07-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-08-27 00:31:22 IP:61.61.xxx.xxx 訂閱
請問一下 geniustorn 您所謂的 花式洗牌 是怎麼樣的寫
一般的牌發不都是用亂數函式 random(); 寫成的嗎
難道還有別種更好的洗牌方法嗎

fatmoon1
初階會員


發表:3
回覆:29
積分:36
註冊:2004-05-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-09-18 06:11:31 IP:61.63.xxx.xxx 未訂閱
我在 google 搜尋TCARD元件 找到
TCard V1.1 (無需DLL撲克圖形控件)
http://dev.21tx.com/2005/05/05/10628.html
另外根據
接龍的遊戲code http://delphi.ktop.com.tw/board.php?cid=30&fid=75&tid=41829
superlevin 提到
可以到http://www.gferrari.com/網址去,點選左邊的My Delphi page。下載一個叫做TCard撲克牌元件。
再來,就要靠自己聰明的小腦袋去寫出判斷的程式了!
------
才疏學淺
系統時間:2017-10-17 13:43:33
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!