Question

现在,我是在五B6号文件中这样做的,但我不认为这是我做的,是不是这样做的? 我认为,它必须处理数学问题。

这里的问题是,看一看这方面的情况。

“entergraph

As you can see in this image, there is a black line and a grey circle. I want the circle to move from the bottom left to the bottom right, but I also want it to stay along the path of the line so it reaches our second picture like this:

“entergraph

Now how can I accomplish this? Again, using VB6.

Answer 1

Ok, I don t know VBA6 but, since you said:

I don t think it matters what I do it in

我将提出一个通用的解决办法,涉及你们的圈子和线端点。

这条线可视为病媒:

 (line.x2-line.x1, line.y2-line.y1)

You don t need to write this in your program or anything just saying it is a vector.

What you do need to is get the magnitude of the vector and assign it to a variable:

unitSize = sqrt((line.x2-line.x1)^2 + (line.y2-line.y1)^2)

如今,它已成为病媒的单位组成部分,并具有单独的构成部分:

unitX = (line.x2-line.x1)/unitSize
unitY = (line.y2-line.y1)/unitSize

Now how ever you update the circle:

do {
    circle.x = circle.x + unitX * incrementSize //incrementSize scales how big the movement is assign it to whatever you seem fit.
    circle.y = circle.y + unitY * incrementSize
until (circle.x >= line.x2) //Or <= line.x2 depends which way you are going.

Hopefully this helps.

Answer 2

我认为,实现这一点有多种途径,但这是我所想的第一个途径。它作出一些假设......好像您的行文朝着积极的方向发展,它始于0。如果其中任何一个情况都属实,那么你会再写更多的文字来加以调整。

=================================================

    Psuedocode:
     To track current coordinates of the center of the circle
    dim x as float, y as float
    x = 0: y = 0

     Coordinates for the line
    dim x1 as float, y1 as float, x2 as float, y2 as float
    x1=0: y1=0: x2=50: y2=75

     How much we re going to move the circle at a time
    dim xStep as float, yStep as float, stepSize as float
    stepSize = 100
    xStep = x2 / stepSize
    yStep = y2 / stepSize

    Do
        Draw circle here with x, y for coordinates
       x = x + xStep
       y = y + yStep
    Loop Until xStep > x2

友情链接