导线计算(装载数据vb程序).docVIP

下载本文档

28
0
约8.59千字
约 9页
2016-06-17 发布于江苏
举报
版权申诉

导线计算(装载数据vb程序).doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

目的：进行导线计算界面装载数据源码 Const PI As Double = 3Private Sub fwjjs(xa As Double, xb As Double, ya As Double, yb As Double, t) dx = xb - xa dy = yb - ya If dx = 0 Then t = Sgn(dy) * 90 Else t = Atn(dy / dx) * 180 / PI If dx 0 Then t = t + 180 If t 0 Then t = t + 360 End Sub Private Function deg(a As Double) sign = Sgn(a) a = Abs(a) + 0.0000000001 b = Int(a) c = Int((a - b) * 100) d = a - b - c / 100 deg = sign * (b + c / 60 + d / 0.36) End Function Private Sub cmdjs_Click() xa = Val(txtxa.Text): xb = Val(txtxb.Text): ya = Val(txtya.Text): yb = Val(txtyb.Text) xc = Val(txtxc.Text): xd = Val(txtxd.Text): yc = Val(txtyc.Text): yd = Val(txtyd.Text) Call fwjjs(xa, xb, ya, yb, tq) txtfwj1.Text = Format(dms1(tq), 0.0000) Call fwjjs(xc, xd, yc, yd, tz) txtfwj2.Text = Format(dms1(tz), 0.0000) a = txtb.Text a = Replace(a, , ) a = Replace(a, vbCrLf, ) c = Split(a, ) num = UBound(c) Dim t() As Double, b() As Double, s() As Double ReDim t(0 To UBound(c) + 1), b(0 To UBound(c)), s(0 To UBound(c) - 1) For i = 0 To UBound(c) Step 1 b(i) = Val(c(i)) Next i d = txts.Text d = Replace(d, , ) d = Replace(d, vbCrLf, ) E = Split(d, ) t(0) = tq For i = 1 To UBound(c) + 1 t(i) = t(i - 1) - 180 + deg(b(i - 1)) If t(i) 360 Then t(i) = t(i) - 360 If t(i) 0 Then t(i) = t(i) + 360 Next i fb = t(num + 1) - tz For i = 1 To num + 1 t(i) = t(i) - fb / (num + 1) * i Next i Dim dx() As Double, dy() As Double ReDim x(0 To num + 2), y(0 To num + 2), dx(1 To num), dy(1 To num) For i = 1 To num dx(i) = Cos(t(i) * PI / 180) * Val(E(i - 1)) dy(i) = Sin(t(i) * PI / 180) * Val(E(i - 1)) Next i x(0) = xa: y(0) = ya: y(1) = yb: x(1) = xb: x(num + 1) = xc: y(num + 1) = yc: x(num + 2) = xd: y(num + 2) = yd hs = 0 For i = 2 To num + 1 hs = hs + Val(E(i - 2)) x(i) = Cos(t(i - 1) * PI / 180) * Val(E(i - 2)) + x(i - 1) y(i) = Sin(t(i - 1) * PI / 180) * Val(E(i - 2)) + y(i - 1) Next i fx = x(num + 1) - xc: fy = y(num + 1) - yc fs = Sqr(fx ^ 2 + fy ^ 2) Debug.Print fx, fy, fs k = 1 / (hs / fs) Rem CmD.Dial