计算器源码

bugaosuni1314

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序集_运算符状态标记	逻辑型
程序集_二次标记符	逻辑型
程序集_第一个数	双精度小数型
程序集_结果	小数型
程序集_结果转换	小数型
程序集_运算符	文本型
程序集_第二个数	双精度小数型
程序集_中间转换	文本型
程序集_按键标记符	逻辑型

子程序名	返回值类型	公开	备 注
_超级按钮_1_被单击

标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_1.标题
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_1.标题

子程序名	返回值类型	公开	备 注
_超级按钮_2_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_2.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_2.标题

子程序名	返回值类型	公开	备 注
_超级按钮_3_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_3.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_3.标题

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

如果真 (标签_结果显示下.标题 ≠ “”)
如果真 (程序集_运算符状态标记 ＝ 假)
程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “+”
程序集_运算符 ＝ “加”
程序集_运算符状态标记 ＝ 真
标签_结果显示下.标题 ＝ “”

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

如果真 (标签_结果显示上.标题 ≠ “”)
程序集_第二个数 ＝ 到小数 (标签_结果显示下.标题)
如果真 (程序集_运算符状态标记 ＝ 真)
如果真 (程序集_运算符 ＝ “加”)
程序集_结果 ＝ 程序集_第一个数 ＋ 程序集_第二个数
标签_结果显示下.标题 ＝ 到文本 (程序集_结果)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)
如果真 (程序集_运算符 ＝ “减”)
程序集_结果 ＝ 程序集_第一个数 － 程序集_第二个数
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)
如果真 (程序集_运算符 ＝ “乘”)
程序集_结果 ＝ 程序集_第一个数 × 程序集_第二个数
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)
如果真 (程序集_运算符 ＝ “除”)
程序集_结果 ＝ 程序集_第一个数 ÷ 程序集_第二个数
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)

程序集_运算符状态标记 ＝ 假

子程序名	返回值类型	公开	备 注
_超级按钮_5_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_5.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_5.标题

子程序名	返回值类型	公开	备 注
_超级按钮_6_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_6.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_6.标题

子程序名	返回值类型	公开	备 注
_超级按钮_7_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_7.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_7.标题

子程序名	返回值类型	公开	备 注
_超级按钮_8_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_8.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_8.标题

子程序名	返回值类型	公开	备 注
_超级按钮_9_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_9.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_9.标题

子程序名	返回值类型	公开	备 注
_超级按钮_0_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_0.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_0.标题

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

如果 (寻找文本 (标签_结果显示下.标题, “.”, , 假) ＝ -1)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “.”
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ “.”

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

如果真 (标签_结果显示下.标题 ≠ “”)
如果 (程序集_运算符状态标记 ＝ 假)
程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “÷”
程序集_运算符 ＝ “除”
程序集_运算符状态标记 ＝ 真
标签_结果显示下.标题 ＝ “”

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

如果真 (标签_结果显示下.标题 ≠ “”)
如果 (程序集_运算符状态标记 ＝ 假)
程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “-”
程序集_运算符 ＝ “减”
程序集_运算符状态标记 ＝ 真
标签_结果显示下.标题 ＝ “”

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

如果真 (标签_结果显示下.标题 ≠ “”)
如果 (程序集_运算符状态标记 ＝ 假)
程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)
标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “×”
程序集_运算符 ＝ “乘”
程序集_运算符状态标记 ＝ 真
标签_结果显示下.标题 ＝ “”

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

如果真 (标签_结果显示下.标题 ≠ “”)
标签_结果显示上.标题 ＝ 取文本左边 (标签_结果显示上.标题, 取文本长度 (标签_结果显示上.标题) － 1)
标签_结果显示下.标题 ＝ 取文本左边 (标签_结果显示下.标题, 取文本长度 (标签_结果显示下.标题) － 1)
如果真 (标签_结果显示下.标题 ＝ “”)
如果真 (程序集_按键标记符 ＝ 真)
标签_结果显示上.标题 ＝ 取文本左边 (标签_结果显示上.标题, 取文本长度 (标签_结果显示上.标题) － 1)

子程序名	返回值类型	公开	备 注
_超级按钮_C_被单击

