Zur Laufzeit erzeugte Controls in einem anderen Thread ansprechen

newbie · 16. März 2015, 17:51

Hi Leute,

mit ach und krach habe ich es geschafft (dank VB-Paradise und Co.) halbwegs Multithreading zu verstehen.
Auch ein Testprojekt auf die Beine gestellt.

Nun was funktioniert ist:
Mit dem Designer Ovalshapes gezeichnet und benannt.
Diese sammele ich in List(Of Ovalshape), je in einem eigenen Thread.
Die kann ich auch manipuieren, wei Backgroundcolor etc...
Kurzer Code Einsicht:

VB.NET-Quellcode

Imports Microsoft.VisualBasic.PowerPacks
Public Class frmSPS
Dim osInputs As List(Of OvalShape)
Dim SPS_IP As String = "192.168.1.100"
Dim SPS_Link_Inputs As clsLibNoDave 'LibNoDave eine .dll zum Verbindungsaufbau zur einer SPS
Dim Inputs_Thread As System.Threading.Thread
Private Sub frmSPS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
Inputs_Thread = New System.Threading.Thread(AddressOf InputsList)
Inputs_Thread.Start()
End Sub
Public Sub InputsList()
osInputs = New List(Of OvalShape)
osInputs.AddRange({OS_E00, OS_E01, OS_E02, OS_E03, OS_E04, OS_E05, OS_E06, OS_E07})
osInputs.AddRange({OS_E10, OS_E11, OS_E12, OS_E13, OS_E14, OS_E15, OS_E16, OS_E17})
osInputs.AddRange({OS_E20, OS_E21, OS_E22, OS_E23, OS_E24, OS_E25, OS_E26, OS_E27})
osInputs.AddRange({OS_E30, OS_E31, OS_E32, OS_E33, OS_E34, OS_E35, OS_E36, OS_E37})
osInputs.AddRange({OS_E40, OS_E41, OS_E42, OS_E43, OS_E44, OS_E45, OS_E46, OS_E47})
osInputs.AddRange({OS_E50, OS_E51, OS_E52, OS_E53, OS_E54, OS_E55, OS_E56, OS_E57})
osInputs.AddRange({OS_E60, OS_E61, OS_E62, OS_E63, OS_E64, OS_E65, OS_E66, OS_E67})
osInputs.AddRange({OS_E70, OS_E71, OS_E72, OS_E73, OS_E74, OS_E75, OS_E76, OS_E77})
osInputs.AddRange({OS_E80, OS_E81, OS_E82, OS_E83, OS_E84, OS_E85, OS_E86, OS_E87})
osInputs.AddRange({OS_E90, OS_E91, OS_E92, OS_E93, OS_E94, OS_E95, OS_E96, OS_E97})
SPS_Inputs()
End Sub
Public Sub SPS_Inputs()
SPS_Connection_Inputs()
Do
Dim i = 0
Dim bit(7) As Boolean
For iByte As Integer = 0 To 9 'Eingangsbytes 0 - 9
SPS_Link_Inputs.EB(iByte, bit)
For iBit As Integer = 0 To 7
If bit(iBit) Then
osInputs(i).FillColor = Color.LimeGreen
Else
osInputs(i).FillColor = Color.WhiteSmoke
End If
i += 1
Next
Next
Loop
End Sub
Private Sub SPS_Connection_Inputs()
SPS_Link_Inputs = New clsLibNoDave
SPS_Link_Inputs.Connect(SPS_IP)
End Sub

Das funktioniert auch einwandfrei. Desweiteren gibt es noch einen Thread für die Ausgänge, einen Thread für DB1 und einen Thread für DB2...

Nun in meinem Hauptprojekt weiß ich nicht welche und wieviele Eingänge ich abfrage muss, deshalb erzeuge ich zur Laufzeit anhand einer DataSet die Eingänge (allerding als Panels nicht mit Ovalshape), d.H. *.xml -> DataSet -> Eingänge Info
Die zur Laufzeit erzeugten Panels werden auf/in einer PictureBox gezeichnet. Die Zustände der Panels (also eig. nur BackGroundImage) sollen sich ändern,
d.H. SPS Eingang 0.0 = 1 -> Panel E0.0 = BackGroundImage (SensorEin.jpg (grün)) ansonsten wenn SPS Eingang 0.0 = 0 -> Panel E0.0 = BackGroundImage (SensorAus.jpg (gelb)) SensorEin und SensorAus sind selbst gezeichnete .jpg's...

