电气工程及其自动化毕业设计大论文123(2) - 图文

东北电力大学本科毕业设计论文

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变量传递 Text26.Text = Format((temp1 * 256 + sprv(3) - 2 ^ 16) / 100, \ '补码 Else

Text26.Text = Format((sprv(4) * 256 + sprv(3)) / 100, \ End If

If BitCheck(sprv(6), 7) = True Then

temp1 = sprv(6) '直接代入下式会溢出，故用single变量传递

Text27.Text = Format((temp1 * 256 + sprv(5) - 2 ^ 16) / 5000, \ '补码 Else

Text27.Text = Format((sprv(6) * 256 + sprv(5)) / 5000, \ End If

If BitCheck(sprv(8), 7) = True Then

temp1 = sprv(8) '直接代入下式会溢出，故用single变量传递 Text28.Text = Format((temp1 * 256 + sprv(7) - 2 ^ 16) / 30, \ '补码 Else

Text28.Text = Format((sprv(8) * 256 + sprv(7)) / 30, \ End If

If BitCheck(sprv(10), 7) = True Then

temp1 = sprv(10) '直接代入下式会溢出，故用single变量传递

Text29.Text = Format((temp1 * 256 + sprv(9) - 2 ^ 16) / 30, \ '补码 Else

Text29.Text = Format((sprv(10) * 256 + sprv(9)) / 30, \ End If

If Text29.Text <> 0 And Text28.Text <> 0 Then

Text30.Text = Format(Cos(Atn(Text29.Text / Text28.Text)), \ Else: Text30.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 = \测试系统6(频率,电压,电流,有功,无功,功率因数,年,月,日,时,分,秒)\

strsql = strsql + \+ \+ Text28.Text + \+ Text29.Text + \+ Text30.Text + \+ Text46.Text + \+ Text47.Text + \+ Text48.Text + \

ADOcn.Execute strsql a3 = 0

48

东北电力大学本科毕业设计论文

a4 = 0 a5 = 0 a6 = 0 End If Case 7

a2 = a2 + 1 sprv(a2) = k

If a2 = 12 And sprv(12) = &H55 Then a2 = 0 a1 = 0 a3 = 7 End If

If a3 = 7 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变量传递 Text31.Text = Format((temp1 * 256 + sprv(3) - 2 ^ 16) / 100, \ '补码 Else

Text31.Text = Format((sprv(4) * 256 + sprv(3)) / 100, \ End If

If BitCheck(sprv(6), 7) = True Then

temp1 = sprv(6) '直接代入下式会溢出，故用single变量传递

Text32.Text = Format((temp1 * 256 + sprv(5) - 2 ^ 16) / 5000, \ '补码 Else

Text32.Text = Format((sprv(6) * 256 + sprv(5)) / 5000, \ End If

If BitCheck(sprv(8), 7) = True Then

temp1 = sprv(8) '直接代入下式会溢出，故用single变量传递

Text33.Text = Format((temp1 * 256 + sprv(7) - 2 ^ 16) / 30, \ '补码 Else

Text33.Text = Format((sprv(8) * 256 + sprv(7)) / 30, \ End If

If BitCheck(sprv(10), 7) = True Then

temp1 = sprv(10) '直接代入下式会溢出，故用single变量传递

Text34.Text = Format((temp1 * 256 + sprv(9) - 2 ^ 16) / 30, \ '补码 Else

Text34.Text = Format((sprv(10) * 256 + sprv(9)) / 30, \ End If

If Text34.Text <> 0 And Text33.Text <> 0 Then

49