压力变送器液位变送器误差计算 vb.doc

Public a45, a59 As StringPublic a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 As IntegerPublic a11, a12, a13, a14, a15, a16, a17, a18, a19, a20 As StringPublic a21, a22, a23, a24, a25, a26, a27, a28, a29, a30 As StringPublic a31, a32, a33, a34, a35, a36, a37, a38, a39, a40 As StringPublic a41, a42, a43, a44, a46, a47, a48, a49, a50 As StringPublic a51, a52, a53, a54, a55, a56, a57, a58, a60 As StringPublic b As StringPrivate Sub Command1_Click()b = Val(Textb.Text)a1 = Val(Text1(0).Text)a2 = Val(Text2.Text)a3 = Val(Text3.Text)a4 = Val(Text4.Text)a5 = Val(Text5.Text)a6 = Val(Text6.Text)a7 = Val(Text7.Text)a8 = Val(Text8.Text)a9 = Val(Text9.Text)a10 = Val(Text10.Text)a11 = Val(Text11.Text)a12 = Val(Text12.Text)a13 = Val(Text13.Text)a14 = Val(Text14.Text)a15 = Val(Text15.Text)a16 = Val(Text16.Text)a17 = Val(Text17.Text)a18 = Val(Text18.Text)a19 = Val(Text19.Text)a20 = Val(Text20.Text)a21 = Val(Text21.Text)a22 = Val(Text22.Text)a23 = Val(Text23.Text)a24 = Val(Text24.Text)a25 = Val(Text25.Text)a26 = Val(Text26.Text)a27 = Val(Text27.Text)a28 = Val(Text28.Text)a29 = Val(Text29.Text)a30 = Val(Text30.Text)a31 = Val(Text31.Text)a32 = Val(Text32.Text)a33 = Val(Text33.Text)a34 = Val(Text34.Text)a45 = Val(Text45.Text)a46 = Val(Text46.Text)a47 = Val(Text47.Text)a48 = Val(Text48.Text)a49 = Val(Text49.Text)a50 = Val(Text50.Text)a51 = Val(Text51.Text)a52 = Val(Text52.Text)a53 = Val(Text53.Text)a54 = Val(Text54.Text)a57 = Val(Text57.Text)a59 = Val(Text59.Text)a5 = a4 * b * 0a6 = a4 * b * 0.1a7 = a4 * b * 0.2a8 = a4 * b * 0.3a9 = a4 * b * 0.4a10 = a4 * b * 0.5a11 = a4 * b * 0.6a12 = a4 * b * 0.7a13 = a4 * b * 0.8a14 = a4 * b * 0.9a55 = a4 * b * 1Text55.Text = a55Text5.Text = a5Text7.Text = a7Text6.Text = a6Text8.Text = a8Text9.Text = a9Text10.Text = a10Text11.Text = a11Text12.Text = a12Text13.Text = a13Text14.Text = a14Text15.Text = 0 & %Text16.Text = 10 & %Text17.Text = 20 & %Text18.Text = 30 & %Text19.Text = 40 & %Text20.Text = 50 & %Text21.Text = 60 & %Text22.Text = 70 & %Text23.Text = 80 & %Text24.Text = 90 & %Text56.Text = 100 & %a26 = (a2 - a1) * 0.1 + a1Text26.Text = Format(a26, 0.000)a27 = (a2 - a1) * 0.2 + a1Text27.Text = Format(a27, 0.000)a28 = (a2 - a1) * 0.3 + a1Text28.Text = Format(a28, 0.000)a29 = (a2 - a1) * 0.4 + a1Text29.Text = Format(a29, 0.000)a30 = (a2 - a1) * 0.5 + a1Text30.Text = Format(a30, 0.000)a31 = (a2 - a1) * 0.6 + a1Text31.Text = Format(a31, 0.000)a32 = (a2 - a1) * 0.7 + a1Text32.Text = Format(a32, 0.000)a33 = (a2 - a1) * 0.8 + a1Text33.Text = Format(a33, 0.000)a34 = (a2 - a1) * 0.9 + a1Text34.Text = Format(a34, 0.000)Text25.Text = Format(a1, 0.000)Text57.Text = Format(a2, 0.000)Text35.Text = Format(a45, 0.000)Text58.Text = Format(a59, 0.000)a36 = (a59 - a45) * 0.1 + a45Text36.Text = Format(a36, 0.000)a37 = (a59 - a45) * 0.2 + a45Text37.Text = Format(a37, 0.000)a38 = (a59 - a45) * 0.3 + a45Text38.Text = Format(a38, 0.000)a39 = (a59 - a45) * 0.4 + a45Text39.Text = Format(a39, 0.000)a40 = (a59 - a45) * 0.5 + a45Text40.Text = Format(a40, 0.000)a41 = (a59 - a45) * 0.6 + a45Text41.Text = Format(a41, 0.000)a42 = (a59 - a45) * 0.7 + a45Text42.Text = Format(a42, 0.000)a43 = (a59 - a45) * 0.8 + a45Text43.Text = Format(a43, 0.000)a44 = (a59 - a45) * 0.9 + a45Text44.Text = Format(a44, 0.000)Dim c69 As Stringc69 = (a45 - a25) / 16 * 100Text69.Text = Format(c69, 0.00) & %Dim c68 As Stringc68 = (a46 - a26) / 16 * 100Text68.Text = Format(c68, 0.00) & %Dim c67 As Stringc67 = (a47 - a27) / 16 * 100Text67.Text = Format(c67, 0.00) & %Dim c66 As Stringc66 = (a48 - a28) / 16 * 100Text66.Text = Format(c66, 0.00) & %Dim c65 As Stringc65 = (a49 - a29) / 16 * 100Text65.Text = Format(c65, 0.00) & %Dim c64 As Stringc64 = (a50 - a30) / 16 * 100Text64.Text = Format(c64, 0.00) & %Dim c63 As Stringc63 = (a51 - a31) / 16 * 100Text63.Text = Format(c63, 0.00) & %Dim c62 As Stringc62 = (a52 - a32) / 16 * 100Text62.Text = Format(c62, 0.00) & %Dim c61 As Stringc61 = (a53 - a33) / 16 * 100Text61.Text = Format(c61, 0.00) & %Dim c60 As Stringc60 = (a54 - a34) / 16 * 100Text60.Text = Format(c60, 0.00) & %Dim c70 As Stringc70 = (a59 - a57) / 16 * 100Text70.Text = Format(c70, 0.00) & %Dim c79 As Stringc79 = (a46 - a36) / (a59 - a45) * 100Text79.Text = Format(c79, 0.00) & %Dim c78 As Stringc78 = (a47 - a37) / (a59 - a45) * 100Text78.Text = Format(c78, 0.00) & %Dim c77 As Stringc77 = (a48 - a38) / (a59 - a45) * 100Text77.Text = Format(c77, 0.00) & %Dim c76 As Stringc76 = (a49 - a39) / (a59 - a45) * 100Text76.Text = Format(c76, 0.00) & %Dim c75 As Stringc75 = (a50 - a40) / (a59 - a45) * 100Text75.Text = Format(c75, 0.00) & %Dim c74 As Stringc74 = (a51 - a41) / (a59 - a45) * 100Text74.Text = Format(c74, 0.00) & %Dim c73 As Stringc73 = (a52 - a42) / (a59 - a45) * 100Text73.Text = Format(c73, 0.00) & %Dim c72 As Stringc72 = (a53 - a43) / (a59 - a45) * 100Text72.Text = Format(c72, 0.00) & %Dim c71 As Stringc71 = (a54 - a44) / (a59 - a45) * 100End SubPrivate Sub Command2_Click()Dim c79 As Stringc79 = (a46 - a36) / (a59 - a45) * 100Text79.Text = Format(c79, 0.00) & %Dim c78 As Stringc78 = (a47 - a37) / (a59 - a45) * 100Text78.Text = Format(c78, 0.00) & %Dim c77 As Stringc77 = (a48 - a38) / (a59 - a45) * 100Text77.Text = Format(c77, 0.00) & %Dim c76 As Stringc76 = (a49 - a39) / (a59 - a45) * 100Text76.Text = Format(c76, 0.00) & %Dim c75 As Stringc75 = (a50 - a40) / (a59 - a45) * 100Text75.Text = Format(c75, 0.00) & %Dim c74 As Stringc74 = (a51 - a41) / (a59 - a45) * 100Text74.Text = Format(c7