Ich habe es schonmal hinbekommen, dass die Panels in einem extra Thread gezeichnet werden, aber sobald ich dann in der nächsten Sub die SPS-Verbindung aufbauen will um den Status(BackGroundImage) der Panels anzupassen hängt das Programm sich auf OHNE Fehlermeldung auf. Dann kann ich nur noch über "strg" + "alt" + "entf" -> Taskmanager abbrechen.

Hier mal ein Teil vom Code:

VB.NET-Quellcode

Delegate Sub PicMV_Load([picmv] As String)
Dim SPS_Link_Inputs As clsLibNoDave
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.Inputs_Thread = New Threading.Thread(New ThreadStart(AddressOf Me.InputsList))
Me.Inputs_Thread.Start()
End Sub
Private Sub InputsList()
Me.LoadXML(MVPic)
End Sub
Public Sub LoadXML(ByVal [picmv] As String)
If Me.PicMV.InvokeRequired Then
Dim d As New PicMV_Load(AddressOf LoadXML)
Me.Invoke(d, New Object() {[picmv]})
Else
Sensor_DataSet.Sensor_Table.Clear()
Me.Sensor_DataSet.ReadXml(DataFile)
Me.PicMV.Image = System.Drawing.Image.FromFile([picmv])
Me.PicMV.Refresh()
For Each row In Sensor_DataSet.Sensor_Table
Dim newSensor As New Panel
Dim loc, locProzet As Point
locProzet.X = CInt(100 / CDbl(row.P_Width) * CDbl(row.Left)) ' Diese Berechnungen sind nur dafür da,
locProzet.Y = CInt(100 / CDbl(row.P_Height) * CDbl(row.Top)) ' weil die vorher erzeugte .xml Datei in einer anderen Auflösung erzeugt wird
loc.X = CInt((Me.PicMV.Width / 100 * locProzet.X) + (SensGr / 2)) ' Die PictureBox ist wesentlich kleiner hier
loc.Y = CInt((Me.PicMV.Height / 100 * locProzet.Y) + (SensGr / 2)) ' Koordinaten werden wieder in Pixel umgerechnet.
newSensor = newpanel.CreatePanel(SensGr, Me.PicMV.PointToScreen(Me.PicMV.PointToClient(loc)), SensorAus) 'CreatePanel Klasse (unwichtig)
newSensor.Tag = row.Inv
newSensor.Name = row.BMK
Me.PicMV.Controls.Add(newSensor)
newSensor.BringToFront()
AddHandler newSensor.Paint, AddressOf newSensor_paint
Next
SPS_Inputs()
End If
End Sub
Public Sub SPS_Inputs()
SPS_Connection_Inputs()
Do
Dim EB As String
For Each Sens As Panel In PicMV.Controls()
EB = Strings.Mid(Sens.Name, 2)
Dim SPS_Port() = Split(EB, ".")
Dim Invert = CType(Sens.Tag, Boolean)
If SPS_Link_Inputs.Eingang(CInt(SPS_Port(0)), CInt(SPS_Port(1))) Then
If Invert Then
Sens.BackgroundImage = SensorAus
Else
Sens.BackgroundImage = SensorEin
End If
Else
If Invert Then
Sens.BackgroundImage = SensorEin
Else
Sens.BackgroundImage = SensorAus
End If
End If
Next
Loop
End Sub
Public Sub SPS_Connection_Inputs()
SPS_Link_Inputs = New clsLibNoDave
SPS_Link_Inputs.Connect(SPS_IP)
End Sub

Vom Prinzip ist das ja das selbe wie das Testprojekt was bereit läuft, nur der Unterschied ist das die Panels zur Laufzeit erzeugt werden.
Was mach ich falsch oder was berücksichtige ich nicht?

Danke vorab für eure Antworten / Hilfe

MfG
newbie

Trade · 16. März 2015, 17:55

Moin,

CheckForIllegalCrossThreadCalls ist eine böse Property, wenn man sie auf False setzt, da Fehler einfach ignoriert werden und Du in Gefahr läufst, einen Deadlock zu kassieren und das war's. Mach's richtig und nutze Invoke.

Grüße

newbie · 16. März 2015, 18:01

Hi,

danke @Trade werde ich beherzigen, wenn ich wüsste wie.

Aber leider ist das jetzt nicht mein primäres Problem sondern s. Tread Überschrift.

RodFromGermany · 16. März 2015, 18:32

newbie schrieb:

wenn ich wüsste wie.

