.NET Framework

Απ: .net 2 - Πρόσβαση σε συσκευές μέσω Serial Port

Ioannis P — Thu, 22 Jun 2006 18:34:02 GMT

Δυστυχώς είμαι αρκετά άσχετος για να απαντήσω τεκμηριωμένα στα ερωτήματα σου :-(

Εγώ έχω βάλει όλο τον κώδικα που θέλω να εκτελείται μετά την λήψη δεδομένων στη Sub SerialPort_DataReceived. Βέβαια αν αντί για Public Shared WithEvents SerialPort As SerialPort βάλεις Dim WithEvents SerialPort As SerialPort και βγάλεις το shared από την sub σου μάλλον δεν θα έχεις πρόβλημα. Δοκίμασε το.

Απ: .net 2 - Πρόσβαση σε συσκευές μέσω Serial Port

JohnL — Thu, 22 Jun 2006 08:28:27 GMT

Αν και δεν κατάλαβα εντελώς γιατί δε δουλεύει το άλλο, εφόσον περίμενω δεδομένα, πράγματι το παραδειγμα που επισύναψες ήταν ότι χρειαζόμουν!

Αυτή η συγκεκριμένη sub δουλεύει και έχει το αποτέλεσμα που θέλω, αλλά με προβλήματα.

1) Είναι απαραίτητο να δηλωθεί ως Shared?

2) Πώς θα μπορέσω να γράψω σε ένα εργαλείο της φόρμας μέσα από την παραπάνω διαδικασία? Επειδή μου βγάζει:

Error 3 Cannot refer to an instance member of a class from within a shared method or shared member initializer without an explicit instance of the class.

Απ: .net 2 - Πρόσβαση σε συσκευές μέσω Serial Port

Ioannis P — Wed, 21 Jun 2006 21:05:48 GMT

Νομίζω οτι περιμένει μέχρι να διαβάσει κάτι από το buffer της σειριακής.

Θα σου συνιστούσα να κάνεις έλεγχο οτι υπάρχουν δεδομένα στο buffer πριν κάνεις την ανάγνωση. Δες επίσης την παρακάτω sub.

Private Shared Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived

Dim Buffer As String = SerialPort.ReadExisting()

End Sub

Σου επισυνάπτω και ένα ωραίο παραδειγματάκι σχετικά με το serial port του 2005 που είχα βρει κάποια στιγμή.

.net 2 - Πρόσβαση σε συσκευές μέσω Serial Port

JohnL — Tue, 20 Jun 2006 00:14:48 GMT

Εγκατέστησα πρόσφατα το Visual Studio 2005 και είπα να πειραματιστώ με το Serial Port. Κοιτώντας λίγο τη βοήθεια του MSDN, ξεκίνησα να γράφω κώδικα για να ελέγξω π.χ. το netMod.

    Function ReceiveSerialData() As String
        ' Receive strings from a serial port.
        Dim returnStr As String = ""
        Using com As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM3")
          com.WriteLine("ati0")
            Do
                Dim Incoming As String
                Incoming = com.ReadLine()
                If Incoming Is Nothing Then
                    Exit Do
                Else
                    returnStr &= Incoming & vbCrLf
                End If
            Loop
        End Using
        Return returnStr
    End Function

Αυτό που προσπάθησα να κάνει αυτό το κομμάτι κώδικα, είναι απλά σαν ένα HyperTerminal να στέλνει μια εντολή ati0, και να περιμένει την απάντηση από αυτό.

Το πρόβλημα κατά την εκτέλεση του εμφανίζεται στην εντολή ανάγνωσης Incoming = com.ReadLine(). Συγκεκριμένα σε εκείνο το σημείο ενώ δε βγάζει runtime error, εμφανίζει τη φόρμα χωρίς να σχεδιάζει τα controls της, δηλαδή μάλλον απλά κολλάει.

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