简单的科学计算器

oocc

  

窗口程序集名	保 留	保 留	备 注
大数运算窗口程序集
变量名	类 型	数组	备 注
程_参数1	文本型		做为运算的第一个参数
程_参数2	文本型		做为运算的第二个参数
程_弧度	逻辑型		0为角度，1为弧度
程_第一次按下	逻辑型		判断程序是否是被第一次按下,0为第一次
程_运算符	文本型		判断将进行那种运算
程_正负	逻辑型		0为正，1为负,正负按钮用到，判断下一次转换是负数还是正数
程_当前进制	整数型		记录当前进制

子程序名	返回值类型	公开	备 注
_最小化按钮_被单击

_启动窗口.位置 ＝ 2

子程序名	返回值类型	公开	备 注
_关闭按钮_被单击

_启动窗口.销毁 ()

子程序名	返回值类型	公开	备 注
_求余切按钮_被单击

变量名	类 型	静态	数组	备 注
结果	文本型			返回的运算结果
局_小数位数	整数型

结果 ＝ 子程序_求余切 (显示编辑框.内容)
' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数
判断 (寻找文本 (结果, “.”, , 假) ＝ -1)
' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符
显示编辑框.内容 ＝ 结果



局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)
' 判断下，小数的位数是否在范围之内
如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) ��� (局_小数位数 － 到数值 (全_小数保留精度)))

显示编辑框.内容 ＝ 结果
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_平方按钮_被单击

变量名	类 型	静态	数组	备 注
结果	文本型			返回的运算结果
局_小数位数	整数型

结果 ＝ 子程序_平方 (显示编辑框.内容)
' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数
判断 (寻找文本 (结果, “.”, , 假) ＝ -1)
' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符
显示编辑框.内容 ＝ 结果



局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)
' 判断下，小数的位数是否在范围之内
如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) ��� (局_小数位数 － 到数值 (全_小数保留精度)))

显示编辑框.内容 ＝ 结果

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_立方按钮_被单击

变量名	类 型	静态	数组	备 注
结果	文本型
局_小数位数	整数型

结果 ＝ 子程序_立方 (显示编辑框.内容)
' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数
判断 (寻找文本 (结果, “.”, , 假) ＝ -1)
' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符
显示编辑框.内容 ＝ 结果



局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)
' 判断下，小数的位数是否在范围之内
如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))
结果 ＝ 取文本左边 (结果, 取文本长度 (结果) ��� (局_小数位数 － 到数值 (全_小数保留精度)))

显示编辑框.内容 ＝ 结果
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_N次方按钮_被单击			......

变量名	类 型	静态	数组	备 注
结果	文本型

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “N次方”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_角弧度按钮_被单击			有问题

' 取这次运算是取角度还是弧度
判断 (程_弧度 ＝ 假)
' 角度转成弧度
显示编辑框.内容 ＝ 到文本 (到数值 (显示编辑框.内容) × 180 ÷ #pi )
' 角=弧*180/p



' 弧度转成角度
显示编辑框.内容 ＝ 到文本 (到数值 (显示编辑框.内容) × #pi ÷ 180)

程_弧度 ＝ 取反 (程_弧度)
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_正负号按钮_被单击

如果真 (寻找文本 (显示编辑框.内容, “-”, , 假) ＝ -1)
程_正负 ＝ 真

判断 (程_正负 ＝ 假)
' 取正
如果真 (显示编辑框.内容 ≠ “0”)
显示编辑框.内容 ＝ 子程序_取正 (显示编辑框.内容)
程_正负 ＝ 取反 (程_正负)




' 取负
判断 (寻找文本 (显示编辑框.内容, “-”, , 假) ＝ -1)
如果真 (显示编辑框.内容 ≠ “0”)
显示编辑框.内容 ＝ 子程序_取负 (显示编辑框.内容)
程_正负 ＝ 取反 (程_正负)




如果真 (显示编辑框.内容 ≠ “0”)
显示编辑框.内容 ＝ 子程序_取正 (显示编辑框.内容)



显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字7按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “7”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “7”

显示编辑框.加入文本 (“7”)


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字8按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “8”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “8”

显示编辑框.加入文本 (“8”)


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字9按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “9”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “9”

显示编辑框.加入文本 (“9”)

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字4按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “4”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “4”

显示编辑框.加入文本 (“4”)

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字5按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “5”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “5”

显示编辑框.加入文本 (“5”)


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字6按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “6”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “6”

显示编辑框.加入文本 (“6”)

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字1按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “1”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “1”

显示编辑框.加入文本 (“1”)

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字2按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “2”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “2”

显示编辑框.加入文本 (“2”)


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字3按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “3”
程_第一次按下 ＝ 真


判断 (显示编辑框.内容 ＝ “0”)
显示编辑框.内容 ＝ “3”

显示编辑框.加入文本 (“3”)


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果真 (寻找文件 (取运行目录 () ＋ “\配置.ini”, ) ＝ “”)
写到文件 (取运行目录 () ＋ “\配置.ini”, { })
写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “计算精度”, “3”)
写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “小数保留位数”, “5”)

