kbys.net
当前位置:首页 >> vB串口 打开串口 关闭串口 切换 >>

vB串口 打开串口 关闭串口 切换

Private Sub Command5_Click() If MSComm1.PortOpen = False Then '判断串口是否打开 Command5.Caption = "打开串口" '=False则说明,串口是关闭的,则显示"打开串口" Else Command5.Caption = "关闭串口" '否则,则说明,串口是打开的,则显示"关闭...

要防止出现报错,先判断一下端口是否已经打开。如果打开则关闭 If MSComm1.PortOpen Then MSComm1.PortOpen = FalseEnd If 或者,加一个错误处理 On Error Resume Next '打开错误捕获MSComm1.PortOpen = FalseOn Error Goto 0 '关闭错误捕获

Varbuffet=“S” 改为 Varbuffet = "S"

特别简单,设置并打开串口后 Dim a() As Byte a = Mscomm1.Input 就可以了。

我也是自己摸索开发出来的每一款VBtoCOM通讯,有具体的思路如下: 给你推荐一个工具“com串口测试工具 ComTone V1.0 中文绿色版” 1、打开你的噪音计的测试软件,调整好串口号、通讯频率等等,我用温度计举例说明。 开始查询后有返回数值,这个Rec...

Option Explicit Dim a As Integer Dim BytReceived() As Byte Dim strData As String Dim lenInput As Integer Dim bytSendByte() As Byte '发送二进制数据 Dim strSendText As String '发送文本数据 Dim blnAutoSendFlag As Boolean Dim openF...

j = 0 For i = 1 To 16 Step 1 If comISP.PortOpen = True Then '先关闭串口 comISP.PortOpen = False End If comISP.CommPort = i On Error Resume Next '说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行...

Option Explicit'强制变量声明 Private Sub Command1_Click() '发送 Dim number As Integer'定义整型 Dim outbyte(0) As Byte '定义字节数组 number = Val(Text1.Text)'转为数值型 outbyte(0) = CByte(number) '转化为字节型 MSComm1.OutBufferC...

Imports System Imports System.IO.Ports Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '获取计算机有效串口 Dim ports As String() = SerialPort.GetPortName...

On Error GoTo ggg MSComm1.Settings = "9600,n,8,1" ' 设置波特率和字符发送格式 MSComm1.CommPort = 5 ' 设置通信串口 MSComm1.InputLen = 0 ' 设置或返回一次从接收缓冲区中读取字节数,0表示一次读取所有数据 MSComm1.InBufferSize = 1024 '...

网站首页 | 网站地图
All rights reserved Powered by www.kbys.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com