《储运设备腐蚀上机-土壤腐蚀性的影响及评价指数》由会员分享,可在线阅读,更多相关《储运设备腐蚀上机-土壤腐蚀性的影响及评价指数(7页珍藏版)》请在金锄头文库上搜索。
1、.土壤腐蚀性的影响及评价指数DIN 50929与外阴极相连时的腐蚀概率 评定充气差异电池的阳极和阴极作用 土壤腐蚀和腐蚀概率 Private Sub Check1_Click()z1 = 4End SubPrivate Sub Check10_Click()z2 = 0End SubPrivate Sub Check11_Click()z2 = -2End SubPrivate Sub Check12_Click()z2 = -4End SubPrivate Sub Check13_Click()z2 = -6End SubPrivate Sub Check14_Click()z3 = 0En
2、d SubPrivate Sub Check15_Click()z3 = -1End SubPrivate Sub Check16_Click()z4 = 2End SubPrivate Sub Check17_Click()z4 = 0End SubPrivate Sub Check18_Click()z4 = -1End SubPrivate Sub Check19_Click()z4 = -3End SubPrivate Sub Check2_Click()z1 = 2End SubPrivate Sub Check20_Click()z9 = 0End SubPrivate Sub C
3、heck21_Click()z9 = -1End SubPrivate Sub Check22_Click()z9 = -2End SubPrivate Sub Check23_Click()z10 = 0End SubPrivate Sub Check24_Click()z10 = -4End SubPrivate Sub Check25_Click()z10 = -2End SubPrivate Sub Check26_Click()z5 = 0End SubPrivate Sub Check27_Click()z5 = 1End SubPrivate Sub Check28_Click(
4、)z5 = 3End SubPrivate Sub Check29_Click()z5 = 0End SubPrivate Sub Check3_Click()z1 = 0End SubPrivate Sub Check30_Click()z5 = -2End SubPrivate Sub Check31_Click()z5 = -4End SubPrivate Sub Check32_Click()z5 = -6End SubPrivate Sub Check33_Click()z5 = -8End SubPrivate Sub Check34_Click()z5 = -10End SubP
5、rivate Sub Check35_Click()z6 = 0End SubPrivate Sub Check36_Click()z6 = -3End SubPrivate Sub Check37_Click()z6 = -6End SubPrivate Sub Check38_Click()z7 = 0End SubPrivate Sub Check39_Click()z7 = -1End SubPrivate Sub Check4_Click()z1 = -2End SubPrivate Sub Check40_Click()z7 = -2End SubPrivate Sub Check
6、41_Click()z7 = -3End SubPrivate Sub Check42_Click()z7 = -4End SubPrivate Sub Check43_Click()z8 = 0End SubPrivate Sub Check44_Click()z8 = -1End SubPrivate Sub Check45_Click()z8 = -2End SubPrivate Sub Check46_Click()z8 = -3End SubPrivate Sub Check47_Click()z11 = 0End SubPrivate Sub Check48_Click()z11
7、= -6End SubPrivate Sub Check49_Click()z11 = -1End SubPrivate Sub Check5_Click()z1 = -4End SubPrivate Sub Check50_Click()z11 = -2End SubPrivate Sub Check6_Click()z1 = -12End SubPrivate Sub Check7_Click()z1 = -12End SubPrivate Sub Check8_Click()z2 = 4End SubPrivate Sub Check9_Click()z2 = 2End SubPriva
8、te Sub Option1_Click()z12 = -3End SubPrivate Sub Option2_Click()z12 = -8End SubPrivate Sub Option3_Click()z12 = -10End SubPrivate Sub Command1_Click()Dim zifuch As StringB0 = z1 + z2 + z3 + z4 + z5 + z6 + z7 + z8 + z9B1 = B0 + z10 + z11Ba = z1 + z2 + z4 + z5 + z6 + z7 + z8Bk = z1 - z2 + z4 + z5 + z6
9、Be = Ba + z12If B0 = 0 Thenzifuch = 土壤腐蚀性:实际不腐蚀ElseIf -1 = B0 = -4 Then zifuch = 土壤腐蚀性:弱腐蚀ElseIf -5 = B0 = -10 Then zifuch = 土壤腐蚀性:腐蚀ElseIf B0 = 0 Thenzifuch = zifuch + + 局部腐蚀或点蚀的腐蚀概率:极轻微 均匀腐蚀的腐蚀概率:极轻微ElseIf -1 = B1 = -4 Then zifuch = zifuch + + 局部腐蚀或点蚀的腐蚀概率:轻微 均匀腐蚀的腐蚀概率:极轻微ElseIf -5 = B1 = -10 Then
10、 zifuch = zifuch + + 局部腐蚀或点蚀的腐蚀概率:中等 均匀腐蚀的腐蚀概率:轻微ElseIf B1 = 0 Thenzifuch = zifuch + 不起作用ElseIf -1 = Ba = -4 Then zifuch = zifuch + 弱ElseIf -5 = Ba = -8 Then zifuch = zifuch + 强ElseIf Ba -8 Then zifuch = zifuch + 极强End Ifzifuch = zifuch + + 阴极作用:If Bk -4 Thenzifuch = zifuch + 不起作用ElseIf -4 = Bk = -1
11、 Then zifuch = zifuch + 弱ElseIf 0 = Bk 4 Then zifuch = zifuch + 极强End Ifzifuch = zifuch + + 与外阴极相连时的腐蚀概率:If Be = 0 Thenzifuch = zifuch + 局部腐蚀和点蚀腐蚀概率:轻微 均匀腐蚀概率:极轻微ElseIf -1 = Be = -4 Then zifuch = zifuch + 局部腐蚀和点蚀腐蚀概率:中等 均匀腐蚀概率:极轻微ElseIf -5 = Be = -8 Then zifuch = zifuch + 局部腐蚀和点蚀腐蚀概率:强 均匀腐蚀概率:中等ElseIf Be -8 Then zifuch = zifuch + 局部腐蚀和点蚀腐蚀概率:极强 均匀腐蚀概率:增强End IfLabel10.Caption = zifuchEnd Sub-