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

2013-05-16 01:30:12 372 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用VB.NET开发一个简单的串口程序本程序严谨程度不高,仅适合新手做成功程序使用,严谨程序后续会有更新. 这两个程序结合起来是可以用的. 单片机程序代码(用于在收到数据后做出反应) //整合自STC官方文档 #include "reg52.h" #include "intrins.h" typedef unsigned char u8; typedef unsigned int u16; bit busy;//这个变量暂时没用 #define FOSC 12000000L //单片机的频率 #define BAUD 4800 阅读详情

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

...全文

【VB.NET】使用SerialPort进行串口通信在使用VB.NET作为开发语言的时候，在针对串口进行操作的时候，可以考虑使用微软提供的官方接口SerialPort进行开发。首先是导入相关头文件。 Imports System.IO.Ports 之后定义相关串口操作对象，并对其先关参数进行设定。笔者此处设置均是读取配置txt，而对其使用字符串进行设置也是可以的。 Public WithEvents spone As New Se... 阅读详情

glove_0924

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

sosoben 2013-06-13

打赏
举报

引用 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

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

u010475810 2013-06-05

打赏
举报

楼上的程序验证过没？

sosoben 2013-06-04

打赏
举报

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

plum小梅 2013-06-02

打赏
举报

在VB6可以用MSCOMM来实现。

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

相关推荐