[Initial Bit RESOLVED] VB.net and Simconnect

[Angelus1971]

Hi

I've been struggling for days over this one.

I've managed to get the Managed Data Request to work but what I cant do is even start to get code to insert an Object a/c or otherwise into the sim using Simconnect and VB.net.

Would anyone be able to drop me a few lines of code which would place an object in the sim. Some code that would help me learn and build on would be highly appreciated.

Thank You

 

[ronh]

Here is the C# Waypoint example in VB. You should try one of the other C# ones and convert them to VB. I just took the VB managed data and added the waypoint parts to it.

It is VS 2010 using NET 2

enjoy.

 

[Angelus1971]

Thanks

I'll have a read through that and see what I can come up with.

 

[Angelus1971]

Thanks for the file. It helped a lot. Just got to figure out a way of stopping the a/c from dropping 12000ft after adding which will allow a new heading and possibly altitude change to work properly. Cant use waypoints, data is live.

 

[ronh]

There are two parts to creating AI.

The Init part where you create the AI and give it initial position speed heading altitude. There is a parameter OnGround. Set it to false 0.

After you get the response that the AI is created - you get a SIMID - use that to set the way points.


Set the Init

        ' Initialize Extra300S aircraft just in front of user aircraft, at 47 25.89 N, 122 18.48 W

        Init.Altitude = 1433.0                   ' Altitude of Sea-tac is 1433 feet  <<---------------------------
        Init.Latitude = 47 + (25.91 / 60)       ' Convert from 47 25.90 N
        Init.Longitude = -122 - (18.48 / 60)    ' Convert from 122 18.48 W
        Init.Pitch = 0.0
        Init.Bank = 0.0
        Init.Heading = 360.0
        Init.OnGround = 0  <<---------------------------------------
        Init.Airspeed = 100  <<---------------------------------------

        fsx_simconnect.AICreateNonATCAircraft("Extra 300S Paint1", "N1001", Init, DATA_REQUESTS.REQUEST_Extra300S)

then set the waypoints

            ' Extra300S aircraft should fly in circles across the North end of the runway

            wp(0).Flags = CType(SIMCONNECT_WAYPOINT_FLAGS.SPEED_REQUESTED, UInteger)
            wp(0).Altitude = 800
            wp(0).Latitude = 47 + (27.79 / 60)
            wp(0).Longitude = -122 - (18.46 / 60)
            wp(0).ktsSpeed = 100

            wp(1).Flags = CType(SIMCONNECT_WAYPOINT_FLAGS.SPEED_REQUESTED, UInteger)
            wp(1).Altitude = 600
            wp(1).Latitude = 47 + (27.79 / 60)
            wp(1).Longitude = -122 - (17.37 / 60)
            wp(1).ktsSpeed = 100

            wp(2).Flags = CType(SIMCONNECT_WAYPOINT_FLAGS.WRAP_TO_FIRST Or SIMCONNECT_WAYPOINT_FLAGS.SPEED_REQUESTED, UInteger)
            wp(2).Altitude = 800
            wp(2).Latitude = 47 + (27.79 / 60)
            wp(2).Longitude = -122 - (19.92 / 60)
            wp(2).ktsSpeed = 100

            ' Create a polymorphic array

            Dim objv1 As Object = New Object(wp.Length - 1) {}
            wp.CopyTo(objv1, 0)

            ' Send the three waypoints to the Extra300S
            fsx_simconnect.SetDataOnSimObject(DEFINITIONS.Extra300SWaypoints, Extra300SID, 0, objv1)

My livingworld program basically does that.

 

[Angelus1971]

Thanks

My program seems to be OK but I need better control over the a/c.

How do I use FREEZE_Events in vb. I cant seem to find the FREEZE_ALTITUDE_SET or figure out how to us

What I'm looking for is

setUpSimObjects();
/* action in callback */
hr = SimConnect_TransmitClientEvent(hSimConnect, SIMCONNECT_OBJECT_ID_USER, KEY_FREEZE_LATITUDE_LONGITUDE_TOGGLE, 0, SIMCONNECT_GROUP_PRIORITY_HIGHEST, SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY);
hr = SimConnect_TransmitClientEvent(hSimConnect, SIMCONNECT_OBJECT_ID_USER, KEY_FREEZE_ATTITUDE_TOGGLE, 0, SIMCONNECT_GROUP_PRIORITY_HIGHEST, SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY);
hr = SimConnect_TransmitClientEvent(hSimConnect, SIMCONNECT_OBJECT_ID_USER, KEY_FREEZE_LATITUDE_LONGITUDE_SET, 0, SIMCONNECT_GROUP_PRIORITY_HIGHEST, SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY);
hr = SimConnect_TransmitClientEvent(hSimConnect, SIMCONNECT_OBJECT_ID_USER, KEY_FREEZE_ALTITUDE_SET, 0, SIMCONNECT_GROUP_PRIORITY_HIGHEST, SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY);
hr = SimConnect_TransmitClientEvent(hSimConnect, SIMCONNECT_OBJECT_ID_USER, KEY_FREEZE_ATTITUDE_SET, 0, SIMCONNECT_GROUP_PRIORITY_HIGHEST, SIMCONNECT_EVENT_FLAG_GROUPID_IS_PRIORITY);

in managed vb code please

 

[ronh]

Not sure what you mean. The altitude is set via the waypoint.

wp(1).Altitude = 6000

It will fly to that waypoint at 6000 feet.

You can also give your aircraft a flight plan. You create a flight plan with your user aircraft - save it. You can then use it via

SimConnect_AICreateEnrouteATCAircraft

This will start the aircraft at location A taxi, take-off and land (or TNG and return), taxi to gate per the flight plan.

 

[Angelus1971]

I'm pulling data for the next waypoint from a LIVE system. Actual speeds, headings, locations are not filed. Cant use a flightplan or anything as each flight is dynamic.
Each Latitude and Longitude is transmitted to the FSX a/c with 1 second of it getting transmitted from the REAL a/c.

At the moment, I've got FSX being injected with the initial locations and have managed to get the altitude to now remain stable. The pitch goes kind of crazy but it does revert back to normal flight.

What I'm looking for it to get the plane to move to the next waypoint by not moving under the control of the AI. Not sure how to move it to the next position. Do I use waypoints as per the other AI controlled method?

All I get when I send the waypoint data is

SIMCONNECT Exception 19 which is SIMCONNECT_EXCEPTION_INVALID_DATA_SIZE = 19

Not sure what data size is wrong as I'm only feeding the data which your and other people examples transfer

 

[ronh]

Unfortunately I have not use the freeze ids.

There is a thread on someone trying to do what I think is the same as you

http://www.fsdeveloper.com/forum/th...rough-simconnect-for-fs-x.206308/#post-381198

There is a C++ example there, perhaps you can see what they did there. I'll see if I can figure out a managed code example of the same type.