标签_结果显示下.标题 ＝ “”
标签_结果显示上.标题 ＝ “”
程序集_中间转换 ＝ “”
程序集_结果转换 ＝ 0
程序集_运算符状态标记 ＝ 假
程序集_第一个数 ＝ 0
程序集_第二个数 ＝ 0

子程序名	返回值类型	公开	备 注
_标签_结果显示上_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

子程序名	返回值类型	公开	备 注
_标签_结果显示下_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
局部_计次	整数型

计次循环首 (10, 局部_计次)
标签_结果显示上.字体.字体大小 ＝ 16
标签_结果显示下.字体.字体大小 ＝ 16 ＋ 局部_计次
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_标签_结果显示上_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
局部_计次	整数型

程序集_按键标记符 ＝ 真
计次循环首 (10, 局部_计次)
标签_结果显示上.字体.字体大小 ＝ 16 ＋ 局部_计次
标签_结果显示下.字体.字体大小 ＝ 16
计次循环尾 ()

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

程序集_运算符状态标记 ＝ 假
程序集_按键标记符 ＝ 假
标签_结果显示上.字体.字体大小 ＝ 16
标签_结果显示下.字体.字体大小 ＝ 26

子程序名	返回值类型	公开	备 注
_标签_标题_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

子程序名	返回值类型	公开	备 注
_超级按钮_4_被单击

