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

来源：用户分享时间：2025/8/9 4:13:00 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

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

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

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

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 = \

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

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

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

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), \ '补码

搜索更多关于：电气工程及其自动化毕业设计大论文123(2) - 图文的文档

电气工程及其自动化毕业设计大论文123(2) - 图文.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c6biip8yt3b5dq8m1sb7m_12.html（转载请注明文章来源）