SimConnect - Accessing from VB - Revision history

BASys at 15:13, 18 May 2008

2008-05-18T15:13:55Z

← Older revision		Revision as of 10:13, 18 May 2008
Line 282:		Line 282:

	--[[User:Russdirks\|Russdirks]] 19:04, 9 October 2006 (CEST)		--[[User:Russdirks\|Russdirks]] 19:04, 9 October 2006 (CEST)
	~~[[category:FSX]]~~
	[[category:SimConnect]]		[[category:SimConnect]]

BASys at 20:03, 18 April 2008

2008-04-18T20:03:01Z

← Older revision		Revision as of 15:03, 18 April 2008
Line 1:		Line 1:
			{{Infobox-Applicable-FSVersion
			\| FSXI = false
			\| FSXA = true
			\| FSX = true
			\| FS2004 = false
			\| FS2002 = false
			\| FS2000 = unknown
			\| FS98 = unknown
			}}
	==Introduction==		==Introduction==
	The SimConnect documentation states that you must use C or C++ to access SimConnect, unless you use the managed API, in which case you can use any of the Microsoft .Net language compilers. However I have found, after a bit of experimentation, that you can access the non-managed SimConnect API from VB and VBA, using appropriate DECLARE statements.		The SimConnect documentation states that you must use C or C++ to access SimConnect, unless you use the managed API, in which case you can use any of the Microsoft .Net language compilers. However I have found, after a bit of experimentation, that you can access the non-managed SimConnect API from VB and VBA, using appropriate DECLARE statements.

BASys: Accessing SimConnect From VB moved to SimConnect - Accessing from VB: Titling rationalisation

2008-02-16T09:27:38Z

Accessing SimConnect From VB moved to SimConnect - Accessing from VB: Titling rationalisation

← Older revision	Revision as of 04:27, 16 February 2008
(No difference)

BASys at 23:52, 28 November 2007

2007-11-28T23:52:48Z

← Older revision		Revision as of 18:52, 28 November 2007
Line 273:		Line 273:

	--[[User:Russdirks\|Russdirks]] 19:04, 9 October 2006 (CEST)		--[[User:Russdirks\|Russdirks]] 19:04, 9 October 2006 (CEST)
			[[category:FSX]]
	[[category:SimConnect]]		[[category:SimConnect]]

62.147.159.58: /* Sample Code */

2006-10-20T10:07:32Z

Sample Code

