怎么用VBNET进行串口通信-四川成都软件开发定制APP编程

文-沙鸥-2018.11.9

1，前言

前一段时间一位认识的朋友找到我，知道我这里是做工控自动化、电路板、控制器、仪器仪表、软件APP开发定制的（业务QQ2531263726），于是跟我说要把一个指纹模块和他们公司的触摸屏结合起来做成一个系统，发来了资料看了一下，这个指纹模块可以用串口和USB与上位机通信，为了做起来简单一些优先选择串口通信。朋友请求先在电脑上和指纹模块把数据调通，那么我就计划先写个电脑桌面小软件测试一下，找到几年前做的一个项目，是用VB.NET做的上位机软件，里面有串口通信模块例程可以参考。

那么，本文就介绍一下怎么在VB.NET中使用串口控件与下位机电路板通信。

2，使用VB.NET串口的总体技术梗概和实现流程

VB.NET有一个控件叫做SerialPort，在左边的toolbox里面把它拖拽到窗体，并对SerialPort控件进行配置和调用就能使用电脑进行串口通信。

•串口的一般配置和使用的流程

3，一点一点详细介绍串口操作和例程

开弓第一步，先用手将弓拉开，把左侧工具栏的SerialPort控件拖拽放置到窗体里面，一般SerialPort控件会自动定位到窗体的下方。

3.1 引入命名空间

Imports System

Imports System.IO.Ports

这两行代码将VB.NET串口开发必要的函数引入本工程文件里面。

3.2 读取和选择串口号

‘功能：读取计算机串口，并将可用的串口号显示在一个下拉列表框里面

Sub GetSerialPortNames()

For Each sp As String In My.Computer.Ports.SerialPortNames

ComboBox1.Items.Add(sp) 'CompList是一个下列表框控件，显示计算机可用的串口号

Next

If ComboBox1.Items.Count >= 1 Then

ComboBox1.SelectedIndex() = 0 '

ComboBox1.Text = ComboBox1.SelectedItem.ToString

Else

MsgBox("请插入USB转串口线！", MsgBoxStyle.Information, "提示！")’假如是笔记本等没有串口的计算机，那么就需要买一根USB转串口线

End

End If

End Sub

以上程序就实现了将计算机上可以使用的串口号显示在软件界面的一个下拉列表框里面，假如计算机没有串口，可以使用USB转串口线，如没有插入，会提示你"请插入USB转串口线！"。

3.3 串口设置

串口在使用前需要进行一下配置，包括串口号、波特率、数据位、停止位、缓冲区大小等参数设置。

'功能：串口设置

Sub PortStart()

If SerialPort1.IsOpen Then SerialPort1.Close()

SerialPort1.PortName = ComboBox1.SelectedItem.ToString '计算机串口设置，可以使用下列表框选择

SerialPort1.BaudRate = 9600 '波特率设置

SerialPort1.DataBits = 8 '数据位设置

SerialPort1.StopBits = StopBits.One '停止位设置

SerialPort1.ReadBufferSize = 256 '设置输入缓冲区大小为？字节

SerialPort1.DtrEnable = True

SerialPort1.ReadTimeout = 500 '超时时间

SerialPort1.NewLine = vbCrLf '行结束符号

End Sub

3.4 打开串口

'功能：打开串口

Sub PortOpen()

If Not SerialPort1.IsOpen Then ''假如串口关着的，那么就打开串口

Try

Call PortStart()

SerialPort1.Open()

Catch ex As UnauthorizedAccessException

MsgBox("串口被占用或串口错误！", MsgBoxStyle.Information, "提示！")

End Try

End If

End Sub

把串口配置好后，就可以打开串口，进行后续的数据收发。

3.5 串口收发数据

串口发送数据

Sub send(ByVal send_dat As Byte)

Dim senddata(0) As Byte

senddata(0) = send_dat

Try

SerialPort1.Write(senddata, 0, senddata.Length)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

以上程序段实现了串口数据发送，将待发送的数据存在数组senddata中，执行指令即可发送数据。

串口接收数据

串口接收数据有两种方式，一种是中断接收方式，另一种是定时查询接收的方式。

>>中断接收方式

'触发接收事件

Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Me.Invoke(New EventHandler(AddressOf Sp_Receiving)) '调用接收数据函数

End Sub

'接收数据

Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)

Dim strIncoming As String

Try