Zum Beispiel:

VB.NET-Quellcode

Me.Invoke(Sub() Me.TextBox1.Text = "bla")

newbie · 16. März 2015, 21:20

Ich verstehe nicht, was ich damit anfangen soll...stehe grad voll aufm Schlauch.

newbie · 17. März 2015, 07:21

RodFromGermany schrieb:

Me.Invoke(Sub() Me.TextBox1.Text = "bla")

In meinem Fall wäre die Methode...

VB.NET-Quellcode

'Public Sub SPS_Inputs() , also
Me.Invoke(SPS_Inputs()...)

oder?

Als Object gibt man ein Control an

RodFromGermany schrieb:

Me.TextBox1.Text = "bla"

Welches Object muss ich denn angeben in meinem Fall? Die Controlls (dynamisch erzeugte Panels) die ich in dem "neuen" Thread erstelle sind ja in

Quellcode

PicMV.Controls()

Parameter muss man zwangsläufig mitgeben?

Ich erwarte kein fertigen Code, ich möchte es lediglich verstehen...
Kann mir jemand bitte auf die Sprünge helfen bitte?

MfG

RodFromGermany · 17. März 2015, 08:10

newbie schrieb:

die Methode...

Alles was nach Sub() steht, wird im Me-Main-Thread ausgeführt.
Es gibt die Syntax, dort mehrere Zeilen Code rein zu schreiben ("anonyme Methode"), ich empfehle immer eine Ein-Zeilen.-Syntax, also wie im Beispiel ein Zugriff auf ein Control, oder wie Du es richtig umgesetzt hast ( :thumbup:

) den Aufruf einer Prozedur. Dort kannst Du beliebige Parameter anhängen.
Einen Return-Wert (Function-Aufruf) gibt es nicht, weil der Aufruf asynchron erfolgt.

newbie · 17. März 2015, 10:35

...ok....

bereits vorhandene (d.H. Controls die mit dem Designer gezeichnet worden sind) kann ich auch ansprechen bzw. diese "invoken"

Bei den dynamisch erzeugten habe ich trotzdem noch eine Lücke

Meine vorgehensweise, aufgrund meines verständnisses sieht folgendermaßen aus.

VB.NET-Quellcode

'Dekleration
Delegate Sub SPS_Eingang()
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.Inputs_Thread = New Threading.Thread(New ThreadStart(AddressOf Me.InputsList))
Me.Inputs_Thread.Start()
End Sub
Private Sub InputsList()
Me.LoadXML(MVPic)
End Sub
Public Sub LoadXML(ByVal [picmv] As String)
If Me.PicMV.InvokeRequired Then
Dim d As New PicMV_Load(AddressOf LoadXML)
Me.Invoke(d, New Object() {[picmv]})
Else
Sensor_DataSet.Sensor_Table.Clear()
Me.Sensor_DataSet.ReadXml(DataFile)
Me.PicMV.Image = System.Drawing.Image.FromFile([picmv])
Me.PicMV.Refresh()
For Each row In Sensor_DataSet.Sensor_Table
'macht was...
Next
'SPS_Inputs <--- Der Aufruf der Sub geht nicht.
Dim dSPS As New SPS_Eingang(AddressOf SPS_Inputs)
Me.Invoke(dSPS) 'Ab hier geht es nicht weiter...."Freeze"
End If
End Sub
Public Sub SPS_Inputs()
SPS_Connection_Inputs()
Do
Dim EB As String
For Each Sens As Panel In PicMV.Controls()
EB = Strings.Mid(Sens.Name, 2)
Dim SPS_Port() = Split(EB, ".")
Dim Invert = CType(Sens.Tag, Boolean)
If SPS_Link_Inputs.Eingang(CInt(SPS_Port(0)), CInt(SPS_Port(1))) Then
If Invert Then
Sens.BackgroundImage = SensorAus
Else
Sens.BackgroundImage = SensorEin
End If
Else
If Invert Then
Sens.BackgroundImage = SensorEin
Else
Sens.BackgroundImage = SensorAus
End If
End If
Next
Loop
End Sub
Public Sub SPS_Connection_Inputs()
SPS_Link_Inputs = New clsLibNoDave
SPS_Link_Inputs.Connect(SPS_IP)
End Sub

Wo ist mein Denkfehler

newbie · 17. März 2015, 17:50

Hat keiner einen Tipp für mich?

ErfinderDesRades · 17. März 2015, 18:01

