Εγκατέστησα πρόσφατα το 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.

Νομίζω οτι περιμένει μέχρι να διαβάσει κάτι από το 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 που είχα βρει κάποια στιγμή.

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

Αυτή η συγκεκριμένη 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.

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

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