标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_4.标题
标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_4.标题

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序集_运算符状态标记, 逻辑型<br /> .程序集变量 程序集_二次标记符, 逻辑型<br /> .程序集变量 程序集_第一个数, 双精度小数型<br /> .程序集变量 程序集_结果, 小数型<br /> .程序集变量 程序集_结果转换, 小数型<br /> .程序集变量 程序集_运算符, 文本型<br /> .程序集变量 程序集_第二个数, 双精度小数型<br /> .程序集变量 程序集_中间转换, 文本型<br /> .程序集变量 程序集_按键标记符, 逻辑型<br /> <br /> .子程序 _超级按钮_1_被单击<br /> <br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_1.标题<br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_1.标题<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_2_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_2.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_2.标题<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_3_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_3.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_3.标题<br /> <br /> <br /> <br /> .子程序 _超级按钮_加法_被单击<br /> <br /> <br /> .如果真 (标签_结果显示下.标题 ≠ “”)<br />     .如果真 (程序集_运算符状态标记 ＝ 假)<br />         程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)<br />         标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “+”<br />         程序集_运算符 ＝ “加”<br />         程序集_运算符状态标记 ＝ 真<br /> <br />         标签_结果显示下.标题 ＝ “”<br /> <br /> <br />     .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _超级按钮_等于_被单击<br /> <br /> .如果真 (标签_结果显示上.标题 ≠ “”)<br /> <br />     程序集_第二个数 ＝ 到小数 (标签_结果显示下.标题)<br /> <br /> <br />     .如果真 (程序集_运算符状态标记 ＝ 真)<br />         .如果真 (程序集_运算符 ＝ “加”)<br />             程序集_结果 ＝ 程序集_第一个数 ＋ 程序集_第二个数<br />             标签_结果显示下.标题 ＝ 到文本 (程序集_结果)<br />             标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)<br />         .如果真结束<br />         .如果真 (程序集_运算符 ＝ “减”)<br />             程序集_结果 ＝ 程序集_第一个数 － 程序集_第二个数<br />             标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)<br />         .如果真结束<br />         .如果真 (程序集_运算符 ＝ “乘”)<br />             程序集_结果 ＝ 程序集_第一个数 × 程序集_第二个数<br />             标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)<br />         .如果真结束<br />         .如果真 (程序集_运算符 ＝ “除”)<br />             程序集_结果 ＝ 程序集_第一个数 ÷ 程序集_第二个数<br />             标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “=” ＋ 到文本 (程序集_结果)<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     程序集_运算符状态标记 ＝ 假<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _超级按钮_5_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_5.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_5.标题<br /> <br /> <br /> .子程序 _超级按钮_6_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_6.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_6.标题<br /> <br /> <br /> <br /> .子程序 _超级按钮_7_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_7.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_7.标题<br /> <br /> <br /> <br /> .子程序 _超级按钮_8_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_8.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_8.标题<br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_9_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_9.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_9.标题<br /> <br /> <br /> <br /> .子程序 _超级按钮_0_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_0.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_0.标题<br /> <br /> <br /> <br /> .子程序 _超级按钮_点_被单击<br /> <br /> .如果 (寻找文本 (标签_结果显示下.标题, “.”, , 假) ＝ -1)<br />     标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “.”<br />     标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ “.”<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_除法_被单击<br /> <br /> <br /> <br /> <br /> .如果真 (标签_结果显示下.标题 ≠ “”)<br />     .如果 (程序集_运算符状态标记 ＝ 假)<br />         程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)<br />         标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “÷”<br />         程序集_运算符 ＝ “除”<br />         程序集_运算符状态标记 ＝ 真<br />         标签_结果显示下.标题 ＝ “”<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_减法_被单击<br /> <br /> .如果真 (标签_结果显示下.标题 ≠ “”)<br />     .如果 (程序集_运算符状态标记 ＝ 假)<br />         程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)<br />         标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “-”<br />         程序集_运算符 ＝ “减”<br />         程序集_运算符状态标记 ＝ 真<br /> <br />         标签_结果显示下.标题 ＝ “”<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _超级按钮_乘法_被单击<br /> <br /> <br /> .如果真 (标签_结果显示下.标题 ≠ “”)<br />     .如果 (程序集_运算符状态标记 ＝ 假)<br />         程序集_第一个数 ＝ 到小数 (标签_结果显示下.标题)<br />         标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ “×”<br />         程序集_运算符 ＝ “乘”<br />         程序集_运算符状态标记 ＝ 真<br /> <br />         标签_结果显示下.标题 ＝ “”<br /> <br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _超级按钮_删除_被单击<br /> <br /> .如果真 (标签_结果显示下.标题 ≠ “”)<br />     标签_结果显示上.标题 ＝ 取文本左边 (标签_结果显示上.标题, 取文本长度 (标签_结果显示上.标题) － 1)<br />     标签_结果显示下.标题 ＝ 取文本左边 (标签_结果显示下.标题, 取文本长度 (标签_结果显示下.标题) － 1)<br /> <br /> .如果真结束<br /> .如果真 (标签_结果显示下.标题 ＝ “”)<br />     .如果真 (程序集_按键标记符 ＝ 真)<br />         标签_结果显示上.标题 ＝ 取文本左边 (标签_结果显示上.标题, 取文本长度 (标签_结果显示上.标题) － 1)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _超级按钮_C_被单击<br /> <br /> 标签_结果显示下.标题 ＝ “”<br /> 标签_结果显示上.标题 ＝ “”<br /> 程序集_中间转换 ＝ “”<br /> 程序集_结果转换 ＝ 0<br /> 程序集_运算符状态标记 ＝ 假<br /> 程序集_第一个数 ＝ 0<br /> 程序集_第二个数 ＝ 0<br /> <br /> .子程序 _标签_结果显示上_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> <br /> <br /> .子程序 _标签_结果显示下_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 局部_计次, 整数型<br /> <br /> .计次循环首 (10, 局部_计次)<br />     标签_结果显示上.字体.字体大小 ＝ 16<br />     标签_结果显示下.字体.字体大小 ＝ 16 ＋ 局部_计次<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _标签_结果显示上_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 局部_计次, 整数型<br /> <br /> 程序集_按键标记符 ＝ 真<br /> <br /> .计次循环首 (10, 局部_计次)<br />     标签_结果显示上.字体.字体大小 ＝ 16 ＋ 局部_计次<br />     标签_结果显示下.字体.字体大小 ＝ 16<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 程序集_运算符状态标记 ＝ 假<br /> 程序集_按键标记符 ＝ 假<br /> 标签_结果显示上.字体.字体大小 ＝ 16<br /> 标签_结果显示下.字体.字体大小 ＝ 26<br /> <br /> <br /> .子程序 _标签_标题_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> <br /> <br /> .子程序 _超级按钮_4_被单击<br /> <br /> 标签_结果显示上.标题 ＝ 标签_结果显示上.标题 ＋ 超级按钮_4.标题<br /> 标签_结果显示下.标题 ＝ 标签_结果显示下.标题 ＋ 超级按钮_4.标题

jjlzg

有一个只支持整数

jjlzg

这个计算器功能是否有错误

jjlzg

居然不能下载了

4888862

计算器源码 https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14868715 (出处: 精易论坛)

renhe2018

不错呀，很实用喔

羽毛呀

感谢分享