mir scheint dein Testprog untauglich.
Sieht mir aus, als wollest du Daten-Ereignisse verarbeiten, die von einer Sps-Steuerung ausgehen.

Wenn das stimmt, solltest du eine entsprechende Simulation coden, und das geht nicht mit einem Thread.

Sondern mit einem Threading.Timer simulierst du, dass die Sps iwelche Daten einbringt.

Oder du erzählst noch mehr von was du wirklich vorhast - ich hatte nämlich mal was für eine Sps-Steuerung gecodet, die tickte noch ganz anders, sodass Threading ganz üflüssig wurde.
Die hat nämlich alle Daten gesammelt, und mit einem WinForms-Timer konnte man alle 300ms abholen, was eingetrudelt war - sehr listenreich!

newbie · 18. März 2015, 08:41

Diese Zeile ist Böse...

newbie schrieb:

Control.CheckForIllegalCrossThreadCalls = False

Nach dem auskomentieren folgt der Fehler:

Ein Ausnahmefehler des Typs "System.InvalidOperationException" ist in System.Windows.Forms.dll aufgetreten.
Zusätzliche Informationen: Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement ShapeContainer1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.

Mit der o.g. Zeile läuft das Testprogramm siehe Bild(SPS)
Ich würde das aber gerne richtig verstehen und umsetzen mit den delegaten und Invoke und Co.

Jetzt bin ich komplett wieder bei NULL

Ich verstehe das einfach nicht...muss ich jetzt für jedes einzelne Steuerelement einen Invoke ausführen oder was?
Ich kann mit den ganzen Beispielen im Netz und hier nichts anfangen

RodFromGermany schrieb:

VB.NET-Quellcode

Me.Invoke(Sub() Me.TextBox1.Text = "bla")

Wo schreibe ich

Quellcode

Me.Invoke

welche

Quellcode

Sub()

ich habe keine TextBox

Quellcode

Me.TextBox1.Text = "bla"

sondern 104 Ovalshapes

ErfinderDesRades schrieb:

Wenn das stimmt, solltest du eine entsprechende Simulation coden, und das geht nicht mit einem Thread.

Sondern mit einem Threading.Timer simulierst du, dass die Sps iwelche Daten einbringt.

Brauche keine Simulation, ich habe eine echte SPS hier, wo ich den Code direkt testen kann.

Das Testprojekt soll einfach nur schauen was die SPS für Signalzustände hat, nichts weiter. Dafür habe ich vier Threads vorgesehen (hatte es auch mit einem Timer gemacht aber war zu träge)

VB.NET-Quellcode

Inputs_Thread = New System.Threading.Thread(AddressOf InputsList)
Inputs_Thread.Start()
Threading.Thread.Sleep(100)
Outputs_Thread = New System.Threading.Thread(AddressOf OutputsList)
Outputs_Thread.Start()
Threading.Thread.Sleep(100)
DB1_Thread = New System.Threading.Thread(AddressOf DB1List)
DB1_Thread.Start()
Threading.Thread.Sleep(100)
DB2_Thread = New System.Threading.Thread(AddressOf DB2List)
DB2_Thread.Start()

Wie geht es weiter?

MfG

RodFromGermany · 18. März 2015, 09:15

newbie schrieb:

ich habe keine TextBox

newbie schrieb:

sondern 104 Ovalshapes

Ich sehe, Du hast die Lösung noch nicht ganz verstanden.
Wozu machst Du dies?

newbie schrieb:

VB.NET-Quellcode

Threading.Thread.Sleep(100)

ErfinderDesRades · 18. März 2015, 10:03

Jo, also das Bildle erinnert mich sehr an das, was ich damals ohne Threading ausbaldowert habe.
Das basierte auf der sog.
DotNetSiemensPLCToolBoxLibrary.dll
und wie gesagt - die hatte einen Mechanismus, die DatenÄnderungen zu speichern, bis man sie abholt

newbie · 18. März 2015, 13:42

ErfinderDesRades schrieb:

Das basierte auf der sog.
DotNetSiemensPLCToolBoxLibrary.dll

Meinen SPS Zugriff bewerkstellige ich mit LibNoDave.dll, was auch wunderbarbar funktioniert (alledings mit Timer)

Edit:
Vergiss die Sleeps, das war nur als abhilfe, weil der Code Fehler ausgelöst hatte.

VB.NET-Quellcode

Threading.Thread.Sleep(100)

RodFromGermany schrieb:

Ich sehe, Du hast die Lösung noch nicht ganz verstanden.

Leider hast du Recht.

