关于麻将听牌分析

zopey

     问题1. 求B列 已听牌的牌型 全组合（3\6\9个配好的 不同色不计），
     问题2. 再求 C列 所听的牌及张数，可考虑用自定义函数。

       mj.zip (8.79 KB, 下载次数: 88)

2017-7-11 16:52 上传

点击文件名下载附件

chxw68

呵呵，有时间了好好研究研究，到麻将场上赢钱去。不过不知道打麻将让带电脑吗？

zopey

经搜索，找到了论坛tycp 朋友的麻将分析代码，借鉴后初步调试ok，能生成结果。
但运行分析结果尚有错误，还需对代码进一步研读修改。
mjj.zip (18.25 KB, 下载次数: 35)

2017-7-12 11:41 上传

点击文件名下载附件

zopey

问题1
如上图示，2个黄色单元格为程序计算给出听的牌，
凑半天实在凑不出和牌来，这就是假胡？

问题2
程序中有个变量 “jiang” 用0、1标志有无将头，不知道是否要做申明？


mjj.zip (18.52 KB, 下载次数: 24)

2017-7-12 16:29 上传

点击文件名下载附件

APPLE123

学以致用，有趣的题目。

zopey

求助 ：第49行 2224445566  原本结果是 234567，（2 是错的）
在hupai（）函数中加入静态变量jiang的 申明语句： static  jiang as integer 后，
执行结果只显示 一个结果 3 。（虽然排除了2， 后面的4567 也丢掉了）

zopey

1. '判断和牌的递归函数
   
2. Public Function hupai(paishu) As Boolean
   
3. Static jiang As Integer
   
4. Dim i As Byte
   
5. 'MsgBox jiang
   
6. 
   
7. If check(paishu) = 0 Then
   
8.    hupai = True
   
9. Else
   
10. 
    
11. For i = 1 To 9 '循环开始----------------------
    
12. '0张 5张
    
13. If paishu(i) <> 0 Then
    
14. 
    
15. '4张组合(杠子)
    
16. If paishu(i) = 4 Then
    
17.    paishu(i) = 0
    
18.    If hupai(paishu) = True Then
    
19.       hupai = True
    
20.       jiang = 0
    
21.       Exit Function
    
22.    End If
    
23.    paishu(i) = 4
    
24. End If
    
25. 
    
26. '3张组合(大对)
    
27. If paishu(i) >= 3 Then
    
28.    paishu(i) = paishu(i) - 3
    
29.    If hupai(paishu) = True Then
    
30.       hupai = True
    
31.       jiang = 0
    
32.       Exit Function
    
33.    End If
    
34.    paishu(i) = paishu(i) + 3
    
35. End If
    
36. 
    
37. '2张组合(将牌)
    
38. If jiang = 0 And paishu(i) >= 2 Then
    
39.    jiang = 1
    
40.    paishu(i) = paishu(i) - 2
    
41.    If hupai(paishu) = True Then
    
42.       hupai = True
    
43.       jiang = 0
    
44.       Exit Function
    
45.    End If
    
46.    paishu(i) = paishu(i) + 2
    
47.    jiang = 0
    
48. End If
    
49. 
    
50. '顺牌组合，注意是从前往后组合
    
51.    If i <= 7 Then
    
52.       If paishu(i + 1) > 0 And paishu(i + 2) > 0 Then
    
53.         paishu(i) = paishu(i) - 1
    
54.         paishu(i + 1) = paishu(i + 1) - 1
    
55.         paishu(i + 2) = paishu(i + 2) - 1
    
56.         If hupai(paishu) = True Then
    
57.            hupai = True
    
58.            jiang = 0
    
59.            Exit Function
    
60.         End If
    
61.         paishu(i) = paishu(i) + 1
    
62.         paishu(i + 1) = paishu(i + 1) + 1
    
63.         paishu(i + 2) = paishu(i + 2) + 1
    
64.       End If
    
65.    End If
    
66.    
    
67. '无法全部组合，不和
    
68. hupai = False
    
69. Exit For
    
70. End If
    
71. Next '循环结束-------------------------
    
72. End If
    
73. 
    
74. End Function

复制代码

zopey

问题基本得以解决，代码如上，
详见附件

mjj.zip (18.93 KB, 下载次数: 137)

2017-7-13 16:41 上传

点击文件名下载附件

jsgj2023

哈哈,这是打的转转麻将么?

zopey

jsgj2023 发表于 2018-3-3 10:30
哈哈,这是打的转转麻将么?

电脑单机麻将 自带的一个小游戏，给你一副清一色的已听牌，在限定的时间内找出 胡哪几张牌。
开始是找1张，然后难度升级找2张，3张 。。。限定时间越来越短

屡次不过关之后，只能以电脑制电脑。