|
分享源码
界面截图: |
- |
是否带模块: |
纯源码 |
备注说明: |
- |
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 公式左 | 双精度小数型 | | 公式右 | 双精度小数型 | |
|
__启动窗口_按下某键 | | | |
键代码 | 整数型 | | | | 功能键状态 | 整数型 | | | | 如果 (键代码 = #键1 )_按钮1_被单击 ()如果 (键代码 = #键2 )_按钮2_被单击 ()如果 (键代码 = #键3 )_按钮3_被单击 ()如果 (键代码 = #键4 )_按钮4_被单击 ()如果 (键代码 = #键5 )_按钮5_被单击 ()如果 (键代码 = #键6 )_按钮6_被单击 ()如果 (键代码 = #键7 )_按钮7_被单击 ()如果 (键代码 = #键8 )_按钮8_被单击 ()如果 (键代码 = #键9 )_按钮9_被单击 ()如果 (键代码 = 110 )_小数点按钮_被单击 ()如果 (键代码 = 107 )_加号按钮_被单击 ()如果 (键代码 = 109 )_减号按钮_被单击 ()如果 (键代码 = 106 )_乘号按钮_被单击 ()如果 (键代码 = 111 )_除号按钮_被单击 ()如果 (键代码 = 108 )编辑框1. 获取焦点 ()编辑框1. 加入文本 (“1”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“2”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“3”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“4”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“5”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“6”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“7”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“8”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“9”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“0”)编辑框1. 获取焦点 ()编辑框1. 加入文本 (“.”)如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 0 返回 ()如果 (组合框1.现行选中项 = 0 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) + 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 1 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) - 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 2 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) × 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 3 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) ÷ 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )编辑框1.内容 = “”组合框1.现行选中项 = 0如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 1 返回 ()如果 (组合框1.现行选中项 = 0 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) + 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 1 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) - 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 2 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) × 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 3 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) ÷ 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )编辑框1.内容 = “”组合框1.现行选中项 = 1如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 2 返回 ()如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 0 返回 ()如果 (组合框1.现行选中项 = 0 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) + 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 1 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) - 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 2 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) × 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 3 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) ÷ 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )编辑框1.内容 = “”组合框1.现行选中项 = 2如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 3 返回 ()如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 0 返回 ()如果 (组合框1.现行选中项 = 0 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) + 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 1 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) - 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 2 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) × 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 3 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) ÷ 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )编辑框1.内容 = “”组合框1.现行选中项 = 3 连续赋值 (“”, 编辑框1.内容, 结果显示框.内容 )如果真 (编辑框1.内容 = “”)组合框1.现行选中项 = 0 返回 ()如果 (组合框1.现行选中项 = 0 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) + 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 1 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) - 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 2 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) × 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )如果 (组合框1.现行选中项 = 3 )公式左 = 到数值 (结果显示框.内容 )公式右 = 到数值 (编辑框1.内容 )计算数目 = 到数值 (公式左 ) ÷ 到数值 (公式右 )结果显示框.内容 = 到文本 (计算数目 )编辑框1.内容 = “”编辑框1.内容 = “”计算数目 = 到数值 (编辑框1.内容 ) ÷ 100 编辑框1.内容 = “”结果显示框.内容 = 到文本 (计算数目 )结果显示框.内容 = 到文本 (求平方根 (到数值 (结果显示框.内容 )) )被次方数 = 到数值 (编辑框1.内容 )结果显示框.内容 = 到文本 (求次方 (被次方数, 2 )) 编辑框1.内容 = “”变量名 | 类 型 | 静态 | 数组 | 备 注 | 被次方数 | 双精度小数型 | | | 几次方 | 整数型 | | | 如果真 (结果显示框.内容 ≠ “”)输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )被次方数 = 到数值 (结果显示框.内容 )结果显示框.内容 = 到文本 (求次方 (被次方数, 几次方 )) 返回 ()结果显示框.内容 = 编辑框1.内容 编辑框1.内容 = “”输入框 (, “次方输入框”, “请输入次方数”, 几次方, #输入整数, )被次方数 = 到数值 (结果显示框.内容 )结果显示框.内容 = 到文本 (求次方 (被次方数, 几次方 )) 如果真 (结果显示框.内容 ≠ “”)结果显示框.内容 = 到文本 (1 ÷ 到数值 (结果显示框.内容 )) 返回 ()结果显示框.内容 = 编辑框1.内容 结果显示框.内容 = 到文本 (1 ÷ 到数值 (结果显示框.内容 )) 编辑框1.内容 = 到文本 (0 - 到数值 (编辑框1.内容 ))
|
评分
-
查看全部评分
|