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

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

时间:2023-11-18 18:44:52浏览次数:36  
标签:窗口 生成器 bs 交割单 句柄 引擎 按钮 编辑框 图片

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

相关文章

  • [USACO22OPEN] Up Down Subsequence P
    [USACO22OPEN]UpDownSubsequenceP注意到这个问题是不弱于直接求LIS的,因此考虑dp。设\(f_i\)表示以\(i\)结尾的最长这个什么串的长度,显然没办法直接转移,那么暴力的想法就是多设一维,这样自然就寄了。我们考虑到这样一件事情:如果我们假装对于所有的\(j\),\(j<f_i\)时......
  • Websphere - WSVR0605W 错误
    官方连接:https://www.ibm.com/support/pages/wsvr0605w-thread-may-be-hung-message-logsWSVR0605W-"Threadmaybehung"messageinthelogsTroubleshootingProblemAWSVR0605WmessageintheSystemOut.logmightbemisleadingbecausethismessagenorma......
  • Vue3 Pinia对state的订阅监听($subscribe,$onAction)数据监听
    <template><divclass="main-container":class="{'show-scroll':targetIsVisible}"><div:style="{height:frameHeight+'px'}"class="main-content":class="{'show-......
  • @WebServiceClient wsdlLocation 动态给注解内容参数赋值
    动态给注解内容参数赋值@WebServiceClient(name="IXxxService",targetNamespace="http://xxx.xxx.xxx.com",wsdlLocation="${WSDL_URL}")publicclassIXxxServiceextendsService{ //静态变量在静态代码块加载后加载,且注解也在之后加载,完成动态注入修改注解里的参......
  • 你真的了解字符截取函数substr吗?php字符截取函数substr参数的6种情况。分别是:正正 负
    <?php$str='123456789abcd';echo'<br/>';echo'原字符:'.$str;echo'<br/>';//情况1正正++从指定位置开始截取3个echo'1正正substr($str,0,3):'.substr($str,0,3);//123echo'<br/>';//情况2......
  • 易基因:oxBS揭示复发性膀胱癌的DNA甲基化和羟甲基化变化并鉴定预测PD-L1表达标记物
    大家好,这里是专注表观组学十余年,领跑多组学科研服务的易基因。近日,徐州市中心医院(徐州医科大学徐州临床学院)史振铎等为第一作者、韩从辉教授为通讯作者在《BiomarkerResearch》杂志发表题为“Integrativemulti-Omicsanalysisdepictsthemethylomeandhydroxymethylomeofr......
  • 把bsc的合约代码部署到opbnb
    1.找到bsc已经正式部署的合约https://bscscan.com/ 2.拷贝ContractSourceCode把文件导出为xxx.sol 3.把导出的sol文件导入remix编辑器打开remix编辑器https://remix.ethereum.org/#lang=en&optimize=false&runs=200&evmVersion=null&version=soljson-v0.8.18+com......
  • python机器学习算法原理实现——MCMC算法之gibbs采样
    【算法原理】Gibbs采样是一种用于估计多元分布的联合概率分布的方法。在MCNC(Markov Chain Monte Carlo)中,Gibbs采样是一种常用的方法。通俗理解Gibbs采样,可以想象你在一个多维空间中,你需要找到这个空间的某个特定区域(这个区域代表了你感兴趣的分布)。但是,你不能直接看到整个空间,只......
  • 网页解析_bs4-01
    一:简介1.BeautifulSoup是一个可以从HTML或XML文件中提取数据的Python库,它的使用方式相对于正则来说更加的简单方便,常常能够节省我们大量的时间。2.BeautifulSoup的安装也是非常方便的,pip安装即可。   pipinstallbeautifulsoup4    3.解析器:Be......
  • [ARC107F] Sum of Abs 题解
    题意给定一个\(N\)个点,\(M\)条边的简单无向图,每个节点有两个值\(A_i\)和\(B_i\)。现对于每个节点,均可以选择花费\(A_i\)的代价将其删去或保留节点。若一个节点被删除,那么所有与其向连的边也会被删除。定义一个极大联通块的权值为联通块内所有节点的\(B_i\)的和的绝对......