易语言折线图源码

.版本 2
.支持库 EChartBar

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

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

生成折线图 (200)

.子程序 生成折线图
.参数 最大的数值, 整数型
.局部变量 计次, 整数型
.局部变量 计次2, 整数型
.局部变量 数量, 整数型

曲线图控件1.Y轴最大值 ＝ 最大的数值
数量 ＝ 40
置随机数种子 ()
曲线图控件1.X轴标注数量 ＝ 数量
.计次循环首 (数量, 计次)
    曲线图控件1.当前X轴标注索引 ＝ 计次
    曲线图控件1.当前X轴标注文字 ＝ 到文本 (计次)
    曲线图控件1.当前数据值 ＝ 到整数 (取随机数 (0, 200))
.计次循环尾 ()

.子程序 _滑块条1_位置被改变

曲线图控件1.宽度 ＝ 731 ＋ 滑块条1.位置 × 15

.子程序 _横向滚动条1_位置被改变
.局部变量 步进值, 整数型

步进值 ＝ (曲线图控件1.宽度 － 731) ÷ 100
.如果 (横向滚动条1.位置 ＜ 5)
    曲线图控件1.左边 ＝ 5
.否则
    曲线图控件1.左边 ＝ 0 － 步进值 × 横向滚动条1.位置
.如果结束

@╰仅冇旳執著