定位胆出次统计图例子源码

.版本 2
.支持库 iext
.支持库 EChartBar

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _统计商品_被单击
.局部变量 x, 整数型
.局部变量 临时文本, 文本型
.局部变量 重复次数, 整数型
.局部变量 索引, 整数型

.计次循环首 (超级列表框1.取表项数 (), x)
    临时文本 ＝ 超级列表框1.取标题 (索引, 0)
    重复次数 ＝ 到整数 (超级列表框1.取标题 (索引, 1))
    超级列表框1.置标题 (索引, 1, 到文本 (重复次数 ＋ 1))
    .判断循环首 (超级列表框1.查找表项 (临时文本, 索引 ＋ 1, , 0) ≠ -1)
        重复次数 ＝ 到整数 (超级列表框1.取标题 (索引, 1))
        超级列表框1.置标题 (索引, 1, 到文本 (重复次数 ＋ 1))
        超级列表框1.删除表项 (超级列表框1.查找表项 (临时文本, 索引 ＋ 1, , 0))
    .判断循环尾 ()
    索引 ＝ 索引 ＋ 1
.计次循环尾 ()
子程序_画柱状图 ()
' 信息框 (“更多数字算法，计划源码 加QQ群下载交流：”, 0, , )

.子程序 子程序_画柱状图
.局部变量 局部_计次, 整数型
.局部变量 n, 整数型
.局部变量 文本, 文本型
.局部变量 文本排序, 文本型, , "0"
.局部变量 取数值, 文本型, , "0"

.计次循环首 (超级列表框1.取表项数 (), n)
    文本 ＝ 文本 ＋ 超级列表框1.取标题 (n － 1, 1) ＋ “，”
.计次循环尾 ()
文本排序 ＝ 分割文本 (文本, “，”, )
数组排序 (文本排序, 假)
' 柱状图控件1.Y轴最大值 ＝ 取数组成员数 (文本排序)  ' 到整数 (文本排序 [1])
' 柱状图控件1.Y轴刻度数 ＝ 5
柱状图控件1.X轴标注数量 ＝ 超级列表框1.取表项数 ()
.计次循环首 (超级列表框1.取表项数 (), 局部_计次)
    柱状图控件1.当前X轴标注索引 ＝ 局部_计次
    柱状图控件1.当前X轴标注文字 ＝ 超级列表框1.取标题 (局部_计次 － 1, 0)
    柱状图控件1.当前数据值 ＝ 到整数 (超级列表框1.取标题 (局部_计次 － 1, 1))
.计次循环尾 ()

@ruyan666