Καλημέρα,

θα έγραφα την ερώτηση στο προηγούμενο post μου αλλα είναι λίγο άσχετο με αυτό και άρχισα νέο.

Το GPS στέλνει πολλά δεδομένα κάθε δευτερόλεπτο. Εγώ λοιπόν για αρχή θέλω να τα δείχνω σε ένα textbox.

ωραία μέχρι εδώ όταν το προγραμματίσω μου πετάει exception το control.invoke.

καμιά ιδέα?

ευχαριστώ εκ των προτέρων... 

Δεν κάνεις paste λίγο κώδικα; Από τα μέχρι στιγμής δεδομένα δεν φαίνεται κάτι περίεργο.

---

Dimitris-Ilias Gkanatsios
Developer Evangelist, Microsoft Hellas

My Blog
StudentGuru
Twitter
Facebook

χρησιμοποιώ τον παρακάτω κώδικα.

Dim Buffer As String = SerialPort1.ReadLine

txt.Text = Buffer.ToString

αν το βάλω σε message box δουλεύει κανονικά δηλ.

msgbox.show(buffer.tostring)

Μου ετυχε κατι παρομοιο στην C#. Ειχα μια φορμα με κατι textbox. Μολις φορτωνε η φορμα ετρεχε ενα thread το οποιο επρεπε να θεσει τιμες μεσα στα textbox της φορμας. Επειδη ομως η φορμα και το thread ειναι "ξεχωριστα πραματα" μολις πηγαινε το thread να θεσει τις τιμες στα textbox πετουσε ενα παρομοιο exception.

Στον κωδικα σου txt.Text = Buffer.ToString το txt που το φτιαχνεις;
Παντως αν εισαι σε μια παρομοια φαση με αυτο που σου περιεγραψα παραπανω για να θεσεις τιμη στο txt πρεπει να φτιαξεις delegate μεθοδους.

delegate void SetTextCallback(String text);

private void SetGPSText(String text)
{

    if (txt.InvokeRequired)
    {
        SetTextCallback d = new SetTextCallback(SetGPSText);
        this.Invoke(d, new object[] { text });
     }
     else
     {
          txt.Text = text;
      }
}

Η SetGPSText(dedomena GPS) θα καλειται μεσα απο το thread που τραβαει τα δεδομενα απο το GPS.

---

Sleep-deprived psychotic hacker

Το ιδιο προβλημα ειχα πριν απο λιγο καιρο το ελυσα ως εξης

Μια μεταβλητη  στην φορμα

Private SRead as string

Χρειαζεσαι μια delegate

Public Delegate Sub myDelegate()

Απο τη ρουτινα που ελέγχει την σειριακή κανεις invoke το textbox

Private Sub DataReceived(ByVal str As String) Handles Serialport1.DataReceived

   SRead = SerialPort1.ReadExisting

   TextBox1.BeginInvoke(New myDelegate(AddressOf updateTextBox), New Object() {})

End Sub

Public Sub updateTextBox()

   TextBox1.Text += SRead

End Sub

Νομιζω ότι πρεπει να σε καλυπτει

---

Don't try to argue with the machine
Elias Markelis
MCPD,MCT