|
楼主 |
发表于 2010-3-12 09:52:48
|
显示全部楼层
江苏省南京市
.版本 2
.支持库 spec
.支持库 iext
.支持库 ProgressBar
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
调试输出 (“打开数据库”, 打开 (取运行目录 () + “\GBPUSD1.edb”, , , , , , ))
.子程序 _按钮1_被单击, , 公开
.局部变量 x, 日期时间型, , , 下一条记录的日期
.局部变量 y, 日期时间型, , , 上一条记录的日期
.局部变量 记录号, 整数型, , , 保存的记录号
.局部变量 当前记录号, 整数型, , , 当前记录集号
.局部变量 开盘价, 整数型, , , 当前记录中的开盘价字段
.局部变量 收盘价, 整数型, , , 当前记录中的收盘价字段
.局部变量 a, 整数型, , , 子程序开始执行的时间
.局部变量 b, 整数型, , , 子程序执行结束后的时间
.局部变量 索引, 整数型
.局部变量 执行值, 整数型
.局部变量 成交价1, 整数型
.局部变量 成交价2, 整数型
.局部变量 最高价, 整数型
.局部变量 最低价, 整数型
.局部变量 方向, 文本型
.局部变量 成交价, 整数型
执行值 = 40
a = 取启动时间 ()
超级列表框1.全部删除 ()
到首记录 ()
y = 取日期 (读 (#日期))
最高价 = 读 (#最高价) × 10000
最低价 = 读 (#最低价) × 10000
记录号 = 1
.计次循环首 (取记录数 (), )
跳过 ()
x = 取日期 (读 (#日期))
.判断开始 (y = x)
.默认
当前记录号 = 取记录号 ()
跳到 (记录号)
开盘价 = 读 (#开盘价) × 10000
跳到 (当前记录号 - 1)
收盘价 = 读 (#收盘价) × 10000
成交价1 = 开盘价 + 执行值
成交价2 = 开盘价 - 执行值
.如果真 (成交价1 ≥ 最高价)
成交价 = 成交价1
.如果真结束
.如果真 (成交价2 ≤ 最低价)
成交价 = 成交价2
.如果真结束
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (y)) ' 显示日期
超级列表框1.置标题 (索引, 1, 到文本 (开盘价)) ' 显示第一条记录,即开盘价
超级列表框1.置标题 (索引, 2, 到文本 (成交价1))
超级列表框1.置标题 (索引, 3, 到文本 (成交价2))
超级列表框1.置标题 (索引, 4, 到文本 (收盘价)) ' 显示最后一条记录,即收盘价.
超级列表框1.置标题 (索引, 5, 到文本 (取小时 (读 (#时间))) + “时” + 到文本 (取分钟 (读 (#时间))) + “分”)
超级列表框1.置标题 (索引, 6, 到文本 (成交价))
记录号 = 当前记录号
跳到 (当前记录号)
y = 取日期 (读 (#日期))
.判断结束
.如果真 (尾记录后 ())
.如果真结束
处理事件 ()
.计次循环尾 ()
b = 取启动时间 ()
水晶进度条1.文本 = “共用时间:” + 到文本 (b - a) + “毫秒”
调试输出 (“over”) |
|