觅风论坛

标题: 鲁班门光尺寸转换判断吉祸 [打印本页]

作者: 天才强盗 时间: 昨天 21:38
标题: 鲁班门光尺寸转换判断吉祸
      变量 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)
结束事件

欢迎光临觅风论坛 (https://www.eyyba.com/)