|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
空间 电缆报价第一版
//默认空间
变量 密度
//开始按钮_点击操作
功能 开始_点击()
功能结束
//退出按钮_点击操作
功能 退出_点击()
辅助.退出()
功能结束
//铜铝选择
功能 单选框0_点击()
//这里添加你要执行的代码
如果(单选框.获得状态("单选框0"))
密度=0.89
如果结束
功能结束
功能 单选框1_点击()
//这里添加你要执行的代码
如果(单选框.获得状态("单选框1"))
密度=0.2702
如果结束
功能结束
//铜铝选择结束
功能 按钮0_点击()
变量 主线丝号,零线丝号,主线价格,零线价格,主线根数,零线根数,主线股数,零线股数,电缆总价,金属原材料价格,最终价格
主线丝号=编辑框.获得文本("编辑框1")
零线丝号=编辑框.获得文本("编辑框2")
金属原材料价格=编辑框.获得文本("编辑框0")
如果(!类型.是否为整型(金属原材料价格)&&!类型.是否为浮点型(金属原材料价格))
辅助.消息框("请填写金属原材料价格")
返回 0
如果结束
如果(!类型.是否为整型(主线丝号)&&!类型.是否为浮点型(主线丝号))
辅助.消息框("请填写主线丝号")
返回 0
如果结束
如果(!类型.是否为整型(零线丝号)&&!类型.是否为浮点型(零线丝号))
辅助.消息框("请填写零线丝号")
返回 0
如果结束
如果(下拉框.得到选项("下拉框0")==-1)
辅助.消息框("请选择型号")
如果结束
如果(下拉框.得到选项("下拉框0")==0)
主线股数=3
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==1)
主线股数=3
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==2)
主线股数=3
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==3)
主线股数=3
主线根数=7
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==4)
主线股数=3
主线根数=7
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==5)
主线股数=3
主线根数=7
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==6)
主线股数=3
主线根数=10
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==7)
主线股数=3
主线根数=14
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==8)
主线股数=3
主线根数=19
零线股数=1
零线根数=10
如果结束
如果(下拉框.得到选项("下拉框0")==9)
主线股数=3
主线根数=24
零线股数=1
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==10)
主线股数=3
主线根数=30
零线股数=1
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==11)
主线股数=3
主线根数=37
零线股数=1
零线根数=19
如果结束
如果(下拉框.得到选项("下拉框0")==12)
主线股数=3
主线根数=48
零线股数=1
零线根数=24
如果结束
如果(下拉框.得到选项("下拉框0")==13)
主线股数=3
主线根数=61
零线股数=1
零线根数=30
如果结束
如果(下拉框.得到选项("下拉框0")==14)
主线股数=3
主线根数=1
零线股数=2
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==15)
主线股数=3
主线根数=1
零线股数=2
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==16)
主线股数=3
主线根数=1
零线股数=2
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==17)
主线股数=3
主线根数=7
零线股数=2
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==18)
主线股数=3
主线根数=7
零线股数=2
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==19)
主线股数=3
主线根数=7
零线股数=2
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==20)
主线股数=3
主线根数=10
零线股数=2
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==21)
主线股数=3
主线根数=14
零线股数=2
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==22)
主线股数=3
主线根数=19
零线股数=2
零线根数=10
如果结束
如果(下拉框.得到选项("下拉框0")==23)
主线股数=3
主线根数=24
零线股数=2
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==24)
主线股数=3
主线根数=30
零线股数=2
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==25)
主线股数=3
主线根数=37
零线股数=2
零线根数=19
如果结束
如果(下拉框.得到选项("下拉框0")==26)
主线股数=3
主线根数=48
零线股数=2
零线根数=24
如果结束
如果(下拉框.得到选项("下拉框0")==27)
主线股数=3
主线根数=61
零线股数=2
零线根数=30
如果结束
如果(下拉框.得到选项("下拉框0")==28)
主线股数=4
主线根数=1
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==29)
主线股数=4
主线根数=1
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==30)
主线股数=4
主线根数=1
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==31)
主线股数=4
主线根数=7
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==32)
主线股数=4
主线根数=7
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==33)
主线股数=4
主线根数=7
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==34)
主线股数=4
主线根数=10
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==35)
主线股数=4
主线根数=14
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==36)
主线股数=4
主线根数=19
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==37)
主线股数=4
主线根数=24
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==38)
主线股数=4
主线根数=30
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==39)
主线股数=4
主线根数=37
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==40)
主线股数=4
主线根数=48
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==41)
主线股数=4
主线根数=61
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==42)
主线股数=4
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==43)
主线股数=4
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==44)
主线股数=4
主线根数=1
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==45)
主线股数=4
主线根数=7
零线股数=1
零线根数=1
如果结束
如果(下拉框.得到选项("下拉框0")==46)
主线股数=4
主线根数=7
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==47)
主线股数=4
主线根数=7
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==48)
主线股数=4
主线根数=10
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==49)
主线股数=4
主线根数=14
零线股数=1
零线根数=7
如果结束
如果(下拉框.得到选项("下拉框0")==50)
主线股数=4
主线根数=19
零线股数=1
零线根数=10
如果结束
如果(下拉框.得到选项("下拉框0")==51)
主线股数=4
主线根数=24
零线股数=1
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==52)
主线股数=4
主线根数=30
零线股数=1
零线根数=14
如果结束
如果(下拉框.得到选项("下拉框0")==53)
主线股数=4
主线根数=37
零线股数=1
零线根数=19
如果结束
如果(下拉框.得到选项("下拉框0")==54)
主线股数=4
主线根数=48
零线股数=1
零线根数=24
如果结束
如果(下拉框.得到选项("下拉框0")==55)
主线股数=4
主线根数=61
零线股数=1
零线根数=30
如果结束
如果(下拉框.得到选项("下拉框0")==56)
主线股数=5
主线根数=1
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==57)
主线股数=5
主线根数=1
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==58)
主线股数=5
主线根数=7
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==59)
主线股数=5
主线根数=7
零线股数=0
零线根数=0
如果结束
如果(下拉框.得到选项("下拉框0")==60)
主线股数=5
主线根数=7
零线股数=0
零线根数=0
主线价格=主线丝号/100/2*主线丝号/100*2*3.14*金属原材料价格/10000*主线根数*主线股数*密度
零线价格=零线丝号/100/2*零线丝号/100*2*3.14*金属原材料价格/10000*零线根数*零线股数*密度
电缆总价=主线价格+零线价格
最终价格=电缆总价
编辑框.设置文本("编辑框3",最终价格)
功能结束
空间结束
//空间结束语句
|
|
/2 
发表于 2014-11-2 19:58:06