Eigentlich ist es relative egal was ich vor habe, ich möchte es bloß verstehen und es auch richtig anwenden.

Thread deklarieren Dim Inputs_Thread As System.Threading.Thread
Thread verknüpfen Inputs_Thread = New System.Threading.Thread(AddressOf InputsList)
Thread starten Inputs_Thread.Start()
Delegieren? / Invoke? Da hapert es nun.

Wie mach ich das sinnvollerweise? Kann mir jemand das mal so erklären das ich es auch verstehe?

Muss ich einen Delegate Sub haben? Wenn, ja...
Muss es vier mal sein? Wegen den vier Threads die ich starte.

An welcher Stelle muss man Invoke einsetzen? Wie? Was macht Invoke genau?

MfG

RodFromGermany · 18. März 2015, 13:52

newbie schrieb:

An welcher Stelle muss man Invoke einsetzen? Wie? Was macht Invoke genau?

Schreibe Deinen Code und greif einfach auf die Controls im Main-Thread zu.
Wenn dann eine Exception wegen thread-übergfreifendem Zugriff kommt, musst Du genau diese Zeile durch einen Invoke-Zugriff ersetzen.
Wenn da mehrere Zeilen stehen, in denen ein Zugriff erfolgt, mach da ne Prouedur mit entsprechenden Parametern draus und invoke diese.

VB.NET-Quellcode

Me.Invoke(Sub() MyInvokingSub(a, b, c, d))

jvbsl · 18. März 2015, 13:56

kleiner Tipp während Invoke den aufrufenden Thread blockiert tut BeginInvoke dies nicht.
Außerdem sollten Daten nicht in Controls gehalten werden, wenn es sich um Daten handelt, die nicht nur zur Anzeige da sind, so speichere diese in einer Variable(mit entsprechendem Datentyp), dann kannst du über eine Entsprechende Methode(welche du über Invoke im GUI-Thread aufrufst) die Anzeige der GUI aktuallisieren.

newbie · 18. März 2015, 15:53

RodFromGermany schrieb:

Schreibe Deinen Code und greif einfach auf die Controls im Main-Thread zu.
Wenn dann eine Exception wegen thread-übergfreifendem Zugriff kommt, musst Du genau diese Zeile durch einen Invoke-Zugriff ersetzen.

Siehe Bild

osInputs() ist eine List(Of OvalShape) , eine .InvokeRequired geht nicht.

Wenn es ein Steuerelement wäre könnte ich ...

VB.NET-Quellcode

Public Sub SPS_Inputs()
If Me.osInputs.InvokeRequired Then
Dim d As New myDelegateSub(AddressOf SPS_Inputs)
Me.Invoke(d, New Object())
Else
'Mach was
End If
End Sub

...oder?

RodFromGermany schrieb:

Wenn da mehrere Zeilen stehen, in denen ein Zugriff erfolgt, mach da ne Prouedur mit entsprechenden Parametern draus und invoke diese.

Wie? Könntest du mir bitte ein konktretes Beisiel darstellen, was sich auf mein Projekt abbilden lässt? Bitte.

MfG

RodFromGermany · 18. März 2015, 16:00

newbie schrieb:

konktretes Beisiel

So was:

VB.NET-Quellcode

Public Sub SPS_Inputs()
Dim a = 5
Dim b = 6
Dim c = 12
Me.Invoke(Sub() MyInvokingSub(a, b, c))
End Sub
Private Sub MyInvokingSub(a As Integer, b As Integer, c As Integer)
MessageBox.Show((a + b + c).ToString)
End Sub

ErfinderDesRades · 18. März 2015, 16:04

Du meinst natürlich

VB.NET-Quellcode

Me.BeginInvoke(Sub() MyInvokingSub(a, b, c))

- aber das schrieb ja schon @jvbsl

RodFromGermany · 18. März 2015, 16:18

ErfinderDesRades schrieb:

natürlich

Sir jawoll Sir.

Zur Laufzeit erzeugte Controls in einem anderen Thread ansprechen

Zur Laufzeit erzeugte Controls in einem anderen Thread ansprechen

VB.NET-Quellcode

VB.NET-Quellcode

newbie schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

Quellcode

newbie schrieb:

VB.NET-Quellcode

newbie schrieb:

RodFromGermany schrieb:

VB.NET-Quellcode

Quellcode

Quellcode

Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

newbie schrieb:

newbie schrieb:

newbie schrieb:

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

newbie schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

newbie schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben