手机股票持仓截图生成器,同花顺收益图生成器,交割单都支持,开源版分享!

发布时间 2023-11-18 18:50:28作者: 新壳软件

这个源码是别人的,之前估计分享过是网上买的,算是定制的,源码是2023年6月份开发出来的,但是现在项目早过了,这个也就没用了,然后就把作者写的纯源码全盘分享出来,方便大家研究一下这个源码一些好的结构设计和开发思路,支持的功能很多比如交割单、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_关于作者, , 真)

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

窗口程序集窗口1:

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

.版本 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”))

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

全局变量:

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

.版本 2

.全局变量 全局_配置项文件名, 文本型

.全局变量 全局_过户费率, 小数型

.全局变量 全局_佣金费率, 小数型

.全局变量 全局_印花税率, 小数型

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