学习所得,拿出来分享,大家一起学习研究,源码开发(大鸟略过,新手研究)

点点繁星

.版本 2
.支持库 xplib
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 x, 双精度小数型, , , ' x=第一个运算数,y=第二个运算数
.程序集变量 y, 双精度小数型, , , ' x=第一个运算数,y=第二个运算数
.程序集变量 运算按钮被点击, 逻辑型, , , ' + - * / 按钮为 :运算按钮
.程序集变量 逻辑运算, 逻辑型, , , '同上,只为方便判断
.程序集变量 运算符, 文本型, , , + - * /
.程序集变量 连算, 逻辑型
.子程序 __启动窗口_创建完毕
XP风格 (2)
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Esc键)
编辑框1.获取焦点 ()
编辑框1.起始选择位置 ＝ 编辑框1.起始选择位置 ＋ 2

.子程序 _按钮等于_被单击
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容))
.如果 (连算 ＝ 假)
    y ＝ 到数值 (编辑框1.内容)
    连算 ＝ 真
.否则
    计算2 ()
    返回 ()
.如果结束
.如果真 (运算按钮被点击 ＝ 真)
    计算1 ()
    编辑框1.内容 ＝ 到文本 (x)
    运算按钮被点击 ＝ 假
    连算 ＝ 真
    返回 ()
.如果真结束
返回 ()

.子程序 计算1
.如果真 (运算符 ＝ “+”)
    x ＝ x ＋ y
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “-”)
    x ＝ x － y
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “*”)
    x ＝ x × y
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “/”)
    x ＝ x ÷ y
    返回 ()
.如果真结束
返回 ()

.子程序 计算2
.如果真 (运算符 ＝ “+”)
    编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) ＋ y)
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “-”)
    编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) － y)
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “*”)
    编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) × y)
    返回 ()
.如果真结束
.如果真 (运算符 ＝ “/”)
    编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) ÷ y)
    返回 ()
.如果真结束
返回 ()

.子程序 _按钮点_被单击
.如果真 (编辑框1.内容 ＝ “”)
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “0.”
    返回 ()
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, “.”, , 假) ≠ -1)
    返回 ()
.如果真结束
编辑框1.内容 ＝ 编辑框1.内容 ＋ “.”

.子程序 _按钮0_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “0”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “0”
    返回 ()
.如果结束
返回 ()
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “1”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “1”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮2_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “2”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “2”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮3_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “3”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “3”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮4_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “4”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “4”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮5_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “5”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “5”
    返回 ()
.如果结束
返回 ()


.子程序 _按钮6_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “6”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “6”
    返回 ()
.如果结束
返回 ()


.子程序 _按钮7_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “7”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “7”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮8_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “8”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “8”
    返回 ()
.如果结束
返回 ()


.子程序 _按钮9_被单击
.如果 (编辑框1.内容 ＝ “0” 或 编辑框1.内容 ＝ “” 或 逻辑运算 ＝ 真)
    逻辑运算 ＝ 假
    编辑框1.内容 ＝ “9”
.否则
    编辑框1.内容 ＝ 编辑框1.内容 ＋ “9”
    返回 ()
.如果结束
返回 ()

.子程序 _按钮3_C_被单击
编辑框1.内容 ＝ “0”
x ＝ 0
y ＝ 0
.子程序 _按钮_正负_被单击
.如果真 (寻找文本 (编辑框1.内容, “-”, , 假) ≠ -1)
    编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容) × -1)
    返回 ()
.如果真结束
编辑框1.内容 ＝ “-” ＋ 编辑框1.内容
返回 ()
' 这地方很绕人,玩死了!

.子程序 _按钮加_被单击
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容))
x ＝ 到数值 (编辑框1.内容)
运算符 ＝ “+”
运算按钮被点击 ＝ 真
逻辑运算 ＝ 真
连算 ＝ 假
返回 ()

.子程序 _按钮减_被单击
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容))
x ＝ 到数值 (编辑框1.内容)
运算符 ＝ “-”
运算按钮被点击 ＝ 真
逻辑运算 ＝ 真
连算 ＝ 假
返回 ()

.子程序 _按钮_乘_被单击
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容))
x ＝ 到数值 (编辑框1.内容)
运算符 ＝ “*”
运算按钮被点击 ＝ 真
逻辑运算 ＝ 真
连算 ＝ 假
返回 ()

.子程序 _按钮除_被单击
编辑框1.内容 ＝ 到文本 (到数值 (编辑框1.内容))
x ＝ 到数值 (编辑框1.内容)
运算符 ＝ “/”
运算按钮被点击 ＝ 真
逻辑运算 ＝ 真
连算 ＝ 假
返回 ()

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
_按钮3_C_被单击 ()
.子程序 _编辑框1_内容被改变
编辑框1.获取焦点 ()
编辑框1.起始选择位置 ＝ 编辑框1.最大允许长度

linwen100

{:3_244:}{:3_244:}红包在哪里

tiankai369

{:3_232:}{:3_233:}人才真多啊

人间阎王

好好学习下，HOHO，

英培

这个有点复杂的

宇智波·佐助

不错{:3_232:}

一夜十次郎

谢谢分享,支持开源