← Older revision		Revision as of 05:07, 20 October 2006
Line 214:		Line 214:
	MsgBox "Unable to connect with FSX!", vbExclamation, "SimConnect"		MsgBox "Unable to connect with FSX!", vbExclamation, "SimConnect"
	Else		Else
	hr = SimConnect_AddToDataDefinition(hSimConnect, ~~DATA_DEF_POSIION~~, "PLANE LATITUDE", "Degrees", _		hr = SimConnect_AddToDataDefinition(hSimConnect, DATA_DEF_POSITION, "PLANE LATITUDE", "Degrees", _
	SIMCONNECT_DATATYPE_FLOAT64, 0, DATA_LATITUDE)		SIMCONNECT_DATATYPE_FLOAT64, 0, DATA_LATITUDE)
	hr = SimConnect_AddToDataDefinition(hSimConnect, ~~DATA_DEF_POSIION~~, "PLANE LONGITUDE", "Degrees", _		hr = SimConnect_AddToDataDefinition(hSimConnect, DATA_DEF_POSITION, "PLANE LONGITUDE", "Degrees", _
	SIMCONNECT_DATATYPE_FLOAT64, 0, DATA_LONGITUDE)		SIMCONNECT_DATATYPE_FLOAT64, 0, DATA_LONGITUDE)
	hr = SimConnect_RequestDataOnSimObjectType(hSimConnect, DATA_REQUEST_POSITION, DATA_DEF_POSITION, _		hr = SimConnect_RequestDataOnSimObjectType(hSimConnect, DATA_REQUEST_POSITION, DATA_DEF_POSITION, _

Russdirks at 17:14, 9 October 2006

2006-10-09T17:14:29Z

← Older revision		Revision as of 12:14, 9 October 2006
Line 251:		Line 251:
	pData = pData + Len(Recv)		pData = pData + Len(Recv)
	CopyMemory RecvOpen, ByVal pData, Len(RecvOpen)		CopyMemory RecvOpen, ByVal pData, Len(RecvOpen)
			' add code here
	Case SIMCONNECT_RECV_ID_EXCEPTION		Case SIMCONNECT_RECV_ID_EXCEPTION
	Dim RecvException As SIMCONNECT_RECV_EXCEPTION		Dim RecvException As SIMCONNECT_RECV_EXCEPTION
	pData = pData + Len(Recv)		pData = pData + Len(Recv)
	CopyMemory RecvException, ByVal pData, Len(RecvException)		CopyMemory RecvException, ByVal pData, Len(RecvException)
			' add code here
	Case SIMCONNECT_RECV_ID_SIMOBJECT_DATA_BYTYPE		Case SIMCONNECT_RECV_ID_SIMOBJECT_DATA_BYTYPE
	Dim RecvData As SIMCONNECT_RECV_SIMOBJECT_DATA		Dim RecvData As SIMCONNECT_RECV_SIMOBJECT_DATA

Russdirks at 17:04, 9 October 2006

2006-10-09T17:04:58Z

← Older revision		Revision as of 12:04, 9 October 2006
Line 270:		Line 270:
	</pre>		</pre>

			--[[User:Russdirks\|Russdirks]] 19:04, 9 October 2006 (CEST)
	[[category:SimConnect]]		[[category:SimConnect]]

205.250.207.21 at 17:02, 9 October 2006

2006-10-09T17:02:48Z

Show changes

205.250.207.21 at 03:04, 9 October 2006

2006-10-09T03:04:01Z

New page

==Introduction==
The SimConnect documentation states that you must use C or C++ to access SimConnect, unless you use the managed API, in which case you can use any of the Microsoft .Net language compilers. However I have found, after a bit of experimentation, that you can access the non-managed SimConnect API from VB and VBA, using appropriate DECLARE statements.

Below are the DECLARE statements I have written so far, with example calls. Others can contribute to this section as well, until the entire API is covered.

Note : to make these work, you'll have to place a copy of SimConnect.dll somewhere where VB can find it, or else specify the path to it directly in the Declare statement

==Declare Statements==
<pre>
Declare Function SimConnect_Open Lib "SimConnect.dll" _
(phSimConnect As Long, _
ByVal szName As String, _
ByVal hWnd As Long, _
ByVal UserEventWin32 As Long, _
ByVal hEventHandle As Long, _
ByVal ConfigIndex As Long) As Long

Declare Function SimConnect_GetNextDispatch Lib "SimConnect.dll" _
(ByVal hSimConnect As Long, _
ppData As Long, _
pcbData As Long) As Long

Declare Function SimConnect_AddToDataDefinition Lib "SimConnect.dll" _
(ByVal hSimConnect As Long, _
ByVal DefineID As Long, _
ByVal DatumName As String, _
ByVal UnitsName As String, _
Optional ByVal DatumType As Long, _
Optional ByVal fEpsilon As Single, _
Optional ByVal DatumID As Long) As Long

Declare Function SimConnect_RequestDataOnSimObjectType Lib "SimConnect.dll" _
(ByVal hSimConnect As Long, _
ByVal RequestID As Long, _
ByVal DefineID As Long, _
ByVal dwRadiusMeters As Long, _
ByVal ObjectType As Long) As Long

Declare Function SimConnect_Close Lib "SimConnect.dll" (ByVal hSimConnect As Long) As Long
</pre>

[[category:SimConnect]]