发布时间 : 星期三 文章电气工程及其自动化毕业设计大论文123(2) - 图文更新完毕开始阅读a1f881e5cfc789eb162dc8c2
东北电力大学本科毕业设计论文
If BitCheck(sprv(4), 7) = True Then
temp1 = sprv(4) '直接代入下式会溢出，故用single变量传递 Text11.Text = Format((temp1 * 256 + sprv(3) - 2 ^ 16) / 100, \ '补码 Else
Text11.Text = Format((sprv(4) * 256 + sprv(3)) / 100, \ End If
If BitCheck(sprv(6), 7) = True Then
temp1 = sprv(6) '直接代入下式会溢出，故用single变量传递 Text12.Text = Format((temp1 * 256 + sprv(5) - 2 ^ 16) / 5000, \ '补码 Else
Text12.Text = Format((sprv(6) * 256 + sprv(5)) / 5000, \ End If
If BitCheck(sprv(8), 7) = True Then
temp1 = sprv(8) '直接代入下式会溢出，故用single变量传递 Text13.Text = Format((temp1 * 256 + sprv(7) - 2 ^ 16) / 30, \ '补码 Else
Text13.Text = Format((sprv(8) * 256 + sprv(7)) / 30, \ End If
If BitCheck(sprv(10), 7) = True Then
temp1 = sprv(10) '直接代入下式会溢出，故用single变量传递
Text14.Text = Format((temp1 * 256 + sprv(9) - 2 ^ 16) / 30, \ '补码 Else
Text14.Text = Format((sprv(10) * 256 + sprv(9)) / 30, \ End If
If Text14.Text <> 0 And Text13.Text <> 0 Then
Text15.Text = Format(Cos(Atn(Text14.Text / Text13.Text)), \ Else: Text15.Text = \ End If
Text46.Text = Format(Date, \ Text47.Text = Format(Date, \ Text48.Text = Format(Date, \ Text49.Text = Format(Now, \ Text50.Text = Minute(Now) Text51.Text = Second(Now)
strsql = \测试系统3(频率,电压,电流,有功,无功,功率因数,年,月,日,时,分,秒)\
strsql = strsql + \+ \+ Text13.Text + \+ Text14.Text + \+ Text15.Text + \+ Text46.Text + \+ Text47.Text + \+ Text48.Text + \
ADOcn.Execute strsql a3 = 0 a4 = 0 a5 = 0 a6 = 0
44
东北电力大学本科毕业设计论文
End If
Case 4
a2 = a2 + 1 sprv(a2) = k
If a2 = 12 And sprv(12) = &H55 Then a2 = 0 a1 = 0 a3 = 4 End If If a3 = 4 Then
If BitCheck(sprv(2), 7) = True Then
temp1 = sprv(2) '直接代入下式会溢出，故用single变量传递 Text36.Text = Format(Left(1000000 / ((temp1 * 256 + sprv(1)) - 2 ^ 16), 6), \ '补码 Else
Text36.Text = Format(Left(1000000 / (sprv(2) * 256 + sprv(1)), 6), \ End If
If BitCheck(sprv(4), 7) = True Then
temp1 = sprv(4) '直接代入下式会溢出，故用single变量传递 Text16.Text = Format((temp1 * 256 + sprv(3) - 2 ^ 16) / 100, \ '补码 Else
Text16.Text = Format((sprv(4) * 256 + sprv(3)) / 100, \ End If
If BitCheck(sprv(6), 7) = True Then
temp1 = sprv(6) '直接代入下式会溢出，故用single变量传递
Text17.Text = Format((temp1 * 256 + sprv(5) - 2 ^ 16) / 5000, \ '补码 Else
Text17.Text = Format((sprv(6) * 256 + sprv(5)) / 5000, \ End If
If BitCheck(sprv(8), 7) = True Then
temp1 = sprv(8) '直接代入下式会溢出，故用single变量传递
Text18.Text = Format((temp1 * 256 + sprv(7) - 2 ^ 16) / 30, \ '补码 Else
Text18.Text = Format((sprv(8) * 256 + sprv(7)) / 30, \ End If
If BitCheck(sprv(10), 7) = True Then
temp1 = sprv(10) '直接代入下式会溢出，故用single变量传递
Text19.Text = Format((temp1 * 256 + sprv(9) - 2 ^ 16) / 30, \ '补码 Else
Text19.Text = Format((sprv(10) * 256 + sprv(9)) / 30, \ End If
If Text19.Text <> 0 And Text18.Text <> 0 Then
Text20.Text = Format(Cos(Atn(Text19.Text / Text18.Text)), \ Else: Text20.Text = \
45
东北电力大学本科毕业设计论文
End If
Text46.Text = Format(Date, \ Text47.Text = Format(Date, \ Text48.Text = Format(Date, \ Text49.Text = Format(Now, \ Text50.Text = Minute(Now) Text51.Text = Second(Now)
strsql = \测试系统3(频率,电压,电流,有功,无功,功率因数,年,月,日,时,分,秒)\
strsql = strsql + \+ \+ Text18.Text + \+ Text19.Text + \+ Text20.Text + \+ Text46.Text + \+ Text47.Text + \+ Text48.Text + \
ADOcn.Execute strsql a3 = 0 a4 = 0 a5 = 0 a6 = 0
End If Case 5
a2 = a2 + 1 sprv(a2) = k
If a2 = 12 And sprv(12) = &H55 Then a2 = 0 a1 = 0 a3 = 5 End If If a3 = 5 Then
If BitCheck(sprv(2), 7) = True Then
temp1 = sprv(2) '直接代入下式会溢出，故用single变量传递 Text36.Text = Format(Left(1000000 / ((temp1 * 256 + sprv(1)) - 2 ^ 16), 6), \ '补码 Else
Text36.Text = Format(Left(1000000 / (sprv(2) * 256 + sprv(1)), 6), \ End If
If BitCheck(sprv(4), 7) = True Then
temp1 = sprv(4) '直接代入下式会溢出，故用single变量传递 Text21.Text = Format((temp1 * 256 + sprv(3) - 2 ^ 16) / 100, \ '补码 Else
Text21.Text = Format((sprv(4) * 256 + sprv(3)) / 100, \ End If
If BitCheck(sprv(6), 7) = True Then
temp1 = sprv(6) '直接代入下式会溢出，故用single变量传递
Text22.Text = Format((temp1 * 256 + sprv(5) - 2 ^ 16) / 5000, \ '补码 Else
Text22.Text = Format((sprv(6) * 256 + sprv(5)) / 5000, \ End If
46
东北电力大学本科毕业设计论文
If BitCheck(sprv(8), 7) = True Then
temp1 = sprv(8) '直接代入下式会溢出，故用single变量传递
Text23.Text = Format((temp1 * 256 + sprv(7) - 2 ^ 16) / 30, \ '补码 Else
Text23.Text = Format((sprv(8) * 256 + sprv(7)) / 30, \ End If
If BitCheck(sprv(10), 7) = True Then
temp1 = sprv(10 '直接代入下式会溢出，故用single变量传递
Text24.Text = Format((temp1 * 256 + sprv(9) - 2 ^ 16) / 30, \ '补码 Else
Text24.Text = Format((sprv(10) * 256 + sprv(9)) / 30, \ End If
If Text24.Text <> 0 And Text23.Text <> 0 Then
Text25.Text = Format(Cos(Atn(Text24.Text / Text23.Text)), \ Else: Text25.Text = \ End If
Text46.Text = Format(Date, \ Text47.Text = Format(Date, \ Text48.Text = Format(Date, \ Text49.Text = Format(Now, \ Text50.Text = Minute(Now) Text51.Text = Second(Now)
strsql = \测试系统5(频率,电压,电流,有功,无功,功率因数,年,月,日,时,分,秒)\
strsql = strsql + \+ \+ Text23.Text + \+ Text24.Text + \+ Text25.Text + \+ Text46.Text + \+ Text47.Text + \+ Text48.Text + \
ADOcn.Execute strsql a3 = 0 a4 = 0 a5 = 0 a6 = 0 End If Case
a2 = a2 + 1 sprv(a2) = k
If a2 = 12 And sprv(12) = &H55 Then a2 = 0 a1 = 0 a3 = 6 End If If a3 = 6 Then
If BitCheck(sprv(2), 7) = True Then
temp1 = sprv(2) '直接代入下式会溢出，故用single变量传递 Text36.Text = Format(Left(1000000 / ((temp1 * 256 + sprv(1)) - 2 ^ 16), 6), \ '补码
47