Comunicazione porta seriale

[Pamela72]

Ciao,
il mio programma dovrebbe comunicare con delle periferiche tramite porta seriale.
HO seguito questo esempio ed ha funzionato alla perfezione:

http://sourceforge.net/projects/vbserialcomport/files/SerialCom.zip/download

però mi rende necessario l'utilizzo di una RichTextBox per la scrittura dei dati ricevuti, cosa che a me non serve.

C'è un modo di scrivere i dati in una variabile di tipo stringa e non avere per forza questa RTB?

 Private Sub ReceivedText(ByVal [text] As String) 'input from ReadExisting
        If Me.RichTextBox2.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.RichTextBox2.Text &= [text] 'append text
        End If
    End Sub

[oregon]

Semplicemente usa una stringa... Non vedo difficoltà, forse non ci hai provato...

[Pamela72]

Quindi posso togliere tranquilla tutto il blocco

If Me.RichTextBox2.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.RichTextBox2.Text &= [text] 'append text
EndIf

e lasciare direttamente

RispostaDispositivo &= [text]

NOTA! Il dispositivo risponde in modo spezzettato, cioè invia la stringa che è composta da circa 70 lettere, divisa in 7 parti

[Pamela72]

GRAZIE!!!

Quindi posso togliere tranquilla tutto il blocco

If Me.RichTextBox2.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.RichTextBox2.Text &= [text] 'append text
EndIf

e lasciare direttamente

RispostaDispositivo &= [text]

NOTA! Il dispositivo risponde in modo spezzettato, cioè invia la stringa che è composta da circa 70 lettere, divisa in 7 parti