Windows Mobile

Απ: delagates και SerialPort

Dimitris Papadimitriou — Thu, 24 Jul 2008 19:13:43 GMT

Εν συντομία η Invoke εκτελεί μια μέθοδο στο thread που εκτελείται το UI της φόρμας. Γενικά δεν είναι δυνατό να πειράξεις το UI από ένα thread διαφορετικό από αυτό που λειτουργεί το UI. Στην περίπτωσή σου το thread αυτό είναι το thread που διαβάζει την σειριακή. Το πρόβλημα είναι ότι αν δεν το κάνεις κανονικά θα πρέπει να πάρεις ένα άλλο exception από αυτό που παίρνεις (συγκεκριμένα το 'Cross-thread operation not valid: Control '.......' accessed from a thread other than the thread it was created on'). Δεν ξέρω γιατί δεν συμβαίνει αυτό στην περίπτωσή σου.

Περισσότερα εδώ και εδώ.

Απ: delagates και SerialPort

DaltonGR — Thu, 24 Jul 2008 18:36:37 GMT

ευχαριστώ παρα πολύ. με έσωσες. θα κάτσω να μελετήσω και αυτό που μου έστειλες γιατί ωραία τώρα είναι που δουλέυει αλλα πρέπει να βρώ και πώς. μην νιώθω πως είναι σαν μάυρο κουτί για εμένα.. ευχαριστώ και πάλι..

Απ: delagates και SerialPort

Dimitris Papadimitriou — Thu, 24 Jul 2008 18:03:02 GMT

Βλέπεις λοιπόν ότι μόλις έγραψες σωστά το try/catch προσδιόρισες αμέσως τις δυο γραμμές που έχουν το πρόβλημα. Πριν απλά ανταλλάξαμε 7 μηνύματα χωρίς λόγο και έχασες και 1-2 μέρες περιμένοντας απάντηση!

Καταρχήν η txt.AppendText(Buffer) είναι καλύτερη από την txt.Text += Buffer. Αλλά δεν νομίζω να λύσει το πρόβλημα.

Θα βοηθούσε επίσης (εσένα περισσότερο) αν εγκαταστήσεις αγγλικό .net runtime ή γυρίσεις τα vista σου στα αγγλικά. Έτσι θα παίρνεις τα exceptions στα αγγλικά και θα είναι ευκολότερο να τα ψάξεις στο δίκτυο και να βρεις τι σημαίνουν.

Τέλος κάνε paste κάπου στην φόρμα σου το παρακάτω και αντί για τις δυο γραμμές που έχεις γράψε: Write2TextBox(Buffer)

    Private Delegate Sub Write2TextBoxHandler(ByVal text As String)

    Private Sub Write2TextBox(ByVal text As String)
        If Me.InvokeRequired Then
            Dim handler As New Write2TextBoxHandler(AddressOf Write2TextBox)
            Me.Invoke(handler, New Object() {text})
        Else
            txt.AppendText(text)
            txt.Refresh()
        End If
    End Sub

Απ: delagates και SerialPort

DaltonGR — Thu, 24 Jul 2008 16:28:07 GMT

τώρα που έβαλα σωστά το try..catch..end try

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim bPortOpen As Boolean = Me.SerialPort1.IsOpen
If bPortOpen Then
Try
Dim Buffer As String = SerialPort1.ReadLine
gps.Parse(Buffer)
txt.Text += Buffer
txt.Refresh()
MsgBox(Buffer)
Catch exep As Exception
MsgBox(exep.Message, MsgBoxStyle.Information, "Σφάλμα data received")
End Try
Else
MessageBox.Show("Not open", "Serial Port")
End If
End Sub

με το προηγούμενο GPS δεν είχα πρόβλημα.Τώρα μου βγάζει μήνυμα ακαθόριστης λύσης..

"Δεν είναι δυνατή η εμφάνιση μηνύματος σφάλματος επειδή δεν είναι δυνατή η εύρεση της προαιρετικής συγκρότησης πόρων που το περιέχει."

τι εννοά ο ποιητής;;

ανοίγει κανονικά η θύρα COM1 αλλα δεν εμφανίζει δεδομένα.

κατι ακόμα. μόλις βάλω σε σχόλια τα παρακάτω

