纸牌游戏十点半之Excel版

aoe1981

调用处代码改为：

1.                         If wj(wj2(i))(j, 2) <> "" Then
   
2.                             hs = wj(wj2(i))(j, 2)
   
3.                             hsz(wj2(i)) = huasezhi(hs)
   
4.                             If hsz(wj2(i)) > maxhsz(wj2(i)) Then maxhsz(wj2(i)) = hsz(wj2(i)) '找出各玩家单张最大花色值
   
5.                         End If
   

复制代码

此时调用时只需要一个参数，也比原来方便了许多……

aoe1981

　　以下算是1.1版吧，只是优化版，不算是功能完善版。
　　 十点半(1.1)香川改进.rar (78.71 KB, 下载次数: 12)

2014-8-31 14:19 上传

点击文件名下载附件

　　已根据香川23楼建议更新附件。

香川群子

aoe1981 发表于 2014-8-31 10:15
调用处代码改为：此时调用时只需要一个参数，也比原来方便了许多……

花色比较问题已经简化，不需要单独写一个自定义函数了。

在 Public Sub tanpai(yjzz1)
中增加变量s
Dim i%, j%, dizhi$, dizhi1$, dizhi2$, dizhi3$, wj1, ds, s$
s = "升方K方Q方J方A方2方3方4方5方6方7方8方9方0梅K梅Q梅J梅A梅2梅3梅4梅5梅6梅7梅8梅9梅0红K红Q红J红A红2红3红4红5红6红7红8红9红0桃K桃Q桃J桃A桃2桃3桃4桃5桃6桃7桃8桃9桃0二王大王"

…………

然后For循环中改为：

For j = 1 To 5 '其实摊牌时最多有4张牌
    hs = wj(wj2(i))(j, 2)
    If hs <> "" Then
        hsz(wj2(i)) = InStr(s, hs)
        If hsz(wj2(i)) > maxhsz(wj2(i)) Then maxhsz(wj2(i)) = hsz(wj2(i)) '找出各玩家单张最大花色值
    End If
Next j

…………
过程中，应该把 hs = wj(wj2(i))(j, 2)提到前面，这样使用变量hs的效率高。

aoe1981

香川群子 发表于 2014-8-31 12:55
花色比较问题已经简化，不需要单独写一个自定义函数了。

在 Public Sub tanpai(yjzz1)

22楼附件按您的建议已修改。
“过程中，应该把 hs = wj(wj2(i))(j, 2)提到前面，这样使用变量hs的效率高。”关于此句，我只想到的是：在判断里头时，hs的赋值计算次数不是少一些吗？
有点不明白……

aoe1981

　　喜讯、喜讯，十点半2.0版终于开发成功，现在发布，现在发布！！！
　　 十点半(2.0).rar (90.25 KB, 下载次数: 42)

2014-9-3 13:00 上传

点击文件名下载附件

　　36楼错误已改正，附件已更新！（2014－9－2　23点）
　　39楼错误已更正，附件已更新！（2014－9－3　13点）

aoe1981

　　十点半2.0新增功能图示：
　　
　　
　　

aoe1981

　　同时，2.0版经过反复测试，修正了在遇到大量极端情况会使代码运行结果出现不合理的情况时的错误，比如：关于什么时候开始摊牌的判断，比如：有一方胜出时原来不要牌的会忽然要牌的错误、比如：最后一张牌憋破后，仍计算在摊牌玩家之内的现象……
　　本版本附件较为可靠，仍有待进一步检验！

aoe1981

　　顺便说一下，本附件十点半游戏的设计初衷各实现效果可以理解为：耍赖的庄家大战各玩家！！！
　　呵呵……

aoe1981

　　还需要补充一点的是：庄家出现自主选择是否要牌的情况并不是经常出现，为防止庄家“做弊”，在小于等于7点时，不会弹出自主选择要牌的提示框，由系统自动要牌！正是基于这一点，所谓庄家“耍赖”，也是在不违背随机性的大前提下进行的“剩余牌分析”，即使如此，并不能排除庄家要牌时的风险……因为，这种分析并不会开后门，直接告诉“庄家”下一张牌是多少点……

aoe1981

　　至此为止，只剩下规则16：“摊牌后若剩余牌数还至少够发牌一轮的，应当继续发牌，直至牌发完或不够新一轮底牌时结束。”没有实现……
　　这个预设为3.0版附件要突破的关口吧……
　　不过，现在我觉得，已经不影响可玩性了……