易语言模拟曲线图

samway

        由于对易语言爱好，闲来无事，调式一下折线，保存在本论坛，供大家参考，不知是不是对本论坛的支持？？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_数组1	整数型	20
集_临时数组	整数型	0

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

如果真 (选择框1.选中 ＝ 真)
折线0 ()
如果真 (选择框2.选中 ＝ 真)
折线1 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置随机数种子 ()
滑块条1.最小位置 ＝ 50
滑块条1.最大位置 ＝ 1000
滑块条1.位置 ＝ 500
曲线图控件1.图例数量 ＝ 2
曲线图控件1.X轴标注数量 ＝ 50
重定义数组 (集_数组1, 假, 曲线图控件1.X轴标注数量)
选择框1.选中 ＝ 真
选择框2.选中 ＝ 真

子程序名	返回值类型	公开	备 注
折线0

变量名	类 型	静态	数组	备 注
n	整数型

曲线图控件1.当前图例索引 ＝ 0
复制数组 (集_临时数组, 集_数组1)
计次循环首 (取数组成员数 (集_数组1) － 1, n)
集_数组1 [n] ＝ 集_临时数组 [n ＋ 1]  ' 中转一下
计次循环尾 ()
插入成员 (集_数组1, 取数组成员数 (集_数组1), 取随机数 (40, 98))
重定义数组 (集_数组1, 真, 曲线图控件1.X轴标注数量)
计次循环首 (取数组成员数 (集_数组1), n)
曲线图控件1.当前X轴标注索引 ＝ n － 1
曲线图控件1.当前数据值 ＝ 集_数组1 [n]
计次循环尾 ()
' 调试输出 (集_数组1)

子程序名	返回值类型	公开	备 注
折线1

变量名	类 型	静态	数组	备 注
n	整数型

曲线图控件1.当前图例索引 ＝ 1
计次循环首 (曲线图控件1.X轴标注数量, n)
曲线图控件1.当前X轴标注索引 ＝ n － 1
曲线图控件1.当前数据值 ＝ 取随机数 (8, 50)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_滑块条1_位置被改变

时钟1.时钟周期 ＝ 滑块条1.位置

子程序名	返回值类型	公开	备 注
_选择框2_被单击

变量名	类 型	静态	数组	备 注
n	整数型

如果真 (选择框2.选中 ＝ 假)
曲线图控件1.当前图例索引 ＝ 1
计次循环首 (曲线图控件1.X轴标注数量, n)
曲线图控件1.当前X轴标注索引 ＝ n － 1
曲线图控件1.当前数据值 ＝ 0
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_选择框1_被单击

变量名	类 型	静态	数组	备 注
n	整数型

如果真 (选择框1.选中 ＝ 假)
曲线图控件1.当前图例索引 ＝ 0
计次循环首 (曲线图控件1.X轴标注数量, n)
曲线图控件1.当前X轴标注索引 ＝ n － 1
曲线图控件1.当前数据值 ＝ 0
计次循环尾 ()

i支持库列表	支持库注释
EChartBar	数据图表支持库

.版本 2<br /> .支持库 EChartBar<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_数组1, 整数型, , "20"<br /> .程序集变量 集_临时数组, 整数型, , "0"<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果真 (选择框1.选中 ＝ 真)<br />     折线0 ()<br /> .如果真结束<br /> .如果真 (选择框2.选中 ＝ 真)<br />     折线1 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置随机数种子 ()<br /> 滑块条1.最小位置 ＝ 50<br /> 滑块条1.最大位置 ＝ 1000<br /> 滑块条1.位置 ＝ 500<br /> 曲线图控件1.图例数量 ＝ 2<br /> <br /> 曲线图控件1.X轴标注数量 ＝ 50<br /> <br /> 重定义数组 (集_数组1, 假, 曲线图控件1.X轴标注数量)<br /> 选择框1.选中 ＝ 真<br /> 选择框2.选中 ＝ 真<br /> <br /> <br /> .子程序 折线0<br /> .局部变量 n, 整数型<br /> <br /> <br /> 曲线图控件1.当前图例索引 ＝ 0<br /> 复制数组 (集_临时数组, 集_数组1)<br /> <br /> .计次循环首 (取数组成员数 (集_数组1) － 1, n)<br />     集_数组1 [n] ＝ 集_临时数组 [n ＋ 1]  ' 中转一下<br /> .计次循环尾 ()<br /> <br /> 插入成员 (集_数组1, 取数组成员数 (集_数组1), 取随机数 (40, 98))<br /> 重定义数组 (集_数组1, 真, 曲线图控件1.X轴标注数量)<br /> <br /> .计次循环首 (取数组成员数 (集_数组1), n)<br />     曲线图控件1.当前X轴标注索引 ＝ n － 1<br />     曲线图控件1.当前数据值 ＝ 集_数组1 [n]<br /> .计次循环尾 ()<br /> <br /> ' 调试输出 (集_数组1)<br /> <br /> <br /> .子程序 折线1<br /> .局部变量 n, 整数型<br /> <br /> 曲线图控件1.当前图例索引 ＝ 1<br /> .计次循环首 (曲线图控件1.X轴标注数量, n)<br />     曲线图控件1.当前X轴标注索引 ＝ n － 1<br />     曲线图控件1.当前数据值 ＝ 取随机数 (8, 50)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _滑块条1_位置被改变<br /> <br /> 时钟1.时钟周期 ＝ 滑块条1.位置<br /> <br /> .子程序 _选择框2_被单击<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (选择框2.选中 ＝ 假)<br />     曲线图控件1.当前图例索引 ＝ 1<br />     .计次循环首 (曲线图控件1.X轴标注数量, n)<br />         曲线图控件1.当前X轴标注索引 ＝ n － 1<br />         曲线图控件1.当前数据值 ＝ 0<br />     .计次循环尾 ()<br /> <br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _选择框1_被单击<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (选择框1.选中 ＝ 假)<br />     曲线图控件1.当前图例索引 ＝ 0<br />     .计次循环首 (曲线图控件1.X轴标注数量, n)<br />         曲线图控件1.当前X轴标注索引 ＝ n － 1<br />         曲线图控件1.当前数据值 ＝ 0<br />     .计次循环尾 ()<br /> <br /> .如果真结束

走走瞧瞧

感谢分享，非常不错

OFELA

请问支持缩放吗

九零后小旭

感谢开源，下载看看

一米阳光2

谢谢分享，下载学习

freeocean

赠人玫瑰手有余香

junhai

谢谢！！！！！！！

石头怪

感谢分享

shz2019

说的很祥细

zhaode2888

感谢分享

gaotian456

是不是动态的