全_计算精度 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “计算精度”, )
全_小数保留精度 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “小数保留位数”, )
程_当前进制 ＝ 10
十进制单选框.选中 ＝ 真
程_正负 ＝ 真
显示编辑框.内容 ＝ “0”
程_参数1 ＝ 显示编辑框.内容
连续赋值 (真, 数字A按钮.禁止, 数字B按钮.禁止, 数字C按钮.禁止, 数字D按钮.禁止, 数字E按钮.禁止, 数字F按钮.禁止)
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_数字0按钮_被单击

判断 (程_第一次按下 ＝ 假)
' 是第一次按下
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 真


' 当前数值为0时就不能再补位加0
如果真 (显示编辑框.内容 ≠ “0”)
显示编辑框.加入文本 (“0”)

显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_小数点按钮_被单击

如果真 (寻找文本 (显示编辑框.内容, “.”, , 假) ＝ -1)
显示编辑框.加入文本 (“.”)
程_第一次按下 ＝ 真

' 判断下，有小数点就不加，没有就加
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_除按钮_被单击			......

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “除”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_乘按钮_被单击			....

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “乘”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_减按钮_被单击			.....

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “减”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_加按钮_被单击			.....

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “加”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_整除按钮_被单击			....

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “整除”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_求余按钮_被单击			....

程_参数1 ＝ 显示编辑框.内容
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假
程_运算符 ＝ “求余”
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_取整按钮_被单击

变量名	类 型	静态	数组	备 注
结果	文本型

结果 ＝ 子程序_取整数 (显示编辑框.内容)
显示编辑框.内容 ＝ 结果
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_傅立叶变换按钮_被单击

载入 (傅立叶变换窗口, , 真)

子程序名	返回值类型	公开	备 注
_删除按钮_被单击

显示编辑框.内容 ＝ “0”
程_参数1 ＝ “”
程_参数2 ＝ “”
程_运算符 ＝ “”
程_第一次按下 ＝ 假
程_正负 ＝ 真
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_清除按钮_被单击

判断 (程_参数2 ≠ “”)
程_参数2 ＝ “”
显示编辑框.内容 ＝ “0”
判断 (程_参数1 ≠ “”)
程_参数1 ＝ “”
显示编辑框.内容 ＝ “0”
程_第一次按下 ＝ 假


显示编辑框.内容 ＝ “0”


显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_退格按钮_被单击

变量名	类 型	静态	数组	备 注
局_变量	文本型			接受显示编辑框的内容
局_文本数量	整数型			显示编辑框中的文本数量

判断 (显示编辑框.内容 ＝ “0”)

判断 (取文本长度 (显示编辑框.内容) ＝ 1)
显示编辑框.内容 ＝ “0”
局_变量 ＝ 显示编辑框.内容
局_文本数量 ＝ 取文本长度 (局_变量)
显示编辑框.内容 ＝ 取文本左边 (局_变量, 局_文本数量 － 1)
显示编辑框.获取焦点 ()
显示编辑框.起始选择位置 ＝ -1

子程序名	返回值类型	公开	备 注
_等号按钮_被单击

变量名	类 型	静态	数组	备 注
结果	文本型			接受运算结果
局_小数位数	整数型			查找结果文本，找出小数位数
局_转换方式	整数型

