支撑压力计算器，易语言源码

bljl001

支撑压力计算器，易语言源码

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：bljl001 浏览：12319 回复：0

直接上源码，就不提供编辑好的程序了，下个破解版的易语言，就可编译，源码由5.36版易语言编写


.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _编辑框2_获得焦点

编辑框2.内容 ＝ “”

.子程序 _编辑框1_获得焦点

编辑框1.内容 ＝ “”

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 q, 文本型
.局部变量 q1, 整数型
.局部变量 q2, 整数型
.局部变量 q3, 整数型
.局部变量 w1, 整数型
.局部变量 w2, 整数型
.局部变量 w3, 整数型
.局部变量 w4, 整数型
.局部变量 w5, 整数型

编辑框3.内容 ＝ “”
q1 ＝ 到数值 (编辑框1.内容)  ' 高
q2 ＝ 到数值 (编辑框2.内容)  ' 低
q3 ＝ q1 － q2

.如果真 (单选框1.选中)
    .计次循环首 (6, i)
        q ＝ 到文本 (i － 1 ＋ 0.191) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.191)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.236) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.236)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.382) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.382)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.5) ＋ “  <----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.5)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.618) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.618)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.764) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.764)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.809) ＋ “<----->” ＋ 到文本 (q2 ＋ q3 × (i － 1 ＋ 0.809)) ＋ #换行符
        编辑框3.加入文本 (q)
        编辑框3.加入文本 (“***********************” ＋ #换行符)
    .计次循环尾 ()

.如果真结束
.如果真 (单选框2.选中)
    .计次循环首 (6, i)
        q ＝ 到文本 (i － 1 ＋ 0.191) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.191)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.236) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.236)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.382) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.382)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.5) ＋ “  <----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.5)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.618) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.618)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.764) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.764)) ＋ #换行符
        编辑框3.加入文本 (q)
        q ＝ 到文本 (i － 1 ＋ 0.809) ＋ “<----->” ＋ 到文本 (q1 － q3 × (i － 1 ＋ 0.809)) ＋ #换行符
        编辑框3.加入文本 (q)
        编辑框3.加入文本 (“***********************” ＋ #换行符)
    .计次循环尾 ()
.如果真结束

写到文件 (取运行目录 () ＋ “\” ＋ “zhichenyali” ＋ “.txt”, 到字节集 (编辑框3.内容))
写到文件 (取运行目录 () ＋ “\” ＋ “yali” ＋ “.txt”, 到字节集 (编辑框1.内容))
写到文件 (取运行目录 () ＋ “\” ＋ “zhichen” ＋ “.txt”, 到字节集 (编辑框2.内容))


.子程序 __启动窗口_创建完毕

编辑框3.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “zhichenyali” ＋ “.txt”))
编辑框1.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “yali” ＋ “.txt”))
编辑框2.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ “zhichen” ＋ “.txt”))

股票期货支撑压力计算器.rar (2.1 KB, 下载次数: 2)

2016-5-6 15:09 上传

点击文件名下载附件