VB.net: отправка данных в реальном времени на последовательный порт

Question

Я полностью застрял в том, как отправить живые данные (непрерывно автоматически менять значение) на последовательный порт. Например, в этом коде я пытаюсь отправить 2 данных вместе со временем. Мне удается отправить их, но они не обновили значение. это не постоянно обновляется. См. Private Sub Button2_Click:

'------------------------------------------------
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    'combined data = data1 + data2 + data3 + .....
    'Space is to allow space in between data
    RichTextBox1.Text = BasicLabel1.Text & Space(8) & BasicLabel2.Text & Space(8) & DateAndTime.TimeString
    SerialPort1.Write(RichTextBox1.Text & vbCr) 'concatenate with \n

End Sub

Answer 1

я наконец нашел решение:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    RichTextBox1.Text = BasicLabel1.Text & Space(8) & BasicLabel2.Text & Space(8) & DateAndTime.Now.ToString
    If SerialPort1.IsOpen Then
        SerialPort1.Write(RichTextBox1.Text + vbCr)
        Me.Refresh()
    End If

End Sub