寻仙塔装材料计算器V2.1 绿色版

.程序集 窗口程序集1
.程序集变量 材料一单价, 双精度小数型
.程序集变量 材料一个数, 整数型
.程序集变量 材料二单价, 双精度小数型
.程序集变量 材料二个数, 整数型
.程序集变量 总的熟练度, 整数型
.程序集变量 单件的熟练度, 整数型
.程序集变量 装备的件数, 整数型
.程序集变量 单件的总价, 双精度小数型
.程序集变量 总价, 双精度小数型

.子程序 单计算1

材料一单价 ＝ 到数值 (材料一单价1.内容)
材料一个数 ＝ 到数值 (材料一个数1.内容)
材料二单价 ＝ 到数值 (材料二单价1.内容)
材料二个数 ＝ 到数值 (材料二个数1.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度1.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度1.内容)

.子程序 单计算2

材料一单价 ＝ 到数值 (材料一单价2.内容)
材料一个数 ＝ 到数值 (材料一个数2.内容)
材料二单价 ＝ 到数值 (材料二单价2.内容)
材料二个数 ＝ 到数值 (材料二个数2.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度2.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度2.内容)

.子程序 单计算3

材料一单价 ＝ 到数值 (材料一单价3.内容)
材料一个数 ＝ 到数值 (材料一个数3.内容)
材料二单价 ＝ 到数值 (材料二单价3.内容)
材料二个数 ＝ 到数值 (材料二个数3.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度3.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度3.内容)


.子程序 单计算4

材料一单价 ＝ 到数值 (材料一单价4.内容)
材料一个数 ＝ 到数值 (材料一个数4.内容)
材料二单价 ＝ 到数值 (材料二单价4.内容)
材料二个数 ＝ 到数值 (材料二个数4.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度4.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度4.内容)


.子程序 单计算5

材料一单价 ＝ 到数值 (材料一单价5.内容)
材料一个数 ＝ 到数值 (材料一个数5.内容)
材料二单价 ＝ 到数值 (材料二单价5.内容)
材料二个数 ＝ 到数值 (材料二个数5.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度5.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度5.内容)


.子程序 单计算6

材料一单价 ＝ 到数值 (材料一单价6.内容)
材料一个数 ＝ 到数值 (材料一个数6.内容)
材料二单价 ＝ 到数值 (材料二单价6.内容)
材料二个数 ＝ 到数值 (材料二个数6.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度6.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度6.内容)


.子程序 单计算7

材料一单价 ＝ 到数值 (材料一单价7.内容)
材料一个数 ＝ 到数值 (材料一个数7.内容)
材料二单价 ＝ 到数值 (材料二单价7.内容)
材料二个数 ＝ 到数值 (材料二个数7.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度7.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度7.内容)


.子程序 单计算8

材料一单价 ＝ 到数值 (材料一单价8.内容)
材料一个数 ＝ 到数值 (材料一个数8.内容)
材料二单价 ＝ 到数值 (材料二单价8.内容)
材料二个数 ＝ 到数值 (材料二个数8.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度8.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度8.内容)


.子程序 单计算9

材料一单价 ＝ 到数值 (材料一单价9.内容)
材料一个数 ＝ 到数值 (材料一个数9.内容)
材料二单价 ＝ 到数值 (材料二单价9.内容)
材料二个数 ＝ 到数值 (材料二个数9.内容)
总的熟练度 ＝ 到数值 (技能所要熟练度9.内容)
单件的熟练度 ＝ 到数值 (编辑框单件熟练度9.内容)


.子程序 子程序单计算

装备的件数 ＝ 总的熟练度 ÷ 单件的熟练度
单件的总价 ＝ (材料一单价 × 材料一个数 ＋ 材料二单价 × 材料二个数) × 装备的件数
总价 ＝ 总价 ＋ 单件的总价
编辑框总价.内容 ＝ 到文本 (总价)

.子程序 _计算_被单击

