vb.net 串口实时接收数据的问题？

[glove_0924]

现在用下位机给Wince发数据，接收方式为两个Textbox,Textbox1接收电流
Textbox2接收电压，下位机发送十六进制数，这边显示为十进制数
但我想这两个文本框接收的数据随着焊机的变化，也就是下位机的发送来实时显示
比如：发送 01 F4 00 1C 这是Textbox1显示是500，Textbox2显示是28
再次发送另一组数：01 F5 00 1E 这是Textbox1显示是500，Textbox2显示是30
，
，
，
如果通过串口接收实现显时显示?
感谢！

[plum小梅]

在VB6可以用MSCOMM来实现。

[sosoben]

30分太少了

 
 Public Delegate Sub SetTextCallback([text] As String) '定义委托
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
                      Dim DATA2Send As String 
            Dim temp As String
            ISrouting = True
            temp = SerialPort1.ReadLine()'如果你的下位机是有换行符 或 回车符作为一行的结尾的话
           '处理temp (包括 用strings.left取左边4个字节,right取右边;然后转成十进制等)赋值到DATA2Send

 SetText(DATA2Send)
End sub

 Sub SetText(ByVal [txt] As String)
        If Me.TextBox1.InvokeRequired Then
            Dim dsettext As New SetTextCallback(AddressOf SetText)
            Me.Invoke(dsettext, [txt].ToString)
        Else
            TextBox1.Text = [txt]
        End If
    End Sub

[u010475810]

楼上的程序验证过没？

[sosoben]

引用 2 楼 sosoben 的回复:

30分太少了

 
 Public Delegate Sub SetTextCallback([text] As String) '定义委托
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
                      Dim DATA2Send As String 
            Dim temp As String
            ISrouting = True
            temp = SerialPort1.ReadLine()'如果你的下位机是有换行符 或 回车符作为一行的结尾的话
           '处理temp (包括 用strings.left取左边4个字节,right取右边;然后转成十进制等)赋值到DATA2Send

 SetText(DATA2Send)
End sub

 Sub SetText(ByVal [txt] As String)
        If Me.TextBox1.InvokeRequired Then
            Dim dsettext As New SetTextCallback(AddressOf SetText)
            Me.Invoke(dsettext, [txt].ToString)
        Else
            TextBox1.Text = [txt]
        End If
    End Sub

在我现成的程序里面节选的,如果有问题都是删减的时候不小心删了,删了自后没有重新验证