|

本帖最后由 1113344477 于 2021-5-20 22:06 编辑
.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_窗口1
.程序集变量 i, 整数型
.程序集变量 判定, 整数型, , "54"
.子程序 _窗口1_创建完毕
dm.初始化 (取运行目录 () + “\库\dm.dll”)
启动线程 (&刷新, , )
.子程序 刷新
_3.标题 = “4”
_4.标题 = “4”
_5.标题 = “4”
_6.标题 = “4”
_7.标题 = “4”
_8.标题 = “4”
_9.标题 = “4”
_10.标题 = “4”
_J.标题 = “4”
_Q.标题 = “4”
_K.标题 = “4”
_A.标题 = “4”
_2.标题 = “4”
_王.标题 = “2”
.子程序 _按钮1_被单击
.局部变量 序号, 整数型
.局部变量 返回值1, 文本型
.变量循环首 (1, 20, 1, )
.判断开始 (i = 0)
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\3\黑桃3.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [1] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_3.标题 = 到文本 (到整数 (_3.标题) - 1)
判定 [1] = 1
.默认
.判断结束
.默认
.判断结束
.判断开始 (i = 0)
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\3\梅花3.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [2] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_3.标题 = 到文本 (到整数 (_3.标题) - 1)
判定 [2] = 1
.默认
.判断结束
.默认
.判断结束
.判断开始 (i = 0)
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\3\红桃3.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [3] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_3.标题 = 到文本 (到整数 (_3.标题) - 1)
判定 [3] = 1
.默认
.判断结束
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\3\方块3.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [4] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_3.标题 = 到文本 (到整数 (_3.标题) - 1)
判定 [4] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\4\黑桃4.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [5] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_4.标题 = 到文本 (到整数 (_4.标题) - 1)
判定 [5] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\4\梅花4.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [6] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_4.标题 = 到文本 (到整数 (_4.标题) - 1)
判定 [6] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\4\方块4.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [7] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_4.标题 = 到文本 (到整数 (_4.标题) - 1)
判定 [7] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\4\黑桃4.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [8] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_4.标题 = 到文本 (到整数 (_4.标题) - 1)
判定 [8] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\5\黑桃5.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [9] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_5.标题 = 到文本 (到整数 (_5.标题) - 1)
判定 [9] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\5\梅花5.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [10] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_5.标题 = 到文本 (到整数 (_5.标题) - 1)
判定 [10] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\5\方块5.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [11] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_5.标题 = 到文本 (到整数 (_5.标题) - 1)
判定 [1] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\5\黑桃5.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [12] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_5.标题 = 到文本 (到整数 (_5.标题) - 1)
判定 [12] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\6\黑桃6.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [13] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_6.标题 = 到文本 (到整数 (_6.标题) - 1)
判定 [13] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\6\梅花6.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [14] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_6.标题 = 到文本 (到整数 (_6.标题) - 1)
判定 [14] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\6\方块6.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [15] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_6.标题 = 到文本 (到整数 (_6.标题) - 1)
判定 [15] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\6\黑桃6.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [16] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_6.标题 = 到文本 (到整数 (_6.标题) - 1)
判定 [16] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\7\黑桃7.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [17] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_7.标题 = 到文本 (到整数 (_7.标题) - 1)
判定 [17] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\7\梅花7.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [18] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_7.标题 = 到文本 (到整数 (_7.标题) - 1)
判定 [18] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\7\方块7.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [19] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_7.标题 = 到文本 (到整数 (_7.标题) - 1)
判定 [19] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\7\黑桃7.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [20] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_7.标题 = 到文本 (到整数 (_7.标题) - 1)
判定 [20] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\8\黑桃8.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [21] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_8.标题 = 到文本 (到整数 (_8.标题) - 1)
判定 [21] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\8\梅花8.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [22] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_8.标题 = 到文本 (到整数 (_8.标题) - 1)
判定 [22] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\8\方块8.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [23] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_8.标题 = 到文本 (到整数 (_8.标题) - 1)
判定 [23] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\8\黑桃8.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [24] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_8.标题 = 到文本 (到整数 (_8.标题) - 1)
判定 [24] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\9\黑桃9.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [25] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_9.标题 = 到文本 (到整数 (_9.标题) - 1)
判定 [25] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\9\梅花9.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [26] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_9.标题 = 到文本 (到整数 (_9.标题) - 1)
判定 [26] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\9\方块9.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [27] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_9.标题 = 到文本 (到整数 (_9.标题) - 1)
判定 [27] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\9\黑桃9.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [28] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_9.标题 = 到文本 (到整数 (_9.标题) - 1)
判定 [28] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\10\黑桃10.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [29] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_10.标题 = 到文本 (到整数 (_10.标题) - 1)
判定 [29] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\10\梅花10.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [30] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_10.标题 = 到文本 (到整数 (_10.标题) - 1)
判定 [30] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\10\方块10.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [31] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_10.标题 = 到文本 (到整数 (_10.标题) - 1)
判定 [31] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\10\黑桃10.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [32] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_10.标题 = 到文本 (到整数 (_10.标题) - 1)
判定 [32] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\J\黑桃J.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [33] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_J.标题 = 到文本 (到整数 (_J.标题) - 1)
判定 [33] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\J\梅花J.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [34] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_J.标题 = 到文本 (到整数 (_J.标题) - 1)
判定 [34] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\J\方块J.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [35] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_J.标题 = 到文本 (到整数 (_J.标题) - 1)
判定 [35] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\J\黑桃J.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [36] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_J.标题 = 到文本 (到整数 (_J.标题) - 1)
判定 [36] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\Q\黑桃Q.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [37] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_Q.标题 = 到文本 (到整数 (_Q.标题) - 1)
判定 [37] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\Q\梅花Q.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [38] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_Q.标题 = 到文本 (到整数 (_Q.标题) - 1)
判定 [38] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\Q\方块Q.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [39] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_Q.标题 = 到文本 (到整数 (_Q.标题) - 1)
判定 [39] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\Q\黑桃Q.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [40] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_Q.标题 = 到文本 (到整数 (_Q.标题) - 1)
判定 [40] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\K\黑桃K.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [41] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_K.标题 = 到文本 (到整数 (_K.标题) - 1)
判定 [41] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\K\梅花K.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [42] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_K.标题 = 到文本 (到整数 (_K.标题) - 1)
判定 [42] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\K\方块K.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [43] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_K.标题 = 到文本 (到整数 (_K.标题) - 1)
判定 [43] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\K\黑桃K.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [44] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_K.标题 = 到文本 (到整数 (_K.标题) - 1)
判定 [44] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\A\黑桃A.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [45] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_A.标题 = 到文本 (到整数 (_A.标题) - 1)
判定 [45] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\A\梅花A.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [46] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_A.标题 = 到文本 (到整数 (_A.标题) - 1)
判定 [46] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\A\方块A.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [47] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_A.标题 = 到文本 (到整数 (_A.标题) - 1)
判定 [47] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\A\黑桃A.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [48] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_A.标题 = 到文本 (到整数 (_A.标题) - 1)
判定 [48] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\2\黑桃2.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [49] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_2.标题 = 到文本 (到整数 (_2.标题) - 1)
判定 [49] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\2\梅花2.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [50] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_2.标题 = 到文本 (到整数 (_2.标题) - 1)
判定 [50] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\2\方块2.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [51] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_2.标题 = 到文本 (到整数 (_2.标题) - 1)
判定 [51] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\2\黑桃2.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [52] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_2.标题 = 到文本 (到整数 (_2.标题) - 1)
判定 [52] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\王\小王.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [53] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_王.标题 = 到文本 (到整数 (_王.标题) - 1)
判定 [53] = 1
.默认
.判断结束
返回值1 = dm.FindPicE (7, 390, 1036, 499, 取运行目录 () + “\img\王\大王.bmp”, “202020”, 0.8, 序号)
调试输出 (返回值1)
.判断开始 (判定 [54] ≠ 1 且 返回值1 ≠ “-1|-1|-1”)
_王.标题 = 到文本 (到整数 (_王.标题) - 1)
.默认
判定 [54] = 1
.判断结束
跳出循环 ()
.变量循环尾 ()
研究了很久没有找出问题,偏色和相似度都调整过,
|
-
-
记牌器.e
140.46 KB, 下载次数: 37, 下载积分: 精币 -2 枚
|