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 '关闭错误捕获

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

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 '说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行...

书上估计是用的定时器接收,窗体上拖MSComm1,Timer1,Text1控件各一个,并在属性设置好MSComm1的波特率,串口号,起始位,停止位等信息 Dim str_dispaly As String '定义回显字符 Private Sub Form_Load() Me.MSComm1.PortOpen = True Me.Timer...

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

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...

简单的方法是做一个for循环,从com1到com128 判断MSComm1.PortOpen 的返回值是否为True,等于True就打开,等于False,要么端口被占用,要么不存在。 一般来说,系统中不会有128个物理串口,高级一点的做法是通过查询注册表,在这个键值下HKEY_LO...

Private Sub Command5_Click() If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '打开通信口 Command5.Caption = "关闭串口" ElseIf MSComm1.PortOpen = True Then MSComm1.PortOpen = False '关闭通信口 Command5.Caption = "开启串...

LZ的代码缺省打开的是COM3,不知LZ的虚拟串口号是啥。 仔细看了下LZ的COM口选择控件的名称有误,数字1在代码中是字母l,以致造成COM口无法选择。 修改如下: Private Sub Combo1_Click() If MSComm1.PortOpen = True Then MSComm1.PortOpen = Fa...

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