receivebytes.Text = Str(Val(receivebytes.Text) + SerialPort1.BytesToRead)

If SerialPort1.BytesToRead > 0 Then

Threading.Thread.Sleep(100) '添加的延时

strIncoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据

SerialPort1.DiscardInBuffer()

receivebox.Text = strIncoming

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Su

>>定时查询接收方式

‘定时扫描串口接收数据

Dim ReceivedLen As Integer

Dim i As Integer

If SerialPort1.IsOpen Then ‘假如串口是打开的

If SerialPort1.BytesToRead > 0 Then ‘假如串口接收到数据字节不为0

ReceivedLen = SerialPort1.BytesToRead‘一次接收到的数据字节数

Dim inx(ReceivedLen) As Byte

SerialPort1.Read(inx, 0, inx.Length) ‘读取数据到数组inx中，读取索引从0到inx.Length之间的数据

End If

End If

3.6 关闭串口

'关闭À串口

Sub PortClose()

Try

SerialPort1.Close()

DrawCircle(New Point(400 * circle_X, 15 * circle_Y), 10 * circle_X, Brushes.Red)

Catch ex As Exception

MsgBox("串口未打开或串口异常！", MsgBoxStyle.Information, "提示！")

End Try

End Sub

使用完之后，关闭串口。

4，小结

以上本文就介绍了用VB.NET进行串口通信的一般流程和部分相关程序段，在实际过程中需要补充一些其他的控件和代码，就能实现一个完整的工程应用。

更多精彩，欢迎关注微信公众号“永珂在线”。

【参考】

vb.net利用SerialPort进行读取串口操作

https://blog.csdn.net/u011788252/article/details/53637993

VB串口通信

描述

　　上位机是指可以直接发出操控命令的计算机，一般是PC/host computer/master computer/upper computer，屏幕上显示各种信号变化（液压，水位，温度等）。下位机是直接控制设备获取设备状况的计算机，一般是PLC/单片机single chip microcomputer/slave computer/lower computer之类的。上位机发出的命令首先给下位机，下位机再根据此命令解释成相应时序信号直接控制相应设备。下位机不时读取设备状态数据（一般为模拟量），转换成数字信号反馈给上位机。简言之如此，实际情况千差万别，但万变不离其宗：上下位机都需要编程，都有专门的开发系统。

　　上位机工作原理

　　两机如何通讯，一般取决于下位机，TCP/IP一般是支持的，但是下位机一般具有更可靠的独有通讯协议，购买下位机时，会带一大堆手册光盘，告诉你如何使用特有协议通讯，里面会举大量例子，一般对编程人员而言一看也就那么回事，使用一些新的API（API（Application Programming Interface，应用程序编程接口）是一些预先定义的函数，目的是提供应用程序与开发人员基于某软件或硬件的以访问一组例程的能力，而又无需访问源码，或理解内部工作机制的细节罢了，多语言支持功能模块，一般同时支持数种高级语言为上位机编程。

　　通常上位机和下位机通讯可以采用不同的上位机示例图片通讯协议，可以有RS232的串口通讯或者采用RS485串行通讯。当用计算机和PLC通讯的时候，不但可以采用传统的D形式的串行通讯，还可以采用更适合工业控制的双线的PROFIBUS-DP通讯。采用封装好的程序开发工具就可以实现PLC和上位机的通讯，当然可以自己编写驱动类的接口协议控制上位机和下位机的通讯。

　　通常工控机，工作站，触摸屏作为上位机，通信控制PLC，单片机等作为下位机，从而控制相关设备元件和驱动装置。

　　上位机开发的软件

　　1、visual studio 2008

　　Microsoft Visual Studio 2008是面向Windows Vista、Office 2007、Web 2.0的下一代开发工具，代号“Orcas”，是对Visual Studio 2005的一次及时、全面的升级。

　　VS2008引入了250多个新特性，整合了对象、关系型数据、XML的访问方式，语言更加简洁。使用Visual Studio 2008可以高效开发Windows应用程序。设计器中可以实时反映变更，XAML中智能感知功能可以提高开发效率。同时Visual Studio 2008支持项目模板、调试器和部署程序。Visual Studio 2008可以高效开发Web应用，集成了AJAX 1.0，包含AJAX项目模板，它还可以高效开发Office应用和Mobile应用。

　　2、MFC

　　是微软公司提供的一个类库（class libraries），以C++类的形式封装了Windows API，并且包含一个应用程序框架，以减少应用程序开发人员的工作量。其中包含大量Windows句柄封装类和很多Windows的内建控件和组件的封装类。

　　3、Qt

　　Qt［1］ 是一个1991年由Qt Company开发的跨平台C++图形用户界面应用程序开发框架。它既可以开发GUI程序，也可用于开发非GUI程序，比如控制台工具和服务器。Qt是面向对象的框架，使用特殊的代码生成扩展（称为元对象编译器（Meta Object Compiler， moc））以及一些宏，Qt很容易扩展，并且允许真正地组件编程。2008年，Qt Company科技被诺基亚公司收购，Qt也因此成为诺基亚旗下的编程语言工具。

　　4、GTK

　　GTK+（GIMP Toolkit）是一套源码以LGPL许可协议分发、跨平台的图形工具包。最初是为GIMP写的，已成为一个功能强大、设计灵活的一个通用图形库，是GNU/Linux下开发图形界面的应用程序的主流开发工具之一。并且，GTK+也有Windows版本和Mac OS X版。

　　5、wxWidgets

　　wxWidgets是一个开源的跨平台的C++构架库（framework），它可以提供GUI（图形用户界面）和其它工具。目前的2.x版本支持所有版本的Windows、带GTK+或Motif的Unix和MacOS。一个支持OS/2的版本正在开发中。开源跨平台， 和 CodeBlocks （开源跨平台的IDE）配合的很好， 而且可以用 wxSmith 很方便的设计界面。 而且学过MFC上手 wxWidgets 很快。

　　上位机快速开发教程

　　（1）准备工作

　　一台装有VS2010的计算机，用于测试的虚拟串口软件。同时你必须具有VB基础知识，这个VB上位机开发是入门级的，仅将VB.NET通信基础方法稍作介绍。

　　（2）串口通信常识

　　在串口通信中，通过编写单片机程序知道，我们应对如下参数进行设置：波特率、数据位和停止位、奇偶校验位。如果自己编写上位机的时候，我们考虑的不能仅仅是这些了，下面介绍上位机开发过程中需要特别注意的知识点。

　　MSComm控件提供了两种处理通信的方式：一种为事件驱动方式，该方式相当于一般程序设计中的中断方式。当串口发生事件或错误时，MSComm控件会产生OnComm事件，用户程序可以捕获该事件进行相应处理。

　　常用属性和方法

　　利用MSComm控件实现计算机通信的关键是理解并正确设置MSComm控件众多属性和方法。以下是MSComm控件的常用属性和方法：

　　●Commport：设置或返回串口号。其值从COM1到COM16。

　　●Settings：以字符串的形式设置或返回串口通信参数。

　　●Portopen：设置或返回串口状态。

　　●InputMode：设置或返回接收数据的类型。有文本和二进制两种类型。

　　●Inputlen：设置或返回一次从接收缓冲区中读取字节数。

　　●InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

　　●InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。

　　●Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

　　●OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512字节。

　　●OutBufferCount：设置或返回发送缓冲区中等待计算机发送的字符数。

　　●Output：向发送缓冲区发送数据，该属性设计时无效，运行时只读。

　　●Rthreshold：该属性为一阀值。当接收缓冲区中字符数达到该值时，MSComm控件设置Commevent属性为ComEvReceive，并产生OnComm事件。用户可在OnComm事件处理程序中进行相应处理。若Rthreshold属性设置为0，则不产生OnComm事件。例如用户希望接收缓冲区中达到一个字符就接收一个字符，可将Rthreshold设置为1。这样接收缓冲区中接收到一个字符，就产生一次OnComm事件。

　　●Sthreshold：该属性亦为一阀值。当发送缓冲区中字符数小于该值时，MSComm控件设置Commevent属性为ComEvSend，并产生OnComm事件。若Sthreshold属性设置为0，则不产生OnComm事件。要特别注意的是仅当发送缓冲区中字符数小于该值的瞬间才产生OnComm事件，其后就不再产生OnComm事件。例如Sthreshold设置为3，仅当发送缓冲区中字符数从3降为2时，MSComm控件设置Commevent属性为ComEvSend，同时产生OnComm事件，如发送缓冲区中字符始终为2，则不会再产生OnComm事件。这就避免了发送缓冲区中数据未发送完就反复发生OnComm事件。

　　●CommEvent：这是一个非常重要的属性。该属性设计时无效，运行时只读。一旦串口发生通信事件或产生错误，依据产生的事件和错误，MSComm控件为CommEvent属性赋不同的代码，同时产生OnComm事件。用户程序就可在OnComm事件处理程序中针对不同的代码，进行相应的处理。

　　（3）开发步骤（仅供参考）

　　1. 运行VS2010，新建一个Visual Basic的Windows窗体应用程序项目。将窗体的StartPosition属性改为CenterScreen，运行程序时，窗体在屏幕中央显示。

　　2. 由于默认情况下，通信所需的“Microsoft Communications Control，version 6.0”组件不在工具箱里面，所以我们需要手动添加。单击左侧的工具箱，并在控件栏单击鼠标右键，在弹出的菜单中选中“选择项”，在弹出的对话框中单击“COM组件”并选中“MicrosoftCommunications Control，version 6.0”，单击确定即可完成添加。

　　此时移动鼠标到窗体上时，鼠标箭头就会变成电话的形状，在窗体任意位置单击放置该控件。

　　3. 单击工具箱，在窗体上添加5个Label，并在属性里将Text属性依次改为：串口号、波特率、校验、数据位、停止位。再向窗体上添加5个ComboBox，从上到下依次排列。 4. 向窗体添加一个OvalShape和一个Button。将OvalShape的size属性改为“24，24”，FillStyle改为Solid。

　　5. 向窗体添加一个CheckBox、一个按钮Button和一个TextBox，将CheckBox的Text属性改为“十六进制发送”将这个按钮的text属性改为“发送”。

　　6. 向窗体添加一个Label和一个TextBox。更改Label的Text属性为“接收区”。 7. 向窗体添加一个CheckBox，将其Text属性改为“十六进制显示”

　　下面将要对部分控件进行设置，这样可以减少代码的长度 将波特率一栏ComboBox的Item属性中添加如下内容：

　　将校验一栏ComboBox的Item属性中添加如下内容

　　将数据位一栏ComboBox的Item属性中添加如下内容

　　将波特率一栏ComboBox的Item属性中添加如下内容

　　四、源代码

　　Public Class Form1 Dim cpSetting As String

　　Dim com_last_num As Integer = 0 ‘定义一个全局变量，作用为记录上一个串口号 Sub GetSerialPortNames（） ’搜索计算机中所有可用串口函数 On Error GoTo eRRHND ‘错误处理 ’搜索计算机中可用串口

　　For Each sp As String In My.Computer.Ports.SerialPortNames ComboBox1.Items.Add（sp） Next

　　ComboBox1.Sorted = True

　　ComboBox1.SelectedIndex = 0 ‘选择搜索到的第一个串口名称 Exit Sub

　　eRRHND： ’表示未搜到串口 MsgBox（“Oh， NO！”） End Sub

　　‘检测串口是否可用函数

　　Private Function Test_COM（ByVal com_num As Integer） As Boolean

　　If com_num 《》 com_last_num Or Button1.Text = “打开端口” Then ’如果选择的端口跟上次一样就不检测了

　　On Error GoTo Comm_Error

　　AxMSComm1.CommPort = com_num ‘将新串口号赋给ComPort

　　AxMSComm1.PortOpen = True ’打开串口

　　AxMSComm1.PortOpen = False ‘关闭串口

　　Test_COM = True ’串口可用则返回

　　Exit Function

　　Comm_Error： ‘根据错误号作出相应处理 If Err.Number = 8002 Then

　　MsgBox（“串口错误，请重新选择串口”， vbOKOnly， “错误提示！”） ElseIf Err.Number = 8005 Then MsgBox（“串口已打开！”） Else

　　MsgBox（“其它错误”） End If

　　Test_COM = False ’如果出错，则返回0 Exit Function Resume Next End If End Function

　　Private Sub Form1_Load（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles MyBase.Load

　　‘载入窗体初始化

　　GetSerialPortNames（） ’将搜到的串口在下拉菜单中显示出来

　　AxMSComm1.InBufferSize = 1024 ‘接收缓冲区大小，此项无法在串口打开时进行设置 AxMSComm1.OutBufferSize = 1024 ’发送缓冲区大小 ComboBox2.Text = “9600” ComboBox3.Text = “无校验” ComboBox4.Text = “8” ComboBox5.Text = “1” ChangePortProperty（）

