吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 39|回复: 0

易语言制作qq军旗复盘文件读取源码下载

[复制链接]

1601

主题

1722

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
17862
金币
8060
发表于 6 天前 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [购买VIP]   [充值金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
牌名文本型0 
棋盘坐标棋盘坐标4 
当前方位整数型  
当前颜色整数型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
文件号整数型  
字节集字节集  
字节集1字节集  
字节集2字节集  
字节集3字节集  
字节集4字节集  
字节集5字节集  
整数1整数型  
整数2整数型  
文本文本型  
循环变量整数型  
' 文件号 = 打开文件 (“D:\game\chess of four\14.jgs”, , )
初始化子程序 ()
' _按钮1_被单击 ()
. ' 如果真 (文件号 > 0)
' 字节集 = 读入字节集 (文件号, 1000)
' 整数1 = 41
. ' 计次循环首 (4, )
' 输出调试文本 (到文本 (取字节集中间 (字节集, 整数1, 20)))
' 整数1 = 整数1 + 88
. ' 计次循环尾 ()
' 整数1 = 61
' 文本 = “”
' ' 输出调试文本 (取字节集数据 ({ 12 }, #整数型, ))
. ' 计次循环首 (30, 循环变量)
' 文本 = 文本 + 牌名 [取字节集数据 (取字节集中间 (字节集, 整数1, 1), #整数型, ) + 1] + 选择 (循环变量 % 5 = 0, #换行符, “--”)
' 整数1 = 整数1 + 1
. ' 计次循环尾 ()
' 关闭文件 (文件号)

子程序名返回值类型公开备 注
初始化子程序  
变量名类 型静态数组备 注
文本文本型  
循环变量整数型  
文本 = “,,军旗,地雷,炸弹,司令,军长,师长,旅长,团长,营长,连长,排长,工兵”
牌名 = 分割文本 (文本, “,”, )
更新方位状态 ()
更新棋子颜色 ()
计次循环首 (30, 循环变量)
棋盘坐标 [4].坐标 [循环变量].横坐标 = 多项选择 (取整 ( (循环变量 - 1) ÷ 5) + 1, 9, 47, 85, 124, 164, 203)
棋盘坐标 [4].坐标 [循环变量].纵坐标 = 多项选择 (循环变量 % 5 + 1, 5, 160, 122, 83, 44)
计次循环尾 ()
计次循环首 (30, 循环变量)
棋盘坐标 [1].坐标 [循环变量].纵坐标 = 多项选择 (取整 ( (循环变量 - 1) ÷ 5) + 1, 200, 162, 124, 85, 45, 6)
棋盘坐标 [1].坐标 [循环变量].横坐标 = 多项选择 (循环变量 % 5 + 1, 5, 160, 122, 83, 44)
计次循环尾 ()
计次循环首 (30, 循环变量)
棋盘坐标 [3].坐标 [循环变量].横坐标 = 多项选择 (取整 ( (循环变量 - 1) ÷ 5) + 1, 200, 162, 124, 85, 45, 6)
棋盘坐标 [3].坐标 [循环变量].纵坐标 = 多项选择 (循环变量 % 5 + 1, 161, 6, 44, 83, 122)
计次循环尾 ()
计次循环首 (30, 循环变量)
棋盘坐标 [2].坐标 [循环变量].纵坐标 = 多项选择 (取整 ( (循环变量 - 1) ÷ 5) + 1, 9, 47, 85, 124, 164, 203)
棋盘坐标 [2].坐标 [循环变量].横坐标 = 多项选择 (循环变量 % 5 + 1, 161, 6, 44, 83, 122)
计次循环尾 ()
子程序名返回值类型公开备 注
更新方位状态  
变量名类 型静态数组备 注
位图位图  
位图.载入数据 ( #右侧的棋盘 )
画板1.清除 (, , , )
判断 (单选框1.选中)
当前方位 = #上
画板1.移动 (画板3.左边 + 17, 画板3.顶边, 202, 236)
位图 = 位图.旋转90度 ()
判断 (单选框2.选中)
当前方位 = #下
画板1.移动 (画板3.左边 + 17, 画板3.顶边, 202, 236)
位图 = 位图.旋转90度 ()
判断 (单选框3.选中)
当前方位 = #左
画板1.移动 (画板3.左边, 画板3.顶边 + 17, 236, 202)
位图 = 位图.旋转90度 ()
位图 = 位图.旋转90度 ()
当前方位 = #右
画板1.移动 (画板3.左边, 画板3.顶边 + 17, 236, 202)
画板1.底图 = 位图.取位图数据 ()
处理事件 ()
子程序名返回值类型公开备 注
画出一个棋子  
参数名类 型参考可空数组备 注
参_序号整数型   
参_文本文本型   
颜色标识整数型  
方位标识整数型  
变量名类 型静态数组备 注
位图位图  
图片号整数型  
如果真 (参_文本 = “”)
返回 ()
画板2.清除 (, , , )
画板2.定位写出 (1, 5, 参_文本)
位图.载入数据 (画板2.取图片 (, ))
判断 (方位标识 = #左 )
位图 = 位图.旋转90度 ()
判断 (方位标识 = #右 )
位图 = 位图.旋转90度 ()


图片号 = 载入图片 (位图.取位图数据 ())
画板1.画图片 (图片号, 棋盘坐标 [方位标识].坐标 [参_序号].横坐标, 棋盘坐标 [方位标识].坐标 [参_序号].纵坐标, , , )
卸载图片 (图片号)
子程序名返回值类型公开备 注
读取文件并画出棋阵  
参数名类 型参考可空数组备 注
文件数据字节集   
人序号整数型   
颜色标识整数型  
方位标识整数型  
变量名类 型静态数组备 注
整数1整数型  
临时文本文本型  
循环变量整数型  
整数1 = 41 (人序号 - 1) × 88 + 20
' 输出调试文本 (取字节集数据 ({ 12 }, #整数型, ))
计次循环首 (30, 循环变量)
画出一个棋子 (循环变量, 牌名 [取字节集数据 (取字节集中间 (文件数据, 整数1, 1), #整数型, ) + 1], 当前颜色, 当前方位)
整数1 = 整数1 + 1
计次循环尾 ()
子程序名返回值类型公开备 注
取下棋人名称  
参数名类 型参考可空数组备 注
文件数据字节集   
名字数组文本型 
变量名类 型静态数组备 注
整数1整数型  
循环变量整数型  
整数1 = 41
计次循环首 (4, 循环变量)
名字数组 [循环变量]到文本 (取字节集中间 (文件数据, 整数1, 20))
整数1 = 整数1 + 88
计次循环尾 ()
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
名字数组文本型 4
循环变量整数型  
如果真 (通用对话框1.打开 ())
取下棋人名称 (读入文件 (通用对话框1.文件名), 名字数组)
列表框1.清空 ()
编辑框1.内容 = 取文本中间 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , ) + 1, 取文本长度 (通用对话框1.文件名)倒找文本 (通用对话框1.文件名, “\”, , ) + 1)
计次循环首 (4, 循环变量)
列表框1.加入项目 (名字数组 [循环变量], )
计次循环尾 ()

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
名字数组文本型 4
循环变量整数型  
取下棋人名称 (读入文件 (通用对话框1.文件名), 名字数组)
列表框1.清空 ()
计次循环首 (4, 循环变量)
列表框1.加入项目 (名字数组 [循环变量], )
计次循环尾 ()
列表框1.现行选中项 = 0
子程序名返回值类型公开备 注
_列表框1_列表项被选择  
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框1_被单击  
更新方位状态 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框2_被单击  
更新方位状态 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框3_被单击  
更新方位状态 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框4_被单击  
更新方位状态 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
更新棋子颜色  
判断 (单选框8.选中)
当前颜色 = #蓝
画板2.底图 = #棋子蓝
判断 (单选框7.选中)
当前颜色 = #紫
画板2.底图 = #棋子紫
判断 (单选框6.选中)
当前颜色 = #橙
画板2.底图 = #棋子橙
当前颜色 = #绿
画板2.底图 = #棋子绿

子程序名返回值类型公开备 注
_单选框8_被单击  
更新棋子颜色 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框7_被单击  
更新棋子颜色 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框6_被单击  
更新棋子颜色 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)
子程序名返回值类型公开备 注
_单选框5_被单击  
更新棋子颜色 ()
读取文件并画出棋阵 (读入文件 (通用对话框1.文件名), 列表框1.现行选中项 + 1)


i支持库列表   支持库注释   
BmpOperate位图操作支持库

效果图
QQ截图20201119180922.jpg




上一篇:QQ好友文件分析易语言源码下载
下一篇:易语言制作QQ聊天轰炸器源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2020-11-25 07:14 , Processed in 0.598478 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表