如果真 (程_参数1 ≠ “”)
' 判断第一个参数是否为空，不为空做运算，为空将不做任何运算
如果真 (程_运算符 ≠ “”)
程_参数2 ＝ 显示编辑框.内容
如果真 (寻找文本 (程_参数1, “.”, , 假) ＝ -1 且 寻找文本 (程_参数1, “-”, , 假) ＝ -1)
程_参数1 ＝ 进制转换 (程_参数1, 程_当前进制, 10)
如果真 (寻找文本 (程_参数2, “.”, , 假) ＝ -1 且 寻找文本 (程_参数2, “-”, , 假) ＝ -1)
程_参数2 ＝ 进制转换 (程_

i支持库列表	支持库注释
iext2	扩展界面支持库二
eCalc	数值计算支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 eCalc<br /> <br /> .程序集 大数运算窗口程序集<br /> .程序集变量 程_参数1, 文本型, , , 做为运算的第一个参数<br /> .程序集变量 程_参数2, 文本型, , , 做为运算的第二个参数<br /> .程序集变量 程_弧度, 逻辑型, , , 0为角度，1为弧度<br /> .程序集变量 程_第一次按下, 逻辑型, , , 判断程序是否是被第一次按下,0为第一次<br /> .程序集变量 程_运算符, 文本型, , , 判断将进行那种运算<br /> .程序集变量 程_正负, 逻辑型, , , 0为正，1为负,正负按钮用到，判断下一次转换是负数还是正数<br /> .程序集变量 程_当前进制, 整数型, , , 记录当前进制<br /> <br /> .子程序 _最小化按钮_被单击<br /> <br /> _启动窗口.位置 ＝ 2<br /> <br /> .子程序 _关闭按钮_被单击<br /> <br /> _启动窗口.销毁 ()<br /> <br /> .子程序 _求余切按钮_被单击<br /> .局部变量 结果, 文本型, , , 返回的运算结果<br /> .局部变量 局_小数位数, 整数型<br /> <br /> <br /> 结果 ＝ 子程序_求余切 (显示编辑框.内容)<br /> ' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数<br /> <br /> .判断开始 (寻找文本 (结果, “.”, , 假) ＝ -1)<br /> ' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符<br /> 显示编辑框.内容 ＝ 结果<br /> <br /> .默认<br /> <br /> 局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)<br /> ' 判断下，小数的位数是否在范围之内<br /> .如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － (局_小数位数 － 到数值 (全_小数保留精度)))<br /> .如果真结束<br /> <br /> 显示编辑框.内容 ＝ 结果<br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> <br /> .子程序 _平方按钮_被单击<br /> .局部变量 结果, 文本型, , , 返回的运算结果<br /> .局部变量 局_小数位数, 整数型<br /> <br /> <br /> 结果 ＝ 子程序_平方 (显示编辑框.内容)<br /> ' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数<br /> <br /> .判断开始 (寻找文本 (结果, “.”, , 假) ＝ -1)<br /> ' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符<br /> 显示编辑框.内容 ＝ 结果<br /> <br /> .默认<br /> <br /> 局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)<br /> ' 判断下，小数的位数是否在范围之内<br /> .如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － (局_小数位数 － 到数值 (全_小数保留精度)))<br /> .如果真结束<br /> <br /> 显示编辑框.内容 ＝ 结果<br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _立方按钮_被单击<br /> .局部变量 结果, 文本型<br /> .局部变量 局_小数位数, 整数型<br /> <br /> <br /> 结果 ＝ 子程序_立方 (显示编辑框.内容)<br /> ' 判断结果中是否存在小数,存在小数就需要根据配置文件中的数据进行保留小数<br /> <br /> .判断开始 (寻找文本 (结果, “.”, , 假) ＝ -1)<br /> ' 运算除结果后把结果作为第一个参数，清除第二个参数，清除运算符<br /> 显示编辑框.内容 ＝ 结果<br /> <br /> .默认<br /> <br /> 局_小数位数 ＝ 取文本长度 (结果) － 寻找文本 (结果, “.”, , 假)<br /> ' 判断下，小数的位数是否在范围之内<br /> .如果真 (局_小数位数 ＞ 到数值 (全_小数保留精度))<br /> 结果 ＝ 取文本左边 (结果, 取文本长度 (结果) － (局_小数位数 － 到数值 (全_小数保留精度)))<br /> .如果真结束<br /> <br /> 显示编辑框.内容 ＝ 结果<br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _N次方按钮_被单击, , , ......<br /> .局部变量 结果, 文本型<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “N次方”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _角弧度按钮_被单击, , , 有问题<br /> <br /> ' 取这次运算是取角度还是弧度<br /> .判断开始 (程_弧度 ＝ 假)<br /> ' 角度转成弧度<br /> 显示编辑框.内容 ＝ 到文本 (到数值 (显示编辑框.内容) × 180 ÷ #pi)<br /> ' 角=弧*180/p<br /> <br /> .默认<br /> <br /> ' 弧度转成角度<br /> 显示编辑框.内容 ＝ 到文本 (到数值 (显示编辑框.内容) × #pi ÷ 180)<br /> .判断结束<br /> <br /> <br /> 程_弧度 ＝ 取反 (程_弧度)<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _正负号按钮_被单击<br /> <br /> <br /> .如果真 (寻找文本 (显示编辑框.内容, “-”, , 假) ＝ -1)<br /> 程_正负 ＝ 真<br /> .如果真结束<br /> <br /> <br /> .判断开始 (程_正负 ＝ 假)<br /> ' 取正<br /> .如果真 (显示编辑框.内容 ≠ “0”)<br /> 显示编辑框.内容 ＝ 子程序_取正 (显示编辑框.内容)<br /> 程_正负 ＝ 取反 (程_正负)<br /> .如果真结束<br /> <br /> <br /> .默认<br /> <br /> ' 取负<br /> .判断开始 (寻找文本 (显示编辑框.内容, “-”, , 假) ＝ -1)<br /> .如果真 (显示编辑框.内容 ≠ “0”)<br /> 显示编辑框.内容 ＝ 子程序_取负 (显示编辑框.内容)<br /> 程_正负 ＝ 取反 (程_正负)<br /> .如果真结束<br /> <br /> <br /> <br /> .默认<br /> <br /> .如果真 (显示编辑框.内容 ≠ “0”)<br /> 显示编辑框.内容 ＝ 子程序_取正 (显示编辑框.内容)<br /> .如果真结束<br /> <br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字7按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “7”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “7”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“7”)<br /> <br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> <br /> .子程序 _数字8按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “8”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “8”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“8”)<br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字9按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “9”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “9”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“9”)<br /> .判断结束<br /> <br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字4按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “4”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “4”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“4”)<br /> .判断结束<br /> <br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字5按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “5”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “5”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“5”)<br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字6按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “6”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “6”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“6”)<br /> .判断结束<br /> <br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字1按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “1”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “1”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“1”)<br /> .判断结束<br /> <br /> <br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字2按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “2”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “2”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“2”)<br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字3按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “3”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> 显示编辑框.内容 ＝ “3”<br /> <br /> .默认<br /> 显示编辑框.加入文本 (“3”)<br /> .判断结束<br /> <br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (寻找文件 (取运行目录 () ＋ “\配置.ini”, ) ＝ “”)<br /> 写到文件 (取运行目录 () ＋ “\配置.ini”, { })<br /> 写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “计算精度”, “3”)<br /> 写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “小数保留位数”, “5”)<br /> .如果真结束<br /> <br /> 全_计算精度 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “计算精度”, )<br /> 全_小数保留精度 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “小数保留位数”, )<br /> <br /> 程_当前进制 ＝ 10<br /> 十进制单选框.选中 ＝ 真<br /> <br /> 程_正负 ＝ 真<br /> <br /> 显示编辑框.内容 ＝ “0”<br /> 程_参数1 ＝ 显示编辑框.内容<br /> 连续赋值 (真, 数字A按钮.禁止, 数字B按钮.禁止, 数字C按钮.禁止, 数字D按钮.禁止, 数字E按钮.禁止, 数字F按钮.禁止)<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _数字0按钮_被单击<br /> <br /> .判断开始 (程_第一次按下 ＝ 假)<br /> ' 是第一次按下<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 真<br /> .默认<br /> <br /> ' 当前数值为0时就不能再补位加0<br /> .如果真 (显示编辑框.内容 ≠ “0”)<br /> 显示编辑框.加入文本 (“0”)<br /> .如果真结束<br /> <br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _小数点按钮_被单击<br /> <br /> .如果真 (寻找文本 (显示编辑框.内容, “.”, , 假) ＝ -1)<br /> 显示编辑框.加入文本 (“.”)<br /> 程_第一次按下 ＝ 真<br /> .如果真结束<br /> <br /> ' 判断下，有小数点就不加，没有就加<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _除按钮_被单击, , , ......<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “除”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _乘按钮_被单击, , , ....<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “乘”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _减按钮_被单击, , , .....<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “减”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _加按钮_被单击, , , .....<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “加”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _整除按钮_被单击, , , ....<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “整除”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _求余按钮_被单击, , , ....<br /> <br /> 程_参数1 ＝ 显示编辑框.内容<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> 程_运算符 ＝ “求余”<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _取整按钮_被单击<br /> .局部变量 结果, 文本型<br /> <br /> <br /> 结果 ＝ 子程序_取整数 (显示编辑框.内容)<br /> 显示编辑框.内容 ＝ 结果<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _傅立叶变换按钮_被单击<br /> <br /> 载入 (傅立叶变换窗口, , 真)<br /> <br /> <br /> .子程序 _删除按钮_被单击<br /> <br /> 显示编辑框.内容 ＝ “0”<br /> 程_参数1 ＝ “”<br /> 程_参数2 ＝ “”<br /> 程_运算符 ＝ “”<br /> 程_第一次按下 ＝ 假<br /> 程_正负 ＝ 真<br /> <br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _清除按钮_被单击<br /> <br /> .判断开始 (程_参数2 ≠ “”)<br /> 程_参数2 ＝ “”<br /> 显示编辑框.内容 ＝ “0”<br /> .默认<br /> .判断开始 (程_参数1 ≠ “”)<br /> 程_参数1 ＝ “”<br /> 显示编辑框.内容 ＝ “0”<br /> 程_第一次按下 ＝ 假<br /> .默认<br /> <br /> 显示编辑框.内容 ＝ “0”<br /> .判断结束<br /> <br /> .判断结束<br /> <br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _退格按钮_被单击<br /> .局部变量 局_变量, 文本型, , , 接受显示编辑框的内容<br /> .局部变量 局_文本数量, 整数型, , , 显示编辑框中的文本数量<br /> <br /> .判断开始 (显示编辑框.内容 ＝ “0”)<br /> <br /> .判断 (取文本长度 (显示编辑框.内容) ＝ 1)<br /> 显示编辑框.内容 ＝ “0”<br /> .默认<br /> 局_变量 ＝ 显示编辑框.内容<br /> 局_文本数量 ＝ 取文本长度 (局_变量)<br /> 显示编辑框.内容 ＝ 取文本左边 (局_变量, 局_文本数量 － 1)<br /> .判断结束<br /> 显示编辑框.获取焦点 ()<br /> 显示编辑框.起始选择位置 ＝ -1<br /> <br /> .子程序 _等号按钮_被单击<br /> .局部变量 结果, 文本型, , , 接受运算结果<br /> .局部变量 局_小数位数, 整数型, , , 查找结果文本，找出小数位数<br /> .局部变量 局_转换方式, 整数型<br /> <br /> <br /> .如果真 (程_参数1 ≠ “”)<br /> ' 判断第一个参数是否为空，不为空做运算，为空将不做任何运算<br /> .如果真 (程_运算符 ≠ “”)<br /> 程_参数2 ＝ 显示编辑框.内容<br /> .如果真 (寻找文本 (程_参数1, “.”, , 假) ＝ -1 且 寻找文本 (程_参数1, “-”, , 假) ＝ -1)<br /> 程_参数1 ＝ 进制转换 (程_参数1, 程_当前进制, 10)<br /> .如果真结束<br /> .如果真 (寻找文本 (程_参数2, “.”, , 假) ＝ -1 且 寻找文本 (程_参数2, “-”, , 假) ＝ -1)<br /> 程_参数2 ＝ 进制转换 (程_

lzbkunming

谢谢分享

15887059803

感谢分享支持开源

Apro1066

提示：易语言文件夹里有这个

1472861280

ffsdgfdgrgsd

TencentPony

终于找到了。。。。。。。。。。

zhf130

感谢楼主！

单月

感谢分享。。。。。。。。

爱婷学易

好good。描述很好