文件名称：超哥计算器
文件大小：411KB
文件格式：RAR
更新时间：2014-12-04 16:24:07
计算器
.版本 2 .程序集 窗口程序集1 .程序集变量 数1, 文本型 .程序集变量 数2, 文本型 .程序集变量 计算符号, 文本型 .子程序 _数字1_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “1” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “1” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字2_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “2” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “2” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _铵钮_加号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “+” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 子程序_按钮单击后 .' 如果 (计算符号 ≠ “”) ' 数2 ＝ 数2 ＋ “2” ' 编辑框_输入内容.内容 ＝ 数1 .否则 ' 数1 ＝ 数1 ＋ “2” ' 编辑框_输入内容.内容 ＝ 数1 .如果结束 .子程序 _铵钮_减号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “-” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _铵钮_乘号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “×” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _铵钮_除号_被单击 .如果 (数1 ≠ “”) 计算符号 ＝ “÷” .否则 信息框 (“请先输入数字！”, 0, ) .如果结束 .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .子程序 _数字3_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “3” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “3” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字4_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “4” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “4” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字5_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “5” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “5” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字6_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “6” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “6” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字7_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “7” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “7” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字8_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “8” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “8” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字9_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “9” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “9” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _数字0_被单击 .如果 (计算符号 ＝ “”) 数1 ＝ 数1 ＋ “0” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果 (计算符号 ≠ “=”) 数2 ＝ 数2 ＋ “0” 编辑框_输入内容.内容 ＝ 数2 .否则 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .子程序 _按钮_等于号_被单击 .判断开始 (计算符号 ＝ “+”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “-”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “×”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .判断 (计算符号 ＝ “÷”) .如果 (数2 ≠ “”) 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2)) 数1 ＝ 编辑框_计算结果.内容 数2 ＝ “” .否则 .如果结束 .默认 .判断结束 计算符号 ＝ “=” .子程序 _按钮_清空_被单击 数1 ＝ “” 数2 ＝ “” 计算符号 ＝ “” 编辑框_计算结果.内容 ＝ “” 编辑框_输入内容.内容 ＝ “” .子程序 _铵钮_小数点_被单击 .如果 (数2 ＝ “”) .如果 (寻找文本 (数1, “.”, , 假) ＝ -1) 数1 ＝ 数1 ＋ “.” 编辑框_输入内容.内容 ＝ 数1 .否则 .如果结束 .否则 .如果 (寻找文本 (数2, “.”, , 假) ＝ -1) 数2 ＝ 数2 ＋ “.” 编辑框_输入内容.内容 ＝ 数2 .否则 .如果结束 .如果结束 .子程序 _按钮_退格_被单击 .如果 (数2 ＝ “”) 数1 ＝ 文本替换 (数1, 取文本长度 (数1), 1, ) 编辑框_输入内容.内容 ＝ 数1 .否则 数2 ＝ 文本替换 (数2, 取文本长度 (数2), 1, ) 编辑框_输入内容.内容 ＝ 数2 .如果结束 .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .' 如果 (键代码 ＝ 43 或 键代码 ＝ 45 或 键代码 ＝ 94 或 键代码 ＝ 47) .' 如果 (数1 ≠ “”) ' 计算符号 ＝ 到文本 (键代码) .否则 ' 信息框 (“请先输入数字！”, 0, ) .如果结束 .' 如果 (数2 ≠ “”) ' 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2)) ' 数1 ＝ 编辑框_计算结果.内容 ' 数2 ＝ “” .否则 .如果结束 .否则 .' 如果 (计算符号 ＝ “”) ' 数1 ＝ 数1 ＋ 到文本 (键代码) ' 编辑框_输入内容.内容 ＝ 数1 .否则 .' 如果 (计算符号 ≠ “=”) ' 数2 ＝ 数2 ＋ 到文本 (键代码) ' 编辑框_输入内容.内容 ＝ 数2 .否则 ' 信息框 (“请先按运算符号！”, 0, ) .如果结束 .如果结束 .如果结束
【文件预览】：
超哥计算器
----krnln.fnr(1.04MB)
----超哥计算器.exe(24KB)