储运设备腐蚀上机土壤腐蚀性的影响及评价指数.docx

储运设备腐蚀上机土壤腐蚀性的影响及评价指数.docx

《储运设备腐蚀上机土壤腐蚀性的影响及评价指数.docx》由会员分享，可在线阅读，更多相关《储运设备腐蚀上机土壤腐蚀性的影响及评价指数.docx（8页珍藏版）》请在冰豆网上搜索。

储运设备腐蚀上机土壤腐蚀性的影响及评价指数

土壤腐蚀性的影响及评价指数（DIN50929）

PrivateSubCheck1_Click（）

z1=4

EndSub

PrivateSubCheck10_Click（）

z2=0

EndSub

PrivateSubCheck11_Click（）

z2=-2

EndSub

PrivateSubCheck12_Click（）

z2=-4

EndSub

PrivateSubCheck13_Click（）

z2=-6

EndSub

PrivateSubCheck14_Click（）

z3=0

EndSub

PrivateSubCheck15_Click（）

z3=-1

EndSub

PrivateSubCheck16_Click（）

z4=2

EndSub

PrivateSubCheck17_Click（）

z4=0

EndSub

PrivateSubCheck18_Click（）

z4=-1

EndSub

PrivateSubCheck19_Click（）

z4=-3

EndSub

PrivateSubCheck2_Click（）

z1=2

EndSub

PrivateSubCheck20_Click（）

z9=0

EndSub

PrivateSubCheck21_Click（）

z9=-1

EndSub

PrivateSubCheck22_Click（）

z9=-2

EndSub

PrivateSubCheck23_Click（）

z10=0

EndSub

PrivateSubCheck24_Click（）

z10=-4

EndSub

PrivateSubCheck25_Click（）

z10=-2

EndSub

PrivateSubCheck26_Click（）

z5=0

EndSub

PrivateSubCheck27_Click（）

z5=1

EndSub

PrivateSubCheck28_Click（）

z5=3

EndSub

PrivateSubCheck29_Click（）

z5=0

EndSub

PrivateSubCheck3_Click（）

z1=0

EndSub

PrivateSubCheck30_Click（）

z5=-2

EndSub

PrivateSubCheck31_Click（）

z5=-4

EndSub

PrivateSubCheck32_Click（）

z5=-6

EndSub

PrivateSubCheck33_Click（）

z5=-8

EndSub

PrivateSubCheck34_Click（）

z5=-10

EndSub

PrivateSubCheck35_Click（）

z6=0

EndSub

PrivateSubCheck36_Click（）

z6=-3

EndSub

PrivateSubCheck37_Click（）

z6=-6

EndSub

PrivateSubCheck38_Click（）

z7=0

EndSub

PrivateSubCheck39_Click（）

z7=-1

EndSub

PrivateSubCheck4_Click（）

z1=-2

EndSub

PrivateSubCheck40_Click（）

z7=-2

EndSub

PrivateSubCheck41_Click（）

z7=-3

EndSub

PrivateSubCheck42_Click（）

z7=-4

EndSub

PrivateSubCheck43_Click（）

z8=0

EndSub

PrivateSubCheck44_Click（）

z8=-1

EndSub

PrivateSubCheck45_Click（）

z8=-2

EndSub

PrivateSubCheck46_Click（）

z8=-3

EndSub

PrivateSubCheck47_Click（）

z11=0

EndSub

PrivateSubCheck48_Click（）

z11=-6

EndSub

PrivateSubCheck49_Click（）

z11=-1

EndSub

PrivateSubCheck5_Click（）

z1=-4

EndSub

PrivateSubCheck50_Click（）

z11=-2

EndSub

PrivateSubCheck6_Click（）

z1=-12

EndSub

PrivateSubCheck7_Click（）

z1=-12

EndSub

PrivateSubCheck8_Click（）

z2=4

EndSub

PrivateSubCheck9_Click（）

z2=2

EndSub

PrivateSubOption1_Click（）

z12=-3

EndSub

PrivateSubOption2_Click（）

z12=-8

EndSub

PrivateSubOption3_Click（）

z12=-10

EndSub

PrivateSubCommand1_Click（）

DimzifuchAsString

B0=z1+z2+z3+z4+z5+z6+z7+z8+z9

B1=B0+z10+z11

Ba=z1+z2+z4+z5+z6+z7+z8

Bk=z1-z2+z4+z5+z6

Be=Ba+z12

IfB0>=0Then

zifuch="土壤腐蚀性：

实际不腐蚀"

ElseIf-1<=B0<=-4Thenzifuch="土壤腐蚀性：

弱腐蚀"

ElseIf-5<=B0<=-10Thenzifuch="土壤腐蚀性：

腐蚀"

ElseIfB0<-10Thenzifuch="土壤腐蚀性：

强腐蚀"

EndIf

IfB1>=0Then

zifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：

极轻微均匀腐蚀的腐蚀概率：

极轻微"

ElseIf-1<=B1<=-4Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：

轻微均匀腐蚀的腐蚀概率：

极轻微"

ElseIf-5<=B1<=-10Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：

中等均匀腐蚀的腐蚀概率：

轻微"

ElseIfB1<-10Thenzifuch=zifuch+""+"局部腐蚀或点蚀的腐蚀概率：

极强均匀腐蚀的腐蚀概率：

中等"

EndIf

zifuch=zifuch+""+"充气电池阳极作用：

"

IfBa>=0Then

zifuch=zifuch+"不起作用"

ElseIf-1<=Ba<=-4Thenzifuch=zifuch+"弱"

ElseIf-5<=Ba<=-8Thenzifuch=zifuch+"强"

ElseIfBa<-8Thenzifuch=zifuch+"极强"

EndIf

zifuch=zifuch+""+"阴极作用:

"

IfBk<-4Then

zifuch=zifuch+"不起作用"

ElseIf-4<=Bk<=-1Thenzifuch=zifuch+"弱"

ElseIf0<=Bk<=4Thenzifuch=zifuch+"强"

ElseIfBk>4Thenzifuch=zifuch+"极强"

EndIf

zifuch=zifuch+""+"与外阴极相连时的腐蚀概率：

"

IfBe>=0Then

zifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：

轻微均匀腐蚀概率：

极轻微"

ElseIf-1<=Be<=-4Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：

中等均匀腐蚀概率：

极轻微"

ElseIf-5<=Be<=-8Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：

强均匀腐蚀概率：

中等"

ElseIfBe<-8Thenzifuch=zifuch+"局部腐蚀和点蚀腐蚀概率：

极强均匀腐蚀概率：

增强"

EndIf

Label10.Caption=zifuch

EndSub