txt.Text += Buffer
txt.Refresh()
δουλεύει κανονικά. όπου txt είναι textbox.. και έχω βάλει ένα message box και εμφανίζει κανονικά τα δεδομένα. απο οτι φαίνεται δεν μπορεί να τα εισάγει στα κατάλληλα textbox η labels...

Απ: delagates και SerialPort

Dimitris Papadimitriou — Wed, 23 Jul 2008 22:03:23 GMT

Αν συμφωνείς τότε γιατί το αφαίρεσες το message box που είχες;

Ξαναβάλτο για να βεβαιωθούμε ότι δεν υπάρχει κάποιο exception που κρύβεται! Αν υπάρχει τότε αυτό περιέχει την πληροφορία που χρειάζεσαι. Δεν έχει νόημα να ψάχνεις τυφλά τι συμβαίνει.

Απ: delagates και SerialPort

DaltonGR — Wed, 23 Jul 2008 21:56:31 GMT

ναι σωστά , δεν είναι πρόβλημα εκεί όμως. συμφωνό ότι πρέπει να πιάνουμε τα exception αλλα στο σημείο εκείνο αφαίρεσα το message box που είχα. το raise event είναι σωστά; τις τιμές που περνώ στο event υπάρχει κάποιος άλλος τρόπος να της πάρω, μήπως είναι λάθος η σύνταξη εκεί;

Απ: delagates και SerialPort

Dimitris Papadimitriou — Wed, 23 Jul 2008 21:48:12 GMT

Η σύνταξη

Try
...
Catch
End Try

είναι ένα από τα μεγαλύτερα σφάλματα που μπορεί να κάνει ένας προγραμματιστής. Είναι σαν να λες σε κάποιον κάνε μια δουλειά και ότι πρόβλημα έχεις μην μου πεις τίποτα!

Βάλε κώδικα στο catch σου να κάνει κάτι με το exception. Να το γράφει κάπου, να βγάζει ένα message box.

Απ: delagates και SerialPort

DaltonGR — Wed, 23 Jul 2008 21:37:40 GMT

στο serialport datareceive event έχω
Dim bPortOpen As Boolean = Me.SerialPort1.IsOpen
ιf bPortOpen Then
Try
Dim Buffer As String = SerialPort1.ReadLine
Parse(Buffer)
Catch
End Try
Else
MessageBox.Show("Not open", "Serial Port")
End If

όπου το parse(buffer) ξεχωρίζει τα δεδομένα που στέλνει το GPS που είναι συνδεδεμένο στην σειριακή.

έχω ένα custom event
Public Event PositionReceived(ByVal latitude As String, ByVal longitude As String)
όταν αλλάζει η θέση του χρήστη εμφανίζω αυτό το event ετσι
RaiseEvent PositionReceived(Latitude, Longitude)

τα δεδομένα λοιπόν απο αυτό το event, latitude και longitude, θέλω να τα εμφανίζω σε ένα label.

αλλά δεν εμφανίζετε τίποτα. είναι λες και η εφαρμογή έχει κολλήσει.

Απ: delagates και SerialPort

Dimitris Papadimitriou — Wed, 23 Jul 2008 21:26:08 GMT

Σε ποιο σημείο ακριβώς θέλεις βοήθεια. Δώσε λίγο (προσοχή στο λίγο) κώδικα να καταλάβουμε.

delagates και SerialPort

DaltonGR — Wed, 23 Jul 2008 19:51:17 GMT

Καλημέρα,

Προσπαθώ να βρώ μια άκρη αλλα αυτά τα delegates με εχουν μπερδέψει.Εχω συνδέσει το GPS σε μία σειριακή πόρτα. εύκολο και απλό, στο load event της φόρμας ανοίγει η serial port. Λοιπόν θέλω όταν δέχεται πληροφορίες σημείου(latitude,longitude), έχω βάλει raise event όταν γίνεται αυτό, να ενημερώνω πάνω στην φόρμα μου 2 textboxes με αυτά τα δεδομένα. Δεν μπορώ να βρώ μια άκρη με τα delegates και background workers. Μπορείτε να με βοηθήσετε σε αυτό; Επιειδή τα δεδομένα έρχονται πολλά και γρήγορα δεν ενημερώνεται η φόρμα και φαίνετε σαν το πρόγραμμα να έχει κολλήσει.

Θα σας είμαι υπόχρεος.

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