Liebe Forumler,

Ich schreibe momentan an einem Projekt. Ich habe auf einer Seite Visual Basic und auf der anderen Seite eine Beckhoff Steuerung. Ich habe Strukturen mit Twincat3 geschrieben und ich setze die Werte von der Struktur in Beckhoff und ich lesen sie in Visual Basic. Es funktioniert nicht so richtig und zwar:
Ich habe ein READ-Button in Visual basic für das Lesen der Positionen, die ich in einer Struktur habe. Die Positionen haben 12 Elemente. Jetzt kommt das Problem.
Wenn ich 1X den READ Button klicke. Es stehen "0" in allen Positionen, obwohl ich ein paar Werte in die Positionen auf der Seite von Beckhoff geschrieben habe.
Wenn ich ein 2tes Mal den READ Button klicke, dann werden die Positionen angezeigt aber nicht richtig. Zum Beispiel. Ich habe 12 Positionen: 10, 20, 30, 40, 50, 60, 70, 80,90,100,110,120. Visual Basic zeigt: 20,30, 40, 50, 60, 70, 80, 90, 100 , 0 und 0 an. Das heißt, er verschluckt den 10 und schiebt 0 am Ende.
Ich verstehe das nicht. Kann mir jemand das erklären oder hat jemand schon Erfahrung mit sowas?????
Ich bedanke mich im Voraus und hoffe, ich konnte das Problem richtig erklären.

Grüsse

~blaze~: Thema verschoben

Private hPCToBeckhoff As Integer
Public PCToBeckhoffStruct As PcToBeckhoff = New PcToBeckhoff

<MarshalAs(UnmanagedType.ByValArray, SizeConst:=96)> Public XPositionen(12) As Double
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=96)> Public YPositionen(12) As Double

----------------------------------Funktion READ --------------------------------------------------------
Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRead.Click

Try

hPCToBeckhoff = tcAds.CreateVariableHandle("GVL.SchnittstelleZuBeckhoff")
PCToBeckhoffStruct = (tcAds.ReadAny(hPCToBeckhoff, GetType(PcToBeckhoff)))
tbPositionen.Text = String.Format("{0}, {1}, {2}, {3}, {4}, {5}, {6}, {7}, {8}, {9}, {10}, {11}", PCToBeckhoffStruct.XPositionen(0).ToString, PCToBeckhoffStruct.XPositionen(1).ToString, PCToBeckhoffStruct.XPositionen(2).ToString, PCToBeckhoffStruct.XPositionen(3).ToString, PCToBeckhoffStruct.XPositionen(4).ToString, PCToBeckhoffStruct.XPositionen(5).ToString, PCToBeckhoffStruct.XPositionen(6).ToString, PCToBeckhoffStruct.XPositionen(7).ToString, PCToBeckhoffStruct.XPositionen(8).ToString, PCToBeckhoffStruct.XPositionen(9).ToString, PCToBeckhoffStruct.XPositionen(10).ToString, PCToBeckhoffStruct.XPositionen(11).ToString)


Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Sub

Vielen Dank Leute, ich habe es rausgefunden. Das Problem war meine Struktur. Die entsprach nicht die Bedinguung damit Beckhoff Sie ließ.
Danke an Alle für die Hilfe