吾爱分享资源网

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

易语言制作股市分析软件源码

[复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18390
金币
8276
发表于 2021-1-6 21:41:17 | 显示全部楼层 |阅读模式
请点击此处下载

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

您的用户组是:游客

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



QQ截图20210106213613.jpg
部分代码如下
  
窗口程序集名保 留  保 留备 注
主窗口程序集   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
XP风格 (1)
_启动窗口.标题 = #软件名称#软件版本
日期框大盘最小.最小日期 = 到时间 (“2005年4月20日”)
日期框大盘最大.最小日期 = 到时间 (“2005年4月20日”)
如果 (读配置项 (取运行目录 ()“\config.ini”, “基础设置”, “同步显示查询曲线图”, )“不同步”)
查询同步显示曲线图.选中 = 真
查询同步显示曲线图.选中 = 假

如果 (读配置项 (取运行目录 ()“\config.ini”, “基础设置”, “显示曲线标注”, )“显示”)
不显示曲线表标注.选中 = 真
不显示曲线表标注.选中 = 假

子程序名返回值类型公开备 注
_按钮大盘查询_被单击  
如果 (取时间间隔 (日期框大盘最大.今天, 日期框大盘最小.今天, #日 ) > 120)
信息框 (“查询范围超出,最大只能查询120天内记录!”, #警告图标, “提示:”)
返回 ()
如果 (取时间间隔 (日期框大盘最大.今天, 日期框大盘最小.今天, #日 ) < 0)
信息框 (“查询范围设置非法!”, #警告图标, “提示:”)
返回 ()



按钮大盘查询 =   '
按钮大盘清空列表 =   '
控制按钮 = 假
读入大盘数据库 ()
按钮大盘查询 =   '
按钮大盘清空列表 =   '
控制按钮 = 真
子程序名返回值类型公开备 注
_超级列表框1_左键单击表项 由于有些技术问题 没有解决这里先留着
如果 (超级列表框1.取硐钍 () = 0)
返回 ()


如果真 (是否已创建 (窗口大盘数据添加删除))
载入 (窗口大盘数据添加删除, , )
窗口大盘数据添加删除.日期框大盘数据添加.今天 = 到时间 (超级列表框1.取晏 (超级列表框1.现行选中项, 0))
窗口大盘数据添加删除.编辑框大盘开盘.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 2)
窗口大盘数据添加删除.编辑框大盘最高.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 3)
窗口大盘数据添加删除.编辑框大盘最低.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 4)
窗口大盘数据添加删除.编辑框大盘收盘.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 5)
窗口大盘数据添加删除.编辑框大盘涨跌指数.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 6)
窗口大盘数据添加删除.编辑框大盘涨跌幅.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 7)
窗口大盘数据添加删除.编辑框大盘振幅.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 8)
窗口大盘数据添加删除.编辑框大盘成交总手.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 9)
窗口大盘数据添加删除.编辑框大盘成交金额.内容 = 超级列表框1.取晏 (超级列表框1.现行选中项, 10)
窗口大盘数据添加删除.编辑框大盘当前ID.内容 = 到文本 (超级列表框1.取硐钍 (超级列表框1.现行选中项))
窗口大盘数据添加删除.标签星期几.标题 = “星期” + 超级列表框1.取晏 (超级列表框1.现行选中项, 1)
子程序名返回值类型公开备 注
_股市交易计算工具_被选择  
载入 (窗口价格和涨跌幅计算, , )
子程序名返回值类型公开备 注
_按钮大盘清空列表_被单击  
超级列表框1.全部删除 ()
子程序名返回值类型公开备 注
_按钮OBV_被单击  
如果真 (是否已创建 (窗口技术分析指标))
载入 (窗口技术分析指标, _启动窗口, )
窗口技术分析指标.标签文章容器.标题 = OBV ()
子程序名返回值类型公开备 注
OBV计算双精度小数型 
参数名类 型参考可空数组备 注
超级列表名称超级列表框   
列表项整数型   
收盘价数据列整数型   收盘价数据所在列
最低价数据列整数型   
最高价数据列整数型   
成交量数据列整数型   
变量名类 型静态数组备 注
VA整数型 VA为成交量多空比率净额值
H整数型 为最高价
L整数型 为最低价
V整数型 为成交量
C整数型 为收盘价
' 成交量多空比率净额法OBV.  VA = V × [(C - L)- (H - C)]/(H - C)  注意:以收盘价减去最低价(C - L),表示多头买进的力量强度。而最高价减去收盘价(H - C),表示空头卖出的力量强度。
C = 到数值 (超级列表名称.取晏 (列表项, 收盘价数据列))
L = 到数值 (超级列表名称.取晏 (列表项, 最低价数据列))
H = 到数值 (超级列表名称.取晏 (列表项, 最高价数据列))
V = 到数值 (超级列表名称.取晏 (列表项, 成交量数据列))
VA (C - L (H - C)) (H - C) × V
返回 (VA)
子程序名返回值类型公开备 注
_大盘数据库维护_被选择  
载入 (窗口大盘数据添加删除, _启动窗口, )
子程序名返回值类型公开备 注
_超级列表框1_右键单击表项  
如果 (超级列表框1.取已选择表项数 () = 1)
弹出菜单 (隐藏菜单, , )



子程序名返回值类型公开备 注
_从数据库中删除选中数据_被选择  
变量名类 型静态数组备 注
SQL文本型  
句柄   
如果 (信息框 (“您将永久删除数据,确定继续吗?”, #询问图标#是否钮, “询问:”)#否钮 )
返回 ()


SQL = “delete from 大盘数据 where id=”到文本 (超级列表框1.取硐钍 (超级列表框1.现行选中项))
如果 (外部数据库1.执行 (SQL, ))
如果 (重新编号 (数据库连接, “大盘数据”, “ID”, “ID”))
信息框 (“删除成功”, 0, )
信息框 (“删除成功,排序失败”, 0, )
超级列表框1.删除表项 (超级列表框1.现行选中项)
信息框 (“删除失败”, 0, )
读入大盘数据库 ()
子程序名返回值类型公开备 注
_按钮分析选定指标_被单击  
变量名类 型静态数组备 注
i整数型  
i2整数型  
OBV最小值文本型  
' 0、日期 1、星期 2、开盘 3、最高 4、最低 5、收盘 6、涨跌指数 7、涨幅 8、振幅 9、总手 10 总金额
如果 (超级列表框1.取硐钍 () = 0)
信息框 (“请先选择您需要计算的时间段,并查询以获得相应数据”, #警告图标, “警告:”)
返回 ()
如果 (选择框OBV.选中 = )
i2 = 0
OBV最小值 = 取OBV最小数据 (超级列表框1, 5, 4, 3, 9)
曲线图OBV.Y轴单位 = “OBV相对数据”
曲线图OBV.X轴标注数量 = 超级列表框1.取硐钍 ()
曲线图OBV.Y轴最大值 = 1000
计次循环首 (超级列表框1.取硐钍 (), i)
处理事件 ()
曲线图OBV.当前X轴标注索引 = i2
曲线图OBV.当前X轴标注文字 = 到文本 (取日 (到时间 (超级列表框1.取晏 (i - 1, 0))))
曲线图OBV.当前数据值 = 四舍五入 ( (OBV计算 (超级列表框1, i - 1, 5, 4, 3, 9)到数值 (OBV最小值)) ÷ 100000, 3)
i2 = i2 + 1
计次循环尾 ()




子程序名返回值类型公开备 注
读入大盘数据库  
变量名类 型静态数组备 注
记录整数型  
序号整数型  
索引整数型  
序引文本型  
基对时间日期时间型  
最小时间日期时间型  
最大时间日期时间型  
i整数型  
i2整数型  
分时时间文本型  
分时星期文本型  
图片框大盘等待一.可视 = 真
图片框大盘等待二.可视 = 真
超级列表框1.全部删除 ()
外部数据库1.打开MDB数据库 (取运行目录 ()#大盘数据库名, , #pwd, , )
记录 = 外部数据库1.查询 (“select * from 大盘数据”)
外部数据库1.到首记录 (记录)
序号 = 1
判断循环首 (外部数据库1.尾记录后 (记录))
处理事件 ()
序引 = 外部数据库1. (记录, “时间”)
基对时间 = 到时间 (取文本左边 (序引, 10))
最小时间 = 到时间 (转为普通时间 (日期框大盘最小.今天))
最大时间 = 到时间 (转为普通时间 (日期框大盘最大.今天))
如果 (取时间间隔 (最小时间, 基对时间, #日 ) ≤ 0)
如果 (取时间间隔 (最大时间, 基对时间, #日 ) ≥ 0)
序引 = 外部数据库1. (记录, “时间”)
分时时间 = 取文本左边 (序引, 10)
分时星期 = 取文本右边 (序引, 2)
索引 = 超级列表框1.插入表项 (, 分时时间, , , , 序号)
' 超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 0, 到文本 (序号))
' 超级列表框1.置标题 (索引, 0, )
超级列表框1.置标题 (索引, 1, 分时星期)
超级列表框1.置标题 (索引, 2, 到文本 (外部数据库1. (记录, “开盘”)))
超级列表框1.置标题 (索引, 3, 到文本 (外部数据库1. (记录, “最高”)))
超级列表框1.置标题 (索引, 4, 到文本 (外部数据库1. (记录, “最低”)))
超级列表框1.置标题 (索引, 5, 到文本 (外部数据库1. (记录, “收盘”)))
超级列表框1.置标题 (索引, 6, 到文本 (外部数据库1. (记录, “涨跌”)))
超级列表框1.置标题 (索引, 7, 到文本 (外部数据库1. (记录, “涨幅%”)))
超级列表框1.置标题 (索引, 8, 到文本 (外部数据库1. (记录, “振幅%”)))
超级列表框1.置标题 (索引, 9, 到文本 (外部数据库1. (记录, “总手(万)”)))
超级列表框1.置标题 (索引, 10, 到文本 (外部数据库1. (记录, “金额(亿)”)))





外部数据库1.到后一记录 (记录)
序号 = 序号 + 1
超级列表框1.刷新显示 ()
判断循环尾 ()
外部数据库1.关闭记录集 (记录)
图片框大盘等待一.可视 = 假
图片框大盘等待二.可视 = 假
如果 (查询同步显示曲线图.选中 = )
如果 (超级列表框1.取硐钍 () ≠ 0)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )

i2 = 0
窗口大盘区段走势指示图.曲线控件区段大盘上证.X轴标注数量 = 超级列表框1.取硐钍 ()
计次循环首 (超级列表框1.取硐钍 (), i)
处理事件 ()
窗口大盘区段走势指示图.曲线控件区段大盘上证.当前X轴标注索引 = i2
窗口大盘区段走势指示图.曲线控件区段大盘上证.当前X轴标注文字 = 到文本 (取日 (到时间 (超级列表框1.取晏 (i - 1, 0))))
窗口大盘区段走势指示图.曲线控件区段大盘上证.当前数据值 = 到数值 (超级列表框1.取晏 (i - 1, 5))
i2 = i2 + 1
计次循环尾 ()
如果 (超级列表框1.取硐钍 () ≥ 60)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )
窗口大盘区段走势指示图.标签大盘5日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 5))
窗口大盘区段走势指示图.标签大盘10日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 10))
窗口大盘区段走势指示图.标签大盘30日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 30))
窗口大盘区段走势指示图.标签大盘60日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 60))
窗口大盘区段走势指示图.标签大盘区段日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 超级列表框1.取硐钍 ()))
如果 (超级列表框1.取硐钍 () > 30 且 超级列表框1.取硐钍 () < 60)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )
窗口大盘区段走势指示图.标签大盘5日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 5))
窗口大盘区段走势指示图.标签大盘10日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 10))
窗口大盘区段走势指示图.标签大盘30日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 30))
窗口大盘区段走势指示图.标签大盘60日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘60日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘区段日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 超级列表框1.取硐钍 ()))
如果 (超级列表框1.取硐钍 () > 10 且 超级列表框1.取硐钍 () < 30)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )
窗口大盘区段走势指示图.标签大盘5日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 5))
窗口大盘区段走势指示图.标签大盘10日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 10))
窗口大盘区段走势指示图.标签大盘30日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘30日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘60日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘60日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘区段日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 超级列表框1.取硐钍 ()))
如果 (超级列表框1.取硐钍 () > 5 且 超级列表框1.取硐钍 () < 10)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )
窗口大盘区段走势指示图.标签大盘5日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 5))
窗口大盘区段走势指示图.标签大盘10日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘10日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘30日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘30日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘60日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘60日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘区段日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 超级列表框1.取硐钍 ()))
如果 (超级列表框1.取硐钍 () > 0 且 超级列表框1.取硐钍 () < 5)
如果真 (是否已创建 (窗口大盘区段走势指示图))
载入 (窗口大盘区段走势指示图, _启动窗口, )
窗口大盘区段走势指示图.移动 (, 取屏幕高度 () - 窗口大盘区段走势指示图.取用户区高度 () - 60, , )
窗口大盘区段走势指示图.标签大盘5日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘5日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘10日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘10日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘30日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘30日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘60日均值.标题 = “天数不足”
窗口大盘区段走势指示图.标签大盘60日均值.文本颜色 = #红色
窗口大盘区段走势指示图.标签大盘区段日均值.标题 = 到文本 (计算平均值 (超级列表框1, 5, 超级列表框1.取硐钍 ()))













