鲁班 门光尺寸转换 判断吉祸
变量 a 为 通用型变量 b 为 通用型
变量 c 为 通用型
变量 b1 为 通用型
变量 n 为 双精度小数型
变量 m 为 文本型
事件 图片框_返回.被单击()
返回桌面()
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
判断 键代码
分支 返回键
返回桌面()
结束 判断
结束 事件
函数 除法计算(除数1 为 双精度小数型,除数2 为 双精度小数型)为 双精度小数型 '函数是具有返回值的子程序
除法计算 = 除数1/除数2'变量的值就是函数的返回值
结束 函数
事件 编辑框1.内容被改变(新内容 为 文本型)
如果 取文本长度2((编辑框1.内容))>15 则
编辑框1.内容=m
否则
m=编辑框1.内容
结束 如果
如果 取文本长度2((编辑框1.内容))>0 则
标签11.背景颜色=无色
标签12.背景颜色=无色
标签13.背景颜色=无色
标签14.背景颜色=无色
标签15.背景颜色=无色
标签16.背景颜色=无色
标签17.背景颜色=无色
标签18.背景颜色=无色
编辑框10.内容=(" ")
编辑框11.内容=(" ")
编辑框12.内容=(" ")
编辑框13.内容=(" ")
编辑框14.内容=(" ")
编辑框15.内容=(" ")
编辑框16.内容=(" ")
编辑框17.内容=(" ")
c = 除法计算(到数值(编辑框1.内容),53.625)
如果 c<8 则
b1=c
否则
b1=求余数(c,8)
结束 如果
如果 0<=b1 且 b1 <1 则
标签11.背景颜色=绿色
编辑框10.内容=四舍五入(b1,2)
否则如果 1<=b1 且 b1 <2 则
标签12.背景颜色=黄色
编辑框11.内容=四舍五入(b1,2)
否则如果 2<=b1 且 b1 <3 则
标签13.背景颜色=黄色
编辑框12.内容=四舍五入(b1,2)
否则如果 3<=b1 且 b1 <4 则
标签14.背景颜色=绿色
编辑框13.内容=四舍五入(b1,2)
否则如果 4<=b1 且 b1 <5 则
标签15.背景颜色=绿色
编辑框14.内容=四舍五入(b1,2)
否则如果 5<=b1 且 b1 <6 则
标签16.背景颜色=黄色
编辑框15.内容=四舍五入(b1,2)
否则如果 6<=b1 且 b1 <7 则
标签17.背景颜色=黄色
编辑框16.内容=四舍五入(b1,2)
否则如果 7<=b1 则
标签18.背景颜色=绿色
编辑框17.内容=四舍五入(b1,2)
结束 如果
a = 除法计算(到数值(编辑框1.内容),57.60)
如果 a<8 则
b=a
否则
b=求余数(a,8)
结束 如果
判断 b<=8
分支 b <1
标签1.背景颜色=绿色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=四舍五入(b,2)
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支 1<=b 且 b <2
标签1.背景颜色=无色
标签2.背景颜色=黄色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=四舍五入(b,2)
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支2<=b 且 b <3
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=黄色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=四舍五入(b,2)
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支3<=b 且 b <4
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=绿色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=四舍五入(b,2)
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支4<=b 且 b <5
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=绿色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=四舍五入(b,2)
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支5<=b 且 b <6
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=黄色
标签7.背景颜色=无色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=四舍五入(b,2)
编辑框8.内容=(" ")
编辑框9.内容=(" ")
分支6<=b 且 b <7
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=黄色
标签8.背景颜色=无色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=四舍五入(b,2)
编辑框9.内容=(" ")
分支7<=b
标签1.背景颜色=无色
标签2.背景颜色=无色
标签3.背景颜色=无色
标签4.背景颜色=无色
标签5.背景颜色=无色
标签6.背景颜色=无色
标签7.背景颜色=无色
标签8.背景颜色=绿色
编辑框2.内容=(" ")
编辑框3.内容=(" ")
编辑框4.内容=(" ")
编辑框5.内容=(" ")
编辑框6.内容=(" ")
编辑框7.内容=(" ")
编辑框8.内容=(" ")
编辑框9.内容=四舍五入(b,2)
结束 判断
结束 如果
结束 事件
事件 编辑框2.获得焦点()
弹出提示2 ("","转换为门光尺",3,1)
结束 事件
事件 编辑框10.获得焦点()
弹出提示2 ("","转换为门光尺",3,1)
结束 事件
事件 标签9.被单击()
弹出提示2 ("","明清版本,推荐版本",3,1)
结束 事件
赞一个! 这个好好支持一下 前来支持~~~~~~~~~~~~~~~~~~~ 感觉不错
页:
[1]