Elsner KNX PS640-IP Router & PC

[albusmw]

Hallo!

Irgendwie sind die einfachen Dinge die schwierigen.

Ich habe einen Elsner KNX PS640-IP Router und würde jetzt gerne per PC einen Aktor am KNX steuern.
Programmiersprache ist Visual Basic 2005 / 2008 / 2010.

Falcon: Die .NET-Beispiele sind "ziemlich krautig" - irgendwelche konvertierten VB6-Beispiele ...

Gibt es was besseres zum Aufsetzen / Starten?

Viele Grüße,

Martin.

[albusmw]

Durchstich ...

Leicht war's nicht, aber mein Relay schaltet ...

PrivateSub WriteBoolToKNX(ByVal GroupAdr AsString, ByVal State AsBoolean)
'================================================= =====================
'Start KNX
Dim KNXOpenError As EIBA.Interop.Falcon.DeviceOpenError
Dim WriteError As EIBA.Interop.Falcon.DeviceWriteError
'Use default connection object
Dim MainCon As EIBA.Interop.Falcon.FalconConnection = (New EIBA.Interop.Falcon.ConnectionManagerClass).GetDef aultConnection
'Create unlicensed auto-dispose connection
Dim conn As EIBA.Interop.Falcon.IConnection = EIBA.Interop.Falcon.ConnectionObjectFactory.Create UnlicensedConnectionObject(String.Empty)
conn.Mode = EIBA.Interop.Falcon.ConnectionMode.ConnectionModeR emoteConnectionless
KNXOpenError = conn.Open2("{" + MainCon.guidEdi.ToString() + "}", MainCon.Parameters)
Dim autoconn AsNew EIBA.Interop.Falcon.AutoDisposeConnectionObject(co nn)
'If open was OK, write
If KNXOpenError = EIBA.Interop.Falcon.DeviceOpenError.DeviceOpenErro rNoError Then
Dim gp As EIBA.Interop.Falcon.IGroupDataTransfer = New EIBA.Interop.Falcon.GroupData
gp.Connection = autoconn.ConnectionObject
WriteError = gp.Write(GroupAdr, EIBA.Interop.Falcon.Priority.PriorityLow, 6, True, CInt(IIf(State = True, 1, 0)))
EndIf
EndSub