菜单
　　

    4、对支导线三文坐标计算
    2.2软件程序框架及代码
    2.2.1附合导线平差计算
       编码实现附合导线实测数据的文件导入及平差结果的文件输出。
    窗口显示：附合导线平差计算窗体
    试验代码：
    Dim num_total As Integer
    Dim gcj2() As Single, fwj() As Single, xj As String, xj1 As Variant, zx() As Single, zy() As Single
    Dim X() As Single, Y() As Single, fx As Single, fy As Single, fs As Single, k As Single, vx() As Single, vy() As Single

    Private Sub CLEAR_Click()
    'Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "":Text5.Text = "": Text6.Text = ""
    Text9.Text = "": Text10.Text = "": Text11.Text = "": Text12.Text = ""
    Text13.Text = "": Text14.Text = "": Text15.Text = "": Text7.Text = "": Text8.Text = ""
    Text16.Text = "": Text17.Text = "": Text18.Text = "": Text19.Text = ""
    Text20.Text = "": Text21.Text = "": Text22.Text = "": Text23.Text = ""
    Text24.Text = "": Text25.Text = "": Text26.Text = "": Text27.Text = ""
    End Sub
    Private Sub CLEAR1_Click()
    'Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "":Text5.Text = "": Text6.Text = ""
    Text9.Text = "": Text10.Text = "": Text11.Text = "": Text12.Text = ""
    Text13.Text = "": Text14.Text = "": Text15.Text = "": Text7.Text = "": Text8.Text = ""
    Text16.Text = "": Text17.Text = "": Text18.Text = "": Text19.Text = ""
    Text20.Text = "": Text21.Text = "": Text22.Text = "": Text23.Text = ""
    Text24.Text = "": Text25.Text = "": Text26.Text = "": Text27.Text = ""
    End Sub

    Private Sub Command1_Click()
    Dim gcj As String, gcj1 As Variant, s As Single, s1 As Single, shmo As Single, fb As Single, v As Single
    Dim sxj As Single, fx1 As Single, fy1 As Single, fb1 As Single
    Text9.Text = ""
    Text10.Text = ""
    Text11.Text = ""
    Text12.Text = ""
    Text13.Text = ""
    Text22.Text = ""
    Text23.Text = ""
    Text26.Text = Str(Val(Text2.Text) - Val(Text1.Text))
    Text27.Text = Str(Val(Text4.Text) - Val(Text3.Text))
    If Right(Text7.Text, 2) = vbCrLf Then
      Text7.Text = Left(Text7.Text, Len(Text7.Text) - 2)
      End If '删除空白行
    gcj = Text7.Text
    gcj1 = Split(gcj, vbCrLf)
    If Right(Text8.Text, 2) = vbCrLf Then
      Text8.Text = Left(Text8.Text, Len(Text8.Text) - 2)
      End If
    xj = Text8.Text
    xj1 = Split(xj, vbCrLf)
    'Print (UBound(gcj1) + 1)
    For i = 0 To UBound(gcj1)
      s = s + huadu(Val(gcj1(i)))
      Next
    s1 = zhuanhua(s)
    Text19.Text = Str(s1)
    shmo = huadu(Val(Text6.Text)) - huadu(Val(Text5.Text))
    Text21.Text = Format(Str(zhuanhua(shmo)), "###.0000")
    fb = s - shmo
    If fb > 0 Then
      fb = fb - (UBound(gcj1) + 1) * 180
      Else
      fb = fb + (UBound(gcj1) + 1) * 180
      End If
      fb1 = Fix(zhuanhua(fb) * 10000)
      Text14.Text = Str(fb1)
      v = (-fb) / (UBound(gcj1) + 1)
      ReDim gcj2(UBound(gcj1)), fwj(UBound(gcj1) + 1), zx(UBound(gcj1)), zy(UBound(gcj1))
      fwj(0) = Val(huadu(Text5.Text))
      For i = 0 To UBound(gcj1)
      gcj2(i) = huadu(Val(gcj1(i))) + v
      fwj(i + 1) = fwj(i) + gcj2(i) - 180
  1. 上一篇：jsp+sqlserver数据结构教学网站的设计与实现
  2. 下一篇：人行横道线检测算法设计与实现

  1. 基于安卓系统的测量软件...

  2. jsp计算机学院学生就业及...

  3. Java航空订票系统设计

  4. Hadoop云计算环境下的Web应用日志安全威胁分析

  5. 计算机音乐分类辨识研究

  6. asp.net+sqlserver计算机在线考...

  7. 高效视频编码帧间预测中运动估计算法研究

  8. 杂拟谷盗体内共生菌沃尔...

  9. 酸性水汽提装置总汽提塔设计+CAD图纸

  10. 河岸冲刷和泥沙淤积的监测国内外研究现状

  11. 大众媒体对公共政策制定的影响

  12. 当代大学生慈善意识研究+文献综述

  13. 中考体育项目与体育教学合理结合的研究

  14. 乳业同业并购式全产业链...

  15. 十二层带中心支撑钢结构...

  16. java+mysql车辆管理系统的设计+源代码

  17. 电站锅炉暖风器设计任务书

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回