怎么编写代码那？ - 编程论坛

#2

V菜鸟V2015-05-09 23:32

谢谢了，之前那个有问题，这个你自己看。

#3

V菜鸟V2015-05-09 23:39

只有本站会员才能查看附件，请登录

#4

renxiaoyao362015-05-10 07:45

你自己有思索过么？
感觉你这是在毫不思索的求作业啊。

#5

V菜鸟V2015-05-10 13:20

嗯嗯，试过了，老是有问题，do，，，，loop，也试过，就是不行，不会了才问呀，会了，我就自己搞了，不过你说的很好，我有点急着要答案了。

#6

lianyicq2015-05-11 09:07

回复楼主 V菜鸟V

图上没显示坐标系如何定义。
a、b两点看起来就是地面线与秧点轨迹的两个交点。
有动点坐标，miny很容易。
然后就是i由0开始，找第一个y(i)<miny+20，记M=i，并求对应x(i)
再从M开始，找第一个y(i)>miny+20，并求对应x(i)。
最后求两个x(i)差的绝对值。
Easy

#7

V菜鸟V2015-05-11 21:22

回复 6楼 lianyicq

程序代码：

If ye(k1) < shu Then
            shu = ye(k1)
            zdj = k1
  End If
  Next k1

  shu = -(Val(Text1.Text) + Val(Text2.Text) + 15 * Sqr(3)) '最低点纵坐标
    For i = 50 To 180
        If ye(i) < shu Then
            shu = ye(i)
            zdj = i
            Exit For
        End If
    Next i

    Dim xj(1 To 20), yj(1 To 20)
     u = 0
     For i = 0 To 360
        If Abs(ye(i) - ye(zdj) - 20) < 1.5 Then
           u = u + 1
           xj(u) = xe(i)
           yj(u) = ye(i)   '找秧苗与水平面的交点
        End If
      Next i
        numx = u       '找到的点个数
        xkdis = 0        '计算穴口大小
        For i = 2 To numx
            If Abs(xj(i) - xj(1)) > xk Then
                xk = Abs(xj(i) - xj(1) )
                Text9.Text = Format(xk, "0.00")
            End If
        Next i

这个可以吧，感觉稍微有点问题，你能看出来不？嘿嘿

#8

lianyicq2015-05-12 08:58

回复 7楼 V菜鸟V

程序代码：

For k1 = 0 To 360
  If ye(k1) < shu Then
    shu = ye(k1)
  End If
Next k1
For i = 0 To 360
  If ye(i) - shu - 20 < 0 Then
    m = i
    X1 = xe(i)
    Exit For
  End If
Next i
For i = m To 360
  If ye(i) - shu - 20 > 0 Then
    X2 = xe(i)
    Exit For
  End If
Next
hsize = Abs(X1 - X2)

#9

V菜鸟V2015-05-12 21:28

回复 8楼 lianyicq

有问题，你看shu 是最低点，那么ye(k1)（轨迹点）怎么可能比shu 还小？？

#10

V菜鸟V2015-05-12 22:02

回复 8楼 lianyicq

而且你这个代码我之前有写过。1.会出现M没有被读写，根本就是无用的。2.X1和X2的代码编写中只有一个算的对，另外一个无用，因为没有读入，换句话，他俩中只有一个穴口坐标，又要怎么算穴口的值哪？期望你好好看一下，谢谢了。

#11

lianyicq2015-05-13 08:48

回复 10楼 V菜鸟V

事物的发展总是在不断地被肯定,再被否定,再被肯定中循环进行.
shu是最低点没错,但那只是参考点,代码要找的是第一个比shu+20小的点.