　　‘设置接收数据的格式为二进制

　　AxMSComm1.InputMode = MSCommLib.InputModeConstants.comInputModeBinary AxMSComm1.InputLen = 0 ’设置从缓冲区读取全部数据 AxMSComm1.RThreshold = 1 ‘设置接收串口OnCommon事件 AxMSComm1.PortOpen = True ’打开串口 If AxMSComm1.PortOpen = True Then

　　OvalShape1.FillColor = Color.Green ‘OvalShape颜色设为绿色 Button1.Text = “关闭端口” ’按钮上的文字显示为关闭端口 Else

　　OvalShape1.FillColor = Color.Red ‘OvalShape颜色设为红色 Button1.Text = “打开端口” ’按钮上的文字显示为打开端口 End If End Sub

　　‘打开关闭串口代码

　　Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button1.Click

　　Dim ptNum As Integer ’通过串口名称获取串口号

　　If Len（ComboBox1.SelectedItem） 》 4 Then

　　ptNum = Val（Microsoft.VisualBasic.Strings.Right（ComboBox1.Text， 2）） Else

　　ptNum = Val（Microsoft.VisualBasic.Strings.Right（ComboBox1.Text， 1）） End If

　　If AxMSComm1.PortOpen = False Then ‘如果串口是关闭的 If Test_COM（ptNum） = True Then ’如果选择的串口可用？ ‘ ChangePortProperty（）

　　AxMSComm1.PortOpen = True ’则打开该串口

　　Button1.Text = “关闭端口” ‘按钮上的文字显示为关闭端口 OvalShape1.FillColor = Color.Green ’OvalShape颜色设为绿色 End If Else

　　AxMSComm1.PortOpen = False ‘关闭该串口

　　OvalShape1.FillColor = Color.Red ’OvalShape颜色设为红色 Button1.Text = “打开端口” ‘按钮上的文字显示为打开端口 End If End Sub

　　’如下是访问网站的链接的代码，可以选择访问网站的浏览器，这里只使用默认的IE浏览器 Private Sub LinkLabel1_LinkClicked（ByVal sender As System.Object， ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs） Handles LinkLabel1.LinkClicked LinkLabel1.LinkVisited = True

　　System.Diagnostics.Process.Start（“www.baidu.com/p/huzhiqianglz”） End Sub

　　‘处理发送数据的代码

　　Private Sub Button2_Click（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles Button2.Click

　　Dim hexString（） As Byte Dim source_Txt As String Dim i As Integer

　　source_Txt = TextBox1.Text ’将要发送的数据存放到变量source_Txt中

　　If CheckBox1.CheckState = CheckState.Checked Then ‘如果十六进制发送复选框被勾上 If Len（source_Txt） Mod 2 = 0 And Len（source_Txt） 《》 0 Then ’如果将要发送的数据长度不为或者能被2整除

　　ReDim hexString（Len（source_Txt） / 2 - 1） ‘重新定义hexString数组 For i = 0 To Len（source_Txt） - 1 Step 2

　　hexString（i / 2） = Val（“&H” & Mid（source_Txt， i + 1， 2）） ’将hexString转换成十六进制显示

　　Next

　　AxMSComm1.Output = hexString ‘将转换的数据发送到串口 Else ’否则提示格式不正确 MsgBox（“格式不正确！”） End If

　　Else ‘否则输出字符串

　　AxMSComm1.Output = TextBox1.Text

　　End If End Sub

　　Sub ChangePortProperty（） Dim comSetting As String Dim parity As String = “” ‘关闭端口

　　If AxMSComm1.PortOpen = True Then AxMSComm1.PortOpen = False End If ’获取串口号

　　If Len（ComboBox1.SelectedItem） 》 4 Then

　　AxMSComm1.CommPort = Val（Microsoft.VisualBasic.Strings.Right（ComboBox1.Text， 2）） Else

　　AxMSComm1.CommPort = Val（Microsoft.VisualBasic.Strings.Right（ComboBox1.Text， 1）） End If ‘设置校验方式

　　If ComboBox3.Text = “无校验” Then parity = “N”

　　ElseIf ComboBox3.Text = “奇校验” Then parity = “O”

　　ElseIf ComboBox3.Text = “偶校验” Then parity = “E” End If

　　comSetting = ComboBox2.Text & “，” & parity & “，” & ComboBox4.Text & “，” & ComboBox5.Text

