股票交割单生成器,持仓图,收益曲线,bs点位生成工具,完全开源分享。

发布时间 2023-11-18 18:45:19作者: 新壳软件

这个工具其实是从某宝淘来的,我因为之前项目需要所以就把整个源码给拿下来了,易语言的,支持标题所讲的所有功能,包括交割单,持仓图,收益曲线,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”))

=============================================================