66666666666666666

666666666666666666666666666666666666

...............................

好东西啊，下载试一试

感谢楼主辛苦分享

XChuang 发表于 2018-8-16 12:33
所以才用EXUI的...不然那个图片框透明搞不了

那个exui是支持库吗 那里下载

66666666666666666666

zxyzl16 发表于 2018-8-15 11:06
你的判断胜负我没看懂，好长的样子，我是先把所有的点都弄成一个容器，然后监视鼠标点击，把点击的坐标除以 ...

所以才用EXUI的...不然那个图片框透明搞不了

.版本 2

.子程序 判断胜负
.参数 颜色, 整数型
.参数 xx, 整数型
.参数 yy, 整数型
.参数 执子, 文本型
.局部变量 xxx
.局部变量 yyy
.局部变量 i

xxx ＝ xx
yyy ＝ yy
.判断开始 (颜色 ＝ 0)
    .计次循环首 (4, i)
        .如果真 (i ＝ 1)
            单次判断 (xxx, yyy, 执子, “-”, )
            xxx ＝ xx
            yyy ＝ yy
            计数 ＝ 计数 － 1
            单次判断 (xxx, yyy, 执子, “+”, )
        .如果真结束
        .如果真 (i ＝ 2)
            单次判断 (xxx, yyy, 执子, , “-”)
            xxx ＝ xx
            yyy ＝ yy
            计数 ＝ 计数 － 1
            单次判断 (xxx, yyy, 执子, , “+”)
        .如果真结束
        .判断开始 (i ＝ 3)
            单次判断 (xxx, yyy, 执子, “+”, “-”)
            xxx ＝ xx
            yyy ＝ yy
            计数 ＝ 计数 － 1
            单次判断 (xxx, yyy, 执子, “-”, “+”)
        .默认

        .判断结束
        .如果真 (i ＝ 4)
            单次判断 (xxx, yyy, 执子, “+”, “+”)
            xxx ＝ xx
            yyy ＝ yy
            计数 ＝ 计数 － 1
            单次判断 (xxx, yyy, 执子, “-”, “-”)
        .如果真结束
        .如果真 (计数 ＝ 5)
            .判断开始 (执子 ＝ “0”)
                信息框 (“黑棋获胜”, 0, , )
            .默认
                信息框 (“白棋获胜”, 0, , )
            .判断结束

        .如果真结束
        计数 ＝ 0
    .计次循环尾 ()
.默认




.判断结束


.子程序 单次判断
.参数 xxx, 整数型
.参数 yyy, 整数型
.参数 执子, 文本型
.参数 运算符1, 文本型, 可空
.参数 运算符2, 文本型, 可空

.判断循环首 (棋谱 [xxx] [yyy].标记 ＝ 执子)
    计数 ＝ 计数 ＋ 1
    .判断开始 (运算符1 ＝ “+”)
        xxx ＝ xxx ＋ 1
    .判断 (运算符1 ＝ “-”)
        xxx ＝ xxx － 1
    .默认

    .判断结束
    .判断开始 (运算符2 ＝ “+”)
        yyy ＝ yyy ＋ 1
    .判断 (运算符2 ＝ “-”)
        yyy ＝ yyy － 1
    .默认

    .判断结束
    .如果真 (xxx ＝ 0 或 yyy ＝ 0)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()

你的判断胜负我没看懂，好长的样子，我是先把所有的点都弄成一个容器，然后监视鼠标点击，把点击的坐标除以棋子大小，得出点击的容器的坐标[x][y],还有就是我的背景不是透明的 好像缺了什么支持库，把背景颜色设置透明也没用