实时更新基金的小程序

xiaoSeven

欢迎各位大佬批评指正

amglovee

Mortalok 发表于 2024-12-6 13:15
我做了一些修改：1、完善了配置读取功能，
2、增加表格内基金添加、删除、去重、置顶、排序（点击标题）功 ...

怎么下载。

amglovee

学习学习

oushg79

用API接口吗

Mortalok

Mortalok 发表于 2024-12-6 13:15
我做了一些修改：1、完善了配置读取功能，
2、增加表格内基金添加、删除、去重、置顶、排序（点击标题）功 ...

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

' 时钟1.时钟周期 ＝ 0
' 循环刷新 ()
线程句柄 ＝ 线程_启动 (&循环刷新, , )

子程序名	返回值类型	公开	备 注
循环刷新

变量名	类 型	静态	数组	备 注
i	整数型
基金信息	基金数据
今日收益	双精度小数型
累计收益	双精度小数型
今日总收益	整数型
累计总收益	整数型
j	整数型
收益率	双精度小数型
今日金额	双精度小数型
今日总金额	双精度小数型

' 调试输出 (元数据)
今日总收益 ＝ 0
累计总收益 ＝ 0
今日总金额 ＝ 0
计次循环首 (超级列表框1.取表项数 (), i)
' 调试输出 (子数据)
基金信息 ＝ 获取最新数据 (超级列表框1.取标题 (i － 1, 0))
超级列表框1.置标题 (i － 1, 1, 基金信息.名称)
超级列表框1.置标题 (i － 1, 2, 基金信息.昨日净值)
延迟 (1)
今日收益 ＝ (到数值 (基金信息.今日估值) － 到数值 (基金信息.昨日净值)) × 到数值 (超级列表框1.取标题 (i － 1, 8))
累计收益 ＝ (到数值 (基金信息.昨日净值) － 到数值 (超级列表框1.取标题 (i － 1, 9))) × 到数值 (超级列表框1.取标题 (i － 1, 8))
收益率 ＝ 到整数 ( (到数值 (基金信息.昨日净值) － 到数值 (超级列表框1.取标题 (i － 1, 9))) ÷ 到数值 (超级列表框1.取标题 (i － 1, 9)) × 10000) ÷ 100
今日金额 ＝ 到数值 (基金信息.昨日净值) × 到数值 (超级列表框1.取标题 (i － 1, 8))
判断 (今日收益 ＜ 0)
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #绿色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #绿色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #绿色, )

判断 (今日收益 ＞ 0)
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #红色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #红色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #红色, )


置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #黑色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #黑色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #黑色, )

超级列表框1.置标题 (i － 1, 3, 基金信息.今日估值)
超级列表框1.置标题 (i － 1, 4, 基金信息.涨跌幅度 ＋ “%”)
超级列表框1.置标题 (i － 1, 5, 到文本 (今日收益))
延迟 (1)
判断 (累计收益 ＜ 0)
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #绿色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #绿色, )
判断 (累计收益 ＞ 0)
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #红色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #红色, )



