location in a circle

[leif]

I am writing a program to do single plane balancing using the vector method. I am trying to compare two locations in a circle. An initial and a trial location. What I need to do is, compare the relationship between the two and decide which way from the trial location is. If the initial location is at 90. 270 is 180 from it. And if the trial would fall on 260 it would be CW, 280 would be CCW. Which ever way the trial goes, it will never be more than 180 from the initial location. Is there an easy way to test the user inputs? I put this in the maths forum, but no is in there.

[SurfDemon]

***???? Okay, I might not be the brightest beacon in the harbour, but I don't understand what your asking. Could you please rephrase the question, and I'll try and answer it. thanks

SD

[da_silvy]

don't put everything on oneline either it makes it harder to read, why don't you separate it out and explain what variables the user has to enter etc?

see...

[beachbum]

LOL SD.. i think i get what he means. CW would be clockwise and CCW counter clockwise. If the entered details are simply angles on a circle then it is pretty easy. It can be a little more complicated if the different positions are given by x,y coordinates but is still basically the same process.

Private Sub Command1_Click()
    Dim Difference As Double
    Dim Angle1 As Double 'These are degree angles
    Dim Angle2 As Double 'Use Angle * pi / 180 for radians
    Dim Direction As String
    
    Angle1 = Text1
    Angle2 = Text2
 
    Difference = Angle2 - Angle1
    If Difference > 180 Then
        Difference = 360 - Angle2 + Angle1
        Direction = "Counter Clockwise"
    ElseIf Difference < -180 Then
        Difference = 360 - Angle1 + Angle2
        Direction = "Clockwise"
    ElseIf Difference < 0 Then
        Difference = Angle1 - Angle2
        Direction = "Counter Clockwise"
    Else
        Direction = "Clockwise"
    End If
    
    Debug.Print Direction, Difference
End Sub