实时更新基金的小程序 - 精易论坛

子程序名	返回值类型	公开	备注
_时钟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 />
系统_处理事件 ()