编辑框单总价1.内容 ＝ “”
编辑框单总价2.内容 ＝ “”
编辑框单总价3.内容 ＝ “”
编辑框单总价4.内容 ＝ “”
编辑框单总价5.内容 ＝ “”
编辑框单总价6.内容 ＝ “”
编辑框单总价7.内容 ＝ “”
编辑框单总价8.内容 ＝ “”
编辑框单总价9.内容 ＝ “”
编辑框总价.内容 ＝ “”
总价=0
单计算1 ()
子程序单计算 ()
编辑框单总价1.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数1.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数1.内容 ＝ 到文本 (材料二个数 × 装备的件数)
延时 (1)
单计算2 ()
子程序单计算 ()
编辑框单总价2.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数2.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数2.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算3 ()
子程序单计算 ()
编辑框单总价3.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数3.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数3.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算4 ()
子程序单计算 ()
编辑框单总价4.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数4.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数4.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算5 ()
子程序单计算 ()
编辑框单总价5.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数5.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数5.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算6 ()
子程序单计算 ()
编辑框单总价6.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数6.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数6.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算7 ()
子程序单计算 ()
编辑框单总价7.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数7.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数7.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算8 ()
子程序单计算 ()
编辑框单总价8.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数8.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数8.内容 ＝ 到文本 (材料二个数 × 装备的件数)

延时 (1)
单计算9 ()
子程序单计算 ()
编辑框单总价9.内容 ＝ 到文本 (单件的总价)
编辑框材料一总数9.内容 ＝ 到文本 (材料一个数 × 装备的件数)
编辑框材料二总数9.内容 ＝ 到文本 (材料二个数 × 装备的件数)


.子程序 __启动窗口_创建完毕

材料一单价1.获取焦点 ()
技能所要熟练度1.内容 ＝ “1000”
技能所要熟练度2.内容 ＝ “3000”
技能所要熟练度3.内容 ＝ “6000”
技能所要熟练度4.内容 ＝ “10000”
技能所要熟练度5.内容 ＝ “18000”
技能所要熟练度6.内容 ＝ “26000”
技能所要熟练度7.内容 ＝ “36000”
技能所要熟练度8.内容 ＝ “38000”
技能所要熟练度9.内容 ＝ “40000”
材料一单价1.内容 ＝ “”
材料一单价2.内容 ＝ “”
材料一单价3.内容 ＝ “”
材料一单价4.内容 ＝ “”
材料一单价5.内容 ＝ “”
材料一单价6.内容 ＝ “”
材料一单价7.内容 ＝ “”
材料一单价8.内容 ＝ “”
材料一单价9.内容 ＝ “”
材料一个数1.内容 ＝ “2”
材料一个数2.内容 ＝ “4”
材料一个数3.内容 ＝ “4”
材料一个数4.内容 ＝ “8”
材料一个数5.内容 ＝ “8”
材料一个数6.内容 ＝ “15”
材料一个数7.内容 ＝ “15”
材料一个数8.内容 ＝ “15”
材料一个数9.内容 ＝ “30”
材料二单价1.内容 ＝ “”
材料二单价2.内容 ＝ “”
材料二单价3.内容 ＝ “”
材料二单价4.内容 ＝ “”
材料二单价5.内容 ＝ “”
材料二单价6.内容 ＝ “”
材料二单价7.内容 ＝ “”
材料二单价8.内容 ＝ “”
材料二单价9.内容 ＝ “”
材料二个数1.内容 ＝ “1”
材料二个数2.内容 ＝ “2”
材料二个数3.内容 ＝ “2”
材料二个数4.内容 ＝ “4”
材料二个数5.内容 ＝ “4”
材料二个数6.内容 ＝ “5”
材料二个数7.内容 ＝ “5”
材料二个数8.内容 ＝ “5”
材料二个数9.内容 ＝ “10”
编辑框单件熟练度1.内容 ＝ “100”
编辑框单件熟练度2.内容 ＝ “100”
编辑框单件熟练度3.内容 ＝ “100”
编辑框单件熟练度4.内容 ＝ “100”
编辑框单件熟练度5.内容 ＝ “100”
编辑框单件熟练度6.内容 ＝ “100”
编辑框单件熟练度7.内容 ＝ “100”
编辑框单件熟练度8.内容 ＝ “100”
编辑框单件熟练度9.内容 ＝ “100”