Calculate Endpoint from X,Y,Dist,Heading [Solved]

[stmdk]

I'd love to learn to use DirectX but I hear it's hell in VB.

Some of the coding I'm doing now is for an MMO I'm building. The server side is almost complete. I'm currently working on the client side. I think I'm gonna use DarkBasic for the graphic intesive stuff. From what I've read, DarkBasic is super easy to use.

[stmdk]

ooops actually there is still an error. Yer off of 90 degrees clockwise. Easy fix.

[stmdk]

I put in a fix, Angle=Angle-90 that puts it to what looks like the right place however...something strange.

I set angle at 180. At a distance of 50 the NEW_Y2 should be 230, instead I get 233?? The NEW_X2 should remain the same since we are heading due south but I get 277?

add this to the bottom and see what I mean.

MsgBox New_X2 & " " & New_Y2

It reports back 277 233 for me.

[Jacob Roman]

You didn't have to do that with the angle. If you wanted up to be the starting position, then change these two lines:

X2 = Distance
    Y2 = 0

to this:

X2 = 0
    Y2 = -Distance

And DirectX in VB is easier than you think. It's not hell at all. If you want some killer tutorials on DirectX, then go in here:

http://externalweb.exhedra.com/Direc...T_DX8Start.asp

[stmdk]

Any ideas about why it's reporting back the wrong numbers when I look at the values of NEW_X2 and NEW_Y2?

[Jacob Roman]

Yeah, but before I do, I wanna see the new code that you put in your function and I'll find out for ya.

[stmdk]

Basically the same with yer one change to orient up.

Private Sub Form_Activate()
    
    'Set the Window State to Maximize to see the results.
 
    AutoRedraw = True
    ScaleMode = 3
    DrawWidth = 10
 
    Dim X1 As Single, Y1 As Single
    Dim X2 As Single, Y2 As Single
    
    Dim New_X1 As Integer, New_Y1 As Integer
    Dim New_X2 As Integer, New_Y2 As Integer
    
    Dim Center_X As Single, Center_Y As Single
    Dim Distance As Single
    Dim Angle As Single
    
    Distance = 20
    
    Angle = 180
    
    
    Center_X = ScaleWidth / 2
    Center_Y = ScaleHeight / 2
    
    X1 = 20
    Y1 = 20
    
    X2 = 0
    Y2 = -Distance
    
    New_X1 = Center_X + X1
    New_Y1 = Center_Y + Y1
    
    PSet (New_X1, New_Y1)
    
    New_X2 = New_X1 + (X2 * Cos(Angle * PI / 180)) - (Y2 * Sin(Angle * PI / 180))
    New_Y2 = New_Y1 + (X2 * Sin(Angle * PI / 180)) + (Y2 * Cos(Angle * PI / 180))
        
    PSet (New_X2, New_Y2), RGB(0, 250, 255)
Form1.Caption = New_X2 & "  " & New_Y2
End Sub

If Y= 20 and I'm heading 20 due south at 180 the NEW_Y2 should by 40. Yet look at the form caption, it says 143.