　　’串口设置格式：9600，N，8，1 AxMSComm1.Settings = comSetting End Sub

　　‘将十进制转换为16进制

　　Private Function Decimal2Hex（ByRef c As String） As String Decimal2Hex = Hex（CInt（c）） If Len（Decimal2Hex） 《 2 Then

　　Decimal2Hex = “0” & Decimal2Hex End If End Function

　　’串口号发生改变的处理程序

　　Private Sub ComboBox1_SelectedIndexChanged（ByVal sender As System.Object， ByVal e As System.EventArgs） Handles ComboBox1.SelectedIndexChanged ChangePortProperty（）

　　End Sub

　　Private ReadStr As String = “”

　　Private Sub AxMSComm1_OnComm（ByVal sender As System.Object， ByVal e As System.EventArgs）

　　Handles AxMSComm1.OnComm

　　Dim i As Object

　　Dim bytData As Object ‘用来从接收缓冲区读取数据

　　Select Case AxMSComm1.CommEvent ’

　　对接收事件进行处理

　　Case MSCommLib.OnCommConstants.comEvReceive

　　bytData = AxMSComm1.Input ‘将接收到的数据暂存 For i = 0 To UBound（bytData）

　　If CheckBox2.CheckState = CheckState.Checked Then

　　ReadStr = ReadStr & Decimal2Hex（CStr（bytData（i）））

　　Else

　　ReadStr = ReadStr & CStr（bytData（i））

　　End If

　　Next

　　TextBox2.Text = ReadStr ’将转换后的数据在接收区显示

　　End Select

　　End Sub

　　End Class

　　五、程序中用到的几个函数解释

　　Microsoft.VisualBasic.Strings.Right（String，Num）：将字符串从右边开始截取字符串String中Num个字符。例如当String的值为“Welcome”，Num值为3，则该函数返回的值为字符串“ome”。另外通过将COM1拆分即可得到1，这是上例中得到得到串口号的方法。

　　Val（String）：将字符串类型转换为数值型。例如String为字符串“123”，则返回值为数值型123。 Hex（Integer）：将整型数转换为16进制数。如：Integer为13，则返回十六进制的D

　　其实有些函数看不懂也没关系，可能我介绍的不是很详细，有些资料上网查一下也很方便的，这里就不再多罗嗦了。

相关问答

[回答]1991年,美国微软公司推出了VisualBasic(可简称VB),目前的最新版本是VB2008Beta2(VB9)中文版。Visual意即可视的、可见的,指的是开发像Windows...

mfc只是微软的一个ui库开发exe可以用vcvbc#很多语言阿里云虚拟机需要提供socket服务端你才能访问有基于web的websocket那虚拟机需要部署web服务有基...

长连接一般用于异步通讯处理,短连接一般用于同步通讯处理。要保持长连接,只要连接上以后,不调用Shutdown和Close就不会断,如果断了,检查你的代码。长连接一般...

LC站中第四个槽安...下面以西门子PLC为例说下实现方法:一、通过STEP7软件建立一个新项目OPC,在项目中添加SIMATIC300站和一个PC站,其中PLC站中第四个槽安装...

通过硬件和软件侦听的方法,分析PLC内部固有的PPI通讯协议,然后上位机采用VB编程,遵循PPI通讯协议,读写PLC数据,实现人机操作任务。这种通讯方法,与一般的自...

多语言编程要看怎么做。1).net平台上的开发语言可以实现无缝通讯。2)VB/C++/Delhpi开发出DLL后也可以被其他语言调用。3)任何语言开发后的EXE文件支持命令...

其实很简单,声明一个变量数组其类型为Byte。然后将你要的数据逐一赋值到这个数组,将MSComm控件串行模式属性:InputMode设为二进制模式,也就是值为1...

回复2#zzllyp我编程很差,只是学过c++,不过现在也都忘了,您能不能再具体讲讲我需要看哪些书或资料,现在感觉无从下手我想用电脑与plc通信,方便数...

一般来说,是必须知道目标的通讯协议的,也就是该称重仪表收到什么样子的代码后开始发送数据,以及这种数据的格式是如何的。当然,也有极少的仪表是不断在发送...

这两个问题应该是同一个原因,Integer类型不够大。在VB6里,Integer是有符号的,其取值范围是-32767到32676。试试看用Long取代Integer吧,应该能行。再.....