.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 坐标, 坐标
.子程序 _画图1_被单击
.局部变量 id, 整数型
.局部变量 tmp, 文本型
.局部变量 z, 文本型, , "0"
.局部变量 text, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 len, 整数型
.局部变量 tmplen, 文本型
' 画板1.清除 (, , , )
画板1.画笔粗细 ＝ 到数值 (编辑框2.内容)
画板1.画笔类型 ＝ 到数值 (编辑框3.内容)
id ＝ 打开文件 (取运行目录 () ＋ “\tmp\” ＋ 编辑框1.内容 ＋ “.txt”, , )
.判断循环首 (取反 (是否在文件尾 (id, )))
tmp ＝ 读入一行 (id)
.如果真 (寻找文本 (tmp, “:”, , 假) ≠ -1)
z ＝ 分割文本 (tmp, “:”, )
画板1.画直线 (到数值 (z [1]), 到数值 (z [2]), 到数值 (z [3]), 到数值 (z [4]))
len ＝ 取文本长度 (z [1] ＋ “:” ＋ z [2] ＋ “:” ＋ z [3] ＋ “:” ＋ z [4])
.如果 (len ＜ 10)
tmplen ＝ “0” ＋ 到文本 (len)
.否则
tmplen ＝ 到文本 (len)
.如果结束
' 列表框1.加入项目 (tmplen ＋ “:” ＋ z [1] ＋ “:” ＋ z [2] ＋ “:” ＋ z [3] ＋ “:” ＋ z [4], )
' Sleep (3)
.如果真结束
处理事件 ()
.判断循环尾 ()
.子程序 _按钮3_被单击
.局部变量 m, 整数型
.局部变量 i, 整数型
.局部变量 id, 整数型
m ＝ 列表框1.取项目数 ()
id ＝ 打开文件 (取运行目录 () ＋ “\tmp.txt”, , )
.计次循环首 (m, i)
写出文本 (id, 列表框1.取项目文本 (i － 1) ＋ #换行符)
.计次循环尾 ()
关闭文件 (id)
.子程序 _画图2_被单击
.局部变量 id, 整数型
.局部变量 tmp, 文本型
.局部变量 z, 文本型, , "0"
.局部变量 i, 整数型
画板1.清除 (, , , )
画板1.画笔粗细 ＝ 到数值 (编辑框2.内容)
画板1.画笔类型 ＝ 到数值 (编辑框3.内容)
id ＝ 列表框1.取项目数 ()
.计次循环首 (id, i)
z ＝ 分割文本 (列表框1.取项目文本 (i － 1), “:”, )
画板1.画直线 (到数值 (z [2]), 到数值 (z [3]), 到数值 (z [4]), 到数值 (z [5]))
处理事件 ()
.计次循环尾 ()
.子程序 _按钮1_被单击
列表框1.清空 ()
.子程序 _画网格1_被单击
画网格 (画板1, 200, 200)
.子程序 _按钮4_被单击
.局部变量 k, 整数型
.局部变量 横向格数, 整数型
.局部变量 递增数, 小数型
.局部变量 横向计次, 整数型
横向格数 ＝ 100
重定义数组 (坐标.x, 假, 0)
重定义数组 (坐标.y, 假, 0)
.计次循环首 (横向格数, k)
.计次循环首 (横向格数, 横向计次)
递增数 ＝ 到小数 (2 × 横向计次 － 1) ' 1 3 5 7
加入成员 (坐标.x, 递增数)
加入成员 (坐标.y, 到小数 (2 × k － 1))
.计次循环尾 ()
.计次循环尾 ()
_列表框2_双击选择 ()
.子程序 _列表框2_双击选择
.局部变量 m, 整数型
.局部变量 i, 整数型
.局部变量 k, 整数型
.局部变量 n, 整数型
.局部变量 txt, 文本型
超级列表框1.全部删除 ()
m ＝ 取数组成员数 (坐标.x) ÷ 100
.计次循环首 (m, i)
编辑框4.加入文本 (txt ＋ #换行符)
txt ＝ “”
k ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (k, 0, 到文本 (i))
.计次循环首 (99, n)
.判断开始 (画板1.取点 (坐标.x [n ＋ (i － 1) × 100], 坐标.y [n ＋ (i － 1) × 100]) ＝ 16777215)
超级列表框1.置标题 (k, n, “+”)
txt ＝ txt ＋ “+”
.默认
超级列表框1.置标题 (k, n, “0”)
txt ＝ txt ＋ “ ”
.判断结束
.计次循环尾 ()
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 k, 整数型
.计次循环首 (101, i)
k ＝ 超级列表框1.插入列 (, , , , , )
超级列表框1.置列标题 (k, 到文本 (i － 1))
超级列表框1.置列宽 (k, 25)
.计次循环尾 ()
.子程序 _按钮2_被单击
画板1.清除 (, , , )
画板2.清除 (, , , )
画板3.清除 (, , , )
超级列表框1.全部删除 ()
超级列表框2.全部删除 ()
超级列表框3.全部删除 ()
编辑框4.内容 ＝ “”
编辑框6.内容 ＝ “”
.子程序 _按钮6_被单击
画板3.定位写出 (0, 0, 编辑框5.内容)
.子程序 _按钮7_被单击
' 刚才取出矩形为 (1,12):(18,29)
取矩形图片 (2, 12, 18, 29, 画板2)
.子程序 取矩形图片
.参数 x1, 整数型
.参数 y1, 整数型
.参数 x2, 整数型
.参数 y2, 整数型
.参数 画板, 画板
x1 ＝ 2 × x1
y1 ＝ 2 × y1
x2 ＝ 2 × x2
y2 ＝ y1 ＋ y2 × 2
画板1.复制 (x1, y1, x2, y2, 画板, 0, 0, 1)
.子程序 画网格
.参数 画板, 画板
.参数 高, 整数型
.参数 宽, 整数型
.局部变量 i, 整数型
.局部变量 k, 整数型
画板.画笔粗细 ＝ 1
.变量循环首 (0, 宽, 2, i)
画板.画直线 (0, i, 宽, i) ' 横向划线
.变量循环尾 ()
.变量循环首 (0, 高, 2, i)
画板.画直线 (i, 0, i, 高) ' 纵向划线
.变量循环尾 ()
.子程序 _画网格2_被单击
画网格 (画板2, 40, 40)
.子程序 _画网格3_被单击
画网格 (画板3, 40, 40)
.子程序 取坐标数组
.参数 坐标组, 坐标
.参数 组件, 画板
.参数 横向格数, 整数型
.参数 特征列表, 超级列表框
.参数 编辑框, 编辑框
.局部变量 k, 整数型
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 递增数, 小数型
.局部变量 横向计次, 整数型
.局部变量 text, 文本型
重定义数组 (坐标组.x, 假, 0)
重定义数组 (坐标组.y, 假, 0)
重定义数组 (坐标组.特征, 假, 0)
编辑框.内容 ＝ “”
特征列表.全部删除 ()
.计次循环首 (横向格数, k)
.计次循环首 (横向格数, 横向计次)
递增数 ＝ 到小数 (2 × 横向计次 － 1) ' 1 3 5 7
加入成员 (坐标组.x, 递增数)
加入成员 (坐标组.y, 到小数 (2 × k － 1))
加入成员 (坐标组.特征, 0)
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (横向格数, i)
k ＝ 特征列表.插入列 (, , , , , )
特征列表.置列标题 (k, 到文本 (i － 1))
特征列表.置列宽 (k, 25)
.计次循环尾 ()
.计次循环首 (取数组成员数 (坐标组.x) ÷ 横向格数, i)
text ＝ “”
k ＝ 特征列表.插入表项 (, , , , , )
输出调试文本 (k)
特征列表.置标题 (k, 0, 到文本 (i))
.计次循环首 (横向格数, n)
.判断开始 (组件.取点 (坐标组.x [n ＋ (i － 1) × 横向格数], 坐标组.y [n ＋ (i － 1) × 横向格数]) ＝ 16777215)
特征列表.置标题 (k, n, “+”)
text ＝ text ＋ “*”
坐标组.特征 [n ＋ (i － 1) × 横向格数] ＝ 1
.默认
特征列表.置标题 (k, n, “0”)
坐标组.特征 [n ＋ (i － 1) × 横向格数] ＝ 0
text ＝ text ＋ “ ”
.判断结束
.计次循环尾 ()
编辑框.加入文本 (text ＋ #换行符)
.计次循环尾 ()
编辑框.内容 ＝ 子文本替换 (编辑框.内容, 取空白文本 (20) ＋ #换行符, “”, , , 真)
.子程序 _按钮10_被单击
.局部变量 Tmp, 坐标
取坐标数组 (Tmp, 画板2, 20, 超级列表框2, 编辑框4)
.子程序 _按钮11_被单击
.局部变量 Tmp, 坐标
取坐标数组 (Tmp, 画板3, 20, 超级列表框3, 编辑框6)
下载文件 (已下载 242 次)
.支持库 iext
.程序集 窗口程序集1
.程序集变量 坐标, 坐标
.子程序 _画图1_被单击
.局部变量 id, 整数型
.局部变量 tmp, 文本型
.局部变量 z, 文本型, , "0"
.局部变量 text, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 len, 整数型
.局部变量 tmplen, 文本型
' 画板1.清除 (, , , )
画板1.画笔粗细 ＝ 到数值 (编辑框2.内容)
画板1.画笔类型 ＝ 到数值 (编辑框3.内容)
id ＝ 打开文件 (取运行目录 () ＋ “\tmp\” ＋ 编辑框1.内容 ＋ “.txt”, , )
.判断循环首 (取反 (是否在文件尾 (id, )))
tmp ＝ 读入一行 (id)
.如果真 (寻找文本 (tmp, “:”, , 假) ≠ -1)
z ＝ 分割文本 (tmp, “:”, )
画板1.画直线 (到数值 (z [1]), 到数值 (z [2]), 到数值 (z [3]), 到数值 (z [4]))
len ＝ 取文本长度 (z [1] ＋ “:” ＋ z [2] ＋ “:” ＋ z [3] ＋ “:” ＋ z [4])
.如果 (len ＜ 10)
tmplen ＝ “0” ＋ 到文本 (len)
.否则
tmplen ＝ 到文本 (len)
.如果结束
' 列表框1.加入项目 (tmplen ＋ “:” ＋ z [1] ＋ “:” ＋ z [2] ＋ “:” ＋ z [3] ＋ “:” ＋ z [4], )
' Sleep (3)
.如果真结束
处理事件 ()
.判断循环尾 ()
.子程序 _按钮3_被单击
.局部变量 m, 整数型
.局部变量 i, 整数型
.局部变量 id, 整数型
m ＝ 列表框1.取项目数 ()
id ＝ 打开文件 (取运行目录 () ＋ “\tmp.txt”, , )
.计次循环首 (m, i)
写出文本 (id, 列表框1.取项目文本 (i － 1) ＋ #换行符)
.计次循环尾 ()
关闭文件 (id)
.子程序 _画图2_被单击
.局部变量 id, 整数型
.局部变量 tmp, 文本型
.局部变量 z, 文本型, , "0"
.局部变量 i, 整数型
画板1.清除 (, , , )
画板1.画笔粗细 ＝ 到数值 (编辑框2.内容)
画板1.画笔类型 ＝ 到数值 (编辑框3.内容)
id ＝ 列表框1.取项目数 ()
.计次循环首 (id, i)
z ＝ 分割文本 (列表框1.取项目文本 (i － 1), “:”, )
画板1.画直线 (到数值 (z [2]), 到数值 (z [3]), 到数值 (z [4]), 到数值 (z [5]))
处理事件 ()
.计次循环尾 ()
.子程序 _按钮1_被单击
列表框1.清空 ()
.子程序 _画网格1_被单击
画网格 (画板1, 200, 200)
.子程序 _按钮4_被单击
.局部变量 k, 整数型
.局部变量 横向格数, 整数型
.局部变量 递增数, 小数型
.局部变量 横向计次, 整数型
横向格数 ＝ 100
重定义数组 (坐标.x, 假, 0)
重定义数组 (坐标.y, 假, 0)
.计次循环首 (横向格数, k)
.计次循环首 (横向格数, 横向计次)
递增数 ＝ 到小数 (2 × 横向计次 － 1) ' 1 3 5 7
加入成员 (坐标.x, 递增数)
加入成员 (坐标.y, 到小数 (2 × k － 1))
.计次循环尾 ()
.计次循环尾 ()
_列表框2_双击选择 ()
.子程序 _列表框2_双击选择
.局部变量 m, 整数型
.局部变量 i, 整数型
.局部变量 k, 整数型
.局部变量 n, 整数型
.局部变量 txt, 文本型
超级列表框1.全部删除 ()
m ＝ 取数组成员数 (坐标.x) ÷ 100
.计次循环首 (m, i)
编辑框4.加入文本 (txt ＋ #换行符)
txt ＝ “”
k ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (k, 0, 到文本 (i))
.计次循环首 (99, n)
.判断开始 (画板1.取点 (坐标.x [n ＋ (i － 1) × 100], 坐标.y [n ＋ (i － 1) × 100]) ＝ 16777215)
超级列表框1.置标题 (k, n, “+”)
txt ＝ txt ＋ “+”
.默认
超级列表框1.置标题 (k, n, “0”)
txt ＝ txt ＋ “ ”
.判断结束
.计次循环尾 ()
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 k, 整数型
.计次循环首 (101, i)
k ＝ 超级列表框1.插入列 (, , , , , )
超级列表框1.置列标题 (k, 到文本 (i － 1))
超级列表框1.置列宽 (k, 25)
.计次循环尾 ()
.子程序 _按钮2_被单击
画板1.清除 (, , , )
画板2.清除 (, , , )
画板3.清除 (, , , )
超级列表框1.全部删除 ()
超级列表框2.全部删除 ()
超级列表框3.全部删除 ()
编辑框4.内容 ＝ “”
编辑框6.内容 ＝ “”
.子程序 _按钮6_被单击
画板3.定位写出 (0, 0, 编辑框5.内容)
.子程序 _按钮7_被单击
' 刚才取出矩形为 (1,12):(18,29)
取矩形图片 (2, 12, 18, 29, 画板2)
.子程序 取矩形图片
.参数 x1, 整数型
.参数 y1, 整数型
.参数 x2, 整数型
.参数 y2, 整数型
.参数 画板, 画板
x1 ＝ 2 × x1
y1 ＝ 2 × y1
x2 ＝ 2 × x2
y2 ＝ y1 ＋ y2 × 2
画板1.复制 (x1, y1, x2, y2, 画板, 0, 0, 1)
.子程序 画网格
.参数 画板, 画板
.参数 高, 整数型
.参数 宽, 整数型
.局部变量 i, 整数型
.局部变量 k, 整数型
画板.画笔粗细 ＝ 1
.变量循环首 (0, 宽, 2, i)
画板.画直线 (0, i, 宽, i) ' 横向划线
.变量循环尾 ()
.变量循环首 (0, 高, 2, i)
画板.画直线 (i, 0, i, 高) ' 纵向划线
.变量循环尾 ()
.子程序 _画网格2_被单击
画网格 (画板2, 40, 40)
.子程序 _画网格3_被单击
画网格 (画板3, 40, 40)
.子程序 取坐标数组
.参数 坐标组, 坐标
.参数 组件, 画板
.参数 横向格数, 整数型
.参数 特征列表, 超级列表框
.参数 编辑框, 编辑框
.局部变量 k, 整数型
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 递增数, 小数型
.局部变量 横向计次, 整数型
.局部变量 text, 文本型
重定义数组 (坐标组.x, 假, 0)
重定义数组 (坐标组.y, 假, 0)
重定义数组 (坐标组.特征, 假, 0)
编辑框.内容 ＝ “”
特征列表.全部删除 ()
.计次循环首 (横向格数, k)
.计次循环首 (横向格数, 横向计次)
递增数 ＝ 到小数 (2 × 横向计次 － 1) ' 1 3 5 7
加入成员 (坐标组.x, 递增数)
加入成员 (坐标组.y, 到小数 (2 × k － 1))
加入成员 (坐标组.特征, 0)
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (横向格数, i)
k ＝ 特征列表.插入列 (, , , , , )
特征列表.置列标题 (k, 到文本 (i － 1))
特征列表.置列宽 (k, 25)
.计次循环尾 ()
.计次循环首 (取数组成员数 (坐标组.x) ÷ 横向格数, i)
text ＝ “”
k ＝ 特征列表.插入表项 (, , , , , )
输出调试文本 (k)
特征列表.置标题 (k, 0, 到文本 (i))
.计次循环首 (横向格数, n)
.判断开始 (组件.取点 (坐标组.x [n ＋ (i － 1) × 横向格数], 坐标组.y [n ＋ (i － 1) × 横向格数]) ＝ 16777215)
特征列表.置标题 (k, n, “+”)
text ＝ text ＋ “*”
坐标组.特征 [n ＋ (i － 1) × 横向格数] ＝ 1
.默认
特征列表.置标题 (k, n, “0”)
坐标组.特征 [n ＋ (i － 1) × 横向格数] ＝ 0
text ＝ text ＋ “ ”
.判断结束
.计次循环尾 ()
编辑框.加入文本 (text ＋ #换行符)
.计次循环尾 ()
编辑框.内容 ＝ 子文本替换 (编辑框.内容, 取空白文本 (20) ＋ #换行符, “”, , , 真)
.子程序 _按钮10_被单击
.局部变量 Tmp, 坐标
取坐标数组 (Tmp, 画板2, 20, 超级列表框2, 编辑框4)
.子程序 _按钮11_被单击
.局部变量 Tmp, 坐标
取坐标数组 (Tmp, 画板3, 20, 超级列表框3, 编辑框6)
下载文件 (已下载 242 次)