[Visual Basic] Komischer Fehler beim empfangen eines Strings über COM

Schalte mal in den Projektoptionen "Option Strict" auf "On", korrigiere 
alle Fehler und poste den Code noch mal. Möglicherweise funktioniert es 
dann bereits.
Zeilen à la "data = CInt(data)" sind jedenfalls relativ sinnfrei. Damit 
wandelst du den Inhalt des Strings "data" erstmals explizit in einen 
Integer um und gleich anschliessend implizit wieder in einen String.

Du machst da einen "threadübergreifenden Zugriff", das bedeutet, diese 
Verarbeitungsroutine für die serielle Schnittstelle ist in einem anderen 
Thread beheimatet als das Steuerelement, auf das du die Werte zuweist.

Das klingt erstmal komisch, aber ich hatte ein ähnliches Problem auch 
schon mal und das generierte die verrücktesten Fehler. Setze mal 
"Control.CheckForIllegalCrossThreadCalls" auf True (oder kommentier die 
Zeile aus), und du wirst sehen dass VB bei der Ausführung da eine 
Exception wirft !!

Eine Lösung fand ich im MSDN, die sollte dir auch weiterhelfen:
-> http://msdn.microsoft.com/de-de/library/ms171728.aspx

Hth, Mario

Wenn du die Option "CheckForIllegalCrossThreadCalls" auf False stellst, 
dann UNTERDRÜCKST du eine Fehlermeldung über einen unzulässigen Vorgang. 
Und offensichtlich hat dein Programm genau an der Stelle ein Problem !

Ich mach dir nen Vorschlag: Du schreibst dein Programm um, so wie ich's 
dir gleich zeige. Wenn es dann geht, gibste mir - virtuell - einen aus, 
wenn nicht, dann nehm ich alles zurück und behaupte das Gegenteil, ok ?

Also, mach das ganze mal so:

1

Private Sub DeineDatenEmpfangsRoutine(...)

2

3

  ' Folgende Zeile auskommentieren (Überprüfung an)      

4

  ' Control.CheckForIllegalCrossThreadCalls = False

5

6

  Dim data, zwischen As String

7

  data = SerialPort1.ReadExisting()

8

  SerialPort1.DiscardInBuffer()

9

10

  'Empfangene Daten auswerten:

11

  If data.Contains("L1Value") Then

12

13

    data = data.Remove(0, 7)

14

    data = CInt(data)

15

    zwischen = data   'nur zum debuggen

16

17

    'TrackBarL1.Value = data

18

    'Label1.Text = data * 10 & " %"

19

    ' das wird ersetzt durch:

20

    SetTrackBarAndLabel(data)

21

22

  End If

23

End Sub

24

25

' Delegate für SetTrackBarAndLabel (nötig für asynchrone Calls)

26

Delegate Sub SetTrackBarAndLabelCallback(data As String)

27

28

' Und hier die Sub, die threadsicher TrackBar und Label updatet

29

Private Sub SetTrackBarAndLabel(ByVal data As String)

30

31

  If TrackBarL1.InvokeRequired Then

32

    Dim d As New SetTrackBarAndLabelCallback(AddressOf SetTrackBarAndLabel)

33

    Me.Invoke(d, New Object() {data})

34

  Else

35

    TrackBarL1Value = data

36

    Label1.Text = data * 10 & " %"

37

  End If

38

39

End Sub

Eigentlich solltest du noch checken, ob "data" wirklich eine Zahl ist, 
bevor du es auf TrackBar und Label loslässt ...

Viel Erfolg, Mario

Benji Bone wrote:
> @Philipp
>>Zeilen à la "data = CInt(data)" sind jedenfalls relativ sinnfrei. Damit
>>wandelst du den Inhalt des Strings "data" erstmals explizit in einen
>>Integer um und gleich anschliessend implizit wieder in einen String.
>
> Aber wieso kann ich dem TrackBarL1.Value einen String zuweisen, wenn der
> doch als Integer definiert ist?

Es ist durch die implizite Konvertierung möglich. "data" wird in einen 
Integer umgewandelt und dann zugewiesen, aber du hast keine Kontrolle 
darüber. Ausserdem ist es einfach nicht schön.

>>"Option Strict" auf "On"
> Was bedeutet das? Wo stelle ich das ein?

"Option Strict On" bedeutet, dass sich der Code genau an die Regeln 
halten muss, implizite Konvertierungen und solche "Unschönheiten" werfen 
dann einen Fehler. Gibt zwar mehr Schreibarbeit, ist aber weniger 
fehleranfällig. Die Einstellung findest du unter 
Project->Options->Compiler oder sowas...

Schade, hätte wetten können dass es das ist ! Zumal du sagst, dass es 
beim ersten Mal immer klappt ...

Versuch doch mal das Problem weiter einzukreisen und finde raus, welcher 
Befehl nicht das tut was er soll.