子程序名返回值类型公开备 注
_不显示曲线表标注_被选择  
如果 (不显示曲线表标注.选中 = )
写配置项 (取运行目录 ()“\config.ini”, “基础设置”, “显示曲线标注”, “显示”)
不显示曲线表标注.选中 = 假
写配置项 (取运行目录 ()“\config.ini”, “基础设置”, “显示曲线标注”, “不显示”)
不显示曲线表标注.选中 = 真

子程序名返回值类型公开备 注
__启动窗口_可否被关闭逻辑型 
记录集1.关闭 ()
外部数据库1.关闭 ()
子程序名返回值类型公开备 注
_删除当前列表选中显示_被选择  
如果 (信息框 (“仅删除当前显示项目,并不真正删除数据,确定继续吗?”, #询问图标#是否钮, “询问:”)#否钮 )
返回 ()
超级列表框1.删除表项 (超级列表框1.现行选中项)

子程序名返回值类型公开备 注
_查询同步显示曲线图_被选择  
如果 (查询同步显示曲线图.选中 = )
写配置项 (取运行目录 ()“\config.ini”, “基础设置”, “同步显示查询曲线图”, “不同步”)
查询同步显示曲线图.选中 = 假
不显示曲线表标注.禁止 = 真
写配置项 (取运行目录 ()“\config.ini”, “基础设置”, “同步显示查询曲线图”, “同步”)
查询同步显示曲线图.选中 = 真
不显示曲线表标注.禁止 = 假

子程序名返回值类型公开备 注
_查询数据在数据库中ID_被选择  
信息框 (超级列表框1.取硐钍 (超级列表框1.现行选中项), #信息图标, “提示:”)
子程序名返回值类型公开备 注
更新  
变量名类 型静态数组备 注
SQL文本型  
记录整数型  
判断 (窗口大盘数据添加删除.编辑框大盘振幅.内容 = “”)
信息框 (“振动幅度内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘最低.内容 = “”)
信息框 (“最低指数内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘最高.内容 = “”)
信息框 (“最高指数内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘涨跌幅.内容 = “”)
信息框 (“涨跌幅度内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘开盘.内容 = “”)
信息框 (“开盘指数内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘收盘.内容 = “”)
信息框 (“收盘指数内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘涨跌指数.内容 = “”)
信息框 (“大盘涨跌指数内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘成交金额.内容 = “”)
信息框 (“大盘成交金额内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘成交总手.内容 = “”)
信息框 (“大盘成交总手内容不能为空!”, #警告图标, “警告:”)
返回 ()
判断 (窗口大盘数据添加删除.编辑框大盘当前ID.内容 = “”)
信息框 (“大盘ID内容不能为空!”, #警告图标, “警告:”)
返回 ()



外部数据库1.打开MDB数据库 (取运行目录 ()#大盘数据库名, , #pwd, , )
SQL = “update 大盘数据 set 时间='”处理时间数据 (超级列表框1)“',开盘='” + 窗口大盘数据添加删除.编辑框大盘开盘.内容 + “',最高='” + 窗口大盘数据添加删除.编辑框大盘最高.内容 + “',最低='” + 窗口大盘数据添加删除.编辑框大盘最低.内容 + “',收盘='” + 窗口大盘数据添加删除.编辑框大盘收盘.内容 + “',涨跌='” + 窗口大盘数据添加删除.编辑框大盘涨跌指数.内容 + “',涨幅%='” + 窗口大盘数据添加删除.编辑框大盘涨跌幅.内容 + “',振幅%='” + 窗口大盘数据添加删除.编辑框大盘振幅.内容 + “',总手(万)='” + 窗口大盘数据添加删除.编辑框大盘成交总手.内容 + “',金额(亿)='” + 窗口大盘数据添加删除.编辑框大盘成交金额.内容 + “'where ID= ”到文本 (超级列表框1.取硐钍 (超级列表框1.现行选中项) + 1)
' 输出调试文本 (SQL)
如果 (外部数据库1.执行 (SQL, ))
信息框 (“修改成功”, 64, “提示”)
窗口大盘数据添加删除.销毁 ()
信息框 (“修改失败”, #警告图标, “提示”)

子程序名返回值类型公开备 注
处理时间数据文本型 
参数名类 型参考可空数组备 注
超级列表名超级列表框   
变量名类 型静态数组备 注
时间数据一文本型  
时间数据二文本型  
时间数据一 = 超级列表名.取晏 (超级列表名.现行选中项, 0)
时间数据二 = 超级列表名.取晏 (超级列表名.现行选中项, 1)
返回 (时间数据一 + “,” + 时间数据二)
子程序名返回值类型公开备 注
高级表格OBV启动_废弃  
' 高级表格OBV.置列宽 (1, 40)
' 高级表格OBV.置数据 (0, 0, #表格常量.文本型, “ 时间日期”)
' 高级表格OBV.置字体尺寸 (0, 0, 0, 0, 15)
' 高级表格OBV.置字体属性 (0, 0, 0, 0, 1)
' 高级表格OBV.置列类型 (0, 3)
' 高级表格OBV.置单元格文字颜色 (0, 0, 0, 0, #蓝色)
' 高级表格OBV.置数据 (0, 1, #表格常量.文本型, “ 初始数据”)
' 高级表格OBV.置字体属性 (0, 1, 0, 1, 1)
' 高级表格OBV.置单元格文字颜色 (0, 1, 0, 1, #蓝色)
子程序名返回值类型公开备 注
取OBV最小数据文本型 
参数名类 型参考可空数组备 注
超级列表名称超级列表框   
收盘价数据列整数型   
最低价数据列整数型   
最高价数据列整数型   
成交量数据列整数型   
变量名类 型静态数组备 注
数据文本型  
日期文本型  
i整数型  
itmp整数型  
索引整数型  
临时超级列表.全部删除 ()
计次循环首 (临时超级列表.取列数 (), itmp)
临时超级列表.删除列 (0)
计次循环尾 ()
临时超级列表.插入列 (0, “时间列”, 100, #中间对齐, , )
临时超级列表.插入列 (1, “数据列”, 100, #中间对齐, , )
计次循环首 (超级列表名称.取硐钍 (), i)
数据 = 到文本 (OBV计算 (超级列表名称, i - 1, 收盘价数据列, 最低价数据列, 最高价数据列, 成交量数据列))
日期 = 超级列表名称.取晏 (i - 1, 0)
索引 = 临时超级列表.插入表项 (, 日期, , , , )
临时超级列表.置标题 (索引, 1, 数据)
计次循环尾 ()
返回 (临时超级列表.取晏 (0, 1))
子程序名返回值类型公开备 注
_在线留言_被选择  

子程序名返回值类型公开备 注
_在线升级_被选择  

子程序名返回值类型公开备 注
_关于_被选择  



i支持库列表   支持库注释   
xplibXP风格界面库
iext扩展界面支持库一
EChartBar数据图表支持库
eDB数据库操作支持库





上一篇:易语言简单的通讯录源码
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-5 15:44 , Processed in 1.932372 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表