vb.net写的串口通讯类模块源码

原创

于 2022-02-01 14:29:03 发布 · 1.8k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#.net #microsoft #单片机

该代码模块展示了如何使用VB.NET进行串口通讯，包括打开、关闭串口，发送数据以及ASCII和CRC16 MODBUS通讯协议的数据转换。提供了PortOpen、PortClose、PortSendHex和PortSendASCII等函数，用于串口操作和数据校验。

以下是vb.net写的串口通讯模块代码，主要分类打开串口，关闭串口，发送数据，数据转换，包括了ASCII和CRC16 MODBUS通讯协议两种：


Imports System.IO.Ports
Module SerialModule
  Public SendHex As String = "" '发送中的缓存数据
  Public PlcName As String = "COM1", PlcNum As Integer = 1, PlcCOM As New IO.Ports.SerialPort '显示屏串口与屏号
  Public WeighNum As Integer = 1, Weigh1 As Integer = 0, Weigh2 As Integer = 0, Weigh3 As Integer = 0, Weigh4 As Integer = 0, Weigh5 As Integer = 0, Weigh6 As Integer = 0

  Public Car1Min As Integer = 1000, Car1Max As Integer = 1800, Car1Dist As Integer = 100
  Public Car2Min As Integer = 1000, Car2Max As Integer = 1800, Car2Dist As Integer = 100





  'Function StrDup(Str As String, Optional len As Integer = 4, Optional Character As String = "0") As String
  '  Dim n As Integer = len - Str.Length
  '  If n <= 0 Then Return Str.Substring(0, len)
  '  Return Strings.StrDup(n, Character) & Str
  'End Function

  Sub PortList(Combox As ComboBox, Optional COMM As String = ""