vb,串行端口调试(总是出现无法打开串口com1,确认串口是否存在),该怎么办
来源:百度知道 编辑:UC知道 时间:2024/05/11 15:30:36
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = FASLE
End Sub
Private Sub Command3_Click()
MsgBox "下面的代码仅是调用的大体步骤,所有的参数值需要您分别赋值后才能运行!" & vbCrLf & _
"其中第四步和第五步可以循环调用" & vbCrLf & _
"函数详解请见《关于SendToLedOCX控件的二次开发说明》文档"
'Exit Sub
With SendToLedOCX1
.ScriptStart '一.开始脚本定义
.SetScreen 12, 8, 1 '二.设置屏幕规格参数
.SetIP "192.168.30.253", 10001, 62597 '三.设置屏幕通讯方式 'If TCP / IP Is Nothing Then
' .SetComm 0 - RS232, 1 - COM1, 14400, 62597 'ElseIf COM1 Is Nothing Then
' End If
.SetWindow 0, 0, 23, 8
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = FASLE
End Sub
Private Sub Command3_Click()
MsgBox "下面的代码仅是调用的大体步骤,所有的参数值需要您分别赋值后才能运行!" & vbCrLf & _
"其中第四步和第五步可以循环调用" & vbCrLf & _
"函数详解请见《关于SendToLedOCX控件的二次开发说明》文档"
'Exit Sub
With SendToLedOCX1
.ScriptStart '一.开始脚本定义
.SetScreen 12, 8, 1 '二.设置屏幕规格参数
.SetIP "192.168.30.253", 10001, 62597 '三.设置屏幕通讯方式 'If TCP / IP Is Nothing Then
' .SetComm 0 - RS232, 1 - COM1, 14400, 62597 'ElseIf COM1 Is Nothing Then
' End If
.SetWindow 0, 0, 23, 8
换个串口。用串口2。或者从网上找个串口助手测试一下。哪个串口可行。你所用的串口是不是不通。
要不你就留下你的邮箱我给你传过去一个串口助手。。。
还有就是检查一下你VB所用的串口是不是被占用了。
笔记本上没有COM1是运行不了的,但有的笔记本会有虚拟的COM3口,可以将数据原样返回,还有网上有一种虚拟串口的软件可以下载试用
线坏了