置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #黑色, )
置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #黑色, )
超级列表框1.置标题 (i － 1, 6, 到文本 (累计收益))
超级列表框1.置标题 (i － 1, 7, 到文本 (收益率) ＋ “%”)
今日总收益 ＝ 今日总收益 ＋ 今日收益
累计总收益 ＝ 累计总收益 ＋ 累计收益
今日总金额 ＝ 今日总金额 ＋ 今日金额
计次循环尾 ()
标签1.标题 ＝ “今日总收益:” ＋ 到文本 (今日总收益) ＋ “元  持有收益:” ＋ 到文本 (累计总收益) ＋ “元”
标签2.标题 ＝ “总金额:” ＋ 到文本 (今日总金额) ＋ “元 ”
图片框1.图片 ＝ 股票行情略缩图 (“1.000001”)  ' 上证
图片框2.图片 ＝ 股票行情略缩图 (“0.399001”)  ' 深指
图片框3.图片 ＝ 股票行情略缩图 (“0.399006”)  ' 创业
系统_处理事件 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> ' 时钟1.时钟周期 ＝ 0<br /> ' 循环刷新 ()<br /> 线程句柄 ＝ 线程_启动 (&循环刷新, , )<br /> <br /> <br /> <br /> .子程序 循环刷新<br /> .局部变量 i, 整数型<br /> .局部变量 基金信息, 基金数据<br /> .局部变量 今日收益, 双精度小数型<br /> .局部变量 累计收益, 双精度小数型<br /> .局部变量 今日总收益, 整数型<br /> .局部变量 累计总收益, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 收益率, 双精度小数型<br /> .局部变量 今日金额, 双精度小数型<br /> .局部变量 今日总金额, 双精度小数型<br /> <br /> <br /> ' 调试输出 (元数据)<br /> 今日总收益 ＝ 0<br /> 累计总收益 ＝ 0<br /> 今日总金额 ＝ 0<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     ' 调试输出 (子数据)<br />     基金信息 ＝ 获取最新数据 (超级列表框1.取标题 (i － 1, 0))<br /> <br />     超级列表框1.置标题 (i － 1, 1, 基金信息.名称)<br />     超级列表框1.置标题 (i － 1, 2, 基金信息.昨日净值)<br />     延迟 (1)<br />     今日收益 ＝ (到数值 (基金信息.今日估值) － 到数值 (基金信息.昨日净值)) × 到数值 (超级列表框1.取标题 (i － 1, 8))<br />     累计收益 ＝ (到数值 (基金信息.昨日净值) － 到数值 (超级列表框1.取标题 (i － 1, 9))) × 到数值 (超级列表框1.取标题 (i － 1, 8))<br />     收益率 ＝ 到整数 ((到数值 (基金信息.昨日净值) － 到数值 (超级列表框1.取标题 (i － 1, 9))) ÷ 到数值 (超级列表框1.取标题 (i － 1, 9)) × 10000) ÷ 100<br />     今日金额 ＝ 到数值 (基金信息.昨日净值) × 到数值 (超级列表框1.取标题 (i － 1, 8))<br /> <br />     .判断开始 (今日收益 ＜ 0)<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #绿色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #绿色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #绿色, )<br /> <br />     .判断 (今日收益 ＞ 0)<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #红色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #红色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #红色, )<br />     .默认<br /> <br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 3, #黑色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 4, #黑色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 5, #黑色, )<br />     .判断结束<br /> <br />     超级列表框1.置标题 (i － 1, 3, 基金信息.今日估值)<br />     超级列表框1.置标题 (i － 1, 4, 基金信息.涨跌幅度 ＋ “%”)<br />     超级列表框1.置标题 (i － 1, 5, 到文本 (今日收益))<br />     延迟 (1)<br />     .判断开始 (累计收益 ＜ 0)<br /> <br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #绿色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #绿色, )<br />     .判断 (累计收益 ＞ 0)<br /> <br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #红色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #红色, )<br /> <br />     .默认<br /> <br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 6, #黑色, )<br />         置行列颜色 (_启动窗口, 超级列表框1, i － 1, 7, #黑色, )<br />     .判断结束<br />     超级列表框1.置标题 (i － 1, 6, 到文本 (累计收益))<br />     超级列表框1.置标题 (i － 1, 7, 到文本 (收益率) ＋ “%”)<br />     今日总收益 ＝ 今日总收益 ＋ 今日收益<br />     累计总收益 ＝ 累计总收益 ＋ 累计收益<br />     今日总金额 ＝ 今日总金额 ＋ 今日金额<br /> <br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “今日总收益:” ＋ 到文本 (今日总收益) ＋ “元  持有收益:” ＋ 到文本 (累计总收益) ＋ “元”<br /> 标签2.标题 ＝ “总金额:” ＋ 到文本 (今日总金额) ＋ “元 ”<br /> 图片框1.图片 ＝ 股票行情略缩图 (“1.000001”)  ' 上证<br /> 图片框2.图片 ＝ 股票行情略缩图 (“0.399001”)  ' 深指<br /> 图片框3.图片 ＝ 股票行情略缩图 (“0.399006”)  ' 创业<br /> <br /> 系统_处理事件 ()

子程序，循环刷新内的判断要删除，不然CPU占用会特别高

Mortalok

我做了一些修改：1、完善了配置读取功能，
2、增加表格内基金添加、删除、去重、置顶、排序（点击标题）功能及右键菜单，
3、增加了持仓总金额显示，
4、增加了简易的大盘数据显示（数据来自东方财富），
5、启用了界面最大化功能，
6、修改了文字颜色修改方式（学艺不精，大佬的颜色修改方式有点看不懂，而且显示效果有点小bug）。

祝大家财运亨通。

Mortalok

支持支持

熊不熊

感谢分享，很给力！~

流浪的云

非常好    可以借鉴学习一下了   感谢了

candi

感谢分享