大家好,今天小编关注到一个比较有意思的话题,就是关于vb编程串口教程的问题,于是小编就整理了3个相关介绍vb编程串口教程的解答,让我们一起看看吧。
VB中怎么让串口接收实时显示?
书上估计是用的定时器接收,窗体上拖MSComm1,Timer1,Text1控件各一个,并在属性设置好MSComm1的波特率,串口号,起始位,停止位等信息Dim str_dispaly As String '定义回显字符Private Sub Form_Load() Me.MSComm1.PortOpen = True Me.Timer1.Interval = 100 '定时器时间间隔 Me.Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If MSComm1.InBufferCount > 0 Then str_dispaly = str_dispaly & MSComm1.Input Me.Text1.Text = str_display End IfEnd Sub
VB如何实现串口监听功能?
我现在知道的有两种做法,给你参考一下
1是一定时间扫描下串口看串口是否有回传值即
a=MSComm1.output
delay
b=MSComm1.Input
2.是设定mscomm的ONCOM事件,一旦检测有数据回传就进行处理
MSComm1.Settings = "9600,N,8,1" '设置通信口参数
MSComm1.InputMode = comInputModeText
MSComm1.InBufferCount = 0 '清除接收缓冲区
MSComm1.OutBufferCount = 0 '清除发送缓冲区
求自动识别串口代码?
j=0 Fori=1To16Step1 IfcomISP.PortOpen=TrueThen'先关闭串口 comISP.PortOpen=False EndIf comISP***mPort=i OnErrorResumeNext'说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用OnErrorGoTo。 comISP.PortOpen=True IfErr.Number<>8002Then'无效的串口号。这样可以检测到虚拟串口,如果用Err.Number=0的话检测不到虚拟串口 Ifj=0Then j=i EndIf cboPort.AddItem"COM"&i'生成串口选择列表 EndIf comISP.PortOpen=False Nexti Ifj>=1Then cboPort.Text="COM"&j'自动打开可用的最小串口号 comISP***mPort=j comISP.PortOpen=True cmdOpenCom.Caption="关闭串口" shpCOM.FillColor=vbGreen IfErr.Number=8005Then'串口已打开,vbExclamation' comISP.PortOpen=False cboPort.Text="" cmdOpenCom.Caption="打开串口" shpCOM.FillColor=vbRed EndIf EndIf