这个工具其实是从某宝淘来的,我因为之前项目需要所以就把整个源码给拿下来了,易语言的,支持标题所讲的所有功能,包括交割单,持仓图,收益曲线,bs点位,各种功能都做的挺完善的,生成的截图都是高清图,因为这个源码对于我来说现在也没有太大的意义,然后就直接开源,让同行学习一下代码里面的结构和思路。
UI界面:
源码:窗口1 代码
========================================================
.版本 2
.支持库 iext2
.程序集 窗口程序集_窗口1_参数, , , 易语言学习资源、源码下载站:www.eyuyan.la
.程序集变量 涨停价, 小数型
.程序集变量 跌停价, 小数型
.程序集变量 涨幅, 小数型
.程序集变量 跌幅, 小数型
.子程序 __启动窗口_创建完毕
全局_配置项文件名 = 取运行目录 () + “\Config.ini”
配置模块_读配置项 ()
引擎_常规.窗口_置窗口圆角 (图片框2.取窗口句柄 (), 图片框2.宽度, 图片框2.高度, 2)
引擎_常规.窗口_置窗口圆角 (图片框3.取窗口句柄 (), 图片框3.宽度, 图片框3.高度, 2)
引擎_常规.窗口_置窗口圆角 (图片框4.取窗口句柄 (), 图片框4.宽度, 图片框4.高度, 2)
引擎_常规.窗口_置窗口圆角 (图片框5.取窗口句柄 (), 图片框5.宽度, 图片框5.高度, 2)
引擎_常规.窗口_置窗口圆角 (超级按钮1.取窗口句柄 (), 超级按钮1.宽度, 超级按钮1.高度, 2)
引擎_常规.窗口_置窗口圆角 (按钮1.取窗口句柄 (), 按钮1.宽度, 按钮1.高度, 2)
引擎_常规.窗口_置窗口圆角 (按钮2.取窗口句柄 (), 按钮2.宽度, 按钮2.高度, 2)
引擎_常规.窗口_置窗口圆角 (按钮3.取窗口句柄 (), 按钮3.宽度, 按钮3.高度, 2)
引擎_常规.窗口_置窗口圆角 (按钮4.取窗口句柄 (), 按钮4.宽度, 按钮4.高度, 2)
引擎_常规.窗口_置窗口圆角 (按钮5.取窗口句柄 (), 按钮5.宽度, 按钮5.高度, 2)
引擎_常规.窗口_置窗口圆角 (图片框6.取窗口句柄 (), 图片框6.宽度, 图片框6.高度, 33)
引擎_常规.窗口_置窗口圆角 (图片框7.取窗口句柄 (), 图片框7.宽度, 图片框7.高度, 33)
引擎_常规.窗口_置窗口圆角 (图片框8.取窗口句柄 (), 图片框8.宽度, 图片框8.高度, 33)
引擎_常规.窗口_置窗口圆角 (图片框10.取窗口句柄 (), 图片框10.宽度, 图片框10.高度, 33)
引擎_常规.窗口_置窗口圆角 (图片框11.取窗口句柄 (), 图片框11.宽度, 图片框11.高度, 33)
引擎_常规.窗口_置窗口圆角 (图片框14.取窗口句柄 (), 图片框14.宽度, 图片框14.高度, 33)
.子程序 _按钮1_被单击
.局部变量 收盘价, 小数型
' 基本参数
收盘价 = 到数值 (编辑框1.内容)
' 计算过程
.判断开始 (单选框6.选中) ' 常规股
涨停价 = 引擎_股票.属性_计算涨停价 (收盘价)
跌停价 = 引擎_股票.属性_计算跌停价 (收盘价)
.判断 (单选框4.选中) ' 创业板股
涨停价 = 引擎_股票.属性_计算涨停价 (收盘价, 真)
跌停价 = 引擎_股票.属性_计算跌停价 (收盘价, 真)
.判断 (单选框5.选中) ' ST板块股
涨停价 = 引擎_股票.属性_计算涨停价 (收盘价, , 真)
跌停价 = 引擎_股票.属性_计算跌停价 (收盘价, , 真)
.默认
.判断结束
涨幅 = 引擎_股票.属性_计算涨跌幅 (收盘价, 涨停价)
跌幅 = 引擎_股票.属性_计算涨跌幅 (收盘价, 跌停价)
' 显示结果
编辑框16.内容 = 到文本 (涨停价) + “ (” + 到文本 (涨幅) + “%)”
编辑框17.内容 = 到文本 (跌停价) + “ (” + 到文本 (跌幅) + “%)”
.子程序 _超级按钮1_被单击
.局部变量 利润结果, 股票_盈亏费用
.局部变量 A, 文本型
.如果真 (单选框1.选中)
A = “600001”
.如果真结束
.如果真 (单选框2.选中)
A = “000001”
.如果真结束
.如果真 (单选框3.选中)
A = “300001”
.如果真结束
利润结果 = 引擎_股票.属性_计算利润 (A, 到数值 (编辑框10.内容), 到数值 (编辑框3.内容), 到数值 (编辑框5.内容), 到数值 (编辑框6.内容), 全局_过户费率, 全局_佣金费率, 全局_印花税率)
编辑框4.内容 = 到文本 (利润结果.预买费用)
编辑框2.内容 = 到文本 (利润结果.预买资金)
编辑框7.内容 = 到文本 (利润结果.预卖费用)
编辑框8.内容 = 到文本 (利润结果.预卖资金)
编辑框9.内容 = 到文本 (利润结果.盈亏金额)
编辑框15.内容 = 到文本 (引擎_股票.属性_计算涨跌幅 (到数值 (编辑框10.内容), 到数值 (编辑框5.内容))) + “%”
.子程序 _按钮2_被单击
编辑框18.内容 = 到文本 (引擎_股票.属性_计算涨跌幅 (到数值 (编辑框11.内容), 到数值 (编辑框12.内容))) + “%”
.子程序 _按钮3_被单击
编辑框19.内容 = 到文本 (引擎_股票.属性_计算涨跌后价 (到数值 (编辑框13.内容), 到数值 (编辑框14.内容)))
.子程序 _按钮4_被单击
载入 (窗口1_费率设置, , 真)
.子程序 _按钮5_被单击, , , 易语言学习资源、源码下载站:www.eyuyan.la
载入 (窗口2_关于作者, , 真)
============================================================
窗口2代码:
==========================================================
.版本 2
.程序集 窗口程序集_窗口1, , , 易语言学习资源、源码下载站:www.eyuyan.la
.子程序 _按钮1_被单击
配置模块_写配置项 (编辑框1.内容, 编辑框2.内容, 编辑框3.内容)
配置模块_读配置项 () ' 刷新修改的后参数值。
.子程序 _窗口1_费率设置_创建完毕, , , www.eyuyan.la
编辑框1.内容 = 到文本 (全局_过户费率)
编辑框2.内容 = 到文本 (全局_佣金费率)
编辑框3.内容 = 到文本 (全局_印花税率)
引擎_常规.窗口_置窗口圆角 (图片框6.取窗口句柄 (), 图片框6.宽度, 图片框6.高度, 33)
.子程序 配置模块_写配置项, 逻辑型, 公开
.参数 过户费率, 文本型
.参数 佣金费率, 文本型
.参数 印花税率, 文本型
.局部变量 执行结果, 逻辑型
写配置项 (全局_配置项文件名, “main”, “TransferFees”, 过户费率) ' 过户费
写配置项 (全局_配置项文件名, “main”, “BrokerageExpenses”, 佣金费率) ' 佣金费
执行结果 = 写配置项 (全局_配置项文件名, “main”, “StampButy”, 印花税率) ' 印花税
返回 (执行结果)
.子程序 配置模块_读配置项, , , 本源码来自易语言资源网(www.eyuyan.la)
全局_过户费率 = 到数值 (读配置项 (全局_配置项文件名, “main”, “TransferFees”, “0.001”))
全局_佣金费率 = 到数值 (读配置项 (全局_配置项文件名, “main”, “BrokerageExpenses”, “0.0007”))
全局_印花税率 = 到数值 (读配置项 (全局_配置项文件名, “main”, “StampButy”, “0.001”))
=============================================================
标签:窗口,生成器,bs,交割单,句柄,引擎,按钮,编辑框,图片 From: https://www.cnblogs.com/xkrj5/p/17840874.html