发布时间 : 星期三 文章电气工程及其自动化毕业设计大论文123(2) - 图文更新完毕开始阅读a1f881e5cfc789eb162dc8c2
东北电力大学本科毕业设计论文
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