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