精易论坛

标题: 学习所得,拿出来分享,大家一起学习研究,源码开发(大鸟略过,新手研究) [打印本页]

作者: 点点繁星 时间: 2012-6-14 01:54
标题: 学习所得,拿出来分享,大家一起学习研究,源码开发(大鸟略过,新手研究)
本帖最后由点点繁星于 2012-6-14 01:59 编辑

.版本 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.最大允许长度

计算器.zip

3.68 KB, 下载次数: 9, 下载积分: 精币 -2 枚

作者: linwen100 时间: 2012-6-14 07:06
{:3_244:}{:3_244:}红包在哪里

作者: tiankai369 时间: 2012-6-14 07:55
{:3_232:}{:3_233:}人才真多啊

作者: 人间阎王 时间: 2012-6-14 08:07
好好学习下，HOHO，

作者: 英培 时间: 2012-6-14 17:00
这个有点复杂的

作者: 宇智波·佐助 时间: 2012-6-15 11:59
不错{:3_232:}

作者: 一夜十次郎 时间: 2014-1-15 15:16
提示: 作者被禁止或删除内容自动屏蔽

欢迎光临精易论坛 